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

Kunden, Zollauswertung, MDM, eRechnung (aktuell noch deaktiviert!)

Browse Source
This commit is contained in:
d.breimaier
2024-12-02 09:15:04 +01:00
parent dfb4720882
commit 54e9643823
15 changed files with 868 additions and 589 deletions
Download Patch File Download Diff File Expand all files Collapse all files

431
SDL/kunden/usrcntlKundeBearbeitenFull.vb
View File

@@ -391,6 +391,8 @@ Public Class usrcntlKundeBearbeitenFull
btnCreditsafe.Visible = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("CREDITSAFE_Prüfung", "SDL")
PictureBox5.Visible = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("CREDITSAFE_Prüfung", "SDL")
initTabs()
Me.Cursor = Cursors.Default
End Sub
@@ -953,207 +955,8 @@ Public Class usrcntlKundeBearbeitenFull
Private Sub TabControl2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tbcntrDetails.SelectedIndexChanged
If KUNDE Is Nothing OrElse KUNDE.KundenNr <= 0 Then Exit Sub
If tbcntrDetails.SelectedTab Is tbUmsatz Then
With dgvUmsatzbericht
.DataSource = sql.loadDgvBySql("SELECT [KundenNr],[Jahr],[steuerpflichtig],[steuerfrei],[Nettoumsatz],[MwSt],[Bruttoumsatz],[Währung],[Rechnungen],[Gutschriften],[Datum],[Nummer]" &
" FROM [tblKundenumsatz] " &
" WHERE [KundenNr]='" & KUNDE.KundenNr & "' ORDER BY Jahr DESC", "FMZOLL")
.Columns(0).Visible = False
.Columns(11).Visible = False
.Columns(1).Width = 40
.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns(2).Width = 75
.Columns(2).DefaultCellStyle.Format = "N2"
.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
.Columns(3).Width = 75
.Columns(3).DefaultCellStyle.Format = "N2"
.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
.Columns(4).Width = 75
.Columns(4).DefaultCellStyle.Format = "N2"
.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
.Columns(5).Width = 55
.Columns(5).DefaultCellStyle.Format = "N2"
.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
.Columns(6).Width = 75
.Columns(6).DefaultCellStyle.Format = "N2"
.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
.Columns(7).Width = 60
.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns(8).Width = 55
.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns(8).HeaderText = "Rechng."
.Columns(9).Width = 53
.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns(9).HeaderText = "Gutschr."
.Columns(10).MinimumWidth = 65
.Columns(10).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
' If .RowCount > 0 Then
'txtUmsatzJahr.Text = String.Format("{0:n}", .Rows(0).Cells("Nettoumsatz").Value)
' Label29.Text = "Umsatz " & .Rows(0).Cells("Jahr").Value & ":"
' Else
' txtUmsatzJahr.Text = ""
' End If
End With
End If
If tbcntrDetails.SelectedTab Is tbOP Then
With dgvOffenePosten
.DataSource = sql.loadDgvBySql("SELECT [Kontonummer] as KdNr,[Belegdatum] as Datum,[Belegnummer] as Nummer,[Bruttobetrag] as Betrag,[Gesamtausstand] as [OP-Saldo],[Waehrung] as Währung,[KumSaldoEUR] ,[Buchungstext] as Referenz " &
" FROM [Offene Posten] " &
" WHERE [Kontonummer]='" & KUNDE.KundenNr & "' ORDER BY Belegdatum DESC", "FMZOLL")
.Columns(0).Visible = False
.Columns(1).Width = 65
.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns(3).Width = 75
.Columns(3).DefaultCellStyle.Format = "N2"
.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
.Columns(4).Width = 75
.Columns(4).DefaultCellStyle.Format = "N2"
.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
.Columns(5).Width = 60
.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns(6).Width = 80
.Columns(6).DefaultCellStyle.Format = "N2"
.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
.Columns(7).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
' If .RowCount > 0 Then
' txtOffenePosten.Text = String.Format("C2", .Rows(0).Cells("KumSaldoEUR").Value)
' txtOffenePosten.Text = String.Format("{0:n}", .Rows(0).Cells("KumSaldoEUR").Value)
'Else
' txtOffenePosten.Text = ""
' End If
End With
End If
If tbcntrDetails.SelectedTab Is tbBank Then
initdgvKreditkarten()
End If
If tbcntrDetails.SelectedTab Is tbUmsatzsteuer Then
With dgvUstv_LaenderUndSteuernummern
cBinding_dgvUStV.initBinding(" SELECT [AdressenNr],LandNr,[StNrFürRückerstattungUSt],[StNrGültigkeitsdatum] ,[UStV],[VertretungsvollmachtAusgestelltAm],[VertretungsvollmachtErhaltenAm],[AuszahlungsvollmachtAusgestelltAm],[AuszahlungsvollmachtErhaltenAm] ,[Bemerkung] " &
" FROM [tblSteuernummern] " &
" WHERE AdressenNr = '" & KUNDE.KundenNr & "' ", "tblSteuernummern")
AddHandler btnUStVAendSpeichern.Click,
Sub(send As Object, evnt As EventArgs)
If cBinding_dgvUStV.updateBinding() Then
send.Enabled = False
End If
End Sub
AddHandler cBinding_dgvUStV.bindingdataTable.ColumnChanged,
Sub(send As Object, evnt As EventArgs)
btnUStVAendSpeichern.Enabled = True
End Sub
AddHandler .UserDeletedRow,
Sub(send As Object, evnt As DataGridViewRowEventArgs)
btnUStVAendSpeichern.Enabled = True
End Sub
.DataSource = cBinding_dgvUStV.bindingdataTable
FUNC.dgvCellToCbo(dgvUstv_LaenderUndSteuernummern, 1, "Land", "LandNr", "SELECT LandNr, LandBez FROM [Länderverzeichnis für die Außenhandelsstatistik] ORDER BY LandBez ", "FMZOLL")
.DataSource.Columns("AdressenNr").DefaultValue = KUNDE.KundenNr
.DataSource.Columns("UStV").DefaultValue = False
.Columns(0).Visible = False
.Columns(1).Width = 120
.Columns(1).HeaderText = "Land"
' .Columns(1).CellType = DataGridViewComboBoxColumn
.Columns(2).Width = 120
.Columns(2).HeaderText = "Steuernummer"
' .Columns(2).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns(3).Width = 75
.Columns(3).HeaderText = "gültig bis"
.Columns(4).Width = 40
.Columns(5).Width = 80
.Columns(5).HeaderText = "Vetret.-VM" & vbNewLine & "ausgestellt am"
.Columns(6).Width = 80
.Columns(6).HeaderText = "Vetret.-VM" & vbNewLine & "erhalten am"
.Columns(7).Width = 80
.Columns(7).HeaderText = "Auszzahl.-VM" & vbNewLine & "ausgestellt am"
.Columns(8).Width = 80
.Columns(8).HeaderText = "Auszzahl.-VM" & vbNewLine & "erhalten am"
.Columns(9).Width = 200
End With
End If
If tbcntrDetails.SelectedTab Is tbSonstiges Then
With dgvSonst_IDSKunden
cBinding_dgvSonst_IDSKunden.initBinding(" SELECT [KdNrVERAG],[CustomerCode],[KdNrAlt],[Zeitstempel],[Sachbearbeiter] " &
" FROM [tbl_IDS_Kunden] " &
" WHERE KdNrVERAG = '" & KUNDE.KundenNr & "' ", "tbl_IDS_Kunden")
AddHandler btnSonstAendSpeichern.Click,
Sub(send As Object, evnt As EventArgs)
If cBinding_dgvSonst_IDSKunden.updateBinding() Then
send.Enabled = False
End If
End Sub
AddHandler cBinding_dgvSonst_IDSKunden.bindingdataTable.ColumnChanged,
Sub(send As Object, evnt As EventArgs)
btnSonstAendSpeichern.Enabled = True
End Sub
AddHandler .UserDeletedRow,
Sub(send As Object, evnt As DataGridViewRowEventArgs)
btnSonstAendSpeichern.Enabled = True
End Sub
.DataSource = cBinding_dgvSonst_IDSKunden.bindingdataTable
' dgvCellToCbo(dgvUstv_LaenderUndSteuernummern, "Land", "LandNr", "SELECT LandNr, LandBez FROM [VERAG].[dbo].[Länderverzeichnis für die Außenhandelsstatistik] ORDER BY LandBez ")
.DataSource.Columns("KdNrVERAG").DefaultValue = KUNDE.KundenNr
.DataSource.Columns("Zeitstempel").DefaultValue = Now
.DataSource.Columns("Sachbearbeiter").DefaultValue = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
.Columns(0).Visible = False
.Columns(1).HeaderText = "IDS-Kunden-Nummer"
.Columns(2).ReadOnly = False
.Columns(3).ReadOnly = False
.Columns(4).ReadOnly = False
.Columns(4).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
End With
End If
If tbcntrDetails.SelectedTab Is tbBankverbindungen Then
initdgvBankverbindungen(bankverbindungBearbeiten)
End If
initTabs()
End Sub
@@ -2132,4 +1935,232 @@ Public Class usrcntlKundeBearbeitenFull
End Sub
Private Sub dgvinitLaenderUndSteuernummern()
With dgvUstv_LaenderUndSteuernummern
cBinding_dgvUStV.initBinding(" SELECT [AdressenNr],LandNr,[StNrFürRückerstattungUSt],[StNrGültigkeitsdatum] ,[UStV],[VertretungsvollmachtAusgestelltAm],[VertretungsvollmachtErhaltenAm],[AuszahlungsvollmachtAusgestelltAm],[AuszahlungsvollmachtErhaltenAm] ,[Bemerkung] " &
" FROM [tblSteuernummern] " &
" WHERE AdressenNr = '" & KUNDE.KundenNr & "' ", "tblSteuernummern")
AddHandler btnUStVAendSpeichern.Click,
Sub(send As Object, evnt As EventArgs)
If cBinding_dgvUStV.updateBinding() Then
send.Enabled = False
End If
End Sub
AddHandler cBinding_dgvUStV.bindingdataTable.ColumnChanged,
Sub(send As Object, evnt As EventArgs)
btnUStVAendSpeichern.Enabled = True
End Sub
AddHandler .UserDeletedRow,
Sub(send As Object, evnt As DataGridViewRowEventArgs)
btnUStVAendSpeichern.Enabled = True
End Sub
.DataSource = cBinding_dgvUStV.bindingdataTable
FUNC.dgvCellToCbo(dgvUstv_LaenderUndSteuernummern, 1, "Land", "LandNr", "SELECT LandNr, LandBez FROM [Länderverzeichnis für die Außenhandelsstatistik] ORDER BY LandBez ", "FMZOLL")
.DataSource.Columns("AdressenNr").DefaultValue = KUNDE.KundenNr
.DataSource.Columns("UStV").DefaultValue = False
.Columns(0).Visible = False
.Columns(1).Width = 120
.Columns(1).HeaderText = "Land"
' .Columns(1).CellType = DataGridViewComboBoxColumn
.Columns(2).Width = 120
.Columns(2).HeaderText = "Steuernummer"
' .Columns(2).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns(3).Width = 75
.Columns(3).HeaderText = "gültig bis"
.Columns(4).Width = 40
.Columns(5).Width = 80
.Columns(5).HeaderText = "Vetret.-VM" & vbNewLine & "ausgestellt am"
.Columns(6).Width = 80
.Columns(6).HeaderText = "Vetret.-VM" & vbNewLine & "erhalten am"
.Columns(7).Width = 80
.Columns(7).HeaderText = "Auszzahl.-VM" & vbNewLine & "ausgestellt am"
.Columns(8).Width = 80
.Columns(8).HeaderText = "Auszzahl.-VM" & vbNewLine & "erhalten am"
.Columns(9).Width = 200
End With
End Sub
Private Sub initdgvIDSKunden()
With dgvSonst_IDSKunden
cBinding_dgvSonst_IDSKunden.initBinding(" SELECT [KdNrVERAG],[CustomerCode],[KdNrAlt],[Zeitstempel],[Sachbearbeiter] " &
" FROM [tbl_IDS_Kunden] " &
" WHERE KdNrVERAG = '" & KUNDE.KundenNr & "' ", "tbl_IDS_Kunden")
AddHandler btnSonstAendSpeichern.Click,
Sub(send As Object, evnt As EventArgs)
If cBinding_dgvSonst_IDSKunden.updateBinding() Then
send.Enabled = False
End If
End Sub
AddHandler cBinding_dgvSonst_IDSKunden.bindingdataTable.ColumnChanged,
Sub(send As Object, evnt As EventArgs)
btnSonstAendSpeichern.Enabled = True
End Sub
AddHandler .UserDeletedRow,
Sub(send As Object, evnt As DataGridViewRowEventArgs)
btnSonstAendSpeichern.Enabled = True
End Sub
.DataSource = cBinding_dgvSonst_IDSKunden.bindingdataTable
' dgvCellToCbo(dgvUstv_LaenderUndSteuernummern, "Land", "LandNr", "SELECT LandNr, LandBez FROM [VERAG].[dbo].[Länderverzeichnis für die Außenhandelsstatistik] ORDER BY LandBez ")
.DataSource.Columns("KdNrVERAG").DefaultValue = KUNDE.KundenNr
.DataSource.Columns("Zeitstempel").DefaultValue = Now
.DataSource.Columns("Sachbearbeiter").DefaultValue = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
.Columns(0).Visible = False
.Columns(1).HeaderText = "IDS-Kunden-Nummer"
.Columns(2).ReadOnly = False
.Columns(3).ReadOnly = False
.Columns(4).ReadOnly = False
.Columns(4).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
End With
End Sub
Private Sub initdgvOP()
With dgvOffenePosten
.DataSource = sql.loadDgvBySql("SELECT [Kontonummer] as KdNr,[Belegdatum] as Datum,[Belegnummer] as Nummer,[Bruttobetrag] as Betrag,[Gesamtausstand] as [OP-Saldo],[Waehrung] as Währung,[KumSaldoEUR] ,[Buchungstext] as Referenz " &
" FROM [Offene Posten] " &
" WHERE [Kontonummer]='" & KUNDE.KundenNr & "' ORDER BY Belegdatum DESC", "FMZOLL")
.Columns(0).Visible = False
.Columns(1).Width = 65
.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns(3).Width = 75
.Columns(3).DefaultCellStyle.Format = "N2"
.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
.Columns(4).Width = 75
.Columns(4).DefaultCellStyle.Format = "N2"
.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
.Columns(5).Width = 60
.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns(6).Width = 80
.Columns(6).DefaultCellStyle.Format = "N2"
.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
.Columns(7).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
' If .RowCount > 0 Then
' txtOffenePosten.Text = String.Format("C2", .Rows(0).Cells("KumSaldoEUR").Value)
' txtOffenePosten.Text = String.Format("{0:n}", .Rows(0).Cells("KumSaldoEUR").Value)
'Else
' txtOffenePosten.Text = ""
' End If
End With
End Sub
Private Sub initdgvUmsatzbericht()
With dgvUmsatzbericht
.DataSource = sql.loadDgvBySql("SELECT [KundenNr],[Jahr],[steuerpflichtig],[steuerfrei],[Nettoumsatz],[MwSt],[Bruttoumsatz],[Währung],[Rechnungen],[Gutschriften],[Datum],[Nummer]" &
" FROM [tblKundenumsatz] " &
" WHERE [KundenNr]='" & KUNDE.KundenNr & "' ORDER BY Jahr DESC", "FMZOLL")
.Columns(0).Visible = False
.Columns(11).Visible = False
.Columns(1).Width = 40
.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns(2).Width = 75
.Columns(2).DefaultCellStyle.Format = "N2"
.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
.Columns(3).Width = 75
.Columns(3).DefaultCellStyle.Format = "N2"
.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
.Columns(4).Width = 75
.Columns(4).DefaultCellStyle.Format = "N2"
.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
.Columns(5).Width = 55
.Columns(5).DefaultCellStyle.Format = "N2"
.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
.Columns(6).Width = 75
.Columns(6).DefaultCellStyle.Format = "N2"
.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
.Columns(7).Width = 60
.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns(8).Width = 55
.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns(8).HeaderText = "Rechng."
.Columns(9).Width = 53
.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns(9).HeaderText = "Gutschr."
.Columns(10).MinimumWidth = 65
.Columns(10).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
' If .RowCount > 0 Then
'txtUmsatzJahr.Text = String.Format("{0:n}", .Rows(0).Cells("Nettoumsatz").Value)
' Label29.Text = "Umsatz " & .Rows(0).Cells("Jahr").Value & ":"
' Else
' txtUmsatzJahr.Text = ""
' End If
End With
End Sub
Private Sub initTabs()
If KUNDE Is Nothing OrElse KUNDE.KundenNr <= 0 Then Exit Sub
If tbcntrDetails.SelectedTab Is tbUmsatz Then
initdgvUmsatzbericht()
End If
If tbcntrDetails.SelectedTab Is tbOP Then
initdgvOP()
End If
If tbcntrDetails.SelectedTab Is tbBank Then
initdgvKreditkarten()
End If
If tbcntrDetails.SelectedTab Is tbUmsatzsteuer Then
dgvinitLaenderUndSteuernummern()
End If
If tbcntrDetails.SelectedTab Is tbSonstiges Then
initdgvIDSKunden()
End If
If tbcntrDetails.SelectedTab Is tbBankverbindungen Then
initdgvBankverbindungen(bankverbindungBearbeiten)
End If
End Sub
End Class