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

fakt, Nacherfassung

Browse Source
This commit is contained in:
d.breimaier
2025-11-04 16:18:57 +01:00
parent 1c6bfcbd61
commit 4e88299736
3 changed files with 49 additions and 37 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
SDL/Fakturierung/cFakturierung.vb
View File

@@ -2351,6 +2351,7 @@ Public Class cFakturierung
' 'rpt.lbl_onlyZR_ZinsenUeberschrift.Text = "Dobândă p.a." ' 'rpt.lbl_onlyZR_ZinsenUeberschrift.Text = "Dobândă p.a."
Case Else Case Else
rpt.lblLeistungUeberschrift.Text = "RENR" rpt.lblLeistungUeberschrift.Text = "RENR"
rpt.lblAnzahlUeberschrift.Text = "VZ Tage" rpt.lblAnzahlUeberschrift.Text = "VZ Tage"
rpt.lblSteuerpflichtigUeberschrift.Text = "Zahlungsbetrag" rpt.lblSteuerpflichtigUeberschrift.Text = "Zahlungsbetrag"

24
SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.Designer.vb generated
View File

@@ -121,6 +121,7 @@ Partial Class frmNacherfassungNEU
Me.Label34 = New System.Windows.Forms.Label() Me.Label34 = New System.Windows.Forms.Label()
Me.btnFertig = New System.Windows.Forms.Button() Me.btnFertig = New System.Windows.Forms.Button()
Me.Panel1 = New System.Windows.Forms.Panel() Me.Panel1 = New System.Windows.Forms.Panel()
Me.Label66 = New System.Windows.Forms.Label()
Me.cboAbfertigungsLand = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cboAbfertigungsLand = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cbxEIDR = New System.Windows.Forms.CheckBox() Me.cbxEIDR = New System.Windows.Forms.CheckBox()
Me.Button4 = New System.Windows.Forms.Button() Me.Button4 = New System.Windows.Forms.Button()
@@ -236,7 +237,6 @@ Partial Class frmNacherfassungNEU
Me.DataGridViewTextBoxColumn5 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn5 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.KopierenZwischenablageToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.KopierenZwischenablageToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Label66 = New System.Windows.Forms.Label()
Me.pnl.SuspendLayout() Me.pnl.SuspendLayout()
Me.Panel3.SuspendLayout() Me.Panel3.SuspendLayout()
Me.GroupBox4.SuspendLayout() Me.GroupBox4.SuspendLayout()
@@ -1572,6 +1572,17 @@ Partial Class frmNacherfassungNEU
Me.Panel1.Size = New System.Drawing.Size(883, 818) Me.Panel1.Size = New System.Drawing.Size(883, 818)
Me.Panel1.TabIndex = 1 Me.Panel1.TabIndex = 1
' '
'Label66
'
Me.Label66.AutoSize = True
Me.Label66.ForeColor = System.Drawing.Color.Red
Me.Label66.Location = New System.Drawing.Point(491, 613)
Me.Label66.Name = "Label66"
Me.Label66.Size = New System.Drawing.Size(105, 13)
Me.Label66.TabIndex = 94
Me.Label66.Text = "Antrags-ID angeben!"
Me.Label66.Visible = False
'
'cboAbfertigungsLand 'cboAbfertigungsLand
' '
Me.cboAbfertigungsLand._allowedValuesFreiText = Nothing Me.cboAbfertigungsLand._allowedValuesFreiText = Nothing
@@ -3444,17 +3455,6 @@ Partial Class frmNacherfassungNEU
Me.KopierenZwischenablageToolStripMenuItem.Size = New System.Drawing.Size(217, 22) Me.KopierenZwischenablageToolStripMenuItem.Size = New System.Drawing.Size(217, 22)
Me.KopierenZwischenablageToolStripMenuItem.Text = "Kopieren (Zwischenablage)" Me.KopierenZwischenablageToolStripMenuItem.Text = "Kopieren (Zwischenablage)"
' '
'Label66
'
Me.Label66.AutoSize = True
Me.Label66.ForeColor = System.Drawing.Color.Red
Me.Label66.Location = New System.Drawing.Point(491, 613)
Me.Label66.Name = "Label66"
Me.Label66.Size = New System.Drawing.Size(105, 13)
Me.Label66.TabIndex = 94
Me.Label66.Text = "Antrags-ID angeben!"
Me.Label66.Visible = False
'
'frmNacherfassungNEU 'frmNacherfassungNEU
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

11
SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb
View File

@@ -1,6 +1,7 @@
Imports GrapeCity.ActiveReports Imports GrapeCity.ActiveReports
Imports Gemeinsames Imports Gemeinsames
Imports System.Web.UI.WebControls.Expressions Imports System.Web.UI.WebControls.Expressions
Imports VERAG_PROG_ALLGEMEIN
Public Class frmNacherfassungNEU Public Class frmNacherfassungNEU
@@ -1511,8 +1512,17 @@ Public Class frmNacherfassungNEU
End If End If
ElseIf tbcntrRg.SelectedTab Is TabPage2 Then ElseIf tbcntrRg.SelectedTab Is TabPage2 Then
If dgvBelege.SelectedRows.Count = 0 Then Exit Sub If dgvBelege.SelectedRows.Count = 0 Then Exit Sub
If dgvBelege.SelectedRows(0).Cells("RK_ID").Value > 0 Then
Dim rechnugn As New cRechnungsausgang(dgvBelege.SelectedRows(0).Cells("RK_ID").Value)
If rechnugn.DruckDatumZeit IsNot Nothing Then
Dim f As New frmKundenUebersichtZollRgDetails(dgvBelege.SelectedRows(0).Cells("RK_ID").Value) Dim f As New frmKundenUebersichtZollRgDetails(dgvBelege.SelectedRows(0).Cells("RK_ID").Value)
f.ShowDialog() f.ShowDialog()
Else
MsgBox("Rechnung kann nicht geöffnet werden, weil sie noch nicht gedruckt wurde!")
End If
End If
ElseIf tbcntrRg.SelectedTab Is TabPage3 Then ElseIf tbcntrRg.SelectedTab Is TabPage3 Then
Try Try
Me.Cursor = Cursors.WaitCursor Me.Cursor = Cursors.WaitCursor
@@ -1668,6 +1678,7 @@ Public Class frmNacherfassungNEU
End If End If
End Sub End Sub
End Class End Class
Class cSpedBuch_Aktendeckel Class cSpedBuch_Aktendeckel