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

fakt, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-10-30 12:00:22 +01:00
parent a1889578d8
commit 52e0041754
19 changed files with 1921 additions and 543 deletions
Download Patch File Download Diff File Expand all files Collapse all files

55
SDL/Fakturierung/cFakturierung.vb
View File

@@ -2136,7 +2136,7 @@ Public Class cFakturierung
Case 26 : rpt.picVERAG.Image = My.Resources.VERAG_UNISPED_Logo : rpt.Picture1.Image = Nothing Case 26 : rpt.picVERAG.Image = My.Resources.VERAG_UNISPED_Logo : rpt.Picture1.Image = Nothing
Case 23 : rpt.picVERAG.Image = My.Resources.Unisped_ZS_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_ZS_AT Case 23 : rpt.picVERAG.Image = My.Resources.Unisped_ZS_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_ZS_AT
Case 24 : rpt.picVERAG.Image = My.Resources.ambar_boarder : rpt.Picture1.Image = Nothing Case 24 : rpt.picVERAG.Image = My.Resources.ambar_boarder : rpt.Picture1.Image = Nothing
rpt.txtAvisierer.Visible = False : rpt.lblAvisiererUeberschrift.Visible = False : rpt.txtWarenwert.Visible = False : rpt.lblWarenWertUeberschrift.Visible = False rpt.txtWarenwert.Visible = False : rpt.lblWarenWertUeberschrift.Visible = False
End Select End Select
@@ -2182,10 +2182,6 @@ Public Class cFakturierung
Dim sachbearbeiterAufRechnung = getSBRgName(RECHNUNG.Firma_ID, RECHNUNG.Sachbearbeiter) Dim sachbearbeiterAufRechnung = getSBRgName(RECHNUNG.Firma_ID, RECHNUNG.Sachbearbeiter)
rpt.lblSachbearbeiter.Text = IIf(sachbearbeiterAufRechnung = "Herr Ordu", "Verrechnung", sachbearbeiterAufRechnung) 'If(RECHNUNG.Sachbearbeiter, "") rpt.lblSachbearbeiter.Text = IIf(sachbearbeiterAufRechnung = "Herr Ordu", "Verrechnung", sachbearbeiterAufRechnung) 'If(RECHNUNG.Sachbearbeiter, "")
rpt.txtAbsender.Text = If(RECHNUNG.AbsenderName_1, "") & " " & If(RECHNUNG.AbsenderName_2, "") & vbNewLine & If(RECHNUNG.AbsenderOrt, "").ToString.Trim
rpt.txtEmpfaenger.Text = If(RECHNUNG.EmpfängerName_1, "") & " " & If(RECHNUNG.EmpfängerName_2, "") & vbNewLine & If(RECHNUNG.EmpfängerOrt, "").ToString.Trim
rpt.txtAvisierer.Text = If(RECHNUNG.Avisierer, "")
If firma.Firma_ID = 4 Then If firma.Firma_ID = 4 Then
rpt.lblWarenWertUeberschrift.Visible = False rpt.lblWarenWertUeberschrift.Visible = False
rpt.txtWarenwert.Visible = False rpt.txtWarenwert.Visible = False
@@ -2310,10 +2306,6 @@ Public Class cFakturierung
rpt.lblHandlingATA.Visible = False rpt.lblHandlingATA.Visible = False
End If End If
If rpt.txtAbsender.Text.Trim = String.Empty Then rpt.lblAbsenderUeberschrift.Visible = False
If rpt.txtEmpfaenger.Text.Trim = String.Empty Then rpt.lblEmpfaengerUeberschrift.Visible = False
If rpt.txtAvisierer.Text.Trim = String.Empty Then rpt.lblAvisiererUeberschrift.Visible = False
If rpt.lblLKWId.Text.Trim = String.Empty Then rpt.lblLKWIdUebeschrift.Visible = False If rpt.lblLKWId.Text.Trim = String.Empty Then rpt.lblLKWIdUebeschrift.Visible = False
If rpt.txtWarenwert.Text.Trim = String.Empty Then rpt.lblWarenWertUeberschrift.Visible = False If rpt.txtWarenwert.Text.Trim = String.Empty Then rpt.lblWarenWertUeberschrift.Visible = False
If rpt.txtZollbelegNr.Text.Trim = String.Empty Then rpt.lblZollbelegNr.Visible = False If rpt.txtZollbelegNr.Text.Trim = String.Empty Then rpt.lblZollbelegNr.Visible = False
@@ -2330,8 +2322,10 @@ Public Class cFakturierung
rpt.lblAnzahlUeberschrift.Text = "Tage" rpt.lblAnzahlUeberschrift.Text = "Tage"
rpt.lblSteuerpflichtigUeberschrift.Alignment = GrapeCity.ActiveReports.Document.Section.TextAlignment.Center rpt.lblSteuerpflichtigUeberschrift.Alignment = GrapeCity.ActiveReports.Document.Section.TextAlignment.Center
rpt.lblSteuerpflichtigUeberschrift.Text = "Zahlungsbetrag" rpt.lblSteuerpflichtigUeberschrift.Text = "Zahlungsbetrag"
rpt.lbl_onlyZR_VZUeberschrift.Text = "Zinsen % p.a." rpt.lbl_onlyZR_VZUeberschrift.Text = "Zinsen p.a."
rpt.lbl_onlyZR_VZUeberschrift.Alignment = GrapeCity.ActiveReports.Document.Section.TextAlignment.Left
rpt.lblSteuerfreiUeberschrift.Text = "Verzugszinsen" rpt.lblSteuerfreiUeberschrift.Text = "Verzugszinsen"
rpt.lblSteuerfreiUeberschrift.Alignment = GrapeCity.ActiveReports.Document.Section.TextAlignment.Right
rpt.lbl_onlyZR_ReDatUeberschrift.Visible = True rpt.lbl_onlyZR_ReDatUeberschrift.Visible = True
@@ -2446,17 +2440,25 @@ Public Class cFakturierung
If firma.Firma_ID = 19 Then If firma.Firma_ID = 19 Then
If RECHNUNG.FilialenNr = 8001 AndAlso RECHNUNG.OffertenNr = 95 Then 'dann ist es eine Zinsnachberechnungs-Rechnung If RECHNUNG.FilialenNr = 8001 AndAlso RECHNUNG.OffertenNr = 95 Then 'dann ist es eine Zinsnachberechnungs-Rechnung
Dim subRpt = New rptRechnungMDM_AnlagenDruck_Zinsennachberechnung(rpt._LAN, RECHNUNG, rpt.txtLeistung.Text.Replace("*", ""))
rpt.SubReport.Report = subRpt Dim steuerfrei As Double = 0
rpt.lblSteuerfrei.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold) Dim steuerpfl As Double = 0
rpt.lblSteuerpflichtig.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold)
'txtPackstuecke.Top += SubReport.Height If IsNumeric(checkNull(rpt.Fields.Item("SteuerfreierBetrag").Value)) Then steuerfrei = CDbl(rpt.Fields.Item("SteuerfreierBetrag").Value)
'txtKdAuftragsnummer.Top += SubReport.Height If IsNumeric(checkNull(rpt.Fields.Item("SteuerpflichtigerBetrag").Value)) Then steuerpfl = CDbl(rpt.Fields.Item("SteuerpflichtigerBetrag").Value)
'txtSendungsdetails.Top += SubReport.Height
Else
rpt.SubReport.Report = Nothing Dim subRpt = New rptRechnungMDM_AnlagenDruck_Zinsennachberechnung(rpt._LAN, RECHNUNG, rpt.txtLeistung.Text.Replace("*", ""), CInt(rpt.lblAnzahl.Text), steuerfrei + steuerpfl)
rpt.SubReport.Report = subRpt
rpt.lblSteuerfrei.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold)
rpt.lblSteuerpflichtig.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold)
'txtPackstuecke.Top += SubReport.Height
'txtKdAuftragsnummer.Top += SubReport.Height
'txtSendungsdetails.Top += SubReport.Height
Else
rpt.SubReport.Report = Nothing
End If End If
Dim isReverseCharge As Boolean = SQL.getValueTxtBySql("SELECT ReverseCharge as Bit from Leistungen where LeistungsNr= " & rpt.lblLeistungNr.Text, "FMZOLL") Dim isReverseCharge As Boolean = SQL.getValueTxtBySql("SELECT ReverseCharge as Bit from Leistungen where LeistungsNr= " & rpt.lblLeistungNr.Text, "FMZOLL")
@@ -4854,11 +4856,11 @@ Public Class cFakturierung
'rpt.lblAbfertigungsDatum.Text = RECHNUNG.Abfertigungsdatum.ToShortDateString 'rpt.lblAbfertigungsDatum.Text = RECHNUNG.Abfertigungsdatum.ToShortDateString
'rpt.lblLKWId.Text = If(RECHNUNG.AvisoID, "") 'rpt.lblLKWId.Text = If(RECHNUNG.AvisoID, "")
Dim sachbearbeiterAufRechnung = getSBRgName(Row("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) Dim sachbearbeiterAufRechnung = getSBRgName(Row("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME, Row("Sachbearbeiter"))
rpt.lblSachbearbeiter.Text = IIf(sachbearbeiterAufRechnung = "Herr Ordu", "Verrechnung", sachbearbeiterAufRechnung) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben - NEU rpt.lblSachbearbeiter.Text = IIf(sachbearbeiterAufRechnung = "Herr Ordu", "Verrechnung", sachbearbeiterAufRechnung) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben - NEU
rpt.lblSachbearbeiter.Text = getSBRgName(Firma.Firma_ID, VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben 'rpt.lblSachbearbeiter.Text = getSBRgName(Firma.Firma_ID, VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben
rpt.lblFirmenbuch.Text = If(Firma.Firma_Firmenbuch, "").ToString.Replace("Firmenbuch: ", "").Trim rpt.lblFirmenbuch.Text = If(Firma.Firma_Firmenbuch, "").ToString.Replace("Firmenbuch: ", "").Trim
rpt.lblUID.Text = If(Firma.Firma_UID, "").ToString.Replace("UID: ", "").Trim rpt.lblUID.Text = If(Firma.Firma_UID, "").ToString.Replace("UID: ", "").Trim
rpt.lblEORI.Text = If(Firma.Firma_EORI, "") rpt.lblEORI.Text = If(Firma.Firma_EORI, "")
@@ -5254,7 +5256,7 @@ Public Class cFakturierung
'rpt.lblAbfertigungsDatum.Text = RECHNUNG.Abfertigungsdatum.ToShortDateString 'rpt.lblAbfertigungsDatum.Text = RECHNUNG.Abfertigungsdatum.ToShortDateString
'rpt.lblLKWId.Text = If(RECHNUNG.AvisoID, "") 'rpt.lblLKWId.Text = If(RECHNUNG.AvisoID, "")
Dim sachbearbeiterAufRechnung = getSBRgName(Row("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) Dim sachbearbeiterAufRechnung = getSBRgName(Row("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME, Row("Sachbearbeiter").ToString.ToUpper)
If sachbearbeiterAufRechnung = "" Then If sachbearbeiterAufRechnung = "" Then
rpt.lblSachbearbeiter.Text = getSBRgName(Row("Firma_ID"), Row("Sachbearbeiter").ToString.ToUpper) rpt.lblSachbearbeiter.Text = getSBRgName(Row("Firma_ID"), Row("Sachbearbeiter").ToString.ToUpper)
@@ -5492,10 +5494,15 @@ Public Class cFakturierung
Shared Function getSBRgName(Firma_id As Integer, USRKURZNAME As String) As String Shared Function getSBRgName(Firma_id As Integer, USRKURZNAME As String, Optional NameAufBeleg As String = "") As String
If USRKURZNAME Is Nothing Then Return "" If USRKURZNAME Is Nothing Then Return ""
If USRKURZNAME Is DBNull.Value Then Return "" If USRKURZNAME Is DBNull.Value Then Return ""
If NameAufBeleg <> "" Then
USRKURZNAME = NameAufBeleg
End If
If USRKURZNAME = "" Then USRKURZNAME = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME If USRKURZNAME = "" Then USRKURZNAME = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
Dim txt = SQL.getValueTxtBySql("SELECT top 1 CASE WHEN mit_geschlecht='w' THEN 'Frau ' ELSE (CASE WHEN mit_geschlecht='m' THEN 'Herr ' ELSE '' END ) END + mit_nname FROM [tblMitarbeiter] WHERE [mit_username]='" & USRKURZNAME & "' ", "ADMIN") Dim txt = SQL.getValueTxtBySql("SELECT top 1 CASE WHEN mit_geschlecht='w' THEN 'Frau ' ELSE (CASE WHEN mit_geschlecht='m' THEN 'Herr ' ELSE '' END ) END + mit_nname FROM [tblMitarbeiter] WHERE [mit_username]='" & USRKURZNAME & "' ", "ADMIN")
If txt <> "" Then Return txt If txt <> "" Then Return txt
@@ -5672,7 +5679,7 @@ Public Class cFakturierung
'rpt.lblAbfertigungsNr.Text = ROW("FilialenNr") & " / " & ROW("AbfertigungsNr") & " " & ROW("SpeditionsbuchUnterNr").ToString("00") 'rpt.lblAbfertigungsNr.Text = ROW("FilialenNr") & " / " & ROW("AbfertigungsNr") & " " & ROW("SpeditionsbuchUnterNr").ToString("00")
'rpt.lblAbfertigungsDatum.Text = RECHNUNG.Abfertigungsdatum.ToShortDateString 'rpt.lblAbfertigungsDatum.Text = RECHNUNG.Abfertigungsdatum.ToShortDateString
'rpt.lblLKWId.Text = If(RECHNUNG.AvisoID, "") 'rpt.lblLKWId.Text = If(RECHNUNG.AvisoID, "")
Dim sachbearbeiterAufRechnung = getSBRgName(ROW("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) Dim sachbearbeiterAufRechnung = getSBRgName(ROW("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME, ROW("Sachbearbeiter"))
rpt.lblSachbearbeiter.Text = IIf(sachbearbeiterAufRechnung = "Herr Ordu", "Verrechnung", sachbearbeiterAufRechnung) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben - NEU rpt.lblSachbearbeiter.Text = IIf(sachbearbeiterAufRechnung = "Herr Ordu", "Verrechnung", sachbearbeiterAufRechnung) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben - NEU
'rpt.lblSachbearbeiter.Text = getSBRgName(ROW("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben - ALT 'rpt.lblSachbearbeiter.Text = getSBRgName(ROW("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben - ALT

205
SDL/Fakturierung/rptRechnungDruck_MDM.Designer.vb generated
View File

@@ -112,12 +112,6 @@ Partial Public Class rptRechnungDruck_MDM
Me.lblSteuerpflichtigUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblSteuerpflichtigUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnzahlUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblAnzahlUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line4 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.Line4 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.lblAbsenderUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAvisiererUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblEmpfaengerUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtAbsender = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtEmpfaenger = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAvisierer = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblZollbelegNr = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblZollbelegNr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtZollbelegNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.txtZollbelegNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblWarenWertUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblWarenWertUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
@@ -206,12 +200,6 @@ Partial Public Class rptRechnungDruck_MDM
CType(Me.lbl_onlyZR_ReDatUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lbl_onlyZR_ReDatUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSteuerpflichtigUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblSteuerpflichtigUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnzahlUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblAnzahlUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAbsenderUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAvisiererUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblEmpfaengerUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAbsender, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtEmpfaenger, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAvisierer, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblZollbelegNr, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblZollbelegNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtZollbelegNr, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtZollbelegNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblWarenWertUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblWarenWertUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -1224,8 +1212,8 @@ Partial Public Class rptRechnungDruck_MDM
' '
'GroupHeader4 'GroupHeader4
' '
Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblLeistungUeberschrift, Me.lblSteuerfreiUeberschrift, Me.lbl_onlyZR_VZUeberschrift, Me.lbl_onlyZR_ZahlungsDatUeberschrift, Me.lbl_onlyZR_FaelligUeberschrift, Me.lbl_onlyZR_ReDatUeberschrift, Me.lblSteuerpflichtigUeberschrift, Me.lblAnzahlUeberschrift, Me.Line4, Me.lblAbsenderUeberschrift, Me.lblAvisiererUeberschrift, Me.lblEmpfaengerUeberschrift, Me.txtAbsender, Me.txtEmpfaenger, Me.txtAvisierer, Me.lblZollbelegNr, Me.txtZollbelegNr, Me.lblWarenWertUeberschrift, Me.txtWarenwert, Me.txtGrenzeUeberschrift, Me.txtGrenze, Me.txtBef<EFBFBD>rderungsmittelUeberschrift, Me.txtBef<EFBFBD>rderungsmittel, Me.lblSendungsdatenUeberschrift, Me.txtSendungsdaten, Me.Line12, Me.Line13, Me.Line16}) Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblLeistungUeberschrift, Me.lblSteuerfreiUeberschrift, Me.lbl_onlyZR_VZUeberschrift, Me.lbl_onlyZR_ZahlungsDatUeberschrift, Me.lbl_onlyZR_FaelligUeberschrift, Me.lbl_onlyZR_ReDatUeberschrift, Me.lblSteuerpflichtigUeberschrift, Me.lblAnzahlUeberschrift, Me.Line4, Me.lblZollbelegNr, Me.txtZollbelegNr, Me.lblWarenWertUeberschrift, Me.txtWarenwert, Me.txtGrenzeUeberschrift, Me.txtGrenze, Me.txtBef<EFBFBD>rderungsmittelUeberschrift, Me.txtBef<EFBFBD>rderungsmittel, Me.lblSendungsdatenUeberschrift, Me.txtSendungsdaten, Me.Line12, Me.Line13, Me.Line16})
Me.GroupHeader4.Height = 1.627275! Me.GroupHeader4.Height = 1.033525!
Me.GroupHeader4.KeepTogether = True Me.GroupHeader4.KeepTogether = True
Me.GroupHeader4.Name = "GroupHeader4" Me.GroupHeader4.Name = "GroupHeader4"
' '
@@ -1233,49 +1221,49 @@ Partial Public Class rptRechnungDruck_MDM
' '
Me.lblLeistungUeberschrift.Height = 0.1511808! Me.lblLeistungUeberschrift.Height = 0.1511808!
Me.lblLeistungUeberschrift.HyperLink = Nothing Me.lblLeistungUeberschrift.HyperLink = Nothing
Me.lblLeistungUeberschrift.Left = 0.01455834! Me.lblLeistungUeberschrift.Left = 0.01417252!
Me.lblLeistungUeberschrift.Name = "lblLeistungUeberschrift" Me.lblLeistungUeberschrift.Name = "lblLeistungUeberschrift"
Me.lblLeistungUeberschrift.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) Me.lblLeistungUeberschrift.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
Me.lblLeistungUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" & Me.lblLeistungUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
"-set: 1" "-set: 1"
Me.lblLeistungUeberschrift.Text = "Leistung" Me.lblLeistungUeberschrift.Text = "Leistung"
Me.lblLeistungUeberschrift.Top = 1.415504! Me.lblLeistungUeberschrift.Top = 0.8114173!
Me.lblLeistungUeberschrift.Width = 0.9220559! Me.lblLeistungUeberschrift.Width = 0.9220559!
' '
'lblSteuerfreiUeberschrift 'lblSteuerfreiUeberschrift
' '
Me.lblSteuerfreiUeberschrift.Height = 0.1511807! Me.lblSteuerfreiUeberschrift.Height = 0.1511807!
Me.lblSteuerfreiUeberschrift.HyperLink = Nothing Me.lblSteuerfreiUeberschrift.HyperLink = Nothing
Me.lblSteuerfreiUeberschrift.Left = 5.512198! Me.lblSteuerfreiUeberschrift.Left = 5.511812!
Me.lblSteuerfreiUeberschrift.Name = "lblSteuerfreiUeberschrift" Me.lblSteuerfreiUeberschrift.Name = "lblSteuerfreiUeberschrift"
Me.lblSteuerfreiUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1" Me.lblSteuerfreiUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.lblSteuerfreiUeberschrift.Text = "Steuerfrei" Me.lblSteuerfreiUeberschrift.Text = "Steuerfrei"
Me.lblSteuerfreiUeberschrift.Top = 1.415504! Me.lblSteuerfreiUeberschrift.Top = 0.8114173!
Me.lblSteuerfreiUeberschrift.Width = 1.554331! Me.lblSteuerfreiUeberschrift.Width = 1.554331!
' '
'lbl_onlyZR_VZUeberschrift 'lbl_onlyZR_VZUeberschrift
' '
Me.lbl_onlyZR_VZUeberschrift.Height = 0.1511808! Me.lbl_onlyZR_VZUeberschrift.Height = 0.1511808!
Me.lbl_onlyZR_VZUeberschrift.HyperLink = Nothing Me.lbl_onlyZR_VZUeberschrift.HyperLink = Nothing
Me.lbl_onlyZR_VZUeberschrift.Left = 5.522048! Me.lbl_onlyZR_VZUeberschrift.Left = 5.521662!
Me.lbl_onlyZR_VZUeberschrift.Name = "lbl_onlyZR_VZUeberschrift" Me.lbl_onlyZR_VZUeberschrift.Name = "lbl_onlyZR_VZUeberschrift"
Me.lbl_onlyZR_VZUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" & Me.lbl_onlyZR_VZUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" &
"r-set: 1" "r-set: 1"
Me.lbl_onlyZR_VZUeberschrift.Text = "Verzugszinsen" Me.lbl_onlyZR_VZUeberschrift.Text = "Verzugszinsen"
Me.lbl_onlyZR_VZUeberschrift.Top = 1.415354! Me.lbl_onlyZR_VZUeberschrift.Top = 0.8112674!
Me.lbl_onlyZR_VZUeberschrift.Width = 0.8169294! Me.lbl_onlyZR_VZUeberschrift.Width = 0.8169294!
' '
'lbl_onlyZR_ZahlungsDatUeberschrift 'lbl_onlyZR_ZahlungsDatUeberschrift
' '
Me.lbl_onlyZR_ZahlungsDatUeberschrift.Height = 0.1511808! Me.lbl_onlyZR_ZahlungsDatUeberschrift.Height = 0.1511808!
Me.lbl_onlyZR_ZahlungsDatUeberschrift.HyperLink = Nothing Me.lbl_onlyZR_ZahlungsDatUeberschrift.HyperLink = Nothing
Me.lbl_onlyZR_ZahlungsDatUeberschrift.Left = 2.492913! Me.lbl_onlyZR_ZahlungsDatUeberschrift.Left = 2.492527!
Me.lbl_onlyZR_ZahlungsDatUeberschrift.Name = "lbl_onlyZR_ZahlungsDatUeberschrift" Me.lbl_onlyZR_ZahlungsDatUeberschrift.Name = "lbl_onlyZR_ZahlungsDatUeberschrift"
Me.lbl_onlyZR_ZahlungsDatUeberschrift.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) Me.lbl_onlyZR_ZahlungsDatUeberschrift.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
Me.lbl_onlyZR_ZahlungsDatUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" & Me.lbl_onlyZR_ZahlungsDatUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
"-set: 1" "-set: 1"
Me.lbl_onlyZR_ZahlungsDatUeberschrift.Text = "Zahlungsdatum" Me.lbl_onlyZR_ZahlungsDatUeberschrift.Text = "Zahlungsdatum"
Me.lbl_onlyZR_ZahlungsDatUeberschrift.Top = 1.415354! Me.lbl_onlyZR_ZahlungsDatUeberschrift.Top = 0.8112674!
Me.lbl_onlyZR_ZahlungsDatUeberschrift.Visible = False Me.lbl_onlyZR_ZahlungsDatUeberschrift.Visible = False
Me.lbl_onlyZR_ZahlungsDatUeberschrift.Width = 0.9661421! Me.lbl_onlyZR_ZahlungsDatUeberschrift.Width = 0.9661421!
' '
@@ -1283,13 +1271,13 @@ Partial Public Class rptRechnungDruck_MDM
' '
Me.lbl_onlyZR_FaelligUeberschrift.Height = 0.1511808! Me.lbl_onlyZR_FaelligUeberschrift.Height = 0.1511808!
Me.lbl_onlyZR_FaelligUeberschrift.HyperLink = Nothing Me.lbl_onlyZR_FaelligUeberschrift.HyperLink = Nothing
Me.lbl_onlyZR_FaelligUeberschrift.Left = 2.001969! Me.lbl_onlyZR_FaelligUeberschrift.Left = 2.001583!
Me.lbl_onlyZR_FaelligUeberschrift.Name = "lbl_onlyZR_FaelligUeberschrift" Me.lbl_onlyZR_FaelligUeberschrift.Name = "lbl_onlyZR_FaelligUeberschrift"
Me.lbl_onlyZR_FaelligUeberschrift.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) Me.lbl_onlyZR_FaelligUeberschrift.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
Me.lbl_onlyZR_FaelligUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" & Me.lbl_onlyZR_FaelligUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
"-set: 1" "-set: 1"
Me.lbl_onlyZR_FaelligUeberschrift.Text = "F<EFBFBD>llig" Me.lbl_onlyZR_FaelligUeberschrift.Text = "F<EFBFBD>llig"
Me.lbl_onlyZR_FaelligUeberschrift.Top = 1.415354! Me.lbl_onlyZR_FaelligUeberschrift.Top = 0.8112674!
Me.lbl_onlyZR_FaelligUeberschrift.Visible = False Me.lbl_onlyZR_FaelligUeberschrift.Visible = False
Me.lbl_onlyZR_FaelligUeberschrift.Width = 0.490945! Me.lbl_onlyZR_FaelligUeberschrift.Width = 0.490945!
' '
@@ -1297,13 +1285,13 @@ Partial Public Class rptRechnungDruck_MDM
' '
Me.lbl_onlyZR_ReDatUeberschrift.Height = 0.1511807! Me.lbl_onlyZR_ReDatUeberschrift.Height = 0.1511807!
Me.lbl_onlyZR_ReDatUeberschrift.HyperLink = Nothing Me.lbl_onlyZR_ReDatUeberschrift.HyperLink = Nothing
Me.lbl_onlyZR_ReDatUeberschrift.Left = 0.9366142! Me.lbl_onlyZR_ReDatUeberschrift.Left = 0.9362284!
Me.lbl_onlyZR_ReDatUeberschrift.Name = "lbl_onlyZR_ReDatUeberschrift" Me.lbl_onlyZR_ReDatUeberschrift.Name = "lbl_onlyZR_ReDatUeberschrift"
Me.lbl_onlyZR_ReDatUeberschrift.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) Me.lbl_onlyZR_ReDatUeberschrift.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
Me.lbl_onlyZR_ReDatUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" & Me.lbl_onlyZR_ReDatUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
"-set: 1" "-set: 1"
Me.lbl_onlyZR_ReDatUeberschrift.Text = "Rechnungsdatum" Me.lbl_onlyZR_ReDatUeberschrift.Text = "Rechnungsdatum"
Me.lbl_onlyZR_ReDatUeberschrift.Top = 1.416142! Me.lbl_onlyZR_ReDatUeberschrift.Top = 0.8120553!
Me.lbl_onlyZR_ReDatUeberschrift.Visible = False Me.lbl_onlyZR_ReDatUeberschrift.Visible = False
Me.lbl_onlyZR_ReDatUeberschrift.Width = 1.065354! Me.lbl_onlyZR_ReDatUeberschrift.Width = 1.065354!
' '
@@ -1311,221 +1299,152 @@ Partial Public Class rptRechnungDruck_MDM
' '
Me.lblSteuerpflichtigUeberschrift.Height = 0.1511808! Me.lblSteuerpflichtigUeberschrift.Height = 0.1511808!
Me.lblSteuerpflichtigUeberschrift.HyperLink = Nothing Me.lblSteuerpflichtigUeberschrift.HyperLink = Nothing
Me.lblSteuerpflichtigUeberschrift.Left = 3.957867! Me.lblSteuerpflichtigUeberschrift.Left = 3.957481!
Me.lblSteuerpflichtigUeberschrift.Name = "lblSteuerpflichtigUeberschrift" Me.lblSteuerpflichtigUeberschrift.Name = "lblSteuerpflichtigUeberschrift"
Me.lblSteuerpflichtigUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" & Me.lblSteuerpflichtigUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" &
"r-set: 1" "r-set: 1"
Me.lblSteuerpflichtigUeberschrift.Text = "Steuerpflichtig" Me.lblSteuerpflichtigUeberschrift.Text = "Steuerpflichtig"
Me.lblSteuerpflichtigUeberschrift.Top = 1.415504! Me.lblSteuerpflichtigUeberschrift.Top = 0.8114173!
Me.lblSteuerpflichtigUeberschrift.Width = 1.554331! Me.lblSteuerpflichtigUeberschrift.Width = 1.554331!
' '
'lblAnzahlUeberschrift 'lblAnzahlUeberschrift
' '
Me.lblAnzahlUeberschrift.Height = 0.1511807! Me.lblAnzahlUeberschrift.Height = 0.1511807!
Me.lblAnzahlUeberschrift.HyperLink = Nothing Me.lblAnzahlUeberschrift.HyperLink = Nothing
Me.lblAnzahlUeberschrift.Left = 3.459055! Me.lblAnzahlUeberschrift.Left = 3.458669!
Me.lblAnzahlUeberschrift.Name = "lblAnzahlUeberschrift" Me.lblAnzahlUeberschrift.Name = "lblAnzahlUeberschrift"
Me.lblAnzahlUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" & Me.lblAnzahlUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" &
"r-set: 1" "r-set: 1"
Me.lblAnzahlUeberschrift.Text = "Anzahl" Me.lblAnzahlUeberschrift.Text = "Anzahl"
Me.lblAnzahlUeberschrift.Top = 1.415504! Me.lblAnzahlUeberschrift.Top = 0.8114173!
Me.lblAnzahlUeberschrift.Width = 0.4988112! Me.lblAnzahlUeberschrift.Width = 0.4988112!
' '
'Line4 'Line4
' '
Me.Line4.Height = 0! Me.Line4.Height = 0!
Me.Line4.Left = 0.005503932! Me.Line4.Left = 0.005118111!
Me.Line4.LineWeight = 1.0! Me.Line4.LineWeight = 1.0!
Me.Line4.Name = "Line4" Me.Line4.Name = "Line4"
Me.Line4.Top = 1.566685! Me.Line4.Top = 0.9625983!
Me.Line4.Width = 7.475194! Me.Line4.Width = 7.475194!
Me.Line4.X1 = 0.005503932! Me.Line4.X1 = 0.005118111!
Me.Line4.X2 = 7.480698! Me.Line4.X2 = 7.480312!
Me.Line4.Y1 = 1.566685! Me.Line4.Y1 = 0.9625983!
Me.Line4.Y2 = 1.566685! Me.Line4.Y2 = 0.9625983!
'
'lblAbsenderUeberschrift
'
Me.lblAbsenderUeberschrift.Height = 0.1574803!
Me.lblAbsenderUeberschrift.HyperLink = Nothing
Me.lblAbsenderUeberschrift.Left = 0!
Me.lblAbsenderUeberschrift.Name = "lblAbsenderUeberschrift"
Me.lblAbsenderUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" &
"har-set: 1"
Me.lblAbsenderUeberschrift.Text = "Absender:"
Me.lblAbsenderUeberschrift.Top = 0.1732284!
Me.lblAbsenderUeberschrift.Width = 0.9366142!
'
'lblAvisiererUeberschrift
'
Me.lblAvisiererUeberschrift.Height = 0.1574803!
Me.lblAvisiererUeberschrift.HyperLink = Nothing
Me.lblAvisiererUeberschrift.Left = 0!
Me.lblAvisiererUeberschrift.Name = "lblAvisiererUeberschrift"
Me.lblAvisiererUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" &
"har-set: 1"
Me.lblAvisiererUeberschrift.Text = "Avisierer:"
Me.lblAvisiererUeberschrift.Top = 0.46!
Me.lblAvisiererUeberschrift.Width = 0.9366142!
'
'lblEmpfaengerUeberschrift
'
Me.lblEmpfaengerUeberschrift.Height = 0.1574803!
Me.lblEmpfaengerUeberschrift.HyperLink = Nothing
Me.lblEmpfaengerUeberschrift.Left = 3.596!
Me.lblEmpfaengerUeberschrift.Name = "lblEmpfaengerUeberschrift"
Me.lblEmpfaengerUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" &
"har-set: 1"
Me.lblEmpfaengerUeberschrift.Text = "Empf<EFBFBD>nger:"
Me.lblEmpfaengerUeberschrift.Top = 0.173!
Me.lblEmpfaengerUeberschrift.Width = 0.9366142!
'
'txtAbsender
'
Me.txtAbsender.Height = 0.2720473!
Me.txtAbsender.Left = 0.9366142!
Me.txtAbsender.Name = "txtAbsender"
Me.txtAbsender.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
"-set: 1"
Me.txtAbsender.Text = "VERAG Spedition AG" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "A 4975 Suben"
Me.txtAbsender.Top = 0.1732285!
Me.txtAbsender.Width = 2.659449!
'
'txtEmpfaenger
'
Me.txtEmpfaenger.Height = 0.2720473!
Me.txtEmpfaenger.Left = 4.615614!
Me.txtEmpfaenger.Name = "txtEmpfaenger"
Me.txtEmpfaenger.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
"-set: 1"
Me.txtEmpfaenger.Text = "VERAG Spedition AG" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "A 4975 Suben"
Me.txtEmpfaenger.Top = 0.173!
Me.txtEmpfaenger.Width = 2.659449!
'
'txtAvisierer
'
Me.txtAvisierer.Height = 0.1570001!
Me.txtAvisierer.Left = 0.937!
Me.txtAvisierer.Name = "txtAvisierer"
Me.txtAvisierer.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
"-set: 1"
Me.txtAvisierer.Text = "VERAG Spedition "
Me.txtAvisierer.Top = 0.46!
Me.txtAvisierer.Width = 2.659!
' '
'lblZollbelegNr 'lblZollbelegNr
' '
Me.lblZollbelegNr.Height = 0.1574803! Me.lblZollbelegNr.Height = 0.1574803!
Me.lblZollbelegNr.HyperLink = Nothing Me.lblZollbelegNr.HyperLink = Nothing
Me.lblZollbelegNr.Left = 0.0003858209! Me.lblZollbelegNr.Left = 2.910383E-11!
Me.lblZollbelegNr.Name = "lblZollbelegNr" Me.lblZollbelegNr.Name = "lblZollbelegNr"
Me.lblZollbelegNr.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" & Me.lblZollbelegNr.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" &
"har-set: 1" "har-set: 1"
Me.lblZollbelegNr.Text = "Zollbeleg-Nr.:" Me.lblZollbelegNr.Text = "Zollbeleg-Nr.:"
Me.lblZollbelegNr.Top = 0.647! Me.lblZollbelegNr.Top = 0.04291338!
Me.lblZollbelegNr.Width = 0.9366142! Me.lblZollbelegNr.Width = 0.9366142!
' '
'txtZollbelegNr 'txtZollbelegNr
' '
Me.txtZollbelegNr.Height = 0.1574803! Me.txtZollbelegNr.Height = 0.1574803!
Me.txtZollbelegNr.Left = 0.937! Me.txtZollbelegNr.Left = 0.9366142!
Me.txtZollbelegNr.Name = "txtZollbelegNr" Me.txtZollbelegNr.Name = "txtZollbelegNr"
Me.txtZollbelegNr.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" & Me.txtZollbelegNr.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
"-set: 1" "-set: 1"
Me.txtZollbelegNr.Text = "ATC1812345678" Me.txtZollbelegNr.Text = "ATC1812345678"
Me.txtZollbelegNr.Top = 0.647! Me.txtZollbelegNr.Top = 0.04291338!
Me.txtZollbelegNr.Width = 2.659449! Me.txtZollbelegNr.Width = 2.659449!
' '
'lblWarenWertUeberschrift 'lblWarenWertUeberschrift
' '
Me.lblWarenWertUeberschrift.Height = 0.1574803! Me.lblWarenWertUeberschrift.Height = 0.1574803!
Me.lblWarenWertUeberschrift.HyperLink = Nothing Me.lblWarenWertUeberschrift.HyperLink = Nothing
Me.lblWarenWertUeberschrift.Left = 0.0003858209! Me.lblWarenWertUeberschrift.Left = 2.910383E-11!
Me.lblWarenWertUeberschrift.Name = "lblWarenWertUeberschrift" Me.lblWarenWertUeberschrift.Name = "lblWarenWertUeberschrift"
Me.lblWarenWertUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" & Me.lblWarenWertUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" &
"har-set: 1" "har-set: 1"
Me.lblWarenWertUeberschrift.Text = "Warenwert:" Me.lblWarenWertUeberschrift.Text = "Warenwert:"
Me.lblWarenWertUeberschrift.Top = 0.8044803! Me.lblWarenWertUeberschrift.Top = 0.2003937!
Me.lblWarenWertUeberschrift.Width = 0.9366142! Me.lblWarenWertUeberschrift.Width = 0.9366142!
' '
'txtWarenwert 'txtWarenwert
' '
Me.txtWarenwert.Height = 0.1574803! Me.txtWarenwert.Height = 0.1574803!
Me.txtWarenwert.Left = 0.937001! Me.txtWarenwert.Left = 0.9366152!
Me.txtWarenwert.Name = "txtWarenwert" Me.txtWarenwert.Name = "txtWarenwert"
Me.txtWarenwert.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" & Me.txtWarenwert.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
"-set: 1" "-set: 1"
Me.txtWarenwert.Text = "1.234,56 <20>" Me.txtWarenwert.Text = "1.234,56 <20>"
Me.txtWarenwert.Top = 0.8044803! Me.txtWarenwert.Top = 0.2003937!
Me.txtWarenwert.Width = 2.659449! Me.txtWarenwert.Width = 2.659449!
' '
'txtGrenzeUeberschrift 'txtGrenzeUeberschrift
' '
Me.txtGrenzeUeberschrift.Height = 0.1574803! Me.txtGrenzeUeberschrift.Height = 0.1574803!
Me.txtGrenzeUeberschrift.HyperLink = Nothing Me.txtGrenzeUeberschrift.HyperLink = Nothing
Me.txtGrenzeUeberschrift.Left = 3.596449! Me.txtGrenzeUeberschrift.Left = 3.596063!
Me.txtGrenzeUeberschrift.Name = "txtGrenzeUeberschrift" Me.txtGrenzeUeberschrift.Name = "txtGrenzeUeberschrift"
Me.txtGrenzeUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" & Me.txtGrenzeUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" &
"har-set: 1" "har-set: 1"
Me.txtGrenzeUeberschrift.Text = "Ort der Leistung:" Me.txtGrenzeUeberschrift.Text = "Ort der Leistung:"
Me.txtGrenzeUeberschrift.Top = 0.647! Me.txtGrenzeUeberschrift.Top = 0.04291338!
Me.txtGrenzeUeberschrift.Width = 1.020079! Me.txtGrenzeUeberschrift.Width = 1.020079!
' '
'txtGrenze 'txtGrenze
' '
Me.txtGrenze.Height = 0.1574803! Me.txtGrenze.Height = 0.1574803!
Me.txtGrenze.Left = 4.616528! Me.txtGrenze.Left = 4.616142!
Me.txtGrenze.Name = "txtGrenze" Me.txtGrenze.Name = "txtGrenze"
Me.txtGrenze.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" & Me.txtGrenze.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
"-set: 1" "-set: 1"
Me.txtGrenze.Text = "Suben Autobahngrenze" Me.txtGrenze.Text = "Suben Autobahngrenze"
Me.txtGrenze.Top = 0.647! Me.txtGrenze.Top = 0.04291338!
Me.txtGrenze.Width = 2.853938! Me.txtGrenze.Width = 2.853938!
' '
'txtBef<65>rderungsmittelUeberschrift 'txtBef<65>rderungsmittelUeberschrift
' '
Me.txtBef<EFBFBD>rderungsmittelUeberschrift.Height = 0.1574803! Me.txtBef<EFBFBD>rderungsmittelUeberschrift.Height = 0.1574803!
Me.txtBef<EFBFBD>rderungsmittelUeberschrift.HyperLink = Nothing Me.txtBef<EFBFBD>rderungsmittelUeberschrift.HyperLink = Nothing
Me.txtBef<EFBFBD>rderungsmittelUeberschrift.Left = 3.596449! Me.txtBef<EFBFBD>rderungsmittelUeberschrift.Left = 3.596063!
Me.txtBef<EFBFBD>rderungsmittelUeberschrift.Name = "txtBef<EFBFBD>rderungsmittelUeberschrift" Me.txtBef<EFBFBD>rderungsmittelUeberschrift.Name = "txtBef<EFBFBD>rderungsmittelUeberschrift"
Me.txtBef<EFBFBD>rderungsmittelUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" & Me.txtBef<EFBFBD>rderungsmittelUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" &
"har-set: 1" "har-set: 1"
Me.txtBef<EFBFBD>rderungsmittelUeberschrift.Text = "Bef<EFBFBD>rderungsmittel:" Me.txtBef<EFBFBD>rderungsmittelUeberschrift.Text = "Bef<EFBFBD>rderungsmittel:"
Me.txtBef<EFBFBD>rderungsmittelUeberschrift.Top = 0.8044803! Me.txtBef<EFBFBD>rderungsmittelUeberschrift.Top = 0.2003937!
Me.txtBef<EFBFBD>rderungsmittelUeberschrift.Width = 1.020079! Me.txtBef<EFBFBD>rderungsmittelUeberschrift.Width = 1.020079!
' '
'txtBef<65>rderungsmittel 'txtBef<65>rderungsmittel
' '
Me.txtBef<EFBFBD>rderungsmittel.Height = 0.1574803! Me.txtBef<EFBFBD>rderungsmittel.Height = 0.1574803!
Me.txtBef<EFBFBD>rderungsmittel.Left = 4.616528! Me.txtBef<EFBFBD>rderungsmittel.Left = 4.616142!
Me.txtBef<EFBFBD>rderungsmittel.Name = "txtBef<EFBFBD>rderungsmittel" Me.txtBef<EFBFBD>rderungsmittel.Name = "txtBef<EFBFBD>rderungsmittel"
Me.txtBef<EFBFBD>rderungsmittel.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" & Me.txtBef<EFBFBD>rderungsmittel.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
"-set: 1" "-set: 1"
Me.txtBef<EFBFBD>rderungsmittel.Text = "SD 456 FD" Me.txtBef<EFBFBD>rderungsmittel.Text = "SD 456 FD"
Me.txtBef<EFBFBD>rderungsmittel.Top = 0.8044803! Me.txtBef<EFBFBD>rderungsmittel.Top = 0.2003937!
Me.txtBef<EFBFBD>rderungsmittel.Width = 2.853938! Me.txtBef<EFBFBD>rderungsmittel.Width = 2.853938!
' '
'lblSendungsdatenUeberschrift 'lblSendungsdatenUeberschrift
' '
Me.lblSendungsdatenUeberschrift.Height = 0.1574803! Me.lblSendungsdatenUeberschrift.Height = 0.1574803!
Me.lblSendungsdatenUeberschrift.HyperLink = Nothing Me.lblSendungsdatenUeberschrift.HyperLink = Nothing
Me.lblSendungsdatenUeberschrift.Left = 0.0003858209! Me.lblSendungsdatenUeberschrift.Left = 2.910383E-11!
Me.lblSendungsdatenUeberschrift.Name = "lblSendungsdatenUeberschrift" Me.lblSendungsdatenUeberschrift.Name = "lblSendungsdatenUeberschrift"
Me.lblSendungsdatenUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" & Me.lblSendungsdatenUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" &
"har-set: 1" "har-set: 1"
Me.lblSendungsdatenUeberschrift.Text = "Sendungs-Daten:" Me.lblSendungsdatenUeberschrift.Text = "Sendungs-Daten:"
Me.lblSendungsdatenUeberschrift.Top = 1.026921! Me.lblSendungsdatenUeberschrift.Top = 0.4228344!
Me.lblSendungsdatenUeberschrift.Width = 0.9366142! Me.lblSendungsdatenUeberschrift.Width = 0.9366142!
' '
'txtSendungsdaten 'txtSendungsdaten
' '
Me.txtSendungsdaten.Height = 0.1574803! Me.txtSendungsdaten.Height = 0.1574803!
Me.txtSendungsdaten.Left = 0.937001! Me.txtSendungsdaten.Left = 0.9366152!
Me.txtSendungsdaten.Name = "txtSendungsdaten" Me.txtSendungsdaten.Name = "txtSendungsdaten"
Me.txtSendungsdaten.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" & Me.txtSendungsdaten.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
"-set: 1" "-set: 1"
Me.txtSendungsdaten.Text = "1 Pk. Testartikel; 1.234 kg" Me.txtSendungsdaten.Text = "1 Pk. Testartikel; 1.234 kg"
Me.txtSendungsdaten.Top = 1.026921! Me.txtSendungsdaten.Top = 0.4228344!
Me.txtSendungsdaten.Width = 6.543701! Me.txtSendungsdaten.Width = 6.543701!
' '
'Line12 'Line12
@@ -1544,28 +1463,28 @@ Partial Public Class rptRechnungDruck_MDM
'Line13 'Line13
' '
Me.Line13.Height = 0.204331! Me.Line13.Height = 0.204331!
Me.Line13.Left = 7.478! Me.Line13.Left = 7.477614!
Me.Line13.LineWeight = 1.0! Me.Line13.LineWeight = 1.0!
Me.Line13.Name = "Line13" Me.Line13.Name = "Line13"
Me.Line13.Top = 1.416! Me.Line13.Top = 0.8119134!
Me.Line13.Width = 0! Me.Line13.Width = 0!
Me.Line13.X1 = 7.478! Me.Line13.X1 = 7.477614!
Me.Line13.X2 = 7.478! Me.Line13.X2 = 7.477614!
Me.Line13.Y1 = 1.416! Me.Line13.Y1 = 0.8119134!
Me.Line13.Y2 = 1.620331! Me.Line13.Y2 = 1.016244!
' '
'Line16 'Line16
' '
Me.Line16.Height = 0! Me.Line16.Height = 0!
Me.Line16.Left = 0.003141727! Me.Line16.Left = 0.002755906!
Me.Line16.LineWeight = 1.0! Me.Line16.LineWeight = 1.0!
Me.Line16.Name = "Line16" Me.Line16.Name = "Line16"
Me.Line16.Top = 1.415504! Me.Line16.Top = 0.8114173!
Me.Line16.Width = 7.475195! Me.Line16.Width = 7.475195!
Me.Line16.X1 = 0.003141727! Me.Line16.X1 = 0.002755906!
Me.Line16.X2 = 7.478337! Me.Line16.X2 = 7.477951!
Me.Line16.Y1 = 1.415504! Me.Line16.Y1 = 0.8114173!
Me.Line16.Y2 = 1.415504! Me.Line16.Y2 = 0.8114173!
' '
'GroupFooter4 'GroupFooter4
' '
@@ -1669,12 +1588,6 @@ Partial Public Class rptRechnungDruck_MDM
CType(Me.lbl_onlyZR_ReDatUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lbl_onlyZR_ReDatUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSteuerpflichtigUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblSteuerpflichtigUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnzahlUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblAnzahlUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAbsenderUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAvisiererUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblEmpfaengerUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAbsender, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtEmpfaenger, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAvisierer, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblZollbelegNr, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblZollbelegNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtZollbelegNr, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtZollbelegNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblWarenWertUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblWarenWertUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
@@ -1725,9 +1638,6 @@ Partial Public Class rptRechnungDruck_MDM
Public WithEvents lblSachbearbeiter As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lblSachbearbeiter As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblFirmenbuch As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lblFirmenbuch As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblUID As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lblUID As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents txtAbsender As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtEmpfaenger As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAvisierer As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtZollbelegNr As GrapeCity.ActiveReports.SectionReportModel.TextBox Public WithEvents txtZollbelegNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtWarenwert As GrapeCity.ActiveReports.SectionReportModel.TextBox Public WithEvents txtWarenwert As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtGrenze As GrapeCity.ActiveReports.SectionReportModel.TextBox Public WithEvents txtGrenze As GrapeCity.ActiveReports.SectionReportModel.TextBox
@@ -1760,9 +1670,6 @@ Partial Public Class rptRechnungDruck_MDM
Public WithEvents lblFirmaWeb As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lblFirmaWeb As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblRechnung_UID_Ueberschrift As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lblRechnung_UID_Ueberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblRechnung_Steuernummer_Ueberschrift As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lblRechnung_Steuernummer_Ueberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblAbsenderUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblAvisiererUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblEmpfaengerUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents txtGrenzeUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents txtGrenzeUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line6 As GrapeCity.ActiveReports.SectionReportModel.Line Private WithEvents Line6 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line12 As GrapeCity.ActiveReports.SectionReportModel.Line Private WithEvents Line12 As GrapeCity.ActiveReports.SectionReportModel.Line

34
SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb
View File

@@ -2,13 +2,18 @@ Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
Dim _LAN = "" Dim _LAN = ""
Dim RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang = Nothing Dim RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang = Nothing
Dim LeistungsText As String Dim LeistungsText As String
Dim Anzahl As Integer
Dim Betrag As Double
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Sub New(_LAN As String, RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, LeistungsText As String) Sub New(_LAN As String, RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, LeistungsText As String, Anzahl As Integer, Betrag As Double)
' Dieser Aufruf ist f<>r den Designer erforderlich. ' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent() InitializeComponent()
Me._LAN = _LAN Me._LAN = _LAN
Me.RECHNUNG = RECHNUNG Me.RECHNUNG = RECHNUNG
Me.LeistungsText = LeistungsText Me.LeistungsText = LeistungsText
Me.Anzahl = Anzahl
Me.Betrag = Betrag
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. ' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub End Sub
Private Sub rptRechnungDruck_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart Private Sub rptRechnungDruck_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
@@ -33,12 +38,12 @@ Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
If Me.Fields.Item("clmnReNr") IsNot Nothing AndAlso Me.Fields.Item("clmnReNr").Value IsNot Nothing Then txtREnr.Text &= Me.Fields.Item("clmnReNr").Value.ToString If Me.Fields.Item("clmnReNr") IsNot Nothing AndAlso Me.Fields.Item("clmnReNr").Value IsNot Nothing Then txtREnr.Text &= Me.Fields.Item("clmnReNr").Value.ToString
If Me.Fields.Item("clmnReDatum") IsNot Nothing AndAlso Me.Fields.Item("clmnReDatum").Value IsNot Nothing AndAlso IsDate(Me.Fields.Item("clmnReDatum").Value) Then txtReDat.Text &= CDate(Me.Fields.Item("clmnReDatum").Value).ToShortDateString If Me.Fields.Item("clmnReDatum") IsNot Nothing AndAlso Me.Fields.Item("clmnReDatum").Value IsNot Nothing AndAlso IsDate(Me.Fields.Item("clmnReDatum").Value) Then txtReDat.Text &= CDate(Me.Fields.Item("clmnReDatum").Value).ToShortDateString
If Me.Fields.Item("clmnReBetrag") IsNot Nothing AndAlso Me.Fields.Item("clmnReBetrag").Value IsNot Nothing AndAlso CDbl(Me.Fields.Item("clmnReBetrag").Value) <> 0 Then txtReBetrag.Text &= CDbl(Me.Fields.Item("clmnReBetrag").Value).ToString("N2") If Me.Fields.Item("clmnReBetrag") IsNot Nothing AndAlso Me.Fields.Item("clmnReBetrag").Value IsNot Nothing AndAlso IsNumeric(Me.Fields.Item("clmnReBetrag").Value) AndAlso CDbl(Me.Fields.Item("clmnReBetrag").Value) <> 0 Then txtReBetrag.Text &= CDbl(Me.Fields.Item("clmnReBetrag").Value).ToString("N2")
If Me.Fields.Item("clmnFaellig") IsNot Nothing AndAlso Me.Fields.Item("clmnFaellig").Value IsNot Nothing AndAlso IsDate(Me.Fields.Item("clmnFaellig").Value) Then txtFaellig.Text &= CDate(Me.Fields.Item("clmnFaellig").Value).ToShortDateString If Me.Fields.Item("clmnFaellig") IsNot Nothing AndAlso Me.Fields.Item("clmnFaellig").Value IsNot Nothing AndAlso IsDate(Me.Fields.Item("clmnFaellig").Value) Then txtFaellig.Text &= CDate(Me.Fields.Item("clmnFaellig").Value).ToShortDateString
If Me.Fields.Item("clmnZE") IsNot Nothing AndAlso Me.Fields.Item("clmnZE").Value IsNot Nothing AndAlso IsDate(Me.Fields.Item("clmnZE").Value) Then txtZE.Text &= CDate(Me.Fields.Item("clmnZE").Value).ToShortDateString If Me.Fields.Item("clmnZE") IsNot Nothing AndAlso Me.Fields.Item("clmnZE").Value IsNot Nothing AndAlso IsDate(Me.Fields.Item("clmnZE").Value) Then txtZE.Text &= CDate(Me.Fields.Item("clmnZE").Value).ToShortDateString
If Me.Fields.Item("clmnTage") IsNot Nothing AndAlso Me.Fields.Item("clmnTage").Value IsNot Nothing Then txtTage.Text &= Me.Fields.Item("clmnTage").Value.ToString If Me.Fields.Item("clmnTage") IsNot Nothing AndAlso Me.Fields.Item("clmnTage").Value IsNot Nothing Then txtTage.Text &= Me.Fields.Item("clmnTage").Value.ToString
If Me.Fields.Item("clmnZinsen") IsNot Nothing AndAlso Me.Fields.Item("clmnZinsen").Value IsNot Nothing AndAlso CDbl(Me.Fields.Item("clmnZinsen").Value) <> 0 Then txtZinsen.Text &= CDbl(Me.Fields.Item("clmnZinsen").Value).ToString("N2") If Me.Fields.Item("clmnZinsen") IsNot Nothing AndAlso Me.Fields.Item("clmnZinsen").Value IsNot Nothing AndAlso IsNumeric(Me.Fields.Item("clmnZinsen").Value) AndAlso CDbl(Me.Fields.Item("clmnZinsen").Value) <> 0 Then txtZinsen.Text &= CDbl(Me.Fields.Item("clmnZinsen").Value).ToString("N2")
If Me.Fields.Item("clmnVZ") IsNot Nothing AndAlso Me.Fields.Item("clmnVZ").Value IsNot Nothing Then txtVZ.Text &= Me.Fields.Item("clmnVZ").Value.ToString() & " %" If Me.Fields.Item("clmnVZ") IsNot Nothing AndAlso Me.Fields.Item("clmnVZ").Value IsNot Nothing AndAlso IsNumeric(Me.Fields.Item("clmnVZ").Value) Then txtVZ.Text &= Me.Fields.Item("clmnVZ").Value.ToString() & " %"
End If End If
End Sub End Sub
@@ -61,15 +66,26 @@ Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
RECHNUNG.ORDER_POSITIONEN() RECHNUNG.ORDER_POSITIONEN()
If RECHNUNG.POSITIONEN.Any() Then If RECHNUNG.POSITIONEN.Any() Then
Dim dtTemp As DataTable
dtTemp = SQL.loadDgvBySql_Param("select [id] as clmnID,[belegNr] as clmnReNr,[buchungstext] as clmnAbfNr,[zinssatz] clmnVZ,[belegZahlungsziel],[ueberschreitungInTagen] clmnTage,[zinsbetrag] clmnZinsen,[belegDatum] as clmnReDatum,[zahlungsBetrag] as clmnReBetrag,[zahlungDatum] as clmnZE, [faelligkeitsDatum] as clmnFaellig from tblMDM_Zinsberechnung where RK_ID =" & RECHNUNG.RK_ID & " and FORMAT(id, '00000') +'-'+ buchungstext like '" & LeistungsText.Trim() & "%'", "FMZOLL")
For Each rg As DataRow In dtTemp.Rows If Anzahl > 0 AndAlso LeistungsText.Contains("Zinsnachbelastung") AndAlso LeistungsText.Contains("Rabatt") AndAlso Betrag <> 0 Then
dt.Rows.Add(rg.Item("clmnID"), rg.Item("clmnReNr"), rg.Item("clmnReDatum"), rg.Item("clmnAbfNr"), rg.Item("clmnReBetrag"), rg.Item("clmnZE"), rg.Item("clmnTage"), rg.Item("clmnZinsen"), rg.Item("clmnVZ"), rg.Item("clmnFaellig"))
Next dt.Rows.Add("0", "Rabatt", RECHNUNG.Abfertigungsdatum.ToShortDateString, LeistungsText, "", "", "", Betrag.ToString, "", "")
'dt.Rows.Add(rg.Item("clmnID"), rg.Item("clmnReNr"), rg.Item("clmnReDatum"), rg.Item("clmnAbfNr"), rg.Item("clmnReBetrag"), rg.Item("clmnZE"), rg.Item("clmnTage"), rg.Item("clmnZinsen"), rg.Item("clmnVZ"), rg.Item("clmnFaellig"))
Else
Dim dtTemp As DataTable
dtTemp = SQL.loadDgvBySql_Param("select [id] as clmnID,[belegNr] as clmnReNr,[buchungstext] as clmnAbfNr,[zinssatz] clmnVZ,[belegZahlungsziel],[ueberschreitungInTagen] clmnTage,[zinsbetrag] clmnZinsen,[belegDatum] as clmnReDatum,[zahlungsBetrag] as clmnReBetrag,[zahlungDatum] as clmnZE, [faelligkeitsDatum] as clmnFaellig from tblMDM_Zinsberechnung where RK_ID =" & RECHNUNG.RK_ID & " and FORMAT(id, '00000') +'-'+ buchungstext like '" & LeistungsText.Trim() & "%'", "FMZOLL")
For Each rg As DataRow In dtTemp.Rows
dt.Rows.Add(rg.Item("clmnID"), rg.Item("clmnReNr"), rg.Item("clmnReDatum"), rg.Item("clmnAbfNr"), rg.Item("clmnReBetrag"), rg.Item("clmnZE"), rg.Item("clmnTage"), rg.Item("clmnZinsen"), rg.Item("clmnVZ"), rg.Item("clmnFaellig"))
Next
End If
End If End If
Me.DataSource = dt Me.DataSource = dt
End Sub End Sub

4
SDL/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.4.7.8")> <Assembly: AssemblyVersion("1.4.7.9")>
<Assembly: AssemblyFileVersion("1.4.7.8")> <Assembly: AssemblyFileVersion("1.4.7.9")>

658
SDL/Reports/MDM/rpt_3470.Designer.vb generated Normal file
View File

@@ -0,0 +1,658 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class rpt_3470
Inherits GrapeCity.ActiveReports.SectionReport
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
End If
MyBase.Dispose(disposing)
End Sub
'NOTE: The following procedure is required by the ActiveReports Designer
'It can be modified using the ActiveReports Designer.
'Do not modify it using the code editor.
Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader
Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rpt_3470))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.lblTimeperiod = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblKDNumber = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblKDName = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblCountry = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblAmount = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblWaehrung = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.Label28 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.ReportInfo2 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.lblDat = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.Label3 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.lblWaehrung_Ges = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblSumGesamt = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Line3 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.lblKdName_Head = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblKdNr_Head = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblTimePeriod_Head = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblCountry_Head = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblAmount_Head = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Line12 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line14 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line15 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line16 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line17 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line18 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line19 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line20 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.lblSumme = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblWahrung = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblGroup1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader2 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.lblFirma = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.GroupFooter2 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
CType(Me.lblTimeperiod, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblKDNumber, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblKDName, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblCountry, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAmount, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblWaehrung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label28, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblDat, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblWaehrung_Ges, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSumGesamt, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblKdName_Head, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblKdNr_Head, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblTimePeriod_Head, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblCountry_Head, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAmount_Head, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSumme, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblWahrung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblGroup1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Height = 0.06249999!
Me.PageHeader.Name = "PageHeader"
'
'Detail
'
Me.Detail.BackColor = System.Drawing.Color.White
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblTimeperiod, Me.lblKDNumber, Me.lblKDName, Me.lblCountry, Me.lblAmount, Me.lblWaehrung})
Me.Detail.Height = 0.200361!
Me.Detail.KeepTogether = True
Me.Detail.Name = "Detail"
'
'lblTimeperiod
'
Me.lblTimeperiod.Height = 0.1795276!
Me.lblTimeperiod.HyperLink = Nothing
Me.lblTimeperiod.Left = 2.73937!
Me.lblTimeperiod.MultiLine = False
Me.lblTimeperiod.Name = "lblTimeperiod"
Me.lblTimeperiod.Style = "color: Black; font-size: 8pt; font-weight: normal; text-align: center; ddo-char-s" &
"et: 1"
Me.lblTimeperiod.Text = "-"
Me.lblTimeperiod.Top = 0!
Me.lblTimeperiod.Width = 2.802755!
'
'lblKDNumber
'
Me.lblKDNumber.DataField = ""
Me.lblKDNumber.Height = 0.1795276!
Me.lblKDNumber.HyperLink = Nothing
Me.lblKDNumber.Left = 0.005118111!
Me.lblKDNumber.Name = "lblKDNumber"
Me.lblKDNumber.Style = "color: Black; font-size: 8pt; font-weight: normal; text-align: center; vertical-a" &
"lign: middle; ddo-char-set: 1"
Me.lblKDNumber.Text = "-"
Me.lblKDNumber.Top = 0!
Me.lblKDNumber.Width = 0.81063!
'
'lblKDName
'
Me.lblKDName.DataField = ""
Me.lblKDName.Height = 0.1795276!
Me.lblKDName.HyperLink = Nothing
Me.lblKDName.Left = 0.8157481!
Me.lblKDName.MultiLine = False
Me.lblKDName.Name = "lblKDName"
Me.lblKDName.Style = "color: Black; font-size: 8pt; font-weight: normal; text-align: left; ddo-char-set" &
": 1"
Me.lblKDName.Text = "-"
Me.lblKDName.Top = 0!
Me.lblKDName.Width = 1.923622!
'
'lblCountry
'
Me.lblCountry.DataField = ""
Me.lblCountry.DistinctField = ""
Me.lblCountry.Height = 0.1795276!
Me.lblCountry.Left = 5.542126!
Me.lblCountry.MultiLine = False
Me.lblCountry.Name = "lblCountry"
Me.lblCountry.Style = "color: Black; font-size: 8pt; text-align: center; ddo-char-set: 1"
Me.lblCountry.SummaryGroup = ""
Me.lblCountry.Text = Nothing
Me.lblCountry.Top = 0!
Me.lblCountry.Width = 1.505513!
'
'lblAmount
'
Me.lblAmount.DataField = ""
Me.lblAmount.DistinctField = ""
Me.lblAmount.Height = 0.1795276!
Me.lblAmount.Left = 7.481497!
Me.lblAmount.Name = "lblAmount"
Me.lblAmount.Style = "color: Black; font-size: 8pt; text-align: right; vertical-align: middle; ddo-char" &
"-set: 1"
Me.lblAmount.SummaryGroup = ""
Me.lblAmount.Text = Nothing
Me.lblAmount.Top = 0!
Me.lblAmount.Width = 0.7736225!
'
'lblWaehrung
'
Me.lblWaehrung.DistinctField = ""
Me.lblWaehrung.Height = 0.1795276!
Me.lblWaehrung.Left = 7.099607!
Me.lblWaehrung.Name = "lblWaehrung"
Me.lblWaehrung.Style = "color: Black; font-size: 8pt; text-align: left; vertical-align: middle; ddo-char-" &
"set: 1"
Me.lblWaehrung.SummaryGroup = ""
Me.lblWaehrung.Text = Nothing
Me.lblWaehrung.Top = 0!
Me.lblWaehrung.Width = 0.3401577!
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label28, Me.Line2, Me.ReportInfo2, Me.lblDat})
Me.PageFooter.Name = "PageFooter"
'
'Label28
'
Me.Label28.Height = 0.1330709!
Me.Label28.HyperLink = Nothing
Me.Label28.Left = 2.014173!
Me.Label28.Name = "Label28"
Me.Label28.Style = "font-size: 8pt; font-weight: bold; text-align: center; ddo-char-set: 1"
Me.Label28.Text = "VERAG 360 GmbH"
Me.Label28.Top = 0.08622048!
Me.Label28.Width = 2.794095!
'
'Line2
'
Me.Line2.Height = 0!
Me.Line2.Left = 0!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0.03070866!
Me.Line2.Width = 8.267716!
Me.Line2.X1 = 0!
Me.Line2.X2 = 8.267716!
Me.Line2.Y1 = 0.03070866!
Me.Line2.Y2 = 0.03070866!
'
'ReportInfo2
'
Me.ReportInfo2.FormatString = "Page {PageNumber} from {PageCount} Pages"
Me.ReportInfo2.Height = 0.1330709!
Me.ReportInfo2.Left = 5.829922!
Me.ReportInfo2.Name = "ReportInfo2"
Me.ReportInfo2.Style = "font-size: 8pt; text-align: right"
Me.ReportInfo2.Top = 0.08622048!
Me.ReportInfo2.Width = 2.437842!
'
'lblDat
'
Me.lblDat.Height = 0.1330708!
Me.lblDat.HyperLink = Nothing
Me.lblDat.Left = 0.01023622!
Me.lblDat.Name = "lblDat"
Me.lblDat.Style = "font-size: 8pt; text-align: left"
Me.lblDat.Text = "Mittwoch, 02.11.2016"
Me.lblDat.Top = 0.08622044!
Me.lblDat.Width = 2.649606!
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picVERAG, Me.Label3})
Me.ReportHeader1.Height = 0.719817!
Me.ReportHeader1.Name = "ReportHeader1"
'
'picVERAG
'
Me.picVERAG.Height = 0.3751969!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
Me.picVERAG.Left = 0!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picVERAG.Top = 0!
Me.picVERAG.Width = 2.240158!
'
'Label3
'
Me.Label3.Height = 0.2311024!
Me.Label3.HyperLink = Nothing
Me.Label3.Left = 0.01023622!
Me.Label3.Name = "Label3"
Me.Label3.Style = "font-size: 12pt; font-weight: normal; text-align: left; ddo-char-set: 0"
Me.Label3.Text = "Account No. 3470"
Me.Label3.Top = 0.4275591!
Me.Label3.Width = 3.559843!
'
'ReportFooter1
'
Me.ReportFooter1.CanShrink = True
Me.ReportFooter1.Height = 0!
Me.ReportFooter1.KeepTogether = True
Me.ReportFooter1.Name = "ReportFooter1"
'
'lblWaehrung_Ges
'
Me.lblWaehrung_Ges.DistinctField = ""
Me.lblWaehrung_Ges.Height = 0.1795276!
Me.lblWaehrung_Ges.Left = 6.155118!
Me.lblWaehrung_Ges.Name = "lblWaehrung_Ges"
Me.lblWaehrung_Ges.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set:" &
" 1"
Me.lblWaehrung_Ges.SummaryGroup = ""
Me.lblWaehrung_Ges.Text = Nothing
Me.lblWaehrung_Ges.Top = 9.313226E-9!
Me.lblWaehrung_Ges.Width = 1.05!
'
'lblSumGesamt
'
Me.lblSumGesamt.DistinctField = ""
Me.lblSumGesamt.Height = 0.1795276!
Me.lblSumGesamt.Left = 7.205119!
Me.lblSumGesamt.Name = "lblSumGesamt"
Me.lblSumGesamt.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set:" &
" 1"
Me.lblSumGesamt.SummaryGroup = ""
Me.lblSumGesamt.Text = "10.000.000"
Me.lblSumGesamt.Top = 0.08070867!
Me.lblSumGesamt.Width = 1.05!
'
'Line3
'
Me.Line3.Height = 0.00000002235174!
Me.Line3.Left = 5.529528!
Me.Line3.LineWeight = 1.0!
Me.Line3.Name = "Line3"
Me.Line3.Top = 0.08070867!
Me.Line3.Width = 2.725592!
Me.Line3.X1 = 5.529528!
Me.Line3.X2 = 8.255119!
Me.Line3.Y1 = 0.08070869!
Me.Line3.Y2 = 0.08070867!
'
'GroupHeader1
'
Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblKdName_Head, Me.lblKdNr_Head, Me.lblTimePeriod_Head, Me.lblCountry_Head, Me.lblAmount_Head, Me.Line12, Me.Line14, Me.Line15, Me.Line16, Me.Line17, Me.Line18, Me.Line19, Me.Line20})
Me.GroupHeader1.Height = 0.227592!
Me.GroupHeader1.KeepTogether = True
Me.GroupHeader1.Name = "GroupHeader1"
'
'lblKdName_Head
'
Me.lblKdName_Head.Height = 0.1795276!
Me.lblKdName_Head.HyperLink = Nothing
Me.lblKdName_Head.Left = 0.7866142!
Me.lblKdName_Head.Name = "lblKdName_Head"
Me.lblKdName_Head.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.lblKdName_Head.Text = "Name"
Me.lblKdName_Head.Top = 0!
Me.lblKdName_Head.Width = 1.951969!
'
'lblKdNr_Head
'
Me.lblKdNr_Head.Height = 0.1795276!
Me.lblKdNr_Head.HyperLink = Nothing
Me.lblKdNr_Head.Left = 0.01023622!
Me.lblKdNr_Head.Name = "lblKdNr_Head"
Me.lblKdNr_Head.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.lblKdNr_Head.Text = "Number"
Me.lblKdNr_Head.Top = 0!
Me.lblKdNr_Head.Width = 0.7429135!
'
'lblTimePeriod_Head
'
Me.lblTimePeriod_Head.DataField = ""
Me.lblTimePeriod_Head.DistinctField = ""
Me.lblTimePeriod_Head.Height = 0.1795276!
Me.lblTimePeriod_Head.Left = 2.73937!
Me.lblTimePeriod_Head.Name = "lblTimePeriod_Head"
Me.lblTimePeriod_Head.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: center; ddo-char-set" &
": 1"
Me.lblTimePeriod_Head.SummaryGroup = ""
Me.lblTimePeriod_Head.Text = "Time Period"
Me.lblTimePeriod_Head.Top = 0!
Me.lblTimePeriod_Head.Width = 2.802756!
'
'lblCountry_Head
'
Me.lblCountry_Head.DataField = ""
Me.lblCountry_Head.DistinctField = ""
Me.lblCountry_Head.Height = 0.1795276!
Me.lblCountry_Head.Left = 5.542126!
Me.lblCountry_Head.Name = "lblCountry_Head"
Me.lblCountry_Head.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: center; ddo-char-set" &
": 1"
Me.lblCountry_Head.SummaryGroup = ""
Me.lblCountry_Head.Text = "Country"
Me.lblCountry_Head.Top = 0!
Me.lblCountry_Head.Width = 1.519685!
'
'lblAmount_Head
'
Me.lblAmount_Head.DataField = ""
Me.lblAmount_Head.DistinctField = ""
Me.lblAmount_Head.Height = 0.1795276!
Me.lblAmount_Head.Left = 7.148032!
Me.lblAmount_Head.Name = "lblAmount_Head"
Me.lblAmount_Head.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: center; ddo-char-set" &
": 1"
Me.lblAmount_Head.SummaryGroup = ""
Me.lblAmount_Head.Text = "Amount"
Me.lblAmount_Head.Top = 0!
Me.lblAmount_Head.Width = 1.149607!
'
'Line12
'
Me.Line12.Height = 0.1795276!
Me.Line12.Left = 0.01023622!
Me.Line12.LineWeight = 1.0!
Me.Line12.Name = "Line12"
Me.Line12.Top = 0!
Me.Line12.Width = 0!
Me.Line12.X1 = 0.01023622!
Me.Line12.X2 = 0.01023622!
Me.Line12.Y1 = 0.1795276!
Me.Line12.Y2 = 0!
'
'Line14
'
Me.Line14.Height = 0.1795276!
Me.Line14.Left = 7.099607!
Me.Line14.LineWeight = 1.0!
Me.Line14.Name = "Line14"
Me.Line14.Top = 0.00000004470348!
Me.Line14.Width = 0!
Me.Line14.X1 = 7.099607!
Me.Line14.X2 = 7.099607!
Me.Line14.Y1 = 0.1795276!
Me.Line14.Y2 = 0.00000004470348!
'
'Line15
'
Me.Line15.Height = 0.1755905!
Me.Line15.Left = 8.297638!
Me.Line15.LineWeight = 1.0!
Me.Line15.Name = "Line15"
Me.Line15.Top = 0.003937106!
Me.Line15.Width = 0!
Me.Line15.X1 = 8.297638!
Me.Line15.X2 = 8.297638!
Me.Line15.Y1 = 0.1795276!
Me.Line15.Y2 = 0.003937106!
'
'Line16
'
Me.Line16.Height = 0.1795276!
Me.Line16.Left = 0.7866142!
Me.Line16.LineWeight = 1.0!
Me.Line16.Name = "Line16"
Me.Line16.Top = 0!
Me.Line16.Width = 0.000787437!
Me.Line16.X1 = 0.7874016!
Me.Line16.X2 = 0.7866142!
Me.Line16.Y1 = 0.1795276!
Me.Line16.Y2 = 0!
'
'Line17
'
Me.Line17.Height = 0.1795275!
Me.Line17.Left = 5.542126!
Me.Line17.LineWeight = 1.0!
Me.Line17.Name = "Line17"
Me.Line17.Top = 0.0000001192093!
Me.Line17.Width = 0!
Me.Line17.X1 = 5.542126!
Me.Line17.X2 = 5.542126!
Me.Line17.Y1 = 0.1795276!
Me.Line17.Y2 = 0.0000001192093!
'
'Line18
'
Me.Line18.Height = 0.003937008!
Me.Line18.Left = 0!
Me.Line18.LineWeight = 1.0!
Me.Line18.Name = "Line18"
Me.Line18.Top = 0!
Me.Line18.Width = 8.297638!
Me.Line18.X1 = 0!
Me.Line18.X2 = 8.297638!
Me.Line18.Y1 = 0.003937008!
Me.Line18.Y2 = 0!
'
'Line19
'
Me.Line19.Height = 0!
Me.Line19.Left = 0!
Me.Line19.LineWeight = 1.0!
Me.Line19.Name = "Line19"
Me.Line19.Top = 0.1795276!
Me.Line19.Width = 8.297638!
Me.Line19.X1 = 0!
Me.Line19.X2 = 8.297638!
Me.Line19.Y1 = 0.1795276!
Me.Line19.Y2 = 0.1795276!
'
'Line20
'
Me.Line20.Height = 0.1795276!
Me.Line20.Left = 2.738582!
Me.Line20.LineWeight = 1.0!
Me.Line20.Name = "Line20"
Me.Line20.Top = 0!
Me.Line20.Width = 0.0007882118!
Me.Line20.X1 = 2.73937!
Me.Line20.X2 = 2.738582!
Me.Line20.Y1 = 0.1795276!
Me.Line20.Y2 = 0!
'
'GroupFooter1
'
Me.GroupFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line1, Me.lblSumme, Me.lblWahrung, Me.lblGroup1})
Me.GroupFooter1.Height = 0.2917323!
Me.GroupFooter1.Name = "GroupFooter1"
'
'Line1
'
Me.Line1.Height = 0!
Me.Line1.Left = 5.542126!
Me.Line1.LineWeight = 1.0!
Me.Line1.Name = "Line1"
Me.Line1.Top = 0.09251969!
Me.Line1.Width = 2.72559!
Me.Line1.X1 = 5.542126!
Me.Line1.X2 = 8.267716!
Me.Line1.Y1 = 0.09251969!
Me.Line1.Y2 = 0.09251969!
'
'lblSumme
'
Me.lblSumme.DataField = ""
Me.lblSumme.DistinctField = ""
Me.lblSumme.Height = 0.1795276!
Me.lblSumme.Left = 7.217717!
Me.lblSumme.Name = "lblSumme"
Me.lblSumme.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set:" &
" 1"
Me.lblSumme.SummaryGroup = ""
Me.lblSumme.Text = "10.000.000"
Me.lblSumme.Top = 0.1122047!
Me.lblSumme.Width = 1.05!
'
'lblWahrung
'
Me.lblWahrung.DataField = ""
Me.lblWahrung.DistinctField = ""
Me.lblWahrung.Height = 0.1795276!
Me.lblWahrung.Left = 6.560236!
Me.lblWahrung.Name = "lblWahrung"
Me.lblWahrung.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set:" &
" 1"
Me.lblWahrung.SummaryGroup = ""
Me.lblWahrung.Text = Nothing
Me.lblWahrung.Top = 0.1122047!
Me.lblWahrung.Width = 0.4874015!
'
'lblGroup1
'
Me.lblGroup1.DistinctField = ""
Me.lblGroup1.Height = 0.1795276!
Me.lblGroup1.Left = 5.542126!
Me.lblGroup1.Name = "lblGroup1"
Me.lblGroup1.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set:" &
" 1"
Me.lblGroup1.SummaryGroup = ""
Me.lblGroup1.Text = Nothing
Me.lblGroup1.Top = 0.1122047!
Me.lblGroup1.Width = 0.4874015!
'
'GroupHeader2
'
Me.GroupHeader2.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblFirma})
Me.GroupHeader2.Height = 0.1944717!
Me.GroupHeader2.Name = "GroupHeader2"
'
'lblFirma
'
Me.lblFirma.Height = 0.2070866!
Me.lblFirma.HyperLink = Nothing
Me.lblFirma.Left = 0!
Me.lblFirma.Name = "lblFirma"
Me.lblFirma.Padding = New GrapeCity.ActiveReports.PaddingEx(5, 0, 0, 0)
Me.lblFirma.Style = "background-color: #003680; color: White; font-size: 10pt; font-weight: bold; text" &
"-align: left; vertical-align: middle"
Me.lblFirma.Text = ""
Me.lblFirma.Top = 0!
Me.lblFirma.Width = 8.297638!
'
'GroupFooter2
'
Me.GroupFooter2.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblWaehrung_Ges, Me.lblSumGesamt, Me.Line3})
Me.GroupFooter2.Height = 0.2604167!
Me.GroupFooter2.KeepTogether = True
Me.GroupFooter2.Name = "GroupFooter2"
'
'rpt_3470
'
Me.MasterReport = False
Me.PageSettings.DefaultPaperSize = False
Me.PageSettings.Margins.Bottom = 0.1968504!
Me.PageSettings.Margins.Left = 0.1968504!
Me.PageSettings.Margins.Right = 0.1968504!
Me.PageSettings.Margins.Top = 0.1968504!
Me.PageSettings.Orientation = GrapeCity.ActiveReports.Document.Section.PageOrientation.Portrait
Me.PageSettings.PaperHeight = 11.69291!
Me.PageSettings.PaperKind = GrapeCity.ActiveReports.Printing.PaperKind.A4
Me.PageSettings.PaperWidth = 8.267716!
Me.PrintWidth = 8.816929!
Me.Sections.Add(Me.ReportHeader1)
Me.Sections.Add(Me.PageHeader)
Me.Sections.Add(Me.GroupHeader2)
Me.Sections.Add(Me.GroupHeader1)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.GroupFooter1)
Me.Sections.Add(Me.GroupFooter2)
Me.Sections.Add(Me.PageFooter)
Me.Sections.Add(Me.ReportFooter1)
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.lblTimeperiod, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblKDNumber, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblKDName, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblCountry, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAmount, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblWaehrung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label28, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblDat, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblWaehrung_Ges, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSumGesamt, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblKdName_Head, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblKdNr_Head, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblTimePeriod_Head, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblCountry_Head, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAmount_Head, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSumme, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblWahrung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblGroup1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Public WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
Public WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
Public WithEvents Label28 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents ReportInfo2 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Public WithEvents lblDat As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Public WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Public WithEvents lblKDNumber As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblKDName As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblKdNr_Head As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture
Public WithEvents GroupFooter2 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Public WithEvents GroupHeader2 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Public WithEvents lblFirma As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblTimePeriod_Head As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblCountry_Head As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblSumme As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblCountry As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblAmount As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblAmount_Head As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblWahrung As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Line12 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line14 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line15 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line16 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line17 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line18 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line19 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents lblKdName_Head As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line20 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents lblTimeperiod As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents Label3 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblWaehrung As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblSumGesamt As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents lblWaehrung_Ges As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblGroup1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

129
SDL/Reports/MDM/rpt_3470.resx Normal file
View File

File diff suppressed because one or more lines are too long

8
SDL/Reports/MDM/rpt_3470.vb Normal file
View File

@@ -0,0 +1,8 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rpt_3470
Private Sub rptMWSTListe_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
End Sub
End Class

9
SDL/SDL.vbproj
View File

@@ -1020,6 +1020,12 @@
<DesignTime>True</DesignTime> <DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon> <DependentUpon>Resources.resx</DependentUpon>
</Compile> </Compile>
<Compile Include="Reports\MDM\rpt_3470.Designer.vb">
<DependentUpon>rpt_3470.vb</DependentUpon>
</Compile>
<Compile Include="Reports\MDM\rpt_3470.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="Reports\MDM\rptMWSTListe.Designer.vb"> <Compile Include="Reports\MDM\rptMWSTListe.Designer.vb">
<DependentUpon>rptMWSTListe.vb</DependentUpon> <DependentUpon>rptMWSTListe.vb</DependentUpon>
</Compile> </Compile>
@@ -3612,6 +3618,9 @@
<EmbeddedResource Include="Reports\MDM\BriefSDl\subrptBriefSDL_PLOSE_MEDPASS.resx"> <EmbeddedResource Include="Reports\MDM\BriefSDl\subrptBriefSDL_PLOSE_MEDPASS.resx">
<DependentUpon>subrptBriefSDL_PLOSE_MEDPASS.vb</DependentUpon> <DependentUpon>subrptBriefSDL_PLOSE_MEDPASS.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="Reports\MDM\rpt_3470.resx">
<DependentUpon>rpt_3470.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Reports\MDM\rptMWSTListe.resx"> <EmbeddedResource Include="Reports\MDM\rptMWSTListe.resx">
<DependentUpon>rptMWSTListe.vb</DependentUpon> <DependentUpon>rptMWSTListe.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>

50
SDL/USTV/usrCntlUSTV.Designer.vb generated
View File

@@ -71,6 +71,8 @@ Partial Class usrCntlUSTV
Me.btnUSTVAloeschen = New System.Windows.Forms.Button() Me.btnUSTVAloeschen = New System.Windows.Forms.Button()
Me.Panel2 = New System.Windows.Forms.Panel() Me.Panel2 = New System.Windows.Forms.Panel()
Me.Panel3 = New System.Windows.Forms.Panel() Me.Panel3 = New System.Windows.Forms.Panel()
Me.btn3470 = New System.Windows.Forms.Button()
Me.Button4 = New System.Windows.Forms.Button()
Me.Button3 = New System.Windows.Forms.Button() Me.Button3 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button()
Me.btnVorschau = New System.Windows.Forms.Button() Me.btnVorschau = New System.Windows.Forms.Button()
@@ -81,7 +83,7 @@ Partial Class usrCntlUSTV
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ContextMenuStrip3 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuStrip3 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.Button4 = New System.Windows.Forms.Button() Me.ContextMenuStrip4 = New System.Windows.Forms.ContextMenuStrip(Me.components)
CType(Me.dgvUSTV, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvUSTV, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout() Me.Panel1.SuspendLayout()
Me.Panel2.SuspendLayout() Me.Panel2.SuspendLayout()
@@ -770,6 +772,7 @@ Partial Class usrCntlUSTV
'Panel3 'Panel3
' '
Me.Panel3.AutoSize = True Me.Panel3.AutoSize = True
Me.Panel3.Controls.Add(Me.btn3470)
Me.Panel3.Controls.Add(Me.Button4) Me.Panel3.Controls.Add(Me.Button4)
Me.Panel3.Controls.Add(Me.Button3) Me.Panel3.Controls.Add(Me.Button3)
Me.Panel3.Controls.Add(Me.Button2) Me.Panel3.Controls.Add(Me.Button2)
@@ -787,6 +790,33 @@ Partial Class usrCntlUSTV
Me.Panel3.Size = New System.Drawing.Size(1627, 77) Me.Panel3.Size = New System.Drawing.Size(1627, 77)
Me.Panel3.TabIndex = 0 Me.Panel3.TabIndex = 0
' '
'btn3470
'
Me.btn3470.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btn3470.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn3470.ForeColor = System.Drawing.Color.Black
Me.btn3470.Location = New System.Drawing.Point(862, 5)
Me.btn3470.Name = "btn3470"
Me.btn3470.Size = New System.Drawing.Size(114, 39)
Me.btn3470.TabIndex = 30
Me.btn3470.Text = "3470"
Me.btn3470.UseVisualStyleBackColor = True
'
'Button4
'
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button4.Image = Global.SDL.My.Resources.Resources.statistik_small
Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button4.Location = New System.Drawing.Point(367, 7)
Me.Button4.Margin = New System.Windows.Forms.Padding(0)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(128, 41)
Me.Button4.TabIndex = 29
Me.Button4.Text = "Nicht Eingereichte Anträge"
Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button4.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText
Me.Button4.UseVisualStyleBackColor = True
'
'Button3 'Button3
' '
Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -897,20 +927,10 @@ Partial Class usrCntlUSTV
Me.ContextMenuStrip3.Name = "ContextMenuStrip1" Me.ContextMenuStrip3.Name = "ContextMenuStrip1"
Me.ContextMenuStrip3.Size = New System.Drawing.Size(61, 4) Me.ContextMenuStrip3.Size = New System.Drawing.Size(61, 4)
' '
'Button4 'ContextMenuStrip4
' '
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.ContextMenuStrip4.Name = "ContextMenuStrip1"
Me.Button4.Image = Global.SDL.My.Resources.Resources.statistik_small Me.ContextMenuStrip4.Size = New System.Drawing.Size(61, 4)
Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button4.Location = New System.Drawing.Point(367, 7)
Me.Button4.Margin = New System.Windows.Forms.Padding(0)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(128, 41)
Me.Button4.TabIndex = 29
Me.Button4.Text = "Nicht Eingereichte Anträge"
Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button4.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText
Me.Button4.UseVisualStyleBackColor = True
' '
'usrCntlUSTV 'usrCntlUSTV
' '
@@ -987,4 +1007,6 @@ Partial Class usrCntlUSTV
Friend WithEvents lblID As Label Friend WithEvents lblID As Label
Friend WithEvents Button3 As Button Friend WithEvents Button3 As Button
Friend WithEvents Button4 As Button Friend WithEvents Button4 As Button
Friend WithEvents btn3470 As Button
Friend WithEvents ContextMenuStrip4 As ContextMenuStrip
End Class End Class

5
SDL/USTV/usrCntlUSTV.resx
View File

@@ -769,7 +769,7 @@
XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS
fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+ fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+
tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/ tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/
6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALDwAACw8BkvkDpQAAB4JJREFUSEu9lntM1FcW 6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALDAAACwwBP0AiyAAAB4JJREFUSEu9lntM1FcW
x0+yNWpdBURGEJ0ZXtVqZX0hFJAB5gVILVbQTRCQ1wwDw7wYGMSCgiI+IoivtbpBwOLqqnUXq30YlVrX x0+yNWpdBURGEJ0ZXtVqZX0hFJAB5gVILVbQTRCQ1wwDw7wYGMSCgiI+IoivtbpBwOLqqnUXq30YlVrX
bXAFu6Ua2ShG0jVoq1ZFwQffzb3zhG22/+0vOZnf3Nz8Pjn3nPs9X1qx10yqpnWU27iOEuo0pG6qpMKP bXAFu6Ua2ShG0jVoq1ZFwQffzb3zhG22/+0vOZnf3Nz8Pjn3nPs9X1qx10yqpnWU27iOEuo0pG6qpMKP
qyljXxkpt6hozdF6qvxkN2XuW0OymiwqO1I33tBUPTNhsypTUpVuydhTOi5jTynNL08mQUEkiQwyEhql qyljXxkpt6hozdF6qvxkN2XuW0OymiwqO1I33tBUPTNhsypTUpVuydhTOi5jTynNL08mQUEkiQwyEhql
@@ -935,4 +935,7 @@
<metadata name="ContextMenuStrip3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ContextMenuStrip3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>331, 17</value> <value>331, 17</value>
</metadata> </metadata>
<metadata name="ContextMenuStrip4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>487, 17</value>
</metadata>
</root> </root>

200
SDL/USTV/usrCntlUSTV.vb
View File

@@ -1,4 +1,6 @@
Imports System.ComponentModel Imports System.ComponentModel
Imports com.sun.xml.internal.rngom
Imports DocumentFormat.OpenXml.Drawing
Imports Microsoft.Office.Interop Imports Microsoft.Office.Interop
Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN
@@ -591,7 +593,7 @@ Public Class usrCntlUSTV
Private Sub btn2_Click(sender As Object, e As EventArgs) Handles Button2.Click Private Sub btn2_Click(sender As Object, e As EventArgs) Handles btn3470.Click
If Not ContextMenuStrip3.Items.ContainsKey("dgv") Then If Not ContextMenuStrip3.Items.ContainsKey("dgv") Then
@@ -600,8 +602,6 @@ Public Class usrCntlUSTV
ContextMenuStrip3.Items.Add(dgv) ContextMenuStrip3.Items.Add(dgv)
End If End If
If Not ContextMenuStrip3.Items.ContainsKey("excel") Then If Not ContextMenuStrip3.Items.ContainsKey("excel") Then
Dim excel = New ToolStripMenuItem() With {.Text = "Excelauswertung starten", .Name = "excel", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)} Dim excel = New ToolStripMenuItem() With {.Text = "Excelauswertung starten", .Name = "excel", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
ContextMenuStrip3.Items.Add(excel) ContextMenuStrip3.Items.Add(excel)
@@ -620,6 +620,36 @@ Public Class usrCntlUSTV
ContextMenuStrip3.Show(Cursor.Position) ContextMenuStrip3.Show(Cursor.Position)
End Sub
Private Sub btn3470_Click(sender As Object, e As EventArgs) Handles btn3470.Click
If Not ContextMenuStrip4.Items.ContainsKey("excel") Then
Dim excel = New ToolStripMenuItem() With {.Text = "Excelauswertung starten", .Name = "excel", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
ContextMenuStrip4.Items.Add(excel)
AddHandler excel.Click, AddressOf mnuItem4_Clicked
End If
If Not ContextMenuStrip4.Items.ContainsKey("pdf") Then
Dim pdf = New ToolStripMenuItem() With {.Text = "PDF", .Name = "pdf", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
ContextMenuStrip4.Items.Add(pdf)
AddHandler pdf.Click, AddressOf mnuItem4_Clicked
End If
If Not ContextMenuStrip4.Items.ContainsKey("mail") Then
Dim mail = New ToolStripMenuItem() With {.Text = "Email generieren", .Name = "mail", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
AddHandler mail.Click, AddressOf mnuItem4_Clicked
ContextMenuStrip4.Items.Add(mail)
End If
ContextMenuStrip4.Show(Cursor.Position)
End Sub End Sub
@@ -654,7 +684,7 @@ Public Class usrCntlUSTV
ContextMenuStrip1.Hide() ContextMenuStrip1.Hide()
Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem) Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem)
If item IsNot Nothing Then If item IsNot Nothing Then
If item.Name = "excel" Then If item.Name = "excel" Then
@@ -1352,6 +1382,168 @@ Public Class usrCntlUSTV
End Sub End Sub
Private Sub mnuItem4_Clicked(sender As Object, e As EventArgs)
Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem)
If item IsNot Nothing Then
Dim sql_Query As String = ""
If kdNr > 0 Then
',[UStVAn_Währungscode] as Währung
sql_Query = "SELECT [UStVAn_KuNr] as Kunde,[UStVAn_Name] as Name,UStVAn_LandKz, [UStVAn_ReDatVon] as von, [UStVAn_ReDatBis] as bis,LandKz as Land, [UStVAn_3470] as Betrag FROM [tblUStVAntrag] inner join [Länderverzeichnis für die Außenhandelsstatistik] on UStVAn_LandNr=Landnr
where isnull([UStVAn_3470], 0) <> 0 and [UStVAn_KuNr] = " & kdNr & "
order by UStVAn_KuNr,UStVAn_Name,datepart(year,[UStVAn_ReDatVon]) asc,LandKz,[UStVAn_ReDatVon] asc"
Else
sql_Query = "SELECT [UStVAn_KuNr] as Kunde,[UStVAn_Name] as Name,UStVAn_LandKz, [UStVAn_ReDatVon] as von, [UStVAn_ReDatBis] as bis,LandKz as Land, [UStVAn_3470] as Betrag FROM [tblUStVAntrag] inner join [Länderverzeichnis für die Außenhandelsstatistik] on UStVAn_LandNr=Landnr
where isnull([UStVAn_3470], 0) <> 0
order by UStVAn_KuNr,UStVAn_Name,datepart(year,[UStVAn_ReDatVon]) asc,LandKz,[UStVAn_ReDatVon] asc"
End If
Dim dtVorschau_3470 As DataTable = SQL.loadDgvBySql(sql_Query, "FMZOLL")
If item.Name = "excel" Then
cProgramFunctions.genExcelFromDT_NEW(dtVorschau_3470, {"F1:F" & (dtVorschau_3470.Rows.Count + 1)}, False,,,, True)
ElseIf item.Name = "mail" Then
Try
Dim outl As New Outlook.Application
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
Mail = outl.CreateItem(0)
Dim groupField = ""
If kdNr > 0 Then
groupField = "UStVAn_LandKz"
Dim ADR As New cAdressen(kdNr)
Mail.To = ADR.E_Mail
If Mail.To <> "" AndAlso ADR.E_Mail2 <> "" Then Mail.To &= ";" & ADR.E_Mail2
Else
groupField = "Kunde"
End If
Dim filePathExcel = cProgramFunctions.genExcelFromDT_NEW(dtVorschau_3470, {"F1:F" & (dtVorschau_3470.Rows.Count + 1)}, False,,,, True,,,, False)
Dim FilePath_PDF = create4870Report(dtVorschau_3470, groupField)
Mail.Attachments.Add(filePathExcel, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue,, "AccountNo_4870.xslx")
Mail.Attachments.Add(FilePath_PDF, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue,, "AccountNo_4870.pdf")
Mail.Display()
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!")
End Try
ElseIf item.Name = "pdf" Then
Dim groupField = ""
If kdNr > 0 Then
groupField = "UStVAn_LandKz"
Else
groupField = "Kunde"
End If
create4870Report(dtVorschau_3470, groupField, True)
End If
End If
End Sub
Private Function create4870Report(dt As DataTable, GroupField As String, Optional open As Boolean = False) As String
Dim rpt As New rpt_3470
rpt.DataSource = dt
rpt.GroupHeader1.DataField = GroupField 'Gruppierung
rpt.GroupHeader2.DataField = Nothing
If rpt.DataSource.rows.count > 0 Then
Dim sum As Double = 0
Dim sumGroup As Double = 0
rpt.lblDat.Text = Now.ToShortDateString
AddHandler rpt.ReportHeader1.Format, Sub()
If GroupField = "UStVAn_LandKz" Then
rpt.Label3.Text &= " - " & rpt.Fields.Item("UStVAn_LandKz").Value()
End If
End Sub
AddHandler rpt.Detail.Format, Sub()
rpt.lblKDName.Text = rpt.Fields.Item("Name").Value()
rpt.lblKDNumber.Text = rpt.Fields.Item("Kunde").Value()
rpt.lblCountry.Text = rpt.Fields.Item("Land").Value()
rpt.lblAmount.Text = CDbl(rpt.Fields.Item("Betrag").Value()).ToString("N2") & " €"
'rpt.lblWaehrung.Text = rpt.Fields.Item("Währung").Value()
rpt.lblTimeperiod.Text = CDate((rpt.Fields.Item("von").Value())).ToShortDateString & " - " & CDate((rpt.Fields.Item("bis").Value())).ToShortDateString
sum += CDbl(rpt.Fields.Item("Betrag").Value()).ToString("N2")
sumGroup += CDbl(rpt.Fields.Item("Betrag").Value()).ToString("N2")
End Sub
AddHandler rpt.GroupFooter1.Format, Sub()
If GroupField = "UStVAn_LandKz" Then
'rpt.lblGroup1.Text = rpt.Fields.Item("UStVAn_LandKz").Value()
rpt.lblWahrung.Text = rpt.Fields.Item("UStVAn_LandKz").Value()
End If
rpt.lblSumme.Text = sumGroup.ToString("N2") & " €"
'rpt.lblWahrung.Text = "EUR" 'rpt.Fields.Item("Währung").Value()
sumGroup = 0
End Sub
AddHandler rpt.GroupFooter2.Format, Sub()
rpt.lblSumGesamt.Text = sum.ToString("N2") & " €"
'rpt.lblWaehrung_Ges.Text = "EUR"
End Sub
Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("Konto_3470" & Now.ToString("TMP_ddMMyyyy_HHmmSS") & ".pdf", ".pdf", , False)
Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
rpt.Run(False)
p.NeverEmbedFonts = ""
p.Export(rpt.Document, tmpPath)
If open Then Process.Start(tmpPath)
rpt.Dispose()
Return tmpPath
Else
Return ""
End If
End Function
Private Sub btnWikiStatusmails_Click(sender As Object, e As EventArgs) Handles btnWikiStatusmails.Click Private Sub btnWikiStatusmails_Click(sender As Object, e As EventArgs) Handles btnWikiStatusmails.Click
Dim webAddress As String = "https://wiki.verag.ag/software/sdl/ustva" Dim webAddress As String = "https://wiki.verag.ag/software/sdl/ustva"

2
SDL/buchhaltung/frmBU_Mahnlauf.vb
View File

@@ -456,7 +456,7 @@ Public Class frmBU_Mahnlauf
'If rpt.lblKundenAuftragsnummer.Text = String.Empty Then rpt.lblKundenAuftragsnummerUeberschrift.Visible = False 'If rpt.lblKundenAuftragsnummer.Text = String.Empty Then rpt.lblKundenAuftragsnummerUeberschrift.Visible = False
rpt.lblSachbearbeiter.Text = cFakturierung.getSBRgName(FIRMA.Firma_ID, VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) 'If(RECHNUNG.Sachbearbeiter, "") rpt.lblSachbearbeiter.Text = cFakturierung.getSBRgName(FIRMA.Firma_ID, VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) '
Select Case FIRMA.Firma_ID Select Case FIRMA.Firma_ID
Case 19 Case 19

43
SDL/buchhaltung/usrCntlBH.vb
View File

@@ -846,7 +846,8 @@ Public Class usrCntlBH
SELECT SELECT
op_debitor.i_personenkonto AS KDNR, op_debitor.i_personenkonto AS KDNR,
[Adressen].Ordnungsbegriff as Name,
op_debitor.c_urbelegid AS BelegNr, op_debitor.c_urbelegid AS BelegNr,
op_debitor.c_bemerkung AS Buchungstext, op_debitor.c_bemerkung AS Buchungstext,
op_debitor.d_rechnung AS Belegdatum, op_debitor.d_rechnung AS Belegdatum,
@@ -871,6 +872,7 @@ Public Class usrCntlBH
FROM op_debitor INNER JOIN fibu_konto ON (op_debitor.i_personenkonto = fibu_konto.i_konto) FROM op_debitor INNER JOIN fibu_konto ON (op_debitor.i_personenkonto = fibu_konto.i_konto)
inner join [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[Adressen] on [Adressen].AdressenNr = op_debitor.i_personenkonto
inner join [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[tblKundenErweitert] on kde_KundenNr = op_debitor.i_personenkonto inner join [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[tblKundenErweitert] on kde_KundenNr = op_debitor.i_personenkonto
left join fibu_zahlziel on dbo.fibu_zahlziel.i_firm_refid = dbo.op_debitor.i_firm_refid and dbo.fibu_zahlziel.c_zahlziel = ISNULL(fibu_konto.c_zahlziel, '0/0/20') left join fibu_zahlziel on dbo.fibu_zahlziel.i_firm_refid = dbo.op_debitor.i_firm_refid and dbo.fibu_zahlziel.c_zahlziel = ISNULL(fibu_konto.c_zahlziel, '0/0/20')
@@ -932,7 +934,7 @@ Public Class usrCntlBH
Next Next
If counter > 0 Then If counter > 0 Then
MsgBox("In der Zinsberechnung befinden sich " & counter & " Positionen, die bereits abgerechnet wurden!" & vbNewLine & "Diese wurden ") MsgBox("In der Zinsberechnung befinden sich " & counter & " Positionen, die bereits abgerechnet wurden!" & vbNewLine & "Diese werden übersprungen bzw. nicht nochmals verrechnet!")
End If End If
Dim dtTemp As New DataTable Dim dtTemp As New DataTable
@@ -945,9 +947,27 @@ Public Class usrCntlBH
If dtTemp.Columns.Contains("ZZinTage") Then dtTemp.Columns.Remove("ZZinTage") If dtTemp.Columns.Contains("ZZinTage") Then dtTemp.Columns.Remove("ZZinTage")
If dtTemp.Columns.Contains("ReZielZahlungsdatum") Then dtTemp.Columns.Remove("ReZielZahlungsdatum") If dtTemp.Columns.Contains("ReZielZahlungsdatum") Then dtTemp.Columns.Remove("ReZielZahlungsdatum")
Dim dtTemp2 As New DataTable
dtTemp2.Columns.Add("KDNR", GetType(Int32))
dtTemp2.Columns.Add("Name", GetType(String))
dtTemp2.Columns.Add("Zinsbetrag", GetType(Decimal))
If dtTemp.Rows.Count > 0 Then Dim query = From row In dtTemp.AsEnumerable()
cProgramFunctions.genExcelFromDT_NEW(dtTemp, {"H1:H" & (dt.Rows.Count + 1), "J1:J" & (dt.Rows.Count + 1)}) Group row By key = row.Field(Of Int32)("KDNR") Into grp = Group
Select New With {
.GroupValue = key,
.KDName = grp.First().Field(Of String)("Name"),
.SumValue = grp.Sum(Function(r) Convert.ToDecimal(r("Zinsbetrag")))
}
' Fill the new DataTable
For Each item In query
dtTemp2.Rows.Add(item.GroupValue, item.KDName, item.SumValue)
Next
If dtTemp.Rows.Count > 0 AndAlso dtTemp2.Rows.Count > 0 Then
cProgramFunctions.genExcelFromMultibleDT_NEW(New List(Of DataTable) From {dtTemp, dtTemp2}, {"H1:H" & (dt.Rows.Count + 1), "J1:J" & (dt.Rows.Count + 1)})
txtnichtabrechneteKunden.Text = SQL.getValueTxtBySql("SELECT count(distinct(kundenNr)) FROM [VERAG].[dbo].[tblMDM_Zinsberechnung] where verrechnet is null", "FMZOLL",,, "0") txtnichtabrechneteKunden.Text = SQL.getValueTxtBySql("SELECT count(distinct(kundenNr)) FROM [VERAG].[dbo].[tblMDM_Zinsberechnung] where verrechnet is null", "FMZOLL",,, "0")
If IsNumeric(txtnichtabrechneteKunden.Text) AndAlso CInt(txtnichtabrechneteKunden.Text) > 0 Then If IsNumeric(txtnichtabrechneteKunden.Text) AndAlso CInt(txtnichtabrechneteKunden.Text) > 0 Then
@@ -1224,6 +1244,13 @@ Public Class usrCntlBH
End Sub End Sub
Private Sub btnZNBverrechnen_Click(sender As Object, e As EventArgs) Handles btnZNBverrechnen.Click Private Sub btnZNBverrechnen_Click(sender As Object, e As EventArgs) Handles btnZNBverrechnen.Click
If txtZRbis.Text = "" OrElse Not IsDate(txtZRbis.Text) Then
MsgBox("Abrechnungdatum setzen!")
txtZRbis.Focus()
Exit Sub
End If
Dim LimitBEtrag As Integer = -1 Dim LimitBEtrag As Integer = -1
If txtAbBetragAbrechnen._value <> "" AndAlso IsNumeric(txtAbBetragAbrechnen._value) Then If txtAbBetragAbrechnen._value <> "" AndAlso IsNumeric(txtAbBetragAbrechnen._value) Then
LimitBEtrag = CInt(txtAbBetragAbrechnen._value) LimitBEtrag = CInt(txtAbBetragAbrechnen._value)
@@ -1269,7 +1296,7 @@ Public Class usrCntlBH
End If End If
If vbYes = MsgBox("Möchten Sie für " & dt_Main.Rows.Count & " Kunden die Zinsbelastung verrechnen?" & vbNewLine & "Es werden nur Rechnungen erstellt, deren Gesamtbelastung über " & LimitBEtrag & " EUR liegt!", vbYesNoCancel) Then If vbYes = MsgBox("Möchten Sie für " & dt_Main.Rows.Count & " Kunden die Zinsbelastung mit Abrechnungsdatum " & CDate(txtZRbis.Text).ToShortDateString & " verrechnen?" & vbNewLine & "Es werden nur Rechnungen erstellt, deren Gesamtbelastung über " & LimitBEtrag & " EUR liegt!", vbYesNoCancel) Then
@@ -1291,7 +1318,7 @@ Public Class usrCntlBH
Dim verarbOK As Boolean = True Dim verarbOK As Boolean = True
Dim SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing Dim SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing
Dim RK_ID As Integer = -1 Dim RK_ID As Integer = -1
If Not gen_SPEDBUCH_ByKdNr(R("kundenNr"), SPEDBUCH, Now(), vermerk) Then verarbOK = False If Not gen_SPEDBUCH_ByKdNr(R("kundenNr"), SPEDBUCH, CDate(txtZRbis.Text).ToShortDateString, vermerk) Then verarbOK = False
If Not gen_RECHNUNG_BySPEDBUCH(R("kundenNr"), SPEDBUCH, RK_ID, Fußtext) Then verarbOK = False If Not gen_RECHNUNG_BySPEDBUCH(R("kundenNr"), SPEDBUCH, RK_ID, Fußtext) Then verarbOK = False
If verarbOK Then If verarbOK Then
@@ -1394,7 +1421,9 @@ Public Class usrCntlBH
Private Sub btnDel__Click(sender As Object, e As EventArgs) Handles btnDel_.Click Private Sub btnDel__Click(sender As Object, e As EventArgs) Handles btnDel_.Click
If vbYes = MsgBox("Möchten Sie die alle nicht verrechneten Zinsbelastungen löschen?", vbYesNoCancel) Then If vbYes = MsgBox("Möchten Sie die alle nicht verrechneten Zinsbelastungen löschen?", vbYesNoCancel) Then
SQL.doSQL("delete from [tblMDM_Zinsberechnung] WHERE [verrechnet] Is null", "FMZOLL") If SQL.doSQL("delete from [tblMDM_Zinsberechnung] WHERE [verrechnet] Is null", "FMZOLL") Then
txtnichtabrechneteKunden.Text = SQL.getValueTxtBySql("SELECT count(distinct(kundenNr)) FROM [VERAG].[dbo].[tblMDM_Zinsberechnung] where verrechnet is null", "FMZOLL",,, "0")
End If
End If End If
End Sub End Sub

83
SDL/cProgramFunctions.vb
View File

@@ -1192,6 +1192,89 @@ Public Class cProgramFunctions
Dim filename As String = sPath & "tmp_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
wb.SaveAs(filename)
If openFile Then Process.Start(filename)
Return filename
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
Return Nothing
End Try
End Function
Public Shared Function genExcelFromMultibleDT_NEW(datatables As IEnumerable(Of DataTable), Optional rangeAsWaehrung() As String = Nothing, Optional ShowAutoFilter As Boolean = True, Optional HeaderTxt As String = "", Optional HeaderTxt2 As String = "", Optional waehrungsZeichen As String = "€", Optional fitCellsToContent As Boolean = False, Optional mergeHeadersToCell As Char = "", Optional Landscape As Boolean = False, Optional fitToOnePage As Boolean = False, Optional openFile As Boolean = True, Optional fitWideToOnePage As Boolean = False) As String
Try
Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\SDL\tmp\" ' My.Computer.FileSystem.GetTempFileName
If Not My.Computer.FileSystem.DirectoryExists(sPath) Then
My.Computer.FileSystem.CreateDirectory(sPath)
End If
Dim wb As New XLWorkbook
Dim counter = 0
For Each dt In datatables
wb.Worksheets.Add(dt, "DATEN" & IIf(counter > 0, "_" & counter, ""))
wb.Worksheets(counter).Tables.FirstOrDefault().ShowAutoFilter = ShowAutoFilter
If rangeAsWaehrung IsNot Nothing Then
For Each r In rangeAsWaehrung
Try
wb.Worksheets(counter).Range(r).Style.NumberFormat.SetFormat("###,###,##0.00 " & waehrungsZeichen)
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
Next
End If
If HeaderTxt <> "" Then
wb.Worksheets(counter).FirstRow.InsertRowsAbove(2)
wb.Worksheets(counter).Range("A1").Value = HeaderTxt
wb.Worksheets(counter).Range("A1").Style.Font.Bold = True
If mergeHeadersToCell <> "" Then
wb.Worksheets(counter).Range("A1:" & mergeHeadersToCell & "1").Merge()
wb.Worksheets(counter).Range("A1:" & mergeHeadersToCell & "1").Style.Alignment.Horizontal = XLAlignmentHorizontalValues.Center
wb.Worksheets(counter).Range("A1:" & mergeHeadersToCell & "1").Style.Alignment.Vertical = XLAlignmentVerticalValues.Center
wb.Worksheets(counter).Range("A1:" & mergeHeadersToCell & "1").Style.Alignment.WrapText = True
End If
If HeaderTxt2 <> "" Then
wb.Worksheets(counter).Range("A2").Value = HeaderTxt2
wb.Worksheets(counter).Row(2).InsertRowsBelow(1)
If mergeHeadersToCell <> "" Then
wb.Worksheets(counter).Range("A2:" & mergeHeadersToCell & "2").Merge()
wb.Worksheets(counter).Range("A2:" & mergeHeadersToCell & "2").Style.Alignment.Horizontal = XLAlignmentHorizontalValues.Center
wb.Worksheets(counter).Range("A2:" & mergeHeadersToCell & "2").Style.Alignment.Vertical = XLAlignmentVerticalValues.Center
wb.Worksheets(counter).Range("A2:" & mergeHeadersToCell & "2").Style.Alignment.WrapText = True
End If
End If
End If
If fitCellsToContent Then
wb.Worksheets(counter).Columns().AdjustToContents()
wb.Worksheets(counter).Rows().AdjustToContents()
End If
If Landscape Then
wb.Worksheets(counter).PageSetup.PageOrientation = XLPageOrientation.Landscape
Else
wb.Worksheets(counter).PageSetup.PageOrientation = XLPageOrientation.Default
End If
If fitToOnePage Then wb.Worksheets(counter).PageSetup.PagesWide = 1 : wb.Worksheets(counter).PageSetup.PagesTall = 1 ' In die Höhe/Breite auf eine Seite anpassen
If fitWideToOnePage Then wb.Worksheets(counter).PageSetup.PagesWide = 1
counter += 1
Next
Dim filename As String = sPath & "tmp_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx" Dim filename As String = sPath & "tmp_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
wb.SaveAs(filename) wb.SaveAs(filename)

135
SDL/kunden/frmKundenblatt.Designer.vb generated
View File

@@ -56,6 +56,9 @@ Partial Class frmKundenblatt
Me.UsrcntlKundeBearbeitenFull1 = New SDL.usrcntlKundeBearbeitenFull() Me.UsrcntlKundeBearbeitenFull1 = New SDL.usrcntlKundeBearbeitenFull()
Me.tbcntrMain = New System.Windows.Forms.TabControl() Me.tbcntrMain = New System.Windows.Forms.TabControl()
Me.tbAllgemein = New System.Windows.Forms.TabPage() Me.tbAllgemein = New System.Windows.Forms.TabPage()
Me.txtEmailRE = New System.Windows.Forms.TextBox()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.PictureBox8 = New System.Windows.Forms.PictureBox()
Me.FlatButton6 = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.FlatButton6 = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.lblBonitaet = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblBonitaet = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label39 = New System.Windows.Forms.Label() Me.Label39 = New System.Windows.Forms.Label()
@@ -251,6 +254,7 @@ Partial Class frmKundenblatt
Me.Panel4.SuspendLayout() Me.Panel4.SuspendLayout()
Me.tbcntrMain.SuspendLayout() Me.tbcntrMain.SuspendLayout()
Me.tbAllgemein.SuspendLayout() Me.tbAllgemein.SuspendLayout()
CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabControl1.SuspendLayout() Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout() Me.TabPage1.SuspendLayout()
CType(Me.dgvOffenePosten, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvOffenePosten, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -334,7 +338,7 @@ Partial Class frmKundenblatt
Me.tbFirmendaten.Location = New System.Drawing.Point(4, 25) Me.tbFirmendaten.Location = New System.Drawing.Point(4, 25)
Me.tbFirmendaten.Name = "tbFirmendaten" Me.tbFirmendaten.Name = "tbFirmendaten"
Me.tbFirmendaten.Padding = New System.Windows.Forms.Padding(3) Me.tbFirmendaten.Padding = New System.Windows.Forms.Padding(3)
Me.tbFirmendaten.Size = New System.Drawing.Size(1644, 928) Me.tbFirmendaten.Size = New System.Drawing.Size(1644, 945)
Me.tbFirmendaten.TabIndex = 3 Me.tbFirmendaten.TabIndex = 3
Me.tbFirmendaten.Text = "Firmendaten" Me.tbFirmendaten.Text = "Firmendaten"
' '
@@ -344,7 +348,7 @@ Partial Class frmKundenblatt
Me.Panel4.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel4.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel4.Location = New System.Drawing.Point(3, 3) Me.Panel4.Location = New System.Drawing.Point(3, 3)
Me.Panel4.Name = "Panel4" Me.Panel4.Name = "Panel4"
Me.Panel4.Size = New System.Drawing.Size(1638, 922) Me.Panel4.Size = New System.Drawing.Size(1638, 939)
Me.Panel4.TabIndex = 0 Me.Panel4.TabIndex = 0
' '
'UsrcntlKundeBearbeitenFull1 'UsrcntlKundeBearbeitenFull1
@@ -354,7 +358,7 @@ Partial Class frmKundenblatt
Me.UsrcntlKundeBearbeitenFull1.Location = New System.Drawing.Point(0, 0) Me.UsrcntlKundeBearbeitenFull1.Location = New System.Drawing.Point(0, 0)
Me.UsrcntlKundeBearbeitenFull1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) Me.UsrcntlKundeBearbeitenFull1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.UsrcntlKundeBearbeitenFull1.Name = "UsrcntlKundeBearbeitenFull1" Me.UsrcntlKundeBearbeitenFull1.Name = "UsrcntlKundeBearbeitenFull1"
Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1638, 922) Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1638, 939)
Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0 Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0
' '
'tbcntrMain 'tbcntrMain
@@ -374,12 +378,15 @@ Partial Class frmKundenblatt
Me.tbcntrMain.Margin = New System.Windows.Forms.Padding(0) Me.tbcntrMain.Margin = New System.Windows.Forms.Padding(0)
Me.tbcntrMain.Name = "tbcntrMain" Me.tbcntrMain.Name = "tbcntrMain"
Me.tbcntrMain.SelectedIndex = 0 Me.tbcntrMain.SelectedIndex = 0
Me.tbcntrMain.Size = New System.Drawing.Size(1652, 974) Me.tbcntrMain.Size = New System.Drawing.Size(1652, 991)
Me.tbcntrMain.TabIndex = 3 Me.tbcntrMain.TabIndex = 3
' '
'tbAllgemein 'tbAllgemein
' '
Me.tbAllgemein.BackColor = System.Drawing.Color.White Me.tbAllgemein.BackColor = System.Drawing.Color.White
Me.tbAllgemein.Controls.Add(Me.txtEmailRE)
Me.tbAllgemein.Controls.Add(Me.TextBox1)
Me.tbAllgemein.Controls.Add(Me.PictureBox8)
Me.tbAllgemein.Controls.Add(Me.FlatButton6) Me.tbAllgemein.Controls.Add(Me.FlatButton6)
Me.tbAllgemein.Controls.Add(Me.lblBonitaet) Me.tbAllgemein.Controls.Add(Me.lblBonitaet)
Me.tbAllgemein.Controls.Add(Me.Label39) Me.tbAllgemein.Controls.Add(Me.Label39)
@@ -415,10 +422,47 @@ Partial Class frmKundenblatt
Me.tbAllgemein.Margin = New System.Windows.Forms.Padding(0) Me.tbAllgemein.Margin = New System.Windows.Forms.Padding(0)
Me.tbAllgemein.Name = "tbAllgemein" Me.tbAllgemein.Name = "tbAllgemein"
Me.tbAllgemein.Padding = New System.Windows.Forms.Padding(3) Me.tbAllgemein.Padding = New System.Windows.Forms.Padding(3)
Me.tbAllgemein.Size = New System.Drawing.Size(1644, 945) Me.tbAllgemein.Size = New System.Drawing.Size(1644, 962)
Me.tbAllgemein.TabIndex = 0 Me.tbAllgemein.TabIndex = 0
Me.tbAllgemein.Text = "Allgemein" Me.tbAllgemein.Text = "Allgemein"
' '
'txtEmailRE
'
Me.txtEmailRE.BackColor = System.Drawing.Color.White
Me.txtEmailRE.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.txtEmailRE.Cursor = System.Windows.Forms.Cursors.Hand
Me.txtEmailRE.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtEmailRE.Location = New System.Drawing.Point(38, 385)
Me.txtEmailRE.Name = "txtEmailRE"
Me.txtEmailRE.ReadOnly = True
Me.txtEmailRE.Size = New System.Drawing.Size(384, 19)
Me.txtEmailRE.TabIndex = 194
Me.txtEmailRE.Text = "email-Rechnung"
'
'TextBox1
'
Me.TextBox1.BackColor = System.Drawing.Color.White
Me.TextBox1.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.TextBox1.Cursor = System.Windows.Forms.Cursors.Hand
Me.TextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TextBox1.Location = New System.Drawing.Point(36, 360)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.ReadOnly = True
Me.TextBox1.Size = New System.Drawing.Size(384, 19)
Me.TextBox1.TabIndex = 193
Me.TextBox1.Text = "Rechnungen an:"
'
'PictureBox8
'
Me.PictureBox8.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.PictureBox8.Image = Global.SDL.My.Resources.Resources.email
Me.PictureBox8.Location = New System.Drawing.Point(8, 360)
Me.PictureBox8.Name = "PictureBox8"
Me.PictureBox8.Size = New System.Drawing.Size(22, 18)
Me.PictureBox8.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.PictureBox8.TabIndex = 192
Me.PictureBox8.TabStop = False
'
'FlatButton6 'FlatButton6
' '
Me.FlatButton6.allowBorder = False Me.FlatButton6.allowBorder = False
@@ -427,7 +471,7 @@ Partial Class frmKundenblatt
Me.FlatButton6.FlatAppearance.BorderSize = 0 Me.FlatButton6.FlatAppearance.BorderSize = 0
Me.FlatButton6.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.FlatButton6.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.FlatButton6.ForeColor = System.Drawing.Color.Black Me.FlatButton6.ForeColor = System.Drawing.Color.Black
Me.FlatButton6.Location = New System.Drawing.Point(708, 547) Me.FlatButton6.Location = New System.Drawing.Point(700, 451)
Me.FlatButton6.Name = "FlatButton6" Me.FlatButton6.Name = "FlatButton6"
Me.FlatButton6.Size = New System.Drawing.Size(15, 12) Me.FlatButton6.Size = New System.Drawing.Size(15, 12)
Me.FlatButton6.TabIndex = 191 Me.FlatButton6.TabIndex = 191
@@ -451,7 +495,7 @@ Partial Class frmKundenblatt
Me.lblBonitaet.BorderStyle = System.Windows.Forms.BorderStyle.None Me.lblBonitaet.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.lblBonitaet.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblBonitaet.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblBonitaet.ForeColor = System.Drawing.Color.Black Me.lblBonitaet.ForeColor = System.Drawing.Color.Black
Me.lblBonitaet.Location = New System.Drawing.Point(648, 546) Me.lblBonitaet.Location = New System.Drawing.Point(640, 450)
Me.lblBonitaet.MaxLineLength = -1 Me.lblBonitaet.MaxLineLength = -1
Me.lblBonitaet.MaxLines_Warning = "" Me.lblBonitaet.MaxLines_Warning = ""
Me.lblBonitaet.MaxLines_Warning_Label = Nothing Me.lblBonitaet.MaxLines_Warning_Label = Nothing
@@ -465,7 +509,7 @@ Partial Class frmKundenblatt
' '
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(591, 546) Me.Label39.Location = New System.Drawing.Point(583, 450)
Me.Label39.Name = "Label39" Me.Label39.Name = "Label39"
Me.Label39.Size = New System.Drawing.Size(43, 13) Me.Label39.Size = New System.Drawing.Size(43, 13)
Me.Label39.TabIndex = 188 Me.Label39.TabIndex = 188
@@ -479,7 +523,7 @@ Partial Class frmKundenblatt
Me.btnBonitaetBearbeiten.FlatAppearance.BorderSize = 0 Me.btnBonitaetBearbeiten.FlatAppearance.BorderSize = 0
Me.btnBonitaetBearbeiten.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnBonitaetBearbeiten.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnBonitaetBearbeiten.ForeColor = System.Drawing.Color.Black Me.btnBonitaetBearbeiten.ForeColor = System.Drawing.Color.Black
Me.btnBonitaetBearbeiten.Location = New System.Drawing.Point(568, 546) Me.btnBonitaetBearbeiten.Location = New System.Drawing.Point(560, 450)
Me.btnBonitaetBearbeiten.Name = "btnBonitaetBearbeiten" Me.btnBonitaetBearbeiten.Name = "btnBonitaetBearbeiten"
Me.btnBonitaetBearbeiten.Size = New System.Drawing.Size(15, 12) Me.btnBonitaetBearbeiten.Size = New System.Drawing.Size(15, 12)
Me.btnBonitaetBearbeiten.TabIndex = 187 Me.btnBonitaetBearbeiten.TabIndex = 187
@@ -493,10 +537,10 @@ Partial Class frmKundenblatt
Me.TabControl1.Controls.Add(Me.TabPage1) Me.TabControl1.Controls.Add(Me.TabPage1)
Me.TabControl1.Controls.Add(Me.TabPage2) Me.TabControl1.Controls.Add(Me.TabPage2)
Me.TabControl1.Controls.Add(Me.TabPage3) Me.TabControl1.Controls.Add(Me.TabPage3)
Me.TabControl1.Location = New System.Drawing.Point(8, 582) Me.TabControl1.Location = New System.Drawing.Point(8, 474)
Me.TabControl1.Name = "TabControl1" Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0 Me.TabControl1.SelectedIndex = 0
Me.TabControl1.Size = New System.Drawing.Size(718, 357) Me.TabControl1.Size = New System.Drawing.Size(718, 482)
Me.TabControl1.TabIndex = 186 Me.TabControl1.TabIndex = 186
' '
'TabPage1 'TabPage1
@@ -508,7 +552,7 @@ Partial Class frmKundenblatt
Me.TabPage1.Location = New System.Drawing.Point(4, 22) Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1" Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(710, 331) Me.TabPage1.Size = New System.Drawing.Size(710, 456)
Me.TabPage1.TabIndex = 0 Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Offene Posten" Me.TabPage1.Text = "Offene Posten"
Me.TabPage1.UseVisualStyleBackColor = True Me.TabPage1.UseVisualStyleBackColor = True
@@ -567,7 +611,7 @@ Partial Class frmKundenblatt
Me.dgvOffenePosten.RowHeadersDefaultCellStyle = DataGridViewCellStyle4 Me.dgvOffenePosten.RowHeadersDefaultCellStyle = DataGridViewCellStyle4
Me.dgvOffenePosten.RowHeadersVisible = False Me.dgvOffenePosten.RowHeadersVisible = False
Me.dgvOffenePosten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvOffenePosten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvOffenePosten.Size = New System.Drawing.Size(707, 299) Me.dgvOffenePosten.Size = New System.Drawing.Size(707, 424)
Me.dgvOffenePosten.TabIndex = 175 Me.dgvOffenePosten.TabIndex = 175
' '
'Label10 'Label10
@@ -600,7 +644,7 @@ Partial Class frmKundenblatt
Me.TabPage2.Location = New System.Drawing.Point(4, 22) Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2" Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(710, 314) Me.TabPage2.Size = New System.Drawing.Size(710, 439)
Me.TabPage2.TabIndex = 1 Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Umsatzbericht" Me.TabPage2.Text = "Umsatzbericht"
Me.TabPage2.UseVisualStyleBackColor = True Me.TabPage2.UseVisualStyleBackColor = True
@@ -645,7 +689,7 @@ Partial Class frmKundenblatt
Me.dgvUmsaetze.RowHeadersDefaultCellStyle = DataGridViewCellStyle8 Me.dgvUmsaetze.RowHeadersDefaultCellStyle = DataGridViewCellStyle8
Me.dgvUmsaetze.RowHeadersVisible = False Me.dgvUmsaetze.RowHeadersVisible = False
Me.dgvUmsaetze.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvUmsaetze.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvUmsaetze.Size = New System.Drawing.Size(707, 309) Me.dgvUmsaetze.Size = New System.Drawing.Size(707, 434)
Me.dgvUmsaetze.TabIndex = 182 Me.dgvUmsaetze.TabIndex = 182
' '
'Label13 'Label13
@@ -693,7 +737,7 @@ Partial Class frmKundenblatt
Me.TabPage3.Controls.Add(Me.dgvUmsatzNachLeistngsNr) Me.TabPage3.Controls.Add(Me.dgvUmsatzNachLeistngsNr)
Me.TabPage3.Location = New System.Drawing.Point(4, 22) Me.TabPage3.Location = New System.Drawing.Point(4, 22)
Me.TabPage3.Name = "TabPage3" Me.TabPage3.Name = "TabPage3"
Me.TabPage3.Size = New System.Drawing.Size(710, 314) Me.TabPage3.Size = New System.Drawing.Size(710, 439)
Me.TabPage3.TabIndex = 2 Me.TabPage3.TabIndex = 2
Me.TabPage3.Text = "Umsatz nach LeistungsNr" Me.TabPage3.Text = "Umsatz nach LeistungsNr"
Me.TabPage3.UseVisualStyleBackColor = True Me.TabPage3.UseVisualStyleBackColor = True
@@ -749,7 +793,7 @@ Partial Class frmKundenblatt
Me.dgvUmsatzNachLeistngsNr.RowHeadersDefaultCellStyle = DataGridViewCellStyle12 Me.dgvUmsatzNachLeistngsNr.RowHeadersDefaultCellStyle = DataGridViewCellStyle12
Me.dgvUmsatzNachLeistngsNr.RowHeadersVisible = False Me.dgvUmsatzNachLeistngsNr.RowHeadersVisible = False
Me.dgvUmsatzNachLeistngsNr.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvUmsatzNachLeistngsNr.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvUmsatzNachLeistngsNr.Size = New System.Drawing.Size(705, 308) Me.dgvUmsatzNachLeistngsNr.Size = New System.Drawing.Size(705, 433)
Me.dgvUmsatzNachLeistngsNr.TabIndex = 183 Me.dgvUmsatzNachLeistngsNr.TabIndex = 183
' '
'lblAdressenzusatz 'lblAdressenzusatz
@@ -768,7 +812,7 @@ Partial Class frmKundenblatt
' '
Me.Label11.AutoSize = True Me.Label11.AutoSize = True
Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label11.Location = New System.Drawing.Point(17, 546) Me.Label11.Location = New System.Drawing.Point(9, 450)
Me.Label11.Name = "Label11" Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(82, 13) Me.Label11.Size = New System.Drawing.Size(82, 13)
Me.Label11.TabIndex = 178 Me.Label11.TabIndex = 178
@@ -781,7 +825,7 @@ Partial Class frmKundenblatt
Me.cboFirmaFMZOLL._value = "" Me.cboFirmaFMZOLL._value = ""
Me.cboFirmaFMZOLL.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.cboFirmaFMZOLL.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboFirmaFMZOLL.FormattingEnabled = True Me.cboFirmaFMZOLL.FormattingEnabled = True
Me.cboFirmaFMZOLL.Location = New System.Drawing.Point(100, 543) Me.cboFirmaFMZOLL.Location = New System.Drawing.Point(92, 447)
Me.cboFirmaFMZOLL.Name = "cboFirmaFMZOLL" Me.cboFirmaFMZOLL.Name = "cboFirmaFMZOLL"
Me.cboFirmaFMZOLL.Size = New System.Drawing.Size(184, 21) Me.cboFirmaFMZOLL.Size = New System.Drawing.Size(184, 21)
Me.cboFirmaFMZOLL.TabIndex = 179 Me.cboFirmaFMZOLL.TabIndex = 179
@@ -836,7 +880,7 @@ Partial Class frmKundenblatt
Me.picLogo.Cursor = System.Windows.Forms.Cursors.Hand Me.picLogo.Cursor = System.Windows.Forms.Cursors.Hand
Me.picLogo.Image = Global.SDL.My.Resources.Resources.person_default Me.picLogo.Image = Global.SDL.My.Resources.Resources.person_default
Me.picLogo.ImageLocation = "" Me.picLogo.ImageLocation = ""
Me.picLogo.Location = New System.Drawing.Point(62, 423) Me.picLogo.Location = New System.Drawing.Point(788, 800)
Me.picLogo.Name = "picLogo" Me.picLogo.Name = "picLogo"
Me.picLogo.Size = New System.Drawing.Size(287, 114) Me.picLogo.Size = New System.Drawing.Size(287, 114)
Me.picLogo.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom Me.picLogo.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
@@ -849,7 +893,7 @@ Partial Class frmKundenblatt
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button4.Image = Global.SDL.My.Resources.Resources.statistik_small Me.Button4.Image = Global.SDL.My.Resources.Resources.statistik_small
Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleRight Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button4.Location = New System.Drawing.Point(590, 378) Me.Button4.Location = New System.Drawing.Point(1058, 740)
Me.Button4.Name = "Button4" Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(136, 32) Me.Button4.Size = New System.Drawing.Size(136, 32)
Me.Button4.TabIndex = 21 Me.Button4.TabIndex = 21
@@ -1004,14 +1048,16 @@ Partial Class frmKundenblatt
' '
'GroupBox5 'GroupBox5
' '
Me.GroupBox5.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.GroupBox5.Controls.Add(Me.lblStat_SdlLeistungen_Maut) Me.GroupBox5.Controls.Add(Me.lblStat_SdlLeistungen_Maut)
Me.GroupBox5.Controls.Add(Me.lblStat_SdlLeistungen_Diesel) Me.GroupBox5.Controls.Add(Me.lblStat_SdlLeistungen_Diesel)
Me.GroupBox5.Controls.Add(Me.lblStat_SdlLeistungen) Me.GroupBox5.Controls.Add(Me.lblStat_SdlLeistungen)
Me.GroupBox5.Controls.Add(Me.lblStat_Lkws) Me.GroupBox5.Controls.Add(Me.lblStat_Lkws)
Me.GroupBox5.Controls.Add(Me.PictureBox5) Me.GroupBox5.Controls.Add(Me.PictureBox5)
Me.GroupBox5.Location = New System.Drawing.Point(12, 416) Me.GroupBox5.Location = New System.Drawing.Point(738, 793)
Me.GroupBox5.Name = "GroupBox5" Me.GroupBox5.Name = "GroupBox5"
Me.GroupBox5.Size = New System.Drawing.Size(714, 121) Me.GroupBox5.Size = New System.Drawing.Size(456, 121)
Me.GroupBox5.TabIndex = 22 Me.GroupBox5.TabIndex = 22
Me.GroupBox5.TabStop = False Me.GroupBox5.TabStop = False
Me.GroupBox5.Text = "Statistik" Me.GroupBox5.Text = "Statistik"
@@ -1065,7 +1111,7 @@ Partial Class frmKundenblatt
' '
Me.PictureBox5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None Me.PictureBox5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.PictureBox5.Image = Global.SDL.My.Resources.Resources.statistik Me.PictureBox5.Image = Global.SDL.My.Resources.Resources.statistik
Me.PictureBox5.Location = New System.Drawing.Point(676, 0) Me.PictureBox5.Location = New System.Drawing.Point(409, 7)
Me.PictureBox5.Name = "PictureBox5" Me.PictureBox5.Name = "PictureBox5"
Me.PictureBox5.Size = New System.Drawing.Size(38, 39) Me.PictureBox5.Size = New System.Drawing.Size(38, 39)
Me.PictureBox5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom Me.PictureBox5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
@@ -1085,8 +1131,7 @@ Partial Class frmKundenblatt
' '
'dgvSperrliste 'dgvSperrliste
' '
Me.dgvSperrliste.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Me.dgvSperrliste.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.dgvSperrliste.BackgroundColor = System.Drawing.Color.White Me.dgvSperrliste.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
@@ -1110,7 +1155,7 @@ Partial Class frmKundenblatt
Me.dgvSperrliste.Name = "dgvSperrliste" Me.dgvSperrliste.Name = "dgvSperrliste"
Me.dgvSperrliste.ReadOnly = True Me.dgvSperrliste.ReadOnly = True
Me.dgvSperrliste.RowHeadersDefaultCellStyle = DataGridViewCellStyle15 Me.dgvSperrliste.RowHeadersDefaultCellStyle = DataGridViewCellStyle15
Me.dgvSperrliste.Size = New System.Drawing.Size(446, 901) Me.dgvSperrliste.Size = New System.Drawing.Size(462, 629)
Me.dgvSperrliste.TabIndex = 23 Me.dgvSperrliste.TabIndex = 23
' '
'PictureBox2 'PictureBox2
@@ -1164,7 +1209,7 @@ Partial Class frmKundenblatt
Me.tbZoll.Location = New System.Drawing.Point(4, 25) Me.tbZoll.Location = New System.Drawing.Point(4, 25)
Me.tbZoll.Name = "tbZoll" Me.tbZoll.Name = "tbZoll"
Me.tbZoll.Padding = New System.Windows.Forms.Padding(3) Me.tbZoll.Padding = New System.Windows.Forms.Padding(3)
Me.tbZoll.Size = New System.Drawing.Size(1644, 928) Me.tbZoll.Size = New System.Drawing.Size(1644, 945)
Me.tbZoll.TabIndex = 9 Me.tbZoll.TabIndex = 9
Me.tbZoll.Text = "ZOLL" Me.tbZoll.Text = "ZOLL"
Me.tbZoll.UseVisualStyleBackColor = True Me.tbZoll.UseVisualStyleBackColor = True
@@ -1176,7 +1221,7 @@ Partial Class frmKundenblatt
Me.tbcntrZOLL.Location = New System.Drawing.Point(3, 3) Me.tbcntrZOLL.Location = New System.Drawing.Point(3, 3)
Me.tbcntrZOLL.Name = "tbcntrZOLL" Me.tbcntrZOLL.Name = "tbcntrZOLL"
Me.tbcntrZOLL.SelectedIndex = 0 Me.tbcntrZOLL.SelectedIndex = 0
Me.tbcntrZOLL.Size = New System.Drawing.Size(1638, 922) Me.tbcntrZOLL.Size = New System.Drawing.Size(1638, 939)
Me.tbcntrZOLL.TabIndex = 0 Me.tbcntrZOLL.TabIndex = 0
' '
'tabZoll_Artikel 'tabZoll_Artikel
@@ -1184,7 +1229,7 @@ Partial Class frmKundenblatt
Me.tabZoll_Artikel.Location = New System.Drawing.Point(4, 22) Me.tabZoll_Artikel.Location = New System.Drawing.Point(4, 22)
Me.tabZoll_Artikel.Name = "tabZoll_Artikel" Me.tabZoll_Artikel.Name = "tabZoll_Artikel"
Me.tabZoll_Artikel.Padding = New System.Windows.Forms.Padding(3) Me.tabZoll_Artikel.Padding = New System.Windows.Forms.Padding(3)
Me.tabZoll_Artikel.Size = New System.Drawing.Size(1630, 896) Me.tabZoll_Artikel.Size = New System.Drawing.Size(1630, 913)
Me.tabZoll_Artikel.TabIndex = 1 Me.tabZoll_Artikel.TabIndex = 1
Me.tabZoll_Artikel.Text = "Artikel" Me.tabZoll_Artikel.Text = "Artikel"
Me.tabZoll_Artikel.UseVisualStyleBackColor = True Me.tabZoll_Artikel.UseVisualStyleBackColor = True
@@ -1195,7 +1240,7 @@ Partial Class frmKundenblatt
Me.tbMdm.Location = New System.Drawing.Point(4, 25) Me.tbMdm.Location = New System.Drawing.Point(4, 25)
Me.tbMdm.Name = "tbMdm" Me.tbMdm.Name = "tbMdm"
Me.tbMdm.Padding = New System.Windows.Forms.Padding(3) Me.tbMdm.Padding = New System.Windows.Forms.Padding(3)
Me.tbMdm.Size = New System.Drawing.Size(1644, 928) Me.tbMdm.Size = New System.Drawing.Size(1644, 945)
Me.tbMdm.TabIndex = 10 Me.tbMdm.TabIndex = 10
Me.tbMdm.Text = "MDM" Me.tbMdm.Text = "MDM"
Me.tbMdm.UseVisualStyleBackColor = True Me.tbMdm.UseVisualStyleBackColor = True
@@ -1214,7 +1259,7 @@ Partial Class frmKundenblatt
Me.tbcntrMDM.Margin = New System.Windows.Forms.Padding(0) Me.tbcntrMDM.Margin = New System.Windows.Forms.Padding(0)
Me.tbcntrMDM.Name = "tbcntrMDM" Me.tbcntrMDM.Name = "tbcntrMDM"
Me.tbcntrMDM.SelectedIndex = 0 Me.tbcntrMDM.SelectedIndex = 0
Me.tbcntrMDM.Size = New System.Drawing.Size(1638, 922) Me.tbcntrMDM.Size = New System.Drawing.Size(1638, 939)
Me.tbcntrMDM.TabIndex = 0 Me.tbcntrMDM.TabIndex = 0
' '
'tbSDL 'tbSDL
@@ -1226,7 +1271,7 @@ Partial Class frmKundenblatt
Me.tbSDL.Margin = New System.Windows.Forms.Padding(0) Me.tbSDL.Margin = New System.Windows.Forms.Padding(0)
Me.tbSDL.Name = "tbSDL" Me.tbSDL.Name = "tbSDL"
Me.tbSDL.Padding = New System.Windows.Forms.Padding(3) Me.tbSDL.Padding = New System.Windows.Forms.Padding(3)
Me.tbSDL.Size = New System.Drawing.Size(1630, 896) Me.tbSDL.Size = New System.Drawing.Size(1630, 913)
Me.tbSDL.TabIndex = 5 Me.tbSDL.TabIndex = 5
Me.tbSDL.Text = "SDL-Leistungen" Me.tbSDL.Text = "SDL-Leistungen"
Me.tbSDL.UseVisualStyleBackColor = True Me.tbSDL.UseVisualStyleBackColor = True
@@ -1268,7 +1313,7 @@ Partial Class frmKundenblatt
DataGridViewCellStyle21.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle21.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvSDLLeistungenFull.RowHeadersDefaultCellStyle = DataGridViewCellStyle21 Me.dgvSDLLeistungenFull.RowHeadersDefaultCellStyle = DataGridViewCellStyle21
Me.dgvSDLLeistungenFull.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvSDLLeistungenFull.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1624, 700) Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1624, 717)
Me.dgvSDLLeistungenFull.TabIndex = 5 Me.dgvSDLLeistungenFull.TabIndex = 5
' '
'Panel6 'Panel6
@@ -1374,7 +1419,7 @@ Partial Class frmKundenblatt
Me.Panel5.Controls.Add(Me.lblLetzterSA_SDL) Me.Panel5.Controls.Add(Me.lblLetzterSA_SDL)
Me.Panel5.Controls.Add(Me.rtbVermerke) Me.Panel5.Controls.Add(Me.rtbVermerke)
Me.Panel5.Dock = System.Windows.Forms.DockStyle.Bottom Me.Panel5.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel5.Location = New System.Drawing.Point(3, 750) Me.Panel5.Location = New System.Drawing.Point(3, 767)
Me.Panel5.Name = "Panel5" Me.Panel5.Name = "Panel5"
Me.Panel5.Size = New System.Drawing.Size(1624, 143) Me.Panel5.Size = New System.Drawing.Size(1624, 143)
Me.Panel5.TabIndex = 177 Me.Panel5.TabIndex = 177
@@ -2270,7 +2315,7 @@ Partial Class frmKundenblatt
Me.tbOfferte.Location = New System.Drawing.Point(4, 25) Me.tbOfferte.Location = New System.Drawing.Point(4, 25)
Me.tbOfferte.Margin = New System.Windows.Forms.Padding(2) Me.tbOfferte.Margin = New System.Windows.Forms.Padding(2)
Me.tbOfferte.Name = "tbOfferte" Me.tbOfferte.Name = "tbOfferte"
Me.tbOfferte.Size = New System.Drawing.Size(1644, 928) Me.tbOfferte.Size = New System.Drawing.Size(1644, 945)
Me.tbOfferte.TabIndex = 11 Me.tbOfferte.TabIndex = 11
Me.tbOfferte.Text = "Offerte" Me.tbOfferte.Text = "Offerte"
Me.tbOfferte.UseVisualStyleBackColor = True Me.tbOfferte.UseVisualStyleBackColor = True
@@ -2282,7 +2327,7 @@ Partial Class frmKundenblatt
Me.UsrCntlOfferte1.Location = New System.Drawing.Point(0, 0) Me.UsrCntlOfferte1.Location = New System.Drawing.Point(0, 0)
Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(1) Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(1)
Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1" Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1"
Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1644, 928) Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1644, 945)
Me.UsrCntlOfferte1.TabIndex = 0 Me.UsrCntlOfferte1.TabIndex = 0
' '
'tbUSTV 'tbUSTV
@@ -2290,7 +2335,7 @@ Partial Class frmKundenblatt
Me.tbUSTV.Controls.Add(Me.tbcntrUSTV) Me.tbUSTV.Controls.Add(Me.tbcntrUSTV)
Me.tbUSTV.Location = New System.Drawing.Point(4, 25) Me.tbUSTV.Location = New System.Drawing.Point(4, 25)
Me.tbUSTV.Name = "tbUSTV" Me.tbUSTV.Name = "tbUSTV"
Me.tbUSTV.Size = New System.Drawing.Size(1644, 928) Me.tbUSTV.Size = New System.Drawing.Size(1644, 945)
Me.tbUSTV.TabIndex = 12 Me.tbUSTV.TabIndex = 12
Me.tbUSTV.Text = "USTV" Me.tbUSTV.Text = "USTV"
Me.tbUSTV.UseVisualStyleBackColor = True Me.tbUSTV.UseVisualStyleBackColor = True
@@ -2304,7 +2349,7 @@ Partial Class frmKundenblatt
Me.tbcntrUSTV.Margin = New System.Windows.Forms.Padding(0) Me.tbcntrUSTV.Margin = New System.Windows.Forms.Padding(0)
Me.tbcntrUSTV.Name = "tbcntrUSTV" Me.tbcntrUSTV.Name = "tbcntrUSTV"
Me.tbcntrUSTV.SelectedIndex = 0 Me.tbcntrUSTV.SelectedIndex = 0
Me.tbcntrUSTV.Size = New System.Drawing.Size(1644, 928) Me.tbcntrUSTV.Size = New System.Drawing.Size(1644, 945)
Me.tbcntrUSTV.TabIndex = 1 Me.tbcntrUSTV.TabIndex = 1
' '
'tbUSTVDokumente 'tbUSTVDokumente
@@ -2317,7 +2362,7 @@ Partial Class frmKundenblatt
Me.tbUSTVDokumente.Controls.Add(Me.scanUSTVVollmachten) Me.tbUSTVDokumente.Controls.Add(Me.scanUSTVVollmachten)
Me.tbUSTVDokumente.Location = New System.Drawing.Point(4, 22) Me.tbUSTVDokumente.Location = New System.Drawing.Point(4, 22)
Me.tbUSTVDokumente.Name = "tbUSTVDokumente" Me.tbUSTVDokumente.Name = "tbUSTVDokumente"
Me.tbUSTVDokumente.Size = New System.Drawing.Size(1636, 902) Me.tbUSTVDokumente.Size = New System.Drawing.Size(1636, 919)
Me.tbUSTVDokumente.TabIndex = 8 Me.tbUSTVDokumente.TabIndex = 8
Me.tbUSTVDokumente.Text = "Dokumente" Me.tbUSTVDokumente.Text = "Dokumente"
Me.tbUSTVDokumente.UseVisualStyleBackColor = True Me.tbUSTVDokumente.UseVisualStyleBackColor = True
@@ -2607,7 +2652,7 @@ Partial Class frmKundenblatt
Me.tbRechnungen.Controls.Add(Me.MyPanel1) Me.tbRechnungen.Controls.Add(Me.MyPanel1)
Me.tbRechnungen.Location = New System.Drawing.Point(4, 25) Me.tbRechnungen.Location = New System.Drawing.Point(4, 25)
Me.tbRechnungen.Name = "tbRechnungen" Me.tbRechnungen.Name = "tbRechnungen"
Me.tbRechnungen.Size = New System.Drawing.Size(1644, 928) Me.tbRechnungen.Size = New System.Drawing.Size(1644, 962)
Me.tbRechnungen.TabIndex = 14 Me.tbRechnungen.TabIndex = 14
Me.tbRechnungen.Text = "Rechnungen" Me.tbRechnungen.Text = "Rechnungen"
Me.tbRechnungen.UseVisualStyleBackColor = True Me.tbRechnungen.UseVisualStyleBackColor = True
@@ -2626,7 +2671,7 @@ Partial Class frmKundenblatt
Me.dgvRg.ReadOnly = True Me.dgvRg.ReadOnly = True
Me.dgvRg.RowHeadersVisible = False Me.dgvRg.RowHeadersVisible = False
Me.dgvRg.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvRg.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvRg.Size = New System.Drawing.Size(1644, 868) Me.dgvRg.Size = New System.Drawing.Size(1644, 902)
Me.dgvRg.TabIndex = 3 Me.dgvRg.TabIndex = 3
' '
'MyPanel1 'MyPanel1
@@ -3021,7 +3066,7 @@ Partial Class frmKundenblatt
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.AutoScroll = True Me.AutoScroll = True
Me.BackColor = System.Drawing.Color.White Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(1651, 1103) Me.ClientSize = New System.Drawing.Size(1649, 1120)
Me.Controls.Add(Me.lblAbfVerb) Me.Controls.Add(Me.lblAbfVerb)
Me.Controls.Add(Me.btnAbfVerb) Me.Controls.Add(Me.btnAbfVerb)
Me.Controls.Add(Me.tbcntrMain) Me.Controls.Add(Me.tbcntrMain)
@@ -3041,6 +3086,7 @@ Partial Class frmKundenblatt
Me.tbcntrMain.ResumeLayout(False) Me.tbcntrMain.ResumeLayout(False)
Me.tbAllgemein.ResumeLayout(False) Me.tbAllgemein.ResumeLayout(False)
Me.tbAllgemein.PerformLayout() Me.tbAllgemein.PerformLayout()
CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabControl1.ResumeLayout(False) Me.TabControl1.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False) Me.TabPage1.ResumeLayout(False)
Me.TabPage1.PerformLayout() Me.TabPage1.PerformLayout()
@@ -3311,4 +3357,7 @@ Partial Class frmKundenblatt
Friend WithEvents btnBestelldateiErzeugen As Button Friend WithEvents btnBestelldateiErzeugen As Button
Friend WithEvents btn_FIBU_speichern As Button Friend WithEvents btn_FIBU_speichern As Button
Friend WithEvents txtZinsbelastungNew As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtZinsbelastungNew As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtEmailRE As TextBox
Friend WithEvents TextBox1 As TextBox
Friend WithEvents PictureBox8 As PictureBox
End Class End Class

136
SDL/kunden/frmKundenblatt.vb
View File

@@ -1,6 +1,7 @@
Imports System.Data.SqlClient Imports System.Data.SqlClient
Imports System.Globalization Imports System.Globalization
Imports System.Web.UI.WebControls.Expressions Imports System.Web.UI.WebControls.Expressions
Imports com.sun.xml.internal.rngom
Imports Microsoft.Office.Interop Imports Microsoft.Office.Interop
Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN
@@ -17,6 +18,7 @@ Public Class frmKundenblatt
' Dim KUNDE As cKunde = Nothing ' Dim KUNDE As cKunde = Nothing
Dim ADRESSE As VERAG_PROG_ALLGEMEIN.cAdressen = Nothing Dim ADRESSE As VERAG_PROG_ALLGEMEIN.cAdressen = Nothing
Dim KUNDE_ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert = Nothing Dim KUNDE_ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert = Nothing
Dim KUNDE_K As VERAG_PROG_ALLGEMEIN.cKundenKontakte = Nothing
' Public BERECHTIGUNEN As List(Of cBerechtigungen) = Nothing ' Public BERECHTIGUNEN As List(Of cBerechtigungen) = Nothing
@@ -637,11 +639,65 @@ Public Class frmKundenblatt
End Sub End Sub
Sub initStat() Sub initStat()
lblStat_Lkws.Text = SQL.getSqlCount("SELECT Count(KfzKennzeichen) FROM LKW WHERE KundenNr=" & kdNr & " ") & " LKWs registriert" lblStat_Lkws.Text = SQL.getSqlCount("SELECT Count(KfzKennzeichen) FROM LKW WHERE KundenNr=" & kdNr & " and isnull(Verkauft,0) <> 1 and isnull(Abgemeldet,0) <> 1 ") & " aktive LKWs registriert"
lblStat_SdlLeistungen.Text = SQL.getSqlCount("SELECT Count(SDL.SDLNr) FROM SDL, Speditionsdienstleistungen WHERE KundenNr=" & kdNr & " AND SDL.SDLNr=Speditionsdienstleistungen.SDLNr ") & " SDL Leistungen"
lblStat_SdlLeistungen.Text = SQL.getSqlCount("SELECT Count(SDL.SDLNr) FROM SDL, Speditionsdienstleistungen WHERE KundenNr=" & kdNr & " and ISNULL(Archiviert,0) <> 1 and ISNULL(LKWAbgemeldet,0) <> 1 and ISNULL(Gesperrt,0) <> 1 and ISNULL(Defekt,0) <> 1 and ISNULL(Verloren,0) <> 1 and ISNULL(Gestohlen,0) <> 1 AND SDL.SDLNr=Speditionsdienstleistungen.SDLNr ") & " aktive SDL Leistungen"
Dim SQL_Diesel As String = " FROM SDL, Speditionsdienstleistungen WHERE KundenNr=" & kdNr & " AND ISNULL(Archiviert,0) <> 1 and ISNULL(LKWAbgemeldet,0) <> 1 and ISNULL(Gesperrt,0) <> 1 and ISNULL(Defekt,0) <> 1 and ISNULL(Verloren,0) <> 1 and ISNULL(Gestohlen,0) <> 1 AND SDL.SDLNr=Speditionsdienstleistungen.SDLNr AND SDL.SDLNr IN (100,101)"
Dim dt_Diesel As DataTable = SQL.loadDgvBySql("SELECT SDL.SDLNr,Count(SDL.SDLNr) as Anzahl" & SQL_Diesel & " Group by SDL.SDLNr", "SDL")
lblStat_SdlLeistungen_Diesel.Text = SQL.getSqlCount("SELECT Count(SDL.SDLNr)" & SQL_Diesel) & " aktive Tankkarten"
If dt_Diesel.Rows.Count > 0 Then
lblStat_SdlLeistungen_Diesel.Text &= " ( "
For Each r In dt_Diesel.Rows
Dim Lieferant As String = ""
Select Case r.Item("SDLNr")
Case "100" : Lieferant = r.Item("Anzahl") & "x IDS "
Case "101" : Lieferant = r.Item("Anzahl") & "x RMC "
End Select
lblStat_SdlLeistungen_Diesel.Text &= Lieferant
Next
lblStat_SdlLeistungen_Diesel.Text &= ")"
End If
Dim SQL_Maut As String = " FROM SDL, Speditionsdienstleistungen WHERE KundenNr=" & kdNr & " AND ISNULL(Archiviert,0) <> 1 and ISNULL(LKWAbgemeldet,0) <> 1 and ISNULL(Gesperrt,0) <> 1 and ISNULL(Defekt,0) <> 1 and ISNULL(Verloren,0) <> 1 and ISNULL(Gestohlen,0) <> 1 AND SDL.SDLNr=Speditionsdienstleistungen.SDLNr AND SDL.SDLNr BETWEEN 200 AND 218"
Dim dt_Maut As DataTable = SQL.loadDgvBySql("SELECT SDL.SDLNr,Count(SDL.SDLNr) as Anzahl" & SQL_Maut & " Group by SDL.SDLNr", "SDL")
lblStat_SdlLeistungen_Maut.Text = SQL.getSqlCount("SELECT Count(SDL.SDLNr)" & SQL_Maut) & " aktive Mautboxen/-karten"
If dt_Maut.Rows.Count > 0 Then
lblStat_SdlLeistungen_Maut.Text &= " ( "
For Each r As DataRow In dt_Maut.Rows
Dim Lieferant As String = ""
Select Case r.Item("SDLNr")
Case "200" : Lieferant = r.Item("Anzahl") & "x AT "
Case "201" : Lieferant = r.Item("Anzahl") & "x DE "
Case "202" : Lieferant = r.Item("Anzahl") & "x TELEPASS "
Case "203" : Lieferant = r.Item("Anzahl") & "x CZ "
Case "205" : Lieferant = r.Item("Anzahl") & "x MotorWay "
Case "206" : Lieferant = r.Item("Anzahl") & "x DouBox "
Case "208" : Lieferant = r.Item("Anzahl") & "x MSE "
Case "209" : Lieferant = r.Item("Anzahl") & "x PL "
Case "210" : Lieferant = r.Item("Anzahl") & "x SI "
Case "211" : Lieferant = r.Item("Anzahl") & "x MSE-MP "
Case "212" : Lieferant = r.Item("Anzahl") & "x UTA "
Case "213" : Lieferant = r.Item("Anzahl") & "x HUGO "
Case "214" : Lieferant = r.Item("Anzahl") & "x PLOSE-RM "
Case "215" : Lieferant = r.Item("Anzahl") & "x PLOSE-IT "
Case "216" : Lieferant = r.Item("Anzahl") & "x PLOSE-CZ "
Case "217" : Lieferant = r.Item("Anzahl") & "x PLOSE-MP "
Case "218" : Lieferant = r.Item("Anzahl") & "x PLOSE-TM "
End Select
lblStat_SdlLeistungen_Maut.Text &= Lieferant
Next
lblStat_SdlLeistungen_Maut.Text &= ")"
End If
lblStat_SdlLeistungen_Diesel.Text = SQL.getSqlCount("SELECT Count(SDL.SDLNr) FROM SDL, Speditionsdienstleistungen WHERE KundenNr=" & kdNr & " AND SDL.SDLNr=Speditionsdienstleistungen.SDLNr AND SDL.SDLNr IN (100,101)") & " Tankkarten"
lblStat_SdlLeistungen_Maut.Text = SQL.getSqlCount("SELECT Count(SDL.SDLNr) FROM SDL, Speditionsdienstleistungen WHERE KundenNr=" & kdNr & " AND SDL.SDLNr=Speditionsdienstleistungen.SDLNr AND SDL.SDLNr BETWEEN 200 AND 212 ") & " Mautboxen/-karten"
End Sub End Sub
Function checkNullStr(o As Object) As String Function checkNullStr(o As Object) As String
@@ -682,6 +738,7 @@ Public Class frmKundenblatt
KUNDE = New VERAG_PROG_ALLGEMEIN.cKunde(kdNr) 'kundenSQL.getKundeByKdNr(kdNr) KUNDE = New VERAG_PROG_ALLGEMEIN.cKunde(kdNr) 'kundenSQL.getKundeByKdNr(kdNr)
ADRESSE = New VERAG_PROG_ALLGEMEIN.cAdressen(kdNr) 'kundenSQL.getKundeByKdNr(kdNr) ADRESSE = New VERAG_PROG_ALLGEMEIN.cAdressen(kdNr) 'kundenSQL.getKundeByKdNr(kdNr)
KUNDE_ERW = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdNr) KUNDE_ERW = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdNr)
KUNDE_K = New VERAG_PROG_ALLGEMEIN.cKundenKontakte(kdNr)
'Me.dataAdapterFirma = Nothing 'Me.dataAdapterFirma = Nothing
' Me.dataFirma.Clear() ' Me.dataFirma.Clear()
'SDL! 'SDL!
@@ -713,6 +770,13 @@ Public Class frmKundenblatt
lblEmail.Text = checkNullStr(ADRESSE.E_Mail) lblEmail.Text = checkNullStr(ADRESSE.E_Mail)
lblEmail2.Text = checkNullStr(ADRESSE.E_Mail2) lblEmail2.Text = checkNullStr(ADRESSE.E_Mail2)
txtEmailRE.Text = "-"
If KUNDE_K.kkd_kkaId = 8 Then 'Rechnung an
txtEmailRE.Text = KUNDE_K.kkd_Email & " " & KUNDE_K.kkd_EmailCC
End If
lblUid.Text = "" lblUid.Text = ""
If checkNullStr(ADRESSE.UstIdGeprüft) <> "" Then If checkNullStr(ADRESSE.UstIdGeprüft) <> "" Then
lblUid.Text = "UId: " & checkNullStr(ADRESSE.UstIdKz) & checkNullStr(ADRESSE.UstIdNr) lblUid.Text = "UId: " & checkNullStr(ADRESSE.UstIdKz) & checkNullStr(ADRESSE.UstIdNr)
@@ -2135,27 +2199,40 @@ Public Class frmKundenblatt
End Sub End Sub
Function dtUmsatzNachLeistungsNr() As DataTable
Dim datatable As New DataTable
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige Is Nothing Then Return datatable
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige = "" Then Return datatable
Dim where = ""
If cboFirmaFMZOLL._value <> "" Then
where = " AND [RechnungsKundenNr] = " & kdNr & " AND Firma_ID=" & cboFirmaFMZOLL._value
Else
where = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige.contains("A"), "", " AND Firma_ID IN(" & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige & ")")
where &= " AND [RechnungsKundenNr] = " & kdNr
End If
Dim sqlstr = ""
sqlstr &= " SELECT * FROM ( SELECT Leistungen.LeistungsNr, Leistungen.LeistungsBez,YEAR(Abfertigungsdatum ) [Year] , (RechnungsausgangPositionen.SteuerpflichtigerBetrag+RechnungsausgangPositionen.SteuerfreierBetrag ) AS "
sqlstr &= " [Der Wert] FROM Rechnungsausgang INNER JOIN (RechnungsausgangPositionen LEFT JOIN Leistungen ON RechnungsausgangPositionen.LeistungsNr = Leistungen.LeistungsNr) ON (Rechnungsausgang.RK_ID = RechnungsausgangPositionen.RK_ID) "
sqlstr &= " WHERE 1 = 1 "
sqlstr &= where
sqlstr &= " ) AS Rg"
sqlstr &= " PIVOT( SUM([Der Wert]) FOR [Year] IN (" & getJahrString() & ")) AS MNamePivot"
sqlstr &= " order by LeistungsNr"
datatable = SQL.loadDgvBySql(sqlstr, "FMZOLL")
Return datatable
End Function
Sub initDGVUmsatzNachLeistungsNr() Sub initDGVUmsatzNachLeistungsNr()
With dgvUmsatzNachLeistngsNr With dgvUmsatzNachLeistngsNr
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige Is Nothing Then Exit Sub
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige = "" Then Exit Sub
Dim where = ""
If cboFirmaFMZOLL._value <> "" Then
where = " AND [RechnungsKundenNr] = " & kdNr & " AND Firma_ID=" & cboFirmaFMZOLL._value
Else
where = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige.contains("A"), "", " AND Firma_ID IN(" & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige & ")")
where &= " AND [RechnungsKundenNr] = " & kdNr
End If
Dim sqlstr = "" .DataSource = dtUmsatzNachLeistungsNr()
sqlstr &= " SELECT * FROM ( SELECT Leistungen.LeistungsNr, Leistungen.LeistungsBez,YEAR(Abfertigungsdatum ) [Year] , (RechnungsausgangPositionen.SteuerpflichtigerBetrag+RechnungsausgangPositionen.SteuerfreierBetrag ) AS "
sqlstr &= " [Der Wert] FROM Rechnungsausgang INNER JOIN (RechnungsausgangPositionen LEFT JOIN Leistungen ON RechnungsausgangPositionen.LeistungsNr = Leistungen.LeistungsNr) ON (Rechnungsausgang.RK_ID = RechnungsausgangPositionen.RK_ID) "
sqlstr &= " WHERE 1 = 1 "
sqlstr &= where
sqlstr &= " ) AS Rg"
sqlstr &= " PIVOT( SUM([Der Wert]) FOR [Year] IN (" & getJahrString() & ")) AS MNamePivot"
sqlstr &= " order by LeistungsNr"
.DataSource = SQL.loadDgvBySql(sqlstr, "FMZOLL")
If .DataSource Is Nothing Then Exit Sub If .DataSource Is Nothing Then Exit Sub
If .Columns.Count = 0 Then Exit Sub If .Columns.Count = 0 Then Exit Sub
@@ -2211,7 +2288,14 @@ Public Class frmKundenblatt
Private Sub PictureBox7_Click(sender As Object, e As EventArgs) Handles PictureBox7.Click Private Sub PictureBox7_Click(sender As Object, e As EventArgs) Handles PictureBox7.Click
If dgvUmsatzNachLeistngsNr.Rows.Count > 0 Then If dgvUmsatzNachLeistngsNr.Rows.Count > 0 Then
Me.Cursor = Cursors.WaitCursor Me.Cursor = Cursors.WaitCursor
cProgramFunctions.genExcelFromDGV_NEW(dgvUmsatzNachLeistngsNr, True)
Dim dt As DataTable = dtUmsatzNachLeistungsNr()
If dt.Rows.Count > 0 Then
cProgramFunctions.genExcelFromDT_NEW(dt, {"C1:C" & (dt.Rows.Count + 1), "D1:D" & (dt.Rows.Count + 1), "E1:E" & (dt.Rows.Count + 1), "F1:F" & (dt.Rows.Count + 1), "G1:G" & (dt.Rows.Count + 1), "H1:H" & (dt.Rows.Count + 1), "I1:I" & (dt.Rows.Count + 1), "J1:J" & (dt.Rows.Count + 1), "K1:K" & (dt.Rows.Count + 1)}, False,,,)
End If
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
End If End If
@@ -2365,7 +2449,7 @@ Public Class frmKundenblatt
initBtns("Monat") initBtns("Monat")
End Sub End Sub
Private Sub dgvRg_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvRg.DoubleClick, dgvRg.CellContentDoubleClick Private Sub dgvRg_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvRg.CellContentDoubleClick
If dgvRg.SelectedRows.Count = 0 Then Exit Sub If dgvRg.SelectedRows.Count = 0 Then Exit Sub
@@ -2647,5 +2731,9 @@ Public Class frmKundenblatt
End If End If
End Sub End Sub
Private Sub lblEmail_TextChanged(sender As Object, e As MouseEventArgs) Handles lblEmail2.MouseUp, lblEmail.MouseUp
End Sub
End Class End Class

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

@@ -23,31 +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 DataGridViewCellStyle38 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle39 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle40 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle41 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle42 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle43 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle44 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle45 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle46 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle47 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle48 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle49 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle50 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle32 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle33 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle34 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle35 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle36 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle37 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle51 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle52 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle53 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle54 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle55 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle25 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle56 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle29 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle30 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle31 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
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()
@@ -58,11 +61,9 @@ Partial Class usrcntlKundeBearbeitenFull
Me.cboFremdspedition = New System.Windows.Forms.ComboBox() Me.cboFremdspedition = New System.Windows.Forms.ComboBox()
Me.cbxVerzolltBei = New System.Windows.Forms.CheckBox() Me.cbxVerzolltBei = New System.Windows.Forms.CheckBox()
Me.cbxBesonderheitenNEU = New System.Windows.Forms.CheckBox() Me.cbxBesonderheitenNEU = New System.Windows.Forms.CheckBox()
Me.UsrCntlKundenBesonderheiten1 = New SDL.usrCntlKundenBesonderheiten()
Me.tbcntrAbf = New System.Windows.Forms.TabControl() Me.tbcntrAbf = New System.Windows.Forms.TabControl()
Me.TabPage4 = New System.Windows.Forms.TabPage() Me.TabPage4 = New System.Windows.Forms.TabPage()
Me.FlowLayoutPanel1 = New System.Windows.Forms.FlowLayoutPanel() Me.FlowLayoutPanel1 = New System.Windows.Forms.FlowLayoutPanel()
Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung()
Me.rtbLKWFreigabeSenden = New System.Windows.Forms.RichTextBox() Me.rtbLKWFreigabeSenden = New System.Windows.Forms.RichTextBox()
Me.Label18 = New System.Windows.Forms.Label() Me.Label18 = New System.Windows.Forms.Label()
Me.TabPage3 = New System.Windows.Forms.TabPage() Me.TabPage3 = New System.Windows.Forms.TabPage()
@@ -76,7 +77,6 @@ Partial Class usrcntlKundeBearbeitenFull
Me.cboAbfVerb_Abfertigungsverbot = New System.Windows.Forms.CheckBox() Me.cboAbfVerb_Abfertigungsverbot = New System.Windows.Forms.CheckBox()
Me.txtAbfVerb_AbfertigungsverbotSeit = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtAbfVerb_AbfertigungsverbotSeit = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.tbAufschub = New System.Windows.Forms.TabPage() Me.tbAufschub = New System.Windows.Forms.TabPage()
Me.usrCntlAufschubkonten = New SDL.usrCntlAufschubkonten()
Me.TabPage1 = New System.Windows.Forms.TabPage() Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.Label78 = New System.Windows.Forms.Label() Me.Label78 = New System.Windows.Forms.Label()
Me.cbxAbf_ZollVM = New System.Windows.Forms.CheckBox() Me.cbxAbf_ZollVM = New System.Windows.Forms.CheckBox()
@@ -101,7 +101,6 @@ Partial Class usrcntlKundeBearbeitenFull
Me.rtbAbf_Besonderheiten = New System.Windows.Forms.RichTextBox() Me.rtbAbf_Besonderheiten = New System.Windows.Forms.RichTextBox()
Me.Panel1 = New System.Windows.Forms.Panel() Me.Panel1 = New System.Windows.Forms.Panel()
Me.tbFiskal = New System.Windows.Forms.TabPage() Me.tbFiskal = New System.Windows.Forms.TabPage()
Me.UsrCntlKundeFiskaldaten1 = New SDL.usrCntlKundeFiskaldaten()
Me.tbVerrechnung = New System.Windows.Forms.TabPage() Me.tbVerrechnung = New System.Windows.Forms.TabPage()
Me.Panel2 = New System.Windows.Forms.Panel() Me.Panel2 = New System.Windows.Forms.Panel()
Me.Label115 = New System.Windows.Forms.Label() Me.Label115 = New System.Windows.Forms.Label()
@@ -277,7 +276,6 @@ Partial Class usrcntlKundeBearbeitenFull
Me.Label113 = New System.Windows.Forms.Label() Me.Label113 = New System.Windows.Forms.Label()
Me.Label112 = New System.Windows.Forms.Label() Me.Label112 = New System.Windows.Forms.Label()
Me.dgvIDS_Rabatte = New System.Windows.Forms.DataGridView() Me.dgvIDS_Rabatte = New System.Windows.Forms.DataGridView()
Me.lblIDS_Rabatte = New System.Windows.Forms.Label()
Me.txtSumVerag = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtSumVerag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtSonst_KdNrVerag = New System.Windows.Forms.TextBox() Me.txtSonst_KdNrVerag = New System.Windows.Forms.TextBox()
Me.Label110 = New System.Windows.Forms.Label() Me.Label110 = New System.Windows.Forms.Label()
@@ -389,7 +387,6 @@ Partial Class usrcntlKundeBearbeitenFull
Me.tbKontakt = New System.Windows.Forms.TabControl() Me.tbKontakt = New System.Windows.Forms.TabControl()
Me.TabPage10 = New System.Windows.Forms.TabPage() Me.TabPage10 = New System.Windows.Forms.TabPage()
Me.TabPage11 = New System.Windows.Forms.TabPage() Me.TabPage11 = New System.Windows.Forms.TabPage()
Me.ucKundenKontakte = New SDL.usrCntlKundenKontakte()
Me.Label50 = New System.Windows.Forms.Label() Me.Label50 = New System.Windows.Forms.Label()
Me.Label68 = New System.Windows.Forms.Label() Me.Label68 = New System.Windows.Forms.Label()
Me.pnlNeukunde = New System.Windows.Forms.Panel() Me.pnlNeukunde = New System.Windows.Forms.Panel()
@@ -415,6 +412,18 @@ 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.TabControl1 = New System.Windows.Forms.TabControl()
Me.Standard = New System.Windows.Forms.TabPage()
Me.Kunden = New System.Windows.Forms.TabPage()
Me.dgvIDS_Standard = New System.Windows.Forms.DataGridView()
Me.cbx_IDS_inaktiveeinblenden = New System.Windows.Forms.CheckBox()
Me.PictureBox7 = New System.Windows.Forms.PictureBox()
Me.ucKundenKontakte = New SDL.usrCntlKundenKontakte()
Me.UsrCntlKundenBesonderheiten1 = New SDL.usrCntlKundenBesonderheiten()
Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung()
Me.usrCntlAufschubkonten = New SDL.usrCntlAufschubkonten()
Me.UsrCntlKundeFiskaldaten1 = New SDL.usrCntlKundeFiskaldaten()
Me.lblIDS_Rabatte = New System.Windows.Forms.Label()
Me.tbcntrDetails.SuspendLayout() Me.tbcntrDetails.SuspendLayout()
Me.tbAbfertigung.SuspendLayout() Me.tbAbfertigung.SuspendLayout()
Me.tbcntrAbf.SuspendLayout() Me.tbcntrAbf.SuspendLayout()
@@ -456,6 +465,11 @@ Partial Class usrcntlKundeBearbeitenFull
Me.TabPage11.SuspendLayout() Me.TabPage11.SuspendLayout()
Me.pnlNeukunde.SuspendLayout() Me.pnlNeukunde.SuspendLayout()
Me.cnsBankverbindungen.SuspendLayout() Me.cnsBankverbindungen.SuspendLayout()
Me.TabControl1.SuspendLayout()
Me.Standard.SuspendLayout()
Me.Kunden.SuspendLayout()
CType(Me.dgvIDS_Standard, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
'tbcntrDetails 'tbcntrDetails
@@ -601,16 +615,6 @@ Partial Class usrcntlKundeBearbeitenFull
Me.cbxBesonderheitenNEU.Text = "Besonderheiten NEU" Me.cbxBesonderheitenNEU.Text = "Besonderheiten NEU"
Me.cbxBesonderheitenNEU.UseVisualStyleBackColor = True Me.cbxBesonderheitenNEU.UseVisualStyleBackColor = True
' '
'UsrCntlKundenBesonderheiten1
'
Me.UsrCntlKundenBesonderheiten1.BackColor = System.Drawing.Color.White
Me.UsrCntlKundenBesonderheiten1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.UsrCntlKundenBesonderheiten1.Location = New System.Drawing.Point(6, 25)
Me.UsrCntlKundenBesonderheiten1.Name = "UsrCntlKundenBesonderheiten1"
Me.UsrCntlKundenBesonderheiten1.Size = New System.Drawing.Size(107, 52)
Me.UsrCntlKundenBesonderheiten1.TabIndex = 235
Me.UsrCntlKundenBesonderheiten1.Visible = False
'
'tbcntrAbf 'tbcntrAbf
' '
Me.tbcntrAbf.Controls.Add(Me.TabPage4) Me.tbcntrAbf.Controls.Add(Me.TabPage4)
@@ -645,15 +649,6 @@ Partial Class usrcntlKundeBearbeitenFull
Me.FlowLayoutPanel1.Size = New System.Drawing.Size(200, 100) Me.FlowLayoutPanel1.Size = New System.Drawing.Size(200, 100)
Me.FlowLayoutPanel1.TabIndex = 7 Me.FlowLayoutPanel1.TabIndex = 7
' '
'UsrCntlKundenAvisoMailBenachrichtigung1
'
Me.UsrCntlKundenAvisoMailBenachrichtigung1.AutoScroll = True
Me.UsrCntlKundenAvisoMailBenachrichtigung1.BackColor = System.Drawing.Color.White
Me.UsrCntlKundenAvisoMailBenachrichtigung1.Location = New System.Drawing.Point(0, 6)
Me.UsrCntlKundenAvisoMailBenachrichtigung1.Name = "UsrCntlKundenAvisoMailBenachrichtigung1"
Me.UsrCntlKundenAvisoMailBenachrichtigung1.Size = New System.Drawing.Size(479, 172)
Me.UsrCntlKundenAvisoMailBenachrichtigung1.TabIndex = 6
'
'rtbLKWFreigabeSenden 'rtbLKWFreigabeSenden
' '
Me.rtbLKWFreigabeSenden.Location = New System.Drawing.Point(485, 33) Me.rtbLKWFreigabeSenden.Location = New System.Drawing.Point(485, 33)
@@ -822,14 +817,6 @@ Partial Class usrcntlKundeBearbeitenFull
Me.tbAufschub.Text = "Aufschubkonten" Me.tbAufschub.Text = "Aufschubkonten"
Me.tbAufschub.UseVisualStyleBackColor = True Me.tbAufschub.UseVisualStyleBackColor = True
' '
'usrCntlAufschubkonten
'
Me.usrCntlAufschubkonten.Dock = System.Windows.Forms.DockStyle.Fill
Me.usrCntlAufschubkonten.Location = New System.Drawing.Point(3, 3)
Me.usrCntlAufschubkonten.Name = "usrCntlAufschubkonten"
Me.usrCntlAufschubkonten.Size = New System.Drawing.Size(652, 172)
Me.usrCntlAufschubkonten.TabIndex = 0
'
'TabPage1 'TabPage1
' '
Me.TabPage1.Controls.Add(Me.Label78) Me.TabPage1.Controls.Add(Me.Label78)
@@ -1135,15 +1122,6 @@ Partial Class usrcntlKundeBearbeitenFull
Me.tbFiskal.Text = "Fiskal" Me.tbFiskal.Text = "Fiskal"
Me.tbFiskal.UseVisualStyleBackColor = True Me.tbFiskal.UseVisualStyleBackColor = True
' '
'UsrCntlKundeFiskaldaten1
'
Me.UsrCntlKundeFiskaldaten1.BackColor = System.Drawing.Color.White
Me.UsrCntlKundeFiskaldaten1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlKundeFiskaldaten1.Location = New System.Drawing.Point(0, 0)
Me.UsrCntlKundeFiskaldaten1.Name = "UsrCntlKundeFiskaldaten1"
Me.UsrCntlKundeFiskaldaten1.Size = New System.Drawing.Size(672, 495)
Me.UsrCntlKundeFiskaldaten1.TabIndex = 0
'
'tbVerrechnung 'tbVerrechnung
' '
Me.tbVerrechnung.Controls.Add(Me.Panel2) Me.tbVerrechnung.Controls.Add(Me.Panel2)
@@ -3219,8 +3197,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)) DataGridViewCellStyle38.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 = DataGridViewCellStyle38
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)
@@ -3319,8 +3297,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)) DataGridViewCellStyle39.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 = DataGridViewCellStyle39
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)
@@ -3495,40 +3473,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)) DataGridViewCellStyle40.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 = DataGridViewCellStyle40
Me.dgvKreditkarten.BackgroundColor = System.Drawing.Color.White Me.dgvKreditkarten.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle41.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle41.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)) DataGridViewCellStyle41.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 DataGridViewCellStyle41.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle41.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle41.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle41.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4 Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle41
Me.dgvKreditkarten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvKreditkarten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle42.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle42.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)) DataGridViewCellStyle42.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 DataGridViewCellStyle42.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle42.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle42.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle42.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle5 Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle42
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 DataGridViewCellStyle43.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle43.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)) DataGridViewCellStyle43.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 DataGridViewCellStyle43.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle43.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle43.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle43.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle6 Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle43
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)) DataGridViewCellStyle44.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle7 Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle44
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)
@@ -3608,26 +3586,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)) DataGridViewCellStyle45.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 = DataGridViewCellStyle45
Me.dgvMWST.BackgroundColor = System.Drawing.Color.White Me.dgvMWST.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle46.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle46.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)) DataGridViewCellStyle46.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 DataGridViewCellStyle46.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle46.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle46.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle46.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvMWST.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle9 Me.dgvMWST.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle46
Me.dgvMWST.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvMWST.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle47.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle47.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)) DataGridViewCellStyle47.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 DataGridViewCellStyle47.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle47.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle47.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle47.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvMWST.DefaultCellStyle = DataGridViewCellStyle10 Me.dgvMWST.DefaultCellStyle = DataGridViewCellStyle47
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)
@@ -3712,26 +3690,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)) DataGridViewCellStyle48.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11 Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle48
Me.dgvUstv_LaenderUndSteuernummern.BackgroundColor = System.Drawing.Color.White Me.dgvUstv_LaenderUndSteuernummern.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle49.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle49.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)) DataGridViewCellStyle49.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 DataGridViewCellStyle49.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle49.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle49.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle49.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle12 Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle49
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 DataGridViewCellStyle50.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle50.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)) DataGridViewCellStyle50.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 DataGridViewCellStyle50.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle50.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle50.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle50.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvUstv_LaenderUndSteuernummern.DefaultCellStyle = DataGridViewCellStyle13 Me.dgvUstv_LaenderUndSteuernummern.DefaultCellStyle = DataGridViewCellStyle50
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)
@@ -3867,12 +3845,14 @@ Partial Class usrcntlKundeBearbeitenFull
' '
'tbSonstiges 'tbSonstiges
' '
Me.tbSonstiges.Controls.Add(Me.lblIDS_Rabatte)
Me.tbSonstiges.Controls.Add(Me.PictureBox7)
Me.tbSonstiges.Controls.Add(Me.cbx_IDS_inaktiveeinblenden)
Me.tbSonstiges.Controls.Add(Me.TabControl1)
Me.tbSonstiges.Controls.Add(Me.cbxCSInsolvent) Me.tbSonstiges.Controls.Add(Me.cbxCSInsolvent)
Me.tbSonstiges.Controls.Add(Me.cbxCS_Added) Me.tbSonstiges.Controls.Add(Me.cbxCS_Added)
Me.tbSonstiges.Controls.Add(Me.Label113) Me.tbSonstiges.Controls.Add(Me.Label113)
Me.tbSonstiges.Controls.Add(Me.Label112) Me.tbSonstiges.Controls.Add(Me.Label112)
Me.tbSonstiges.Controls.Add(Me.dgvIDS_Rabatte)
Me.tbSonstiges.Controls.Add(Me.lblIDS_Rabatte)
Me.tbSonstiges.Controls.Add(Me.txtSumVerag) Me.tbSonstiges.Controls.Add(Me.txtSumVerag)
Me.tbSonstiges.Controls.Add(Me.txtSonst_KdNrVerag) Me.tbSonstiges.Controls.Add(Me.txtSonst_KdNrVerag)
Me.tbSonstiges.Controls.Add(Me.Label110) Me.tbSonstiges.Controls.Add(Me.Label110)
@@ -3960,42 +3940,32 @@ 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
DataGridViewCellStyle14.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) DataGridViewCellStyle32.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvIDS_Rabatte.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14 Me.dgvIDS_Rabatte.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle32
Me.dgvIDS_Rabatte.BackgroundColor = System.Drawing.Color.White Me.dgvIDS_Rabatte.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle33.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle33.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)) DataGridViewCellStyle33.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 DataGridViewCellStyle33.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle33.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle33.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle33.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvIDS_Rabatte.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle15 Me.dgvIDS_Rabatte.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle33
Me.dgvIDS_Rabatte.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvIDS_Rabatte.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle34.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle34.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)) DataGridViewCellStyle34.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 DataGridViewCellStyle34.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle34.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle34.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle34.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvIDS_Rabatte.DefaultCellStyle = DataGridViewCellStyle16 Me.dgvIDS_Rabatte.DefaultCellStyle = DataGridViewCellStyle34
Me.dgvIDS_Rabatte.Location = New System.Drawing.Point(9, 317) Me.dgvIDS_Rabatte.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvIDS_Rabatte.MultiSelect = False Me.dgvIDS_Rabatte.Location = New System.Drawing.Point(3, 3)
Me.dgvIDS_Rabatte.Name = "dgvIDS_Rabatte" Me.dgvIDS_Rabatte.Name = "dgvIDS_Rabatte"
Me.dgvIDS_Rabatte.Size = New System.Drawing.Size(657, 172) Me.dgvIDS_Rabatte.Size = New System.Drawing.Size(645, 169)
Me.dgvIDS_Rabatte.TabIndex = 34 Me.dgvIDS_Rabatte.TabIndex = 34
' '
'lblIDS_Rabatte
'
Me.lblIDS_Rabatte.AutoSize = True
Me.lblIDS_Rabatte.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblIDS_Rabatte.Location = New System.Drawing.Point(7, 301)
Me.lblIDS_Rabatte.Name = "lblIDS_Rabatte"
Me.lblIDS_Rabatte.Size = New System.Drawing.Size(100, 13)
Me.lblIDS_Rabatte.TabIndex = 33
Me.lblIDS_Rabatte.Text = "IDS-Rabatte/Preise"
'
'txtSumVerag 'txtSumVerag
' '
Me.txtSumVerag._DateTimeOnly = False Me.txtSumVerag._DateTimeOnly = False
@@ -4109,7 +4079,7 @@ Partial Class usrcntlKundeBearbeitenFull
' '
Me.Label76.AutoSize = True Me.Label76.AutoSize = True
Me.Label76.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label76.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label76.Location = New System.Drawing.Point(7, 192) Me.Label76.Location = New System.Drawing.Point(24, 194)
Me.Label76.Name = "Label76" Me.Label76.Name = "Label76"
Me.Label76.Size = New System.Drawing.Size(65, 13) Me.Label76.Size = New System.Drawing.Size(65, 13)
Me.Label76.TabIndex = 17 Me.Label76.TabIndex = 17
@@ -4120,30 +4090,30 @@ 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
DataGridViewCellStyle17.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) DataGridViewCellStyle35.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17 Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle35
Me.dgvSonst_IDSKunden.BackgroundColor = System.Drawing.Color.White Me.dgvSonst_IDSKunden.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle36.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle36.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)) DataGridViewCellStyle36.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 DataGridViewCellStyle36.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle36.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle36.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle36.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvSonst_IDSKunden.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle18 Me.dgvSonst_IDSKunden.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle36
Me.dgvSonst_IDSKunden.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvSonst_IDSKunden.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle37.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle37.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)) DataGridViewCellStyle37.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 DataGridViewCellStyle37.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle37.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle37.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle37.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvSonst_IDSKunden.DefaultCellStyle = DataGridViewCellStyle19 Me.dgvSonst_IDSKunden.DefaultCellStyle = DataGridViewCellStyle37
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"
Me.dgvSonst_IDSKunden.Size = New System.Drawing.Size(657, 84) Me.dgvSonst_IDSKunden.Size = New System.Drawing.Size(657, 53)
Me.dgvSonst_IDSKunden.TabIndex = 18 Me.dgvSonst_IDSKunden.TabIndex = 18
' '
'cbxSonst_CsvAsfinag 'cbxSonst_CsvAsfinag
@@ -4450,26 +4420,26 @@ Partial Class usrcntlKundeBearbeitenFull
'DataGridView1 'DataGridView1
' '
Me.DataGridView1.AllowUserToResizeRows = False Me.DataGridView1.AllowUserToResizeRows = False
DataGridViewCellStyle20.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 = DataGridViewCellStyle20 Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle51
Me.DataGridView1.BackgroundColor = System.Drawing.Color.White Me.DataGridView1.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle21.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle52.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle21.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle52.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)) DataGridViewCellStyle52.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 DataGridViewCellStyle52.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle21.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle52.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle21.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle52.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle21.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle52.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.DataGridView1.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle21 Me.DataGridView1.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle52
Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle22.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle53.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle22.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle53.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)) DataGridViewCellStyle53.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 DataGridViewCellStyle53.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle22.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle53.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle22.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle53.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle22.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle53.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.DataGridView1.DefaultCellStyle = DataGridViewCellStyle22 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
@@ -4536,26 +4506,26 @@ Partial Class usrcntlKundeBearbeitenFull
' '
Me.dgvBankverbindungen.AllowUserToDeleteRows = False Me.dgvBankverbindungen.AllowUserToDeleteRows = False
Me.dgvBankverbindungen.AllowUserToResizeRows = False Me.dgvBankverbindungen.AllowUserToResizeRows = False
DataGridViewCellStyle23.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 = DataGridViewCellStyle23 Me.dgvBankverbindungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle54
Me.dgvBankverbindungen.BackgroundColor = System.Drawing.Color.White Me.dgvBankverbindungen.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle24.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle55.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle24.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle55.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)) DataGridViewCellStyle55.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 DataGridViewCellStyle55.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle24.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle55.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle24.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle55.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle24.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle55.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvBankverbindungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle24 Me.dgvBankverbindungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle55
Me.dgvBankverbindungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvBankverbindungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle25.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle56.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle25.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle56.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)) DataGridViewCellStyle56.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 DataGridViewCellStyle56.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle25.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle56.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle25.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle56.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle25.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle56.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvBankverbindungen.DefaultCellStyle = DataGridViewCellStyle25 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"
@@ -5396,14 +5366,6 @@ Partial Class usrcntlKundeBearbeitenFull
Me.TabPage11.Text = "Spezifisch" Me.TabPage11.Text = "Spezifisch"
Me.TabPage11.UseVisualStyleBackColor = True Me.TabPage11.UseVisualStyleBackColor = True
' '
'ucKundenKontakte
'
Me.ucKundenKontakte.Dock = System.Windows.Forms.DockStyle.Fill
Me.ucKundenKontakte.Location = New System.Drawing.Point(3, 3)
Me.ucKundenKontakte.Name = "ucKundenKontakte"
Me.ucKundenKontakte.Size = New System.Drawing.Size(439, 169)
Me.ucKundenKontakte.TabIndex = 0
'
'Label50 'Label50
' '
Me.Label50.AutoSize = True Me.Label50.AutoSize = True
@@ -5684,6 +5646,145 @@ Partial Class usrcntlKundeBearbeitenFull
Me.DataGridViewTextBoxColumn2.HeaderText = "E-Mail" Me.DataGridViewTextBoxColumn2.HeaderText = "E-Mail"
Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
' '
'TabControl1
'
Me.TabControl1.Controls.Add(Me.Standard)
Me.TabControl1.Controls.Add(Me.Kunden)
Me.TabControl1.Location = New System.Drawing.Point(6, 288)
Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0
Me.TabControl1.Size = New System.Drawing.Size(659, 201)
Me.TabControl1.TabIndex = 40
'
'Standard
'
Me.Standard.Controls.Add(Me.dgvIDS_Standard)
Me.Standard.Location = New System.Drawing.Point(4, 22)
Me.Standard.Name = "Standard"
Me.Standard.Padding = New System.Windows.Forms.Padding(3)
Me.Standard.Size = New System.Drawing.Size(651, 175)
Me.Standard.TabIndex = 0
Me.Standard.Text = "Standardpreise"
Me.Standard.UseVisualStyleBackColor = True
'
'Kunden
'
Me.Kunden.Controls.Add(Me.dgvIDS_Rabatte)
Me.Kunden.Location = New System.Drawing.Point(4, 22)
Me.Kunden.Name = "Kunden"
Me.Kunden.Padding = New System.Windows.Forms.Padding(3)
Me.Kunden.Size = New System.Drawing.Size(651, 175)
Me.Kunden.TabIndex = 1
Me.Kunden.Text = "Kundenpreise"
Me.Kunden.UseVisualStyleBackColor = True
'
'dgvIDS_Standard
'
Me.dgvIDS_Standard.AllowUserToAddRows = False
Me.dgvIDS_Standard.AllowUserToDeleteRows = False
Me.dgvIDS_Standard.AllowUserToResizeRows = False
DataGridViewCellStyle29.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvIDS_Standard.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle29
Me.dgvIDS_Standard.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle30.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle30.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle30.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle30.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle30.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle30.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle30.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvIDS_Standard.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle30
Me.dgvIDS_Standard.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle31.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle31.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle31.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle31.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle31.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle31.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle31.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvIDS_Standard.DefaultCellStyle = DataGridViewCellStyle31
Me.dgvIDS_Standard.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvIDS_Standard.Location = New System.Drawing.Point(3, 3)
Me.dgvIDS_Standard.Name = "dgvIDS_Standard"
Me.dgvIDS_Standard.Size = New System.Drawing.Size(645, 169)
Me.dgvIDS_Standard.TabIndex = 35
'
'cbx_IDS_inaktiveeinblenden
'
Me.cbx_IDS_inaktiveeinblenden.AutoSize = True
Me.cbx_IDS_inaktiveeinblenden.Location = New System.Drawing.Point(9, 194)
Me.cbx_IDS_inaktiveeinblenden.Name = "cbx_IDS_inaktiveeinblenden"
Me.cbx_IDS_inaktiveeinblenden.Size = New System.Drawing.Size(15, 14)
Me.cbx_IDS_inaktiveeinblenden.TabIndex = 41
Me.cbx_IDS_inaktiveeinblenden.UseVisualStyleBackColor = True
'
'PictureBox7
'
Me.PictureBox7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.PictureBox7.Image = Global.SDL.My.Resources.Resources.Excel_logo
Me.PictureBox7.Location = New System.Drawing.Point(645, 273)
Me.PictureBox7.Name = "PictureBox7"
Me.PictureBox7.Size = New System.Drawing.Size(20, 20)
Me.PictureBox7.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.PictureBox7.TabIndex = 146
Me.PictureBox7.TabStop = False
'
'ucKundenKontakte
'
Me.ucKundenKontakte.Dock = System.Windows.Forms.DockStyle.Fill
Me.ucKundenKontakte.Location = New System.Drawing.Point(3, 3)
Me.ucKundenKontakte.Name = "ucKundenKontakte"
Me.ucKundenKontakte.Size = New System.Drawing.Size(439, 169)
Me.ucKundenKontakte.TabIndex = 0
'
'UsrCntlKundenBesonderheiten1
'
Me.UsrCntlKundenBesonderheiten1.BackColor = System.Drawing.Color.White
Me.UsrCntlKundenBesonderheiten1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.UsrCntlKundenBesonderheiten1.Location = New System.Drawing.Point(6, 25)
Me.UsrCntlKundenBesonderheiten1.Name = "UsrCntlKundenBesonderheiten1"
Me.UsrCntlKundenBesonderheiten1.Size = New System.Drawing.Size(107, 52)
Me.UsrCntlKundenBesonderheiten1.TabIndex = 235
Me.UsrCntlKundenBesonderheiten1.Visible = False
'
'UsrCntlKundenAvisoMailBenachrichtigung1
'
Me.UsrCntlKundenAvisoMailBenachrichtigung1.AutoScroll = True
Me.UsrCntlKundenAvisoMailBenachrichtigung1.BackColor = System.Drawing.Color.White
Me.UsrCntlKundenAvisoMailBenachrichtigung1.Location = New System.Drawing.Point(0, 6)
Me.UsrCntlKundenAvisoMailBenachrichtigung1.Name = "UsrCntlKundenAvisoMailBenachrichtigung1"
Me.UsrCntlKundenAvisoMailBenachrichtigung1.Size = New System.Drawing.Size(479, 172)
Me.UsrCntlKundenAvisoMailBenachrichtigung1.TabIndex = 6
'
'usrCntlAufschubkonten
'
Me.usrCntlAufschubkonten.Dock = System.Windows.Forms.DockStyle.Fill
Me.usrCntlAufschubkonten.Location = New System.Drawing.Point(3, 3)
Me.usrCntlAufschubkonten.Name = "usrCntlAufschubkonten"
Me.usrCntlAufschubkonten.Size = New System.Drawing.Size(652, 172)
Me.usrCntlAufschubkonten.TabIndex = 0
'
'UsrCntlKundeFiskaldaten1
'
Me.UsrCntlKundeFiskaldaten1.BackColor = System.Drawing.Color.White
Me.UsrCntlKundeFiskaldaten1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlKundeFiskaldaten1.Location = New System.Drawing.Point(0, 0)
Me.UsrCntlKundeFiskaldaten1.Name = "UsrCntlKundeFiskaldaten1"
Me.UsrCntlKundeFiskaldaten1.Size = New System.Drawing.Size(672, 495)
Me.UsrCntlKundeFiskaldaten1.TabIndex = 0
'
'lblIDS_Rabatte
'
Me.lblIDS_Rabatte.AutoSize = True
Me.lblIDS_Rabatte.Enabled = False
Me.lblIDS_Rabatte.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblIDS_Rabatte.Location = New System.Drawing.Point(10, 273)
Me.lblIDS_Rabatte.Name = "lblIDS_Rabatte"
Me.lblIDS_Rabatte.Size = New System.Drawing.Size(100, 13)
Me.lblIDS_Rabatte.TabIndex = 147
Me.lblIDS_Rabatte.Text = "IDS-Rabatte/Preise"
Me.lblIDS_Rabatte.Visible = False
'
'usrcntlKundeBearbeitenFull 'usrcntlKundeBearbeitenFull
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -5783,6 +5884,11 @@ Partial Class usrcntlKundeBearbeitenFull
Me.pnlNeukunde.ResumeLayout(False) Me.pnlNeukunde.ResumeLayout(False)
Me.pnlNeukunde.PerformLayout() Me.pnlNeukunde.PerformLayout()
Me.cnsBankverbindungen.ResumeLayout(False) Me.cnsBankverbindungen.ResumeLayout(False)
Me.TabControl1.ResumeLayout(False)
Me.Standard.ResumeLayout(False)
Me.Kunden.ResumeLayout(False)
CType(Me.dgvIDS_Standard, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@@ -6138,7 +6244,6 @@ Partial Class usrcntlKundeBearbeitenFull
Friend WithEvents txtFR As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtFR As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents cbxFR As CheckBox Friend WithEvents cbxFR As CheckBox
Friend WithEvents dgvIDS_Rabatte As DataGridView Friend WithEvents dgvIDS_Rabatte As DataGridView
Friend WithEvents lblIDS_Rabatte As Label
Friend WithEvents Label113 As Label Friend WithEvents Label113 As Label
Friend WithEvents Label112 As Label Friend WithEvents Label112 As Label
Friend WithEvents Label111 As Label Friend WithEvents Label111 As Label
@@ -6154,4 +6259,11 @@ Partial Class usrcntlKundeBearbeitenFull
Friend WithEvents cbxProvDL As CheckBox Friend WithEvents cbxProvDL As CheckBox
Friend WithEvents Label115 As Label Friend WithEvents Label115 As Label
Friend WithEvents btnKKSave As Button Friend WithEvents btnKKSave As Button
Friend WithEvents TabControl1 As TabControl
Friend WithEvents Standard As TabPage
Friend WithEvents Kunden As TabPage
Friend WithEvents dgvIDS_Standard As DataGridView
Friend WithEvents cbx_IDS_inaktiveeinblenden As CheckBox
Friend WithEvents PictureBox7 As PictureBox
Friend WithEvents lblIDS_Rabatte As Label
End Class End Class

87
SDL/kunden/usrcntlKundeBearbeitenFull.vb
View File

@@ -2180,13 +2180,13 @@ Public Class usrcntlKundeBearbeitenFull
Private Sub initdgvIDSKunden() Private Sub initdgvIDSKunden(inaktive_einblenden As Boolean)
With dgvSonst_IDSKunden With dgvSonst_IDSKunden
cBinding_dgvSonst_IDSKunden.initBinding(" SELECT [KdNrVERAG],[CustomerCode],[KdNrAlt],[Zeitstempel],[Sachbearbeiter] " & cBinding_dgvSonst_IDSKunden.initBinding(" SELECT [KdNrVERAG],[CustomerCode],[KdNrAlt],[Zeitstempel],[Sachbearbeiter] " &
" FROM [tbl_IDS_Kunden] " & " FROM [tbl_IDS_Kunden] " &
" WHERE KdNrVERAG = '" & KUNDE.KundenNr & "' ", "tbl_IDS_Kunden") " WHERE KdNrVERAG = '" & KUNDE.KundenNr & "'" & IIf(Not inaktive_einblenden, " AND isnull(KdNrAlt,0) <> 1 ", ""), "tbl_IDS_Kunden")
AddHandler btnSonstAendSpeichern.Click, AddHandler btnSonstAendSpeichern.Click,
Sub(send As Object, evnt As EventArgs) Sub(send As Object, evnt As EventArgs)
@@ -2228,19 +2228,18 @@ Public Class usrcntlKundeBearbeitenFull
End Sub End Sub
Private Sub initdgvIDSRabatte() Private Function initdgvIDSRabatte() As DataTable
Dim KundeOhneRabatt As Integer = CInt(sql.getValueTxtBySql("select count(*) from tbl_IDS_Kunden_ohne_Rabatt where CustomerCode = " & KUNDE.KundenNr, "FMZOLL")) Dim dt_IDS_Rabatte As DataTable = sql.loadDgvBySql("SELECT P.ProductDescription, C.OutletCountry, S.OutletName, RW.Rechenwert, Kz, RW.KategorieNr as KatNr FROM [VERAG].[dbo].[tbl_IDS_Rechenwerte] as RW
lblIDS_Rabatte.Text = "IDS-Rabatte/Preise" & IIf(KundeOhneRabatt > 0, " - KUNDE OHNE RABATT", "") left join [VERAG].[dbo].[tbl_IDS_Produkte] as P on P.ProductTypeCode = RW.ProductTypeCode
left join [VERAG].[dbo].[tbl_IDS_Länder] as C on C.OutletCountryCode = RW.OutletCountryCode
left join [VERAG].[dbo].[tbl_IDS_Stationen] as S on S.[OutletCode] = RW.OutletCode where CustomerCode =" & KUNDE.KundenNr & " AND RW.Rechenwert <> 0 order by Kz", "FMZOLL")
With dgvIDS_Rabatte With dgvIDS_Rabatte
.DataSource = sql.loadDgvBySql("SELECT P.ProductDescription, C.OutletCountry, S.OutletName, RW.Rechenwert, Kz, RW.KategorieNr as KatNr FROM [VERAG].[dbo].[tbl_IDS_Rechenwerte] as RW .DataSource = dt_IDS_Rabatte
left join [VERAG].[dbo].[tbl_IDS_Produkte] as P on P.ProductTypeCode = RW.ProductTypeCode
left join [VERAG].[dbo].[tbl_IDS_Länder] as C on C.OutletCountryCode = RW.OutletCountryCode
left join [VERAG].[dbo].[tbl_IDS_Stationen] as S on S.[OutletCode] = RW.OutletCode where CustomerCode =" & KUNDE.KundenNr, "FMZOLL")
.ReadOnly = True .ReadOnly = True
@@ -2253,7 +2252,38 @@ Public Class usrcntlKundeBearbeitenFull
End With End With
End Sub Return dt_IDS_Rabatte
End Function
Private Function initdgvIDSPreise() As DataTable
Dim KundeOhneRabatt As Integer = CInt(sql.getValueTxtBySql("select count(*) from tbl_IDS_Kunden_ohne_Rabatt where CustomerCode = " & KUNDE.KundenNr, "FMZOLL"))
lblIDS_Rabatte.Text = "IDS-Rabatte/Preise" & IIf(KundeOhneRabatt > 0, " - KUNDE OHNE RABATT", "")
Dim dt_IDS As DataTable = sql.loadDgvBySql("SELECT P.ProductDescription, C.OutletCountry, S.OutletName, RW.Rechenwert, Kz, RW.KategorieNr as KatNr FROM [VERAG].[dbo].[tbl_IDS_Rechenwerte] as RW
left join [VERAG].[dbo].[tbl_IDS_Produkte] as P on P.ProductTypeCode = RW.ProductTypeCode
left join [VERAG].[dbo].[tbl_IDS_Länder] as C on C.OutletCountryCode = RW.OutletCountryCode
left join [VERAG].[dbo].[tbl_IDS_Stationen] as S on S.[OutletCode] = RW.OutletCode where CustomerCode is null and RW.Rechenwert <> 0 order by KZ", "FMZOLL")
With dgvIDS_Standard
.DataSource = dt_IDS
.ReadOnly = True
.Columns(0).HeaderText = "Produkt"
.Columns(1).HeaderText = "Land"
.Columns(2).HeaderText = "Station"
.Columns(4).HeaderText = "Rabatt/Preis"
.Columns(2).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
End With
Return dt_IDS
End Function
Private Sub initdgvOP() Private Sub initdgvOP()
@@ -2362,8 +2392,8 @@ Public Class usrcntlKundeBearbeitenFull
End If End If
If tbcntrDetails.SelectedTab Is tbSonstiges Then If tbcntrDetails.SelectedTab Is tbSonstiges Then
initdgvIDSKunden() initdgvIDSKunden(False)
initdgvIDSRabatte() initdgvIDSPreise()
End If End If
If tbcntrDetails.SelectedTab Is tbBankverbindungen Then If tbcntrDetails.SelectedTab Is tbBankverbindungen Then
@@ -2380,7 +2410,7 @@ Public Class usrcntlKundeBearbeitenFull
Dim aktiveSteuerNr As Integer = CInt((New SQL).getValueTxtBySql(sqlStringSteuerNr, "FMZOLL")) Dim aktiveSteuerNr As Integer = CInt((New SQL).getValueTxtBySql(sqlStringSteuerNr, "FMZOLL"))
If aktiveSteuerNr > 0 Then If aktiveSteuerNr > 0 Then
If vbYes = MsgBox("Der Kunde hat aktuell " & aktiveSteuerNr & " aktive Steuer-Nummern!" & vbNewLine & "Trotzdem setzen? ", vbYesNoCancel) Then If vbYes = MsgBox("Der Kunde hat aktuell " & aktiveSteuerNr & " aktive Steuernummern!" & vbNewLine & "Trotzdem setzen? ", vbYesNoCancel) Then
cbxkeineMWSt.Checked = True cbxkeineMWSt.Checked = True
Else Else
cbxkeineMWSt.Checked = False cbxkeineMWSt.Checked = False
@@ -2425,4 +2455,35 @@ Public Class usrcntlKundeBearbeitenFull
End Sub End Sub
Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged
Select Case TabControl1.SelectedIndex
Case 0
initdgvIDSPreise()
Case Else
initdgvIDSRabatte()
End Select
End Sub
Private Sub cbx_IDS_inaktiveeinblenden_CheckedChanged(sender As Object, e As EventArgs) Handles cbx_IDS_inaktiveeinblenden.CheckedChanged
initdgvIDSKunden(cbx_IDS_inaktiveeinblenden.Checked)
End Sub
Private Sub PictureBox7_Click(sender As Object, e As EventArgs) Handles PictureBox7.Click
Dim dt As New DataTable
Select Case TabControl1.SelectedIndex
Case 0
dt = initdgvIDSPreise()
Case Else
dt = initdgvIDSRabatte()
End Select
If dt.Rows.Count > 0 Then
VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt, {"D1:D" & (dt.Rows.Count + 1)}, False,,,,,, True)
End If
End Sub
End Class End Class

43
VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScanList.vb
View File

@@ -377,34 +377,39 @@ Public Class usrcntlPDFScanList
Try Try
Dim added = False Dim added = False
If e.Data.GetDataPresent(DataFormats.FileDrop) Then If DS IsNot Nothing Then
Dim files() As String = e.Data.GetData(DataFormats.FileDrop)
If files.Count > 1 Then If e.Data.GetDataPresent(DataFormats.FileDrop) Then
MsgBox("Nur eine Datei möglich!") Dim files() As String = e.Data.GetData(DataFormats.FileDrop)
ElseIf files.Count > 0 Then
If files(0) <> "" Then If files.Count > 1 Then
Dim fio As New System.IO.FileInfo(files(0)) MsgBox("Nur eine Datei möglich!")
If DS.uploadDataToDATENSERVER(files(0), fio.Name, ".pdf") Then ElseIf files.Count > 0 Then
If files(0) <> "" Then
Dim fio As New System.IO.FileInfo(files(0))
If DS.uploadDataToDATENSERVER(files(0), fio.Name, ".pdf") Then
RaiseEvent FileAdded(DS.da_id, DS.GET_TOP1_PATH, DS.da_name)
MsgBox("Dokument wurde hochgeladen.")
End If
End If
End If
ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then
Dim FilePath = VERAG_PROG_ALLGEMEIN.cProgramFunctions.EmAilAttach(e)
If FilePath <> "" Then
Dim fio As New System.IO.FileInfo(FilePath)
If DS.uploadDataToDATENSERVER(FilePath, fio.Name, ".pdf") Then
RaiseEvent FileAdded(DS.da_id, DS.GET_TOP1_PATH, DS.da_name) RaiseEvent FileAdded(DS.da_id, DS.GET_TOP1_PATH, DS.da_name)
MsgBox("Dokument wurde hochgeladen.") MsgBox("Dokument wurde hochgeladen.")
End If End If
End If End If
End If End If
ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then initPdf()
Dim FilePath = VERAG_PROG_ALLGEMEIN.cProgramFunctions.EmAilAttach(e)
If FilePath <> "" Then
Dim fio As New System.IO.FileInfo(FilePath)
If DS.uploadDataToDATENSERVER(FilePath, fio.Name, ".pdf") Then
RaiseEvent FileAdded(DS.da_id, DS.GET_TOP1_PATH, DS.da_name)
MsgBox("Dokument wurde hochgeladen.")
End If
End If
End If End If
initPdf()
Catch ex As Exception Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)