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

ustv, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-11-06 14:12:55 +01:00
parent 6eb8e559a4
commit 655614a6ee
9 changed files with 511 additions and 417 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
SDL/Fakturierung/cFakturierung.vb
View File

@@ -2327,34 +2327,26 @@ Public Class cFakturierung
rpt.lblLeistungUeberschrift.Alignment = GrapeCity.ActiveReports.Document.Section.TextAlignment.Left
Select Case RECHNUNG.RechnungSprache
' Case "EN"
' rpt.lblLeistungUeberschrift.Text = "Inv. No."
' rpt.lblAnzahlUeberschrift.Text = "OD days"
' rpt.lblSteuerpflichtigUeberschrift.Text = "Payment Amount"
' rpt.lblSteuerfreiUeberschrift.Text = "Default Interest"
' 'rpt.lbl_onlyZR_ZinsenUeberschrift.Text = "Interest p.a."
Case "EN"
' Case "TR"
rpt.txtSendungsdaten.Text = rpt.txtSendungsdaten.Text.Replace("NACHBERECHNUNG VON VERZUGSZINSEN", "CHARGING OF DEFAULT INTEREST")
rpt.txtSendungsdaten.Text = rpt.txtSendungsdaten.Text.Replace("Zahlungen von", "Payments from")
' rpt.lblLeistungUeberschrift.Text = "Belge"
' rpt.lblAnzahlUeberschrift.Text = "Günler"
' rpt.lblSteuerpflichtigUeberschrift.Text = "Ödeme tutarı"
' rpt.lblSteuerfreiUeberschrift.Text = "Geç ödeme faizi"
' ' rpt.lbl_onlyZR_ZinsenUeberschrift.Text = "Zinsen p.a."
Case "TR"
' Case "RO"
rpt.txtSendungsdaten.Text = rpt.txtSendungsdaten.Text.Replace("NACHBERECHNUNG VON VERZUGSZINSEN", "TEMERRÜT FAİZİNİN YENİDEN HESAPLANMASI")
rpt.txtSendungsdaten.Text = rpt.txtSendungsdaten.Text.Replace("Zahlungen von", "tarihleri ​​arasında yapılan ödemeler")
' rpt.lblLeistungUeberschrift.Text = "Nr. fact."
' rpt.lblAnzahlUeberschrift.Text = "Nr. zile"
' rpt.lblSteuerpflichtigUeberschrift.Text = "Suma de plata"
' rpt.lblSteuerfreiUeberschrift.Text = "Penalitati"
' 'rpt.lbl_onlyZR_ZinsenUeberschrift.Text = "Dobândă p.a."
Case "RO"
rpt.txtSendungsdaten.Text = rpt.txtSendungsdaten.Text.Replace("NACHBERECHNUNG VON VERZUGSZINSEN", "CALCUL MAJORARI PENTRU INTARZIERE LA PLATA")
rpt.txtSendungsdaten.Text = rpt.txtSendungsdaten.Text.Replace("Zahlungen von", "Perioda")
Case Else
rpt.lblLeistungUeberschrift.Text = "RENR"
rpt.lblAnzahlUeberschrift.Text = "VZ Tage"
rpt.lblSteuerpflichtigUeberschrift.Text = "Zahlungsbetrag"
rpt.lblSteuerpflichtigUeberschrift.Text = "Zahlungsbetrag"
rpt.lblSteuerfreiUeberschrift.Text = "Verzugszinsen"
'rpt.lbl_onlyZR_ZinsenUeberschrift.Text = "Zinsen p.a."
End Select
@@ -2363,13 +2355,11 @@ Public Class cFakturierung
rpt.lblSteuerpflichtigUeberschrift.Alignment = GrapeCity.ActiveReports.Document.Section.TextAlignment.Center
rpt.lblSteuerfreiUeberschrift.Alignment = GrapeCity.ActiveReports.Document.Section.TextAlignment.Right
rpt.lbl_onlyZR_ZinsenUeberschrift.Alignment = GrapeCity.ActiveReports.Document.Section.TextAlignment.Left
rpt.lbl_onlyZR_ZinsenUeberschrift.Alignment = GrapeCity.ActiveReports.Document.Section.TextAlignment.Center
rpt.lbl_onlyZR_ReDatUeberschrift.Visible = True
rpt.lbl_onlyZR_FaelligUeberschrift.Visible = True
rpt.lbl_onlyZR_ZinsenUeberschrift.Visible = True
rpt.lbl_onlyZR_ZahlungsDatUeberschrift.Visible = True
rpt.txtLeistung.Visible = False
Else

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

@@ -126,11 +126,11 @@ Partial Public Class rptRechnungDruck_MDM
Me.Line13 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line16 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line18 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.GroupFooter4 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.lblAbsenderUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblEmpfaengerUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtAbsender = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtEmpfaenger = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupFooter4 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
CType(Me.lblLeistungNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnzahl, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSteuerfrei, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -230,7 +230,7 @@ Partial Public Class rptRechnungDruck_MDM
'
Me.Detail.CanShrink = True
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblLeistungNr, Me.lblAnzahl, Me.lblSteuerfrei, Me.lblSteuerpflichtig, Me.txtLeistung, Me.Line10, Me.Line11, Me.SubReport})
Me.Detail.Height = 0.3901193!
Me.Detail.Height = 0.213036!
Me.Detail.KeepTogether = True
Me.Detail.Name = "Detail"
'
@@ -250,13 +250,13 @@ Partial Public Class rptRechnungDruck_MDM
'
Me.lblAnzahl.Height = 0.1574803!
Me.lblAnzahl.HyperLink = Nothing
Me.lblAnzahl.Left = 3.380315!
Me.lblAnzahl.Left = 3.883465!
Me.lblAnzahl.Name = "lblAnzahl"
Me.lblAnzahl.Style = "font-size: 9pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" &
"har-set: 1"
Me.lblAnzahl.Text = "999"
Me.lblAnzahl.Top = 0!
Me.lblAnzahl.Width = 0.5492127!
Me.lblAnzahl.Width = 0.4472442!
'
'lblSteuerfrei
'
@@ -273,12 +273,12 @@ Partial Public Class rptRechnungDruck_MDM
'
Me.lblSteuerpflichtig.Height = 0.1574803!
Me.lblSteuerpflichtig.HyperLink = Nothing
Me.lblSteuerpflichtig.Left = 3.957481!
Me.lblSteuerpflichtig.Left = 4.330709!
Me.lblSteuerpflichtig.Name = "lblSteuerpflichtig"
Me.lblSteuerpflichtig.Style = "font-size: 9pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblSteuerpflichtig.Text = "999.999,99"
Me.lblSteuerpflichtig.Top = 0!
Me.lblSteuerpflichtig.Width = 1.554331!
Me.lblSteuerpflichtig.Width = 1.181103!
'
'txtLeistung
'
@@ -289,7 +289,7 @@ Partial Public Class rptRechnungDruck_MDM
"ar-set: 1"
Me.txtLeistung.Text = "Verzollung inkl. 5 Tarifnummern"
Me.txtLeistung.Top = 0!
Me.txtLeistung.Width = 2.974803!
Me.txtLeistung.Width = 3.477953!
'
'Line10
'
@@ -1231,7 +1231,7 @@ Partial Public Class rptRechnungDruck_MDM
'
Me.lblLeistungUeberschrift.Height = 0.1511808!
Me.lblLeistungUeberschrift.HyperLink = Nothing
Me.lblLeistungUeberschrift.Left = 0.01417323!
Me.lblLeistungUeberschrift.Left = 0.003937008!
Me.lblLeistungUeberschrift.Name = "lblLeistungUeberschrift"
Me.lblLeistungUeberschrift.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
Me.lblLeistungUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
@@ -1267,21 +1267,21 @@ Partial Public Class rptRechnungDruck_MDM
'
Me.lbl_onlyZR_ZahlungsDatUeberschrift.Height = 0.1511808!
Me.lbl_onlyZR_ZahlungsDatUeberschrift.HyperLink = Nothing
Me.lbl_onlyZR_ZahlungsDatUeberschrift.Left = 2.492528!
Me.lbl_onlyZR_ZahlungsDatUeberschrift.Left = 2.629921!
Me.lbl_onlyZR_ZahlungsDatUeberschrift.Name = "lbl_onlyZR_ZahlungsDatUeberschrift"
Me.lbl_onlyZR_ZahlungsDatUeberschrift.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
Me.lbl_onlyZR_ZahlungsDatUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
"-set: 1"
Me.lbl_onlyZR_ZahlungsDatUeberschrift.Text = "Zahlung"
Me.lbl_onlyZR_ZahlungsDatUeberschrift.Top = 1.079378!
Me.lbl_onlyZR_ZahlungsDatUeberschrift.Top = 1.079528!
Me.lbl_onlyZR_ZahlungsDatUeberschrift.Visible = False
Me.lbl_onlyZR_ZahlungsDatUeberschrift.Width = 0.9661421!
'
'lbl_onlyZR_FaelligUeberschrift
'
Me.lbl_onlyZR_FaelligUeberschrift.Height = 0.1511808!
Me.lbl_onlyZR_FaelligUeberschrift.Height = 0.1511809!
Me.lbl_onlyZR_FaelligUeberschrift.HyperLink = Nothing
Me.lbl_onlyZR_FaelligUeberschrift.Left = 2.001584!
Me.lbl_onlyZR_FaelligUeberschrift.Left = 1.907874!
Me.lbl_onlyZR_FaelligUeberschrift.Name = "lbl_onlyZR_FaelligUeberschrift"
Me.lbl_onlyZR_FaelligUeberschrift.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
Me.lbl_onlyZR_FaelligUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
@@ -1289,11 +1289,11 @@ Partial Public Class rptRechnungDruck_MDM
Me.lbl_onlyZR_FaelligUeberschrift.Text = "F<EFBFBD>llig"
Me.lbl_onlyZR_FaelligUeberschrift.Top = 1.079378!
Me.lbl_onlyZR_FaelligUeberschrift.Visible = False
Me.lbl_onlyZR_FaelligUeberschrift.Width = 0.490945!
Me.lbl_onlyZR_FaelligUeberschrift.Width = 0.7220475!
'
'lbl_onlyZR_ReDatUeberschrift
'
Me.lbl_onlyZR_ReDatUeberschrift.Height = 0.1511807!
Me.lbl_onlyZR_ReDatUeberschrift.Height = 0.1511811!
Me.lbl_onlyZR_ReDatUeberschrift.HyperLink = Nothing
Me.lbl_onlyZR_ReDatUeberschrift.Left = 0.9362291!
Me.lbl_onlyZR_ReDatUeberschrift.Name = "lbl_onlyZR_ReDatUeberschrift"
@@ -1303,31 +1303,31 @@ Partial Public Class rptRechnungDruck_MDM
Me.lbl_onlyZR_ReDatUeberschrift.Text = "Datum"
Me.lbl_onlyZR_ReDatUeberschrift.Top = 1.080166!
Me.lbl_onlyZR_ReDatUeberschrift.Visible = False
Me.lbl_onlyZR_ReDatUeberschrift.Width = 1.065354!
Me.lbl_onlyZR_ReDatUeberschrift.Width = 0.984252!
'
'lblSteuerpflichtigUeberschrift
'
Me.lblSteuerpflichtigUeberschrift.Height = 0.1511808!
Me.lblSteuerpflichtigUeberschrift.Height = 0.1511811!
Me.lblSteuerpflichtigUeberschrift.HyperLink = Nothing
Me.lblSteuerpflichtigUeberschrift.Left = 3.957482!
Me.lblSteuerpflichtigUeberschrift.Left = 4.330709!
Me.lblSteuerpflichtigUeberschrift.Name = "lblSteuerpflichtigUeberschrift"
Me.lblSteuerpflichtigUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" &
"r-set: 1"
Me.lblSteuerpflichtigUeberschrift.Text = "Steuerpflichtig"
Me.lblSteuerpflichtigUeberschrift.Top = 1.079528!
Me.lblSteuerpflichtigUeberschrift.Width = 1.554331!
Me.lblSteuerpflichtigUeberschrift.Width = 1.181102!
'
'lblAnzahlUeberschrift
'
Me.lblAnzahlUeberschrift.Height = 0.1511807!
Me.lblAnzahlUeberschrift.Height = 0.1511811!
Me.lblAnzahlUeberschrift.HyperLink = Nothing
Me.lblAnzahlUeberschrift.Left = 3.45867!
Me.lblAnzahlUeberschrift.Left = 3.596063!
Me.lblAnzahlUeberschrift.Name = "lblAnzahlUeberschrift"
Me.lblAnzahlUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" &
"r-set: 1"
Me.lblAnzahlUeberschrift.Text = "Anzahl"
Me.lblAnzahlUeberschrift.Top = 1.079528!
Me.lblAnzahlUeberschrift.Width = 0.4988112!
Me.lblAnzahlUeberschrift.Width = 0.7346457!
'
'Line4
'
@@ -1336,7 +1336,7 @@ Partial Public Class rptRechnungDruck_MDM
Me.Line4.LineWeight = 1.0!
Me.Line4.Name = "Line4"
Me.Line4.Top = 1.230709!
Me.Line4.Width = 7.475194!
Me.Line4.Width = 7.475193!
Me.Line4.X1 = 0.005118821!
Me.Line4.X2 = 7.480312!
Me.Line4.Y1 = 1.230709!
@@ -1472,7 +1472,7 @@ Partial Public Class rptRechnungDruck_MDM
'
'Line13
'
Me.Line13.Height = 0.2043307!
Me.Line13.Height = 0.20433!
Me.Line13.Left = 7.476378!
Me.Line13.LineWeight = 1.0!
Me.Line13.Name = "Line13"
@@ -1498,7 +1498,7 @@ Partial Public Class rptRechnungDruck_MDM
'
'Line18
'
Me.Line18.Height = 0.2043306!
Me.Line18.Height = 0.204331!
Me.Line18.Left = 0.005118111!
Me.Line18.LineWeight = 1.0!
Me.Line18.Name = "Line18"
@@ -1509,11 +1509,6 @@ Partial Public Class rptRechnungDruck_MDM
Me.Line18.Y1 = 1.080315!
Me.Line18.Y2 = 1.284646!
'
'GroupFooter4
'
Me.GroupFooter4.Height = 0!
Me.GroupFooter4.Name = "GroupFooter4"
'
'lblAbsenderUeberschrift
'
Me.lblAbsenderUeberschrift.Height = 0.1574803!
@@ -1560,6 +1555,11 @@ Partial Public Class rptRechnungDruck_MDM
Me.txtEmpfaenger.Top = 0!
Me.txtEmpfaenger.Width = 2.659449!
'
'GroupFooter4
'
Me.GroupFooter4.Height = 0!
Me.GroupFooter4.Name = "GroupFooter4"
'
'rptRechnungDruck_MDM
'
Me.MasterReport = False

96
SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.Designer.vb generated
View File

@@ -19,6 +19,7 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(rptRechnungMDM_AnlagenDruck_Zinsennachberechnung))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.txt_Anmerkung = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtREnr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtReDat = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtZE = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
@@ -39,7 +40,7 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.GroupFooter4 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.Line18 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.txt_Anmerkung = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
CType(Me.txt_Anmerkung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtREnr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtReDat, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtZE, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -56,7 +57,6 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
CType(Me.lblZinsen, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblVZ, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txt_Anmerkung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
@@ -72,34 +72,47 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
Me.Detail.KeepTogether = True
Me.Detail.Name = "Detail"
'
'txt_Anmerkung
'
Me.txt_Anmerkung.Height = 0.1338583!
Me.txt_Anmerkung.Left = 1.893307!
Me.txt_Anmerkung.Name = "txt_Anmerkung"
Me.txt_Anmerkung.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
Me.txt_Anmerkung.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: center; ddo-ch" &
"ar-set: 0"
Me.txt_Anmerkung.Text = "-"
Me.txt_Anmerkung.Top = 0!
Me.txt_Anmerkung.Visible = False
Me.txt_Anmerkung.Width = 3.620866!
'
'txtREnr
'
Me.txtREnr.Height = 0.1338583!
Me.txtREnr.Left = 0.005119062!
Me.txtREnr.Left = 0.003937008!
Me.txtREnr.Name = "txtREnr"
Me.txtREnr.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
Me.txtREnr.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: center; ddo-ch" &
"ar-set: 0"
Me.txtREnr.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: left; ddo-char" &
"-set: 0"
Me.txtREnr.Text = "-"
Me.txtREnr.Top = 0!
Me.txtREnr.Width = 0.8244095!
Me.txtREnr.Width = 0.9220473!
'
'txtReDat
'
Me.txtReDat.Height = 0.1338583!
Me.txtReDat.Left = 0.9232284!
Me.txtReDat.Left = 0.9259843!
Me.txtReDat.Name = "txtReDat"
Me.txtReDat.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
Me.txtReDat.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: center; ddo-ch" &
"ar-set: 0"
Me.txtReDat.Text = "-"
Me.txtReDat.Top = 0!
Me.txtReDat.Width = 0.8657481!
Me.txtReDat.Width = 0.984252!
'
'txtZE
'
Me.txtZE.Height = 0.1338583!
Me.txtZE.Left = 2.405118!
Me.txtZE.Left = 2.632284!
Me.txtZE.Name = "txtZE"
Me.txtZE.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
Me.txtZE.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: center; ddo-ch" &
@@ -111,26 +124,26 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
'txtReBetrag
'
Me.txtReBetrag.Height = 0.1338583!
Me.txtReBetrag.Left = 3.948426!
Me.txtReBetrag.Left = 4.333071!
Me.txtReBetrag.Name = "txtReBetrag"
Me.txtReBetrag.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
Me.txtReBetrag.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: right; ddo-cha" &
"r-set: 0"
Me.txtReBetrag.Text = "-"
Me.txtReBetrag.Top = 0!
Me.txtReBetrag.Width = 0.9708654!
Me.txtReBetrag.Width = 0.8267719!
'
'txtTage
'
Me.txtTage.Height = 0.1338583!
Me.txtTage.Left = 3.37126!
Me.txtTage.Left = 3.598425!
Me.txtTage.Name = "txtTage"
Me.txtTage.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
Me.txtTage.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: right; ddo-cha" &
"r-set: 0"
Me.txtTage.Text = "-"
Me.txtTage.Top = 0!
Me.txtTage.Width = 0.5771654!
Me.txtTage.Width = 0.6618112!
'
'txtZinsen
'
@@ -147,7 +160,7 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
'txtVZ
'
Me.txtVZ.Height = 0.1338583!
Me.txtVZ.Left = 5.502756!
Me.txtVZ.Left = 5.514174!
Me.txtVZ.Name = "txtVZ"
Me.txtVZ.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
Me.txtVZ.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: center; ddo-ch" &
@@ -159,14 +172,14 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
'txtFaellig
'
Me.txtFaellig.Height = 0.1338583!
Me.txtFaellig.Left = 1.788977!
Me.txtFaellig.Left = 1.910236!
Me.txtFaellig.Name = "txtFaellig"
Me.txtFaellig.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
Me.txtFaellig.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: center; ddo-ch" &
"ar-set: 0"
Me.txtFaellig.Text = "-"
Me.txtFaellig.Top = 0!
Me.txtFaellig.Width = 0.6161416!
Me.txtFaellig.Width = 0.7220473!
'
'PageFooter
'
@@ -185,46 +198,46 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
'
Me.lblReNr.Height = 0.1433071!
Me.lblReNr.HyperLink = Nothing
Me.lblReNr.Left = 0.005118132!
Me.lblReNr.Left = 0.003937008!
Me.lblReNr.Name = "lblReNr"
Me.lblReNr.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" &
"har-set: 0"
Me.lblReNr.Text = "RechnungsNr"
Me.lblReNr.Top = 0!
Me.lblReNr.Visible = False
Me.lblReNr.Width = 0.8244095!
Me.lblReNr.Width = 0.9220473!
'
'lblReDat
'
Me.lblReDat.Height = 0.1433071!
Me.lblReDat.HyperLink = Nothing
Me.lblReDat.Left = 0.8295276!
Me.lblReDat.Left = 0.9259843!
Me.lblReDat.Name = "lblReDat"
Me.lblReDat.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" &
"har-set: 0"
Me.lblReDat.Text = "Rechnungsdatum"
Me.lblReDat.Top = 0!
Me.lblReDat.Visible = False
Me.lblReDat.Width = 1.084646!
Me.lblReDat.Width = 0.984252!
'
'lblReBetrag
'
Me.lblReBetrag.Height = 0.1433071!
Me.lblReBetrag.HyperLink = Nothing
Me.lblReBetrag.Left = 3.948426!
Me.lblReBetrag.Left = 4.333071!
Me.lblReBetrag.Name = "lblReBetrag"
Me.lblReBetrag.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" &
"har-set: 0"
Me.lblReBetrag.Text = "Zahlungsbetrag"
Me.lblReBetrag.Top = 0!
Me.lblReBetrag.Visible = False
Me.lblReBetrag.Width = 1.554331!
Me.lblReBetrag.Width = 1.181102!
'
'lblZahlungsdat
'
Me.lblZahlungsdat.Height = 0.1433071!
Me.lblZahlungsdat.HyperLink = Nothing
Me.lblZahlungsdat.Left = 2.405118!
Me.lblZahlungsdat.Left = 2.632284!
Me.lblZahlungsdat.Name = "lblZahlungsdat"
Me.lblZahlungsdat.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" &
"har-set: 0"
@@ -237,14 +250,14 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
'
Me.lblTage.Height = 0.1433071!
Me.lblTage.HyperLink = Nothing
Me.lblTage.Left = 3.37126!
Me.lblTage.Left = 3.598425!
Me.lblTage.Name = "lblTage"
Me.lblTage.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" &
"har-set: 0"
Me.lblTage.Text = "Tage"
Me.lblTage.Top = 0!
Me.lblTage.Visible = False
Me.lblTage.Width = 0.5771654!
Me.lblTage.Width = 0.7346457!
'
'lblZinsen
'
@@ -276,14 +289,14 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
'
Me.Label1.Height = 0.1433071!
Me.Label1.HyperLink = Nothing
Me.Label1.Left = 1.914173!
Me.Label1.Left = 1.910236!
Me.Label1.Name = "Label1"
Me.Label1.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" &
"har-set: 0"
Me.Label1.Text = "F<EFBFBD>llig"
Me.Label1.Top = 0!
Me.Label1.Visible = False
Me.Label1.Width = 0.4909448!
Me.Label1.Width = 0.7220473!
'
'GroupFooter4
'
@@ -293,31 +306,18 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
'
'Line18
'
Me.Line18.Height = 0.00004923344!
Me.Line18.Left = 0.03444719!
Me.Line18.Height = 0!
Me.Line18.Left = 0.0976378!
Me.Line18.LineColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
Me.Line18.LineWeight = 1.0!
Me.Line18.Name = "Line18"
Me.Line18.Top = 0.0937008!
Me.Line18.Width = 7.323034!
Me.Line18.X1 = 0.03444719!
Me.Line18.X2 = 7.357481!
Me.Line18.Y1 = 0.09375003!
Me.Line18.Width = 6.968504!
Me.Line18.X1 = 0.0976378!
Me.Line18.X2 = 7.066142!
Me.Line18.Y1 = 0.0937008!
Me.Line18.Y2 = 0.0937008!
'
'txt_Anmerkung
'
Me.txt_Anmerkung.Height = 0.1338583!
Me.txt_Anmerkung.Left = 1.788977!
Me.txt_Anmerkung.Name = "txt_Anmerkung"
Me.txt_Anmerkung.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
Me.txt_Anmerkung.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: center; ddo-ch" &
"ar-set: 0"
Me.txt_Anmerkung.Text = "-"
Me.txt_Anmerkung.Top = 0.02083332!
Me.txt_Anmerkung.Visible = False
Me.txt_Anmerkung.Width = 3.713779!
'
'rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
'
Me.MasterReport = False
@@ -327,7 +327,7 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
Me.PageSettings.Margins.Top = 0.3937008!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.452378!
Me.PrintWidth = 7.103184!
Me.Sections.Add(Me.PageHeader)
Me.Sections.Add(Me.GroupHeader4)
Me.Sections.Add(Me.Detail)
@@ -339,6 +339,7 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.txt_Anmerkung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtREnr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtReDat, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtZE, System.ComponentModel.ISupportInitialize).EndInit()
@@ -355,7 +356,6 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
CType(Me.lblZinsen, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblVZ, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txt_Anmerkung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub

2
SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb
View File

@@ -60,7 +60,7 @@
End If
If Me.Fields.Item("clmnTage") IsNot Nothing AndAlso Me.Fields.Item("clmnTage").Value IsNot Nothing Then txtTage.Text &= Me.Fields.Item("clmnTage").Value.ToString
If Me.Fields.Item("clmnZinsen") IsNot Nothing AndAlso Me.Fields.Item("clmnZinsen").Value IsNot Nothing AndAlso IsNumeric(Me.Fields.Item("clmnZinsen").Value) AndAlso CDbl(Me.Fields.Item("clmnZinsen").Value) <> 0 Then txtZinsen.Text &= CDbl(Me.Fields.Item("clmnZinsen").Value).ToString("N2")
If Me.Fields.Item("clmnVZ") IsNot Nothing AndAlso Me.Fields.Item("clmnVZ").Value IsNot Nothing AndAlso IsNumeric(Me.Fields.Item("clmnVZ").Value) Then txtVZ.Text &= Me.Fields.Item("clmnVZ").Value.ToString() & " %"
If Me.Fields.Item("clmnVZ") IsNot Nothing AndAlso Me.Fields.Item("clmnVZ").Value IsNot Nothing AndAlso IsNumeric(Me.Fields.Item("clmnVZ").Value) Then txtVZ.Text &= Me.Fields.Item("clmnVZ").Value.ToString() & "%"
End If
End Sub

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

@@ -292,25 +292,27 @@ Partial Class usrCntlUSTV
Me.txtRisiko._Waehrung = True
Me.txtRisiko._WaehrungZeichen = True
Me.txtRisiko.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtRisiko.BackColor = System.Drawing.Color.IndianRed
Me.txtRisiko.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtRisiko.ForeColor = System.Drawing.Color.Black
Me.txtRisiko.Location = New System.Drawing.Point(1161, 28)
Me.txtRisiko.Location = New System.Drawing.Point(1015, 29)
Me.txtRisiko.MaxLineLength = -1
Me.txtRisiko.MaxLines_Warning = ""
Me.txtRisiko.MaxLines_Warning_Label = Nothing
Me.txtRisiko.Name = "txtRisiko"
Me.txtRisiko.ReadOnly = True
Me.txtRisiko.Size = New System.Drawing.Size(107, 20)
Me.txtRisiko.Size = New System.Drawing.Size(96, 20)
Me.txtRisiko.TabIndex = 56
'
'Label10
'
Me.Label10.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label10.AutoSize = True
Me.Label10.Location = New System.Drawing.Point(1116, 31)
Me.Label10.Location = New System.Drawing.Point(957, 32)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(45, 13)
Me.Label10.Size = New System.Drawing.Size(36, 13)
Me.Label10.TabIndex = 55
Me.Label10.Text = "= Risiko"
Me.Label10.Text = "Risiko"
'
'txtOPSaldo
'
@@ -327,21 +329,23 @@ Partial Class usrCntlUSTV
Me.txtOPSaldo._Waehrung = True
Me.txtOPSaldo._WaehrungZeichen = True
Me.txtOPSaldo.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtOPSaldo.BackColor = System.Drawing.Color.IndianRed
Me.txtOPSaldo.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtOPSaldo.ForeColor = System.Drawing.Color.Black
Me.txtOPSaldo.Location = New System.Drawing.Point(999, 0)
Me.txtOPSaldo.Location = New System.Drawing.Point(1015, 6)
Me.txtOPSaldo.MaxLineLength = -1
Me.txtOPSaldo.MaxLines_Warning = ""
Me.txtOPSaldo.MaxLines_Warning_Label = Nothing
Me.txtOPSaldo.Name = "txtOPSaldo"
Me.txtOPSaldo.ReadOnly = True
Me.txtOPSaldo.Size = New System.Drawing.Size(91, 20)
Me.txtOPSaldo.Size = New System.Drawing.Size(96, 20)
Me.txtOPSaldo.TabIndex = 54
'
'Label11
'
Me.Label11.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label11.AutoSize = True
Me.Label11.Location = New System.Drawing.Point(941, 6)
Me.Label11.Location = New System.Drawing.Point(957, 12)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(52, 13)
Me.Label11.TabIndex = 53
@@ -373,13 +377,13 @@ Partial Class usrCntlUSTV
Me.txtSumDiff._WaehrungZeichen = True
Me.txtSumDiff.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtSumDiff.ForeColor = System.Drawing.Color.Black
Me.txtSumDiff.Location = New System.Drawing.Point(999, 19)
Me.txtSumDiff.Location = New System.Drawing.Point(1396, 49)
Me.txtSumDiff.MaxLineLength = -1
Me.txtSumDiff.MaxLines_Warning = ""
Me.txtSumDiff.MaxLines_Warning_Label = Nothing
Me.txtSumDiff.Name = "txtSumDiff"
Me.txtSumDiff.ReadOnly = True
Me.txtSumDiff.Size = New System.Drawing.Size(91, 20)
Me.txtSumDiff.Size = New System.Drawing.Size(92, 20)
Me.txtSumDiff.TabIndex = 32
'
'btnKundendatenaktualisieren
@@ -412,13 +416,13 @@ Partial Class usrCntlUSTV
Me.txtSumErst._WaehrungZeichen = True
Me.txtSumErst.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtSumErst.ForeColor = System.Drawing.Color.Black
Me.txtSumErst.Location = New System.Drawing.Point(1381, 25)
Me.txtSumErst.Location = New System.Drawing.Point(1396, 25)
Me.txtSumErst.MaxLineLength = -1
Me.txtSumErst.MaxLines_Warning = ""
Me.txtSumErst.MaxLines_Warning_Label = Nothing
Me.txtSumErst.Name = "txtSumErst"
Me.txtSumErst.ReadOnly = True
Me.txtSumErst.Size = New System.Drawing.Size(107, 20)
Me.txtSumErst.Size = New System.Drawing.Size(92, 20)
Me.txtSumErst.TabIndex = 31
'
'txtSumUst
@@ -437,13 +441,13 @@ Partial Class usrCntlUSTV
Me.txtSumUst._WaehrungZeichen = True
Me.txtSumUst.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtSumUst.ForeColor = System.Drawing.Color.Black
Me.txtSumUst.Location = New System.Drawing.Point(1381, 5)
Me.txtSumUst.Location = New System.Drawing.Point(1396, 5)
Me.txtSumUst.MaxLineLength = -1
Me.txtSumUst.MaxLines_Warning = ""
Me.txtSumUst.MaxLines_Warning_Label = Nothing
Me.txtSumUst.Name = "txtSumUst"
Me.txtSumUst.ReadOnly = True
Me.txtSumUst.Size = New System.Drawing.Size(107, 20)
Me.txtSumUst.Size = New System.Drawing.Size(92, 20)
Me.txtSumUst.TabIndex = 30
'
'txtVZBetrag
@@ -462,40 +466,40 @@ Partial Class usrCntlUSTV
Me.txtVZBetrag._WaehrungZeichen = True
Me.txtVZBetrag.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtVZBetrag.ForeColor = System.Drawing.Color.Black
Me.txtVZBetrag.Location = New System.Drawing.Point(1161, 5)
Me.txtVZBetrag.Location = New System.Drawing.Point(1204, 5)
Me.txtVZBetrag.MaxLineLength = -1
Me.txtVZBetrag.MaxLines_Warning = ""
Me.txtVZBetrag.MaxLines_Warning_Label = Nothing
Me.txtVZBetrag.Name = "txtVZBetrag"
Me.txtVZBetrag.ReadOnly = True
Me.txtVZBetrag.Size = New System.Drawing.Size(107, 20)
Me.txtVZBetrag.Size = New System.Drawing.Size(92, 20)
Me.txtVZBetrag.TabIndex = 51
'
'Label5
'
Me.Label5.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(914, 27)
Me.Label5.Location = New System.Drawing.Point(1302, 51)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(85, 13)
Me.Label5.Size = New System.Drawing.Size(79, 13)
Me.Label5.TabIndex = 29
Me.Label5.Text = "- Differenzbetrag"
Me.Label5.Text = "Differenzbetrag"
'
'Label8
'
Me.Label8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(1100, 8)
Me.Label8.Location = New System.Drawing.Point(1117, 13)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(64, 13)
Me.Label8.Size = New System.Drawing.Size(55, 13)
Me.Label8.TabIndex = 50
Me.Label8.Text = "+ VZ-Betrag"
Me.Label8.Text = "VZ-Betrag"
'
'Label4
'
Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(1276, 28)
Me.Label4.Location = New System.Drawing.Point(1302, 27)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(90, 13)
Me.Label4.TabIndex = 28
@@ -516,21 +520,23 @@ Partial Class usrCntlUSTV
Me.txt3470Betrag._Waehrung = True
Me.txt3470Betrag._WaehrungZeichen = True
Me.txt3470Betrag.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txt3470Betrag.BackColor = System.Drawing.Color.LightGreen
Me.txt3470Betrag.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txt3470Betrag.ForeColor = System.Drawing.Color.Black
Me.txt3470Betrag.Location = New System.Drawing.Point(999, 40)
Me.txt3470Betrag.Location = New System.Drawing.Point(848, 8)
Me.txt3470Betrag.MaxLineLength = -1
Me.txt3470Betrag.MaxLines_Warning = ""
Me.txt3470Betrag.MaxLines_Warning_Label = Nothing
Me.txt3470Betrag.Name = "txt3470Betrag"
Me.txt3470Betrag.ReadOnly = True
Me.txt3470Betrag.Size = New System.Drawing.Size(91, 20)
Me.txt3470Betrag.Size = New System.Drawing.Size(103, 20)
Me.txt3470Betrag.TabIndex = 49
'
'Label3
'
Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(1276, 7)
Me.Label3.Location = New System.Drawing.Point(1302, 6)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(59, 13)
Me.Label3.TabIndex = 27
@@ -540,11 +546,11 @@ Partial Class usrCntlUSTV
'
Me.Label7.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(956, 43)
Me.Label7.Location = New System.Drawing.Point(811, 12)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(37, 13)
Me.Label7.Size = New System.Drawing.Size(31, 13)
Me.Label7.TabIndex = 48
Me.Label7.Text = "- 3470"
Me.Label7.Text = "3470"
'
'txtVorschaubetrGes
'
@@ -562,7 +568,7 @@ Partial Class usrCntlUSTV
Me.txtVorschaubetrGes._WaehrungZeichen = True
Me.txtVorschaubetrGes.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtVorschaubetrGes.ForeColor = System.Drawing.Color.Black
Me.txtVorschaubetrGes.Location = New System.Drawing.Point(999, 60)
Me.txtVorschaubetrGes.Location = New System.Drawing.Point(1205, 28)
Me.txtVorschaubetrGes.MaxLineLength = -1
Me.txtVorschaubetrGes.MaxLines_Warning = ""
Me.txtVorschaubetrGes.MaxLines_Warning_Label = Nothing
@@ -575,11 +581,11 @@ Partial Class usrCntlUSTV
'
Me.Label6.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(872, 63)
Me.Label6.Location = New System.Drawing.Point(1117, 35)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(127, 13)
Me.Label6.Size = New System.Drawing.Size(82, 13)
Me.Label6.TabIndex = 33
Me.Label6.Text = "- Vorschaubetrag-Gesamt"
Me.Label6.Text = "Vorschaubetrag"
'
'cbxDifferenzbetrag
'

45
SDL/USTV/usrCntlUSTV.vb
View File

@@ -1,7 +1,4 @@
Imports System.ComponentModel
Imports com.sun.org.apache.bcel.internal.generic
Imports com.sun.xml.internal.rngom
Imports DocumentFormat.OpenXml.Drawing
Imports Microsoft.Office.Interop
Imports VERAG_PROG_ALLGEMEIN
@@ -47,10 +44,17 @@ Public Class usrCntlUSTV
End If
End If
.SET_SQL("SELECT " & topMax & " [tblUStVAntrag].[UStVAn_ID],UStVAn_AntragArt,[UStVAn_KuNr],[UStVAn_Name],[UStVAn_LandKz],LandKz as Land_Antrag , UStVAn_BezugsNr, [UStVAn_ReDatVon], [UStVAn_ReDatBis] ,UStVAn_AntragEingereichtAm,[UStVAn_VZBetrag],[UStVAn_VZDatum],[UStVAn_3470] ,[UStVAn_Währungscode],[UStVAn_USteuerbetrag],[UStVAn_Erstattungsbetrag],([UStVAn_USteuerbetrag] - [UStVAn_Erstattungsbetrag]) as UStVAn_Differenzbetrag,[UStVAn_USteuerbetragEUR],[UStVAn_ErstattungsbetragEUR],([UStVAn_USteuerbetragEUR] - [UStVAn_ErstattungsbetragEUR]) as UStVAn_DifferenzbetragEUR,UStVAn_VZoffen ,[UStVAn_Sachbearbeiter]
Dim sql_query As String = "SELECT " & topMax & " [tblUStVAntrag].[UStVAn_ID],UStVAn_AntragArt,[UStVAn_KuNr],[UStVAn_Name],[UStVAn_LandKz],LandKz as Land_Antrag , UStVAn_BezugsNr, [UStVAn_ReDatVon], [UStVAn_ReDatBis] ,UStVAn_AntragEingereichtAm,[UStVAn_VZBetrag],[UStVAn_VZDatum],[UStVAn_3470],STUFF((
SELECT ', ' + CAST(e.GutschriftsNr AS VARCHAR(50))
From tblUStVErstattung e
Where e.UStVAn_ID = [tblUStVAntrag].[UStVAn_ID]
FOR XML PATH(''), TYPE
).value('.', 'NVARCHAR(MAX)'), 1, 2, '') AS 'GutschriftsNr' ,[UStVAn_Währungscode],[UStVAn_USteuerbetrag],[UStVAn_Erstattungsbetrag],([UStVAn_USteuerbetrag] - [UStVAn_Erstattungsbetrag]) as UStVAn_Differenzbetrag,[UStVAn_USteuerbetragEUR],[UStVAn_ErstattungsbetragEUR],([UStVAn_USteuerbetragEUR] - [UStVAn_ErstattungsbetragEUR]) as UStVAn_DifferenzbetragEUR,UStVAn_VZoffen ,[UStVAn_Sachbearbeiter]
FROM [tblUStVAntrag] inner join [Länderverzeichnis für die Außenhandelsstatistik] on UStVAn_LandNr=Landnr
where 1=1 " & getWhere(, ID, AntragsLand) & "
order by UStVAn_KuNr,UStVAn_Name,datepart(year,[UStVAn_ReDatVon] ) desc,LandKz,[UStVAn_ReDatVon] desc", "FMZOLL")
order by UStVAn_KuNr,UStVAn_Name,datepart(year,[UStVAn_ReDatVon] ) desc,LandKz,[UStVAn_ReDatVon] desc"
.SET_SQL(sql_query, "FMZOLL")
.LOAD()
loaded = True
@@ -62,41 +66,38 @@ Public Class usrCntlUSTV
btnKundendatenaktualisieren.Enabled = KdSearchBox1.KdNr > 0 'AndAlso .RowCount > 0
If .Columns.Count > 0 Then
Dim DataGridViewCellStyleDate = New DataGridViewCellStyle()
DataGridViewCellStyleDate.Format = "MM/yyyy"
' .Columns("UStVAn_ID").Visible = False
.Columns("UStVAn_ID").Width = 70
.Columns("UStVAn_ID").Width = 60
.Columns("UStVAn_ID").HeaderText = "ID"
'.Columns("UStVAn_ID").Frozen = True
.Columns("UStVAn_AntragArt").HeaderText = "Art"
.Columns("UStVAn_AntragArt").MinimumWidth = 50
.Columns("UStVAn_AntragArt").Width = 50
'.Columns("UStVAn_AntragArt").Frozen = True
.Columns("UStVAn_KuNr").HeaderText = "KundenNr"
.Columns("UStVAn_Name").MinimumWidth = 70
.Columns("UStVAn_KuNr").Width = 70
'.Columns("UStVAn_KuNr").Frozen = True
.Columns("UStVAn_Name").HeaderText = "Firma"
.Columns("UStVAn_Name").Width = 200
.Columns("UStVAn_Name").MinimumWidth = 150
.Columns("UStVAn_Name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
'.Columns("UStVAn_Name").Frozen = True
' .Columns("UStVAn_Name").MinimumWidth = 150
' .Columns("UStVAn_Name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("UStVAn_LandKz").HeaderText = "Land"
.Columns("UStVAn_LandKz").Width = 60
.Columns("UStVAn_LandKz").Width = 50
'.Columns("UStVAn_LandKz").Frozen = True
.Columns("Land_Antrag").HeaderText = "Antrag Land"
.Columns("Land_Antrag").Width = 60
.Columns("Land_Antrag").Width = 50
'.Columns("Land_Antrag").Frozen = True
.Columns("UStVAn_ReDatVon").HeaderText = "Von"
@@ -108,7 +109,7 @@ Public Class usrCntlUSTV
.Columns("UStVAn_ReDatBis").Width = 75
.Columns("UStVAn_BezugsNr").HeaderText = "BezugsNr"
.Columns("UStVAn_BezugsNr").Width = 70
.Columns("UStVAn_BezugsNr").Width = 60
.Columns("UStVAn_AntragEingereichtAm").HeaderText = "Eingereicht Datum"
.Columns("UStVAn_AntragEingereichtAm").Width = 80
@@ -123,7 +124,7 @@ Public Class usrCntlUSTV
.Columns("UStVAn_3470").HeaderText = "3470"
.Columns("UStVAn_3470").Width = 100
.Columns("UStVAn_3470").Width = 80
.Columns("UStVAn_3470").DefaultCellStyle.Format = "N2"
.Columns("UStVAn_3470").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
@@ -161,14 +162,16 @@ Public Class usrCntlUSTV
.Columns("UStVAn_DifferenzbetragEUR").DefaultCellStyle.Format = "N2"
.Columns("UStVAn_DifferenzbetragEUR").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
.Columns("UStVAn_VZoffen").HeaderText = "VZ nicht abgerechnet"
.Columns("UStVAn_VZoffen").Width = 80
.Columns("UStVAn_VZoffen").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns("GutschriftsNr").HeaderText = "GutschriftsNr"
.Columns("GutschriftsNr").Width = 180
.Columns("GutschriftsNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns("UStVAn_Sachbearbeiter").HeaderText = "Sachbearbeiter"
.Columns("UStVAn_Sachbearbeiter").MinimumWidth = 150
.Columns("UStVAn_Sachbearbeiter").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("UStVAn_Sachbearbeiter").MinimumWidth = 60
End If
Dim GesamtUSteuer As Double = 0
@@ -594,7 +597,7 @@ Public Class usrCntlUSTV
Private Sub btn2_Click(sender As Object, e As EventArgs) Handles btn3470.Click
Private Sub btn2_Click(sender As Object, e As EventArgs) Handles Button2.Click
If Not ContextMenuStrip3.Items.ContainsKey("dgv") Then

2
SDL/buchhaltung/usrCntlBH.vb
View File

@@ -1305,7 +1305,7 @@ Public Class usrCntlBH
Dim startDate As String = CDate(R("zahlungsperiode_start")).ToShortDateString
Dim EndDate As String = CDate(R("zahlungsperiode_ende")).ToShortDateString
Dim vermerk As String = "Zahlungen vom " & startDate & " - " & EndDate 'max 50 Zeichen!!!
Dim vermerk As String = "Zahlungen von " & startDate & " - " & EndDate 'max 50 Zeichen!!!
Dim Fußtext As String = ""
'Fußtext = "Sehr geehrte Damen und Herren," & vbNewLine & "

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

File diff suppressed because it is too large Load Diff

135
SDL/kunden/frmKundenblatt.vb
View File

@@ -18,7 +18,8 @@ Public Class frmKundenblatt
' Dim KUNDE As cKunde = Nothing
Dim ADRESSE As VERAG_PROG_ALLGEMEIN.cAdressen = Nothing
Dim KUNDE_ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert = Nothing
Dim KUNDE_K As VERAG_PROG_ALLGEMEIN.cKundenKontakte = Nothing
Dim KUNDE_K_RE As VERAG_PROG_ALLGEMEIN.cKundenKontakte = Nothing
Dim KUNDE_K_GF As VERAG_PROG_ALLGEMEIN.cKundenKontakte = Nothing
' Public BERECHTIGUNEN As List(Of cBerechtigungen) = Nothing
@@ -344,6 +345,7 @@ Public Class frmKundenblatt
initDGVOffenePosten()
initDGVUmsatz()
initDGVUmsatzNachLeistungsNr()
initStat()
' initDgvSDLLeistungen()
'showDgvSDLLeistungen()
@@ -639,27 +641,47 @@ Public Class frmKundenblatt
End Sub
Sub initStat()
lblStat_Lkws.Text = SQL.getSqlCount("SELECT Count(KfzKennzeichen) FROM LKW WHERE KundenNr=" & kdNr & " and isnull(Verkauft,0) <> 1 and isnull(Abgemeldet,0) <> 1 ") & " aktive LKWs registriert"
lblStat_Lkws.Text = SQL.getSqlCount("SELECT Count(KfzKennzeichen) FROM LKW WHERE KundenNr=" & kdNr & " and isnull(Verkauft,0) <> 1 and isnull(Abgemeldet,0) <> 1 ") & " aktive LKWs registriert" 'OK
lblStat_SdlLeistungen.Text = SQL.getSqlCount("SELECT Count(SDL.SDLNr) FROM SDL, Speditionsdienstleistungen WHERE KundenNr=" & kdNr & " and ISNULL(Archiviert,0) <> 1 and ISNULL(LKWAbgemeldet,0) <> 1 and ISNULL(Gesperrt,0) <> 1 and ISNULL(Defekt,0) <> 1 and ISNULL(Verloren,0) <> 1 and ISNULL(Gestohlen,0) <> 1 AND SDL.SDLNr=Speditionsdienstleistungen.SDLNr ") & " aktive SDL Leistungen"
With dgvLeistungen
.DataSource = SQL.loadDgvBySql(" SELECT Count(SDL.SDLNr) as Anzahl , SDLBez as Leistung FROM SDL, Speditionsdienstleistungen
WHERE KundenNr=" & kdNr & " and ISNULL(Archiviert,0) <> 1 and ISNULL(LKWAbgemeldet,0) <> 1 and ISNULL(Gesperrt,0) <> 1 and ISNULL(Defekt,0) <> 1 and ISNULL(Verloren,0) <> 1 and ISNULL(Gestohlen,0) <> 1
AND SDL.SDLNr=Speditionsdienstleistungen.SDLNr group by SDLBez order by Count(SDL.SDLNr) desc ")
.Columns(1).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.RowTemplate.Height = 20
.AllowUserToAddRows = False
.AllowUserToDeleteRows = False
.AllowUserToOrderColumns = False
.AllowUserToResizeColumns = False
.AllowUserToResizeRows = False
.RowTemplate.ReadOnly = True
.RowHeadersVisible = False
End With
Dim SQL_Diesel As String = " FROM SDL, Speditionsdienstleistungen WHERE KundenNr=" & kdNr & " AND ISNULL(Archiviert,0) <> 1 and ISNULL(LKWAbgemeldet,0) <> 1 and ISNULL(Gesperrt,0) <> 1 and ISNULL(Defekt,0) <> 1 and ISNULL(Verloren,0) <> 1 and ISNULL(Gestohlen,0) <> 1 AND SDL.SDLNr=Speditionsdienstleistungen.SDLNr AND SDL.SDLNr IN (100,101)"
Dim dt_Diesel As DataTable = SQL.loadDgvBySql("SELECT SDL.SDLNr,Count(SDL.SDLNr) as Anzahl" & SQL_Diesel & " Group by SDL.SDLNr", "SDL")
lblStat_SdlLeistungen_Diesel.Text = SQL.getSqlCount("SELECT Count(SDL.SDLNr)" & SQL_Diesel) & " aktive Tankkarten"
If dt_Diesel.Rows.Count > 0 Then
lblStat_SdlLeistungen_Diesel.Text &= " ( "
For Each r In dt_Diesel.Rows
Dim Lieferant As String = ""
Select Case r.Item("SDLNr")
Case "100" : Lieferant = r.Item("Anzahl") & "x IDS "
Case "101" : Lieferant = r.Item("Anzahl") & "x RMC "
End Select
'If dt_Diesel.Rows.Count > 0 Then
' lblStat_SdlLeistungen_Diesel.Text &= " ( "
' For Each r In dt_Diesel.Rows
' Dim Lieferant As String = ""
' Select Case r.Item("SDLNr")
' Case "100" : Lieferant = r.Item("Anzahl") & "x IDS "
' Case "101" : Lieferant = r.Item("Anzahl") & "x RMC "
' End Select
lblStat_SdlLeistungen_Diesel.Text &= Lieferant
Next
lblStat_SdlLeistungen_Diesel.Text &= ")"
End If
' lblStat_SdlLeistungen_Diesel.Text &= Lieferant
' Next
' lblStat_SdlLeistungen_Diesel.Text &= ")"
'End If
@@ -668,35 +690,35 @@ Public Class frmKundenblatt
lblStat_SdlLeistungen_Maut.Text = SQL.getSqlCount("SELECT Count(SDL.SDLNr)" & SQL_Maut) & " aktive Mautboxen/-karten"
If dt_Maut.Rows.Count > 0 Then
lblStat_SdlLeistungen_Maut.Text &= " ( "
For Each r As DataRow In dt_Maut.Rows
Dim Lieferant As String = ""
Select Case r.Item("SDLNr")
Case "200" : Lieferant = r.Item("Anzahl") & "x AT "
Case "201" : Lieferant = r.Item("Anzahl") & "x DE "
Case "202" : Lieferant = r.Item("Anzahl") & "x TELEPASS "
Case "203" : Lieferant = r.Item("Anzahl") & "x CZ "
Case "205" : Lieferant = r.Item("Anzahl") & "x MotorWay "
Case "206" : Lieferant = r.Item("Anzahl") & "x DouBox "
Case "208" : Lieferant = r.Item("Anzahl") & "x MSE "
Case "209" : Lieferant = r.Item("Anzahl") & "x PL "
Case "210" : Lieferant = r.Item("Anzahl") & "x SI "
Case "211" : Lieferant = r.Item("Anzahl") & "x MSE-MP "
Case "212" : Lieferant = r.Item("Anzahl") & "x UTA "
Case "213" : Lieferant = r.Item("Anzahl") & "x HUGO "
Case "214" : Lieferant = r.Item("Anzahl") & "x PLOSE-RM "
Case "215" : Lieferant = r.Item("Anzahl") & "x PLOSE-IT "
Case "216" : Lieferant = r.Item("Anzahl") & "x PLOSE-CZ "
Case "217" : Lieferant = r.Item("Anzahl") & "x PLOSE-MP "
Case "218" : Lieferant = r.Item("Anzahl") & "x PLOSE-TM "
'If dt_Maut.Rows.Count > 0 Then
' lblStat_SdlLeistungen_Maut.Text &= " ( "
' For Each r As DataRow In dt_Maut.Rows
' Dim Lieferant As String = ""
' Select Case r.Item("SDLNr")
' Case "200" : Lieferant = r.Item("Anzahl") & "x AT "
' Case "201" : Lieferant = r.Item("Anzahl") & "x DE "
' Case "202" : Lieferant = r.Item("Anzahl") & "x TELEPASS "
' Case "203" : Lieferant = r.Item("Anzahl") & "x CZ "
' Case "205" : Lieferant = r.Item("Anzahl") & "x MotorWay "
' Case "206" : Lieferant = r.Item("Anzahl") & "x DouBox "
' Case "208" : Lieferant = r.Item("Anzahl") & "x MSE "
' Case "209" : Lieferant = r.Item("Anzahl") & "x PL "
' Case "210" : Lieferant = r.Item("Anzahl") & "x SI "
' Case "211" : Lieferant = r.Item("Anzahl") & "x MSE-MP "
' Case "212" : Lieferant = r.Item("Anzahl") & "x UTA "
' Case "213" : Lieferant = r.Item("Anzahl") & "x HUGO "
' Case "214" : Lieferant = r.Item("Anzahl") & "x PLOSE-RM "
' Case "215" : Lieferant = r.Item("Anzahl") & "x PLOSE-IT "
' Case "216" : Lieferant = r.Item("Anzahl") & "x PLOSE-CZ "
' Case "217" : Lieferant = r.Item("Anzahl") & "x PLOSE-MP "
' Case "218" : Lieferant = r.Item("Anzahl") & "x PLOSE-TM "
End Select
' End Select
lblStat_SdlLeistungen_Maut.Text &= Lieferant
Next
lblStat_SdlLeistungen_Maut.Text &= ")"
End If
' lblStat_SdlLeistungen_Maut.Text &= Lieferant
' Next
' lblStat_SdlLeistungen_Maut.Text &= ")"
'End If
End Sub
@@ -738,7 +760,8 @@ Public Class frmKundenblatt
KUNDE = New VERAG_PROG_ALLGEMEIN.cKunde(kdNr) 'kundenSQL.getKundeByKdNr(kdNr)
ADRESSE = New VERAG_PROG_ALLGEMEIN.cAdressen(kdNr) 'kundenSQL.getKundeByKdNr(kdNr)
KUNDE_ERW = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdNr)
KUNDE_K = New VERAG_PROG_ALLGEMEIN.cKundenKontakte(8, kdNr)
KUNDE_K_RE = New VERAG_PROG_ALLGEMEIN.cKundenKontakte(8, kdNr) 'Rechnungen an!
KUNDE_K_GF = New VERAG_PROG_ALLGEMEIN.cKundenKontakte(13, kdNr) 'Rechnungen an!
'Me.dataAdapterFirma = Nothing
' Me.dataFirma.Clear()
'SDL!
@@ -752,16 +775,16 @@ Public Class frmKundenblatt
'Me.dataFirma.AcceptChanges()
' Me.dataFirma.Locale = System.Globalization.CultureInfo.InvariantCulture
lblKurzname.Text = checkNullStr(ADRESSE.Ordnungsbegriff)
lblFirmenname1.Text = checkNullStr(ADRESSE.Name_1)
lblFirmenname2.Text = checkNullStr(ADRESSE.Name_2)
lblStrasse.Text = checkNullStr(ADRESSE.Straße)
lblAdressenzusatz.Text = checkNullStr(KUNDE_ERW.kde_AdressZusatz)
lblLandPlzOrt.Text = checkNullStr(ADRESSE.LandKz) & " - " & checkNullStr(ADRESSE.PLZ) & " - " & checkNullStr(ADRESSE.Ort)
lblPostfach.Text = checkNullStr(ADRESSE.PLZPF) & " - " & checkNullStr(ADRESSE.Postfach)
txtAnsprechp.Text = ""
txtAnsprechp.Text = IIf(checkNullStr(ADRESSE.Anrede) <> "", ADRESSE.Anrede & " ", "")
txtAnsprechp.Text &= IIf(checkNullStr(ADRESSE.Ansprechpartner) <> "", ADRESSE.Ansprechpartner, "")
lblTel.Text = checkNullStr(ADRESSE.Telefon)
@@ -772,9 +795,21 @@ Public Class frmKundenblatt
txtEmailRE.Text = "-"
txtEmailRE2.Text = ""
If KUNDE_K.hasEntry Then 'Rechnung an
txtEmailRE.Text = KUNDE_K.kkd_Email
txtEmailRE2.Text &= KUNDE_K.kkd_EmailCC
If KUNDE_K_RE.hasEntry Then 'Rechnung an
txtEmailRE.Text = KUNDE_K_RE.kkd_Email
txtEmailRE2.Text &= KUNDE_K_RE.kkd_EmailCC
End If
If KUNDE_K_GF.hasEntry Then
If txtAnsprechp.Text <> "" Then txtAnsprechp.Text &= " "
txtAnsprechp.Text &= "(GF:"
txtAnsprechp.Text &= IIf(checkNullStr(KUNDE_K_GF.kkd_AnsprechpartnerAnrede) <> "", KUNDE_K_GF.kkd_AnsprechpartnerAnrede & " ", "")
txtAnsprechp.Text &= IIf(checkNullStr(KUNDE_K_GF.kkd_AnsprechpartnerVorname) <> "", KUNDE_K_GF.kkd_AnsprechpartnerVorname & " ", "")
txtAnsprechp.Text &= IIf(checkNullStr(KUNDE_K_GF.kkd_AnsprechpartnerNachname) <> "", KUNDE_K_GF.kkd_AnsprechpartnerNachname.ToString.ToUpper, "")
txtAnsprechp.Text &= ")"
End If
@@ -1062,7 +1097,7 @@ Public Class frmKundenblatt
' .DataSource = SQL.loadDgvBySql("SELECT Speditionsdienstleistungen.SDLNr,Speditionsdienstleistungen.SDLBez,Sperrnummernverzeichnis.SperrNr,Sperrnummernverzeichnis.SperrBez,KundenSDL.Sperrdatum FROM Speditionsdienstleistungen,KundenSDL,Sperrnummernverzeichnis WHERE KundenSDL.KundenNr=" & kdNr & " AND Speditionsdienstleistungen.SDLNr=KundenSDL.SDLNr AND Sperrnummernverzeichnis.SperrNr=KundenSDL.Sperre /*AND KundenSDL.Sperrdatum IS NOT NULL*/ ORDER BY SperrNr")
.DataSource = SQL.loadDgvBySql(" SELECT KundenSDL.SDLNr, Speditionsdienstleistungen.SDLBez,Sperrnummernverzeichnis.SperrNr,Sperrnummernverzeichnis.SperrBez, [Sperrdatum] " &
" FROM KundenSDL INNER JOIN Speditionsdienstleistungen ON Speditionsdienstleistungen.SDLNr=KundenSDL.SDLNr INNER JOIN Sperrnummernverzeichnis ON Sperrnummernverzeichnis.SperrNr=KundenSDL.Sperre " &
" WHERE KundenSDL.KundenNr='" & kdNr & "' /*AND [SDLTypNr] <=2 */ ORDER BY Sperre,Speditionsdienstleistungen.SDLBez")
" WHERE KundenSDL.KundenNr='" & kdNr & "' AND KundenSDL.SDLNr in (select distinct(SDL.SDLNr) from SDL where SDL.SDLNr=KundenSDL.SDLNr AND SDL.KundenNr = KundenSDL.KundenNr) and SDLTypNr IN (1,2) ORDER BY Sperre,Speditionsdienstleistungen.SDLBez")
.RowTemplate.Height = 20
.AllowUserToAddRows = False
.AllowUserToDeleteRows = False
@@ -1317,12 +1352,10 @@ Public Class frmKundenblatt
If GroupBox5.Visible Then 'Stat angezeigt
GroupBox5.Visible = False
sender.text = "Statistik anzeigen"
picLogo.Visible = True
Else
GroupBox5.Visible = True
initStat()
sender.text = "Statistik ausblenden"
picLogo.Visible = False
End If
End Sub