diff --git a/SDL/buchhaltung/frmBU_Mahnlauf.vb b/SDL/buchhaltung/frmBU_Mahnlauf.vb index 57510859..04301339 100644 --- a/SDL/buchhaltung/frmBU_Mahnlauf.vb +++ b/SDL/buchhaltung/frmBU_Mahnlauf.vb @@ -103,14 +103,15 @@ Public Class frmBU_Mahnlauf - isnull(CASE WHEN Max(Kunden.UStV_SummeUmsatzsteuerbetragEUR) > max(Kunden.UStV_SummeErstattungsbetragEUR) THEN max(Kunden.UStV_SummeUmsatzsteuerbetragEUR) - max(Kunden.UStV_SummeErstattungsbetragEUR) ELSE 0 END ,0) - isnull(max(Kunden.UStV_Summe3470BetragEUR),0) + isnull(max(Kunden.UStV_SummeVZBetragEUR),0) - isnull(max(Kunden.UStV_SummeVorschaubetragEUR),0) - isnull(CASE WHEN ISNULL(max(Kunden.BankgarantieGültigBis), GETDATE()) < GETDATE() THEN 0 ELSE ISNULL(max(Kunden.BankgarantieBetrag), 0) END,0) as Risiko, sum(case when OP.c_typ = 'g' then isnull(OP.eur_bruttobetrag, 0) + isnull(OP.eur_zahlung, 0) else 0 end) as Gutschrift, cast(MAX(d_mahnung)as date) Mahndatum, - case - when max(si_mahnstufe) = 1 Then 'telefonisch' - when max(si_mahnstufe) = 2 Then 'Freitag' - when max(si_mahnstufe) = 3 Then 'Donnerstag' - when max(si_mahnstufe) = 4 Then 'Mittwoch' - when max(si_mahnstufe) >= 5 Then 'gesperrt' - else '-' - End as Sperre " & If(cbxNurFaellig.Checked, "", ",SUM(CASE WHEN op.d_netto max(Kunden.UStV_SummeErstattungsbetragEUR) THEN max(Kunden.UStV_SummeUmsatzsteuerbetragEUR) - max(Kunden.UStV_SummeErstattungsbetragEUR) ELSE 0 END ,0) - isnull(max(Kunden.UStV_Summe3470BetragEUR),0) + isnull(max(Kunden.UStV_SummeVZBetragEUR),0) - isnull(max(Kunden.UStV_SummeVorschaubetragEUR),0) - isnull(CASE WHEN ISNULL(max(Kunden.BankgarantieGültigBis), GETDATE()) < GETDATE() THEN 0 ELSE ISNULL(max(Kunden.BankgarantieBetrag), 0) END,0) < 0 then 'ZZ 30 Tage' + when max(si_mahnstufe) = 1 Then 'telefonisch' + when max(si_mahnstufe) = 3 Then 'Donnerstag' + when max(si_mahnstufe) = 2 Then 'Freitag' + when max(si_mahnstufe) >= 4 Then 'Mittwoch' + else '-' + end as Sperre " & If(cbxNurFaellig.Checked, "", ",SUM(CASE WHEN op.d_netto= 8 - MahnTEXT_VOR = "Trotz mehrfacher Mahnung sind nachstehende Rechnungen immer noch nicht beglichen." & vbNewLine & "Wir fordern Sie hiermit letztmalig auf, den offenen Betrag unverzüglich %HEUTE% zur Einzahlung zu bringen. Bitte senden Sie uns eine Kopie des Überweisungsbelegs!" + MahnTEXT_VOR = "Trotz mehrfacher Mahnung sind nachstehende Rechnungen immer noch nicht beglichen." & vbNewLine & "Wir fordern Sie hiermit letztmalig auf, den offenen Betrag unverzüglich bis %HEUTE% zur Einzahlung zu bringen. Bitte senden Sie uns eine Kopie des Überweisungsbelegs!" MahnTEXT_NACH = "Nach erfolglosem Ablauf dieser neuerlichen Frist wären wir dann gezwungen, aber ohne weitere vorherige Ankündigung rechtliche Schritte einzuleiten." MAHNTEXT = MAHNSTUFE & ". MAHNUNG" End Select diff --git a/SDL/buchhaltung/rptMahnung.vb b/SDL/buchhaltung/rptMahnung.vb index 96a6aa23..50fb1293 100644 --- a/SDL/buchhaltung/rptMahnung.vb +++ b/SDL/buchhaltung/rptMahnung.vb @@ -1,7 +1,3 @@ -Imports GrapeCity.ActiveReports -Imports GrapeCity.ActiveReports.Document -Imports GrapeCity.DataVisualization.Chart - Public Class rptMahnung Dim _LAN = "" Dim _OPTION = "" diff --git a/SDL/frmdynMailvorlage.Designer.vb b/SDL/frmdynMailvorlage.Designer.vb index 554af8e8..a6ec8196 100644 --- a/SDL/frmdynMailvorlage.Designer.vb +++ b/SDL/frmdynMailvorlage.Designer.vb @@ -111,7 +111,7 @@ Partial Class frmdynMailvorlagen Me.mainPanel.Dock = System.Windows.Forms.DockStyle.Bottom Me.mainPanel.Location = New System.Drawing.Point(0, 429) Me.mainPanel.Name = "mainPanel" - Me.mainPanel.Size = New System.Drawing.Size(1295, 457) + Me.mainPanel.Size = New System.Drawing.Size(1443, 457) Me.mainPanel.TabIndex = 101 ' 'TextBox2 @@ -185,11 +185,13 @@ Partial Class frmdynMailvorlagen 'rtb_txthtml ' Me.rtb_txthtml.AcceptsTab = True + Me.rtb_txthtml.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.rtb_txthtml.BackColor = System.Drawing.SystemColors.Window Me.rtb_txthtml.Location = New System.Drawing.Point(895, 87) Me.rtb_txthtml.Name = "rtb_txthtml" Me.rtb_txthtml.ReadOnly = True - Me.rtb_txthtml.Size = New System.Drawing.Size(371, 307) + Me.rtb_txthtml.Size = New System.Drawing.Size(536, 307) Me.rtb_txthtml.TabIndex = 40 Me.rtb_txthtml.Text = "" ' @@ -262,7 +264,7 @@ Partial Class frmdynMailvorlagen Me.btn.BackgroundImage = Global.SDL.My.Resources.Resources.email_big Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btn.Location = New System.Drawing.Point(1112, 405) + Me.btn.Location = New System.Drawing.Point(1260, 405) Me.btn.Margin = New System.Windows.Forms.Padding(5) Me.btn.Name = "btn" Me.btn.Padding = New System.Windows.Forms.Padding(5) @@ -362,7 +364,6 @@ Partial Class frmdynMailvorlagen Me.rtb_Emailtext.TabIndex = 22 Me.rtb_Emailtext.Text = "" Me.rtb_Emailtext.WordWrap = False - Me.rtb_Emailtext.ScrollBars = RichTextBoxScrollBars.Both ' 'cbxFirmaChange ' @@ -387,7 +388,8 @@ Partial Class frmdynMailvorlagen ' 'btnSave ' - Me.btnSave.Location = New System.Drawing.Point(1185, 414) + Me.btnSave.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnSave.Location = New System.Drawing.Point(1337, 414) Me.btnSave.Name = "btnSave" Me.btnSave.Size = New System.Drawing.Size(75, 23) Me.btnSave.TabIndex = 10 @@ -419,7 +421,7 @@ Partial Class frmdynMailvorlagen Me.btnAdd.BackgroundImage = Global.SDL.My.Resources.Resources.plus Me.btnAdd.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.btnAdd.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnAdd.Location = New System.Drawing.Point(1236, 399) + Me.btnAdd.Location = New System.Drawing.Point(1384, 399) Me.btnAdd.Name = "btnAdd" Me.btnAdd.Size = New System.Drawing.Size(24, 20) Me.btnAdd.TabIndex = 103 @@ -431,7 +433,7 @@ Partial Class frmdynMailvorlagen Me.btnDelete.BackgroundImage = Global.SDL.My.Resources.Resources.del Me.btnDelete.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.btnDelete.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnDelete.Location = New System.Drawing.Point(1259, 399) + Me.btnDelete.Location = New System.Drawing.Point(1407, 399) Me.btnDelete.Name = "btnDelete" Me.btnDelete.Size = New System.Drawing.Size(24, 20) Me.btnDelete.TabIndex = 102 @@ -453,7 +455,7 @@ Partial Class frmdynMailvorlagen Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top Me.pnlTop.Location = New System.Drawing.Point(0, 0) Me.pnlTop.Name = "pnlTop" - Me.pnlTop.Size = New System.Drawing.Size(1295, 48) + Me.pnlTop.Size = New System.Drawing.Size(1443, 48) Me.pnlTop.TabIndex = 100 ' 'Label14 @@ -594,7 +596,7 @@ Partial Class frmdynMailvorlagen Me.dgvMailvorlagen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvMailvorlagen.Location = New System.Drawing.Point(0, 54) Me.dgvMailvorlagen.Name = "dgvMailvorlagen" - Me.dgvMailvorlagen.Size = New System.Drawing.Size(1283, 365) + Me.dgvMailvorlagen.Size = New System.Drawing.Size(1431, 365) Me.dgvMailvorlagen.TabIndex = 104 ' 'ContextMenuStrip1 @@ -613,7 +615,7 @@ Partial Class frmdynMailvorlagen ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(1295, 886) + Me.ClientSize = New System.Drawing.Size(1443, 886) Me.Controls.Add(Me.mainPanel) Me.Controls.Add(Me.btnAdd) Me.Controls.Add(Me.btnDelete) diff --git a/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_CustomsDeclarations.vb b/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_CustomsDeclarations.vb index bc49edbc..a53aafed 100644 --- a/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_CustomsDeclarations.vb +++ b/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_CustomsDeclarations.vb @@ -896,14 +896,15 @@ Public Class cVERAG_CustomsDeclarations Kunde_Sicherheit.sc_Betrag = gesamtBetrag Kunde_Sicherheit.SAVE() Else - Kunde_Sicherheit.sc_Bemerkung = "EUR" - Kunde_Sicherheit.sc_Bemerkung = "CBAM Kosten Q" & cbamQquarter & " " & cbamYear & " / verw. Preis: " & CBAMZertifikatKosten.ToString("N2") & " EUR" + Kunde_Sicherheit.sc_Waehrung = "EUR" + Kunde_Sicherheit.sc_Bemerkung = "CBAM Kosten Q" & cbamQquarter & " " & cbamYear & " / verw. Preis: " & CBAMZertifikatKosten.ToString("N2") Kunde_Sicherheit.sc_Art = "BANKGARANTIE" Kunde_Sicherheit.sc_Betrag = gesamtBetrag Kunde_Sicherheit.sc_gueltigVon = New Date(2026, 1, 1) Kunde_Sicherheit.sc_gueltigBis = New Date(2027, 12, 31) Kunde_Sicherheit.sc_datum = Today() Kunde_Sicherheit.sc_Mitarbeiter = "AUTO" + Kunde_Sicherheit.sc_dsId = -1 Kunde_Sicherheit.SAVE() End If