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

Kundenuebersicht etc.

Browse Source
This commit is contained in:
d.breimaier
2026-11-11 10:22:14 +01:00
parent 104287f89b
commit a5e1bd9672
15 changed files with 10729 additions and 2588 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
VERAG_PROG_ALLGEMEIN/AuditFlow/frmFirmenuebersicht.Designer.vb generated
View File

@@ -22,11 +22,11 @@ Partial Class frmFirmenuebersicht
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFirmenuebersicht))
Me.Panel1 = New System.Windows.Forms.Panel()
Me.pnloptions = New System.Windows.Forms.Panel()
Me.Label7 = New System.Windows.Forms.Label()
Me.Button2 = New System.Windows.Forms.Button()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.lblMail2 = New System.Windows.Forms.Label()
@@ -49,9 +49,8 @@ Partial Class frmFirmenuebersicht
Me.Label5 = New System.Windows.Forms.Label()
Me.pnlTop = New System.Windows.Forms.Panel()
Me.Label4 = New System.Windows.Forms.Label()
Me.dgvFirmen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.dgvEmailSettings = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Label7 = New System.Windows.Forms.Label()
Me.dgvFirmen = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
Me.dgvEmailSettings = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
Me.Panel1.SuspendLayout()
Me.pnloptions.SuspendLayout()
Me.Panel2.SuspendLayout()
@@ -72,7 +71,7 @@ Partial Class frmFirmenuebersicht
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(1503, 789)
Me.Panel1.Size = New System.Drawing.Size(1533, 789)
Me.Panel1.TabIndex = 4
'
'pnloptions
@@ -84,9 +83,19 @@ Partial Class frmFirmenuebersicht
Me.pnloptions.Dock = System.Windows.Forms.DockStyle.Bottom
Me.pnloptions.Location = New System.Drawing.Point(0, 632)
Me.pnloptions.Name = "pnloptions"
Me.pnloptions.Size = New System.Drawing.Size(1503, 157)
Me.pnloptions.Size = New System.Drawing.Size(1533, 157)
Me.pnloptions.TabIndex = 12
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label7.Location = New System.Drawing.Point(1068, 11)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(174, 13)
Me.Label7.TabIndex = 41
Me.Label7.Text = "Mail-Exchange-Einstellungen:"
'
'Button2
'
Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
@@ -128,7 +137,7 @@ Partial Class frmFirmenuebersicht
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel2.Location = New System.Drawing.Point(0, 0)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(1503, 118)
Me.Panel2.Size = New System.Drawing.Size(1533, 118)
Me.Panel2.TabIndex = 11
'
'lblMail2
@@ -314,7 +323,7 @@ Partial Class frmFirmenuebersicht
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(1503, 41)
Me.pnlTop.Size = New System.Drawing.Size(1533, 41)
Me.pnlTop.TabIndex = 6
'
'Label4
@@ -335,6 +344,8 @@ Partial Class frmFirmenuebersicht
Me.dgvFirmen.AllowUserToDeleteRows = False
Me.dgvFirmen.AllowUserToOrderColumns = True
Me.dgvFirmen.AllowUserToResizeRows = False
Me.dgvFirmen.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.dgvFirmen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Window
@@ -344,11 +355,10 @@ Partial Class frmFirmenuebersicht
DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvFirmen.DefaultCellStyle = DataGridViewCellStyle1
Me.dgvFirmen.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvFirmen.Location = New System.Drawing.Point(0, 118)
Me.dgvFirmen.Name = "dgvFirmen"
Me.dgvFirmen.RowHeadersVisible = False
Me.dgvFirmen.Size = New System.Drawing.Size(1503, 514)
Me.dgvFirmen.Size = New System.Drawing.Size(1530, 514)
Me.dgvFirmen.TabIndex = 10
'
'dgvEmailSettings
@@ -356,31 +366,23 @@ Partial Class frmFirmenuebersicht
Me.dgvEmailSettings.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvEmailSettings.AllowUserToAddRows = False
Me.dgvEmailSettings.AllowUserToDeleteRows = False
Me.dgvEmailSettings.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.dgvEmailSettings.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvEmailSettings.Location = New System.Drawing.Point(1071, 27)
Me.dgvEmailSettings.Name = "dgvEmailSettings"
Me.dgvEmailSettings.ReadOnly = True
Me.dgvEmailSettings.RowHeadersVisible = False
Me.dgvEmailSettings.ShowEditingIcon = False
Me.dgvEmailSettings.Size = New System.Drawing.Size(429, 127)
Me.dgvEmailSettings.Size = New System.Drawing.Size(459, 127)
Me.dgvEmailSettings.TabIndex = 2
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label7.Location = New System.Drawing.Point(1068, 11)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(174, 13)
Me.Label7.TabIndex = 41
Me.Label7.Text = "Mail-Exchange-Einstellungen:"
'
'frmFirmenuebersicht
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(1503, 789)
Me.ClientSize = New System.Drawing.Size(1533, 789)
Me.Controls.Add(Me.pnlTop)
Me.Controls.Add(Me.Panel1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)

16
VERAG_PROG_ALLGEMEIN/AuditFlow/frmFirmenuebersicht.vb
View File

@@ -28,9 +28,9 @@ Public Class frmFirmenuebersicht
sqlstr &= " Select [Firma_ID] ,[Firma_Bez],[Firma_Straße],[Firma_PLZ],[Firma_Ort],[Firma_LandKz] as Land,replace([Firma_Telefon],'Tel. ','') as Firma_Telefon ,replace([Firma_Telefax],'Fax ','') as Firma_Telefax ,Replace([Firma_UID],'UID: ', '') as Firma_UID ,Replace([Firma_EORI],'EORI: ', '') as Firma_EORI,
[Firma_Bankverbindung1],Replace([Firma_IBAN1],'IBAN: ', '') as Firma_IBAN1, Replace([Firma_BIC1],'BIC: ', '') as Firma_BIC1,[Firma_Bankverbindung2],[Firma_IBAN2],[Firma_BIC2],[Firma_E-Mail],
[Firma_Webadresse],[Firmengruppe],[Firma_Warenort],[Firma_E_Mail_Mahnungen],[Firma_E_Mail_Fakturierung],[Firma_Steuernummer] ,Replace([Firma_Firmenbuch],'Firmenbuch: ', '') as Firma_Firmenbuch,[Firma_Logo],[Firma_Logo_Erweitert] from tblFirma "
[Firma_Webadresse],[Firmengruppe],[Firma_Warenort],[Firma_E_Mail_Mahnungen],[Firma_E_Mail_Fakturierung],[Firma_Steuernummer] ,Replace([Firma_Firmenbuch],'Firmenbuch: ', '') as Firma_Firmenbuch,[Firma_Logo],[Firma_Logo_Erweitert], [Firma_enableUIDPruefung] as [UID-Prüfung] from tblFirma "
Dim sqlstr_Mailsettings As String = " select mail_username as 'user',mail_password as PW, mail_host as Host, mail_port as Port,mail_kindOfMail, mail_firmaID from tblMailSettings"
Dim sqlstr_Mailsettings As String = " select mail_username as 'user',mail_password as PW, mail_host as Host, mail_port as Port,mail_kindOfMail as kindOfMail, mail_firmaID from tblMailSettings"
dt = SQL.loadDgvBySql(sqlstr_Mailsettings, "ADMIN")
@@ -70,20 +70,25 @@ Public Class frmFirmenuebersicht
.Columns("Firma_E_Mail_Mahnungen").Visible = False
.Columns("Firma_E_Mail_Fakturierung").Visible = False
.Columns("Firma_ID").Width = 30
.Columns("Firma_Warenort").Width = 60
.Columns("Firma_ID").Width = 20
.Columns("Firma_Warenort").Width = 50
.Columns("Firma_PLZ").Width = 60
.Columns("Land").Width = 40
.Columns("Firma_Bez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("UID-Prüfung").Width = 75
If Not dgvFirmen.Columns.Contains("EmailEinstellungen") Then
Dim col As New DataGridViewCheckBoxColumn()
col.Name = "EmailEinstellungen"
col.HeaderText = "E-Mail-Settings"
col.HeaderText = "EMail-Settings"
col.ReadOnly = True
dgvFirmen.Columns.Add(col)
.Columns("EmailEinstellungen").Width = 75
End If
For Each col As DataGridViewColumn In dgvFirmen.Columns
@@ -153,6 +158,7 @@ Public Class frmFirmenuebersicht
If rows.Length > 0 Then
dgvEmailSettings.DataSource = rows.CopyToDataTable()
dgvEmailSettings.Columns("mail_firmaID").Visible = False
dgvEmailSettings.Columns("user").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
Else
dgvEmailSettings.DataSource = Nothing
End If

1
VERAG_PROG_ALLGEMEIN/Classes/cKundenSicherheiten.vb
View File

@@ -26,6 +26,7 @@ Public Class cKundenSicherheiten
Public Property sc_cbam_jahr As Integer? = Nothing
Public Property sc_cbam_quartal As Integer? = Nothing
Public Property sc_updated As DateTime? = Nothing
Public hasEntry As Boolean = False

22
VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb
View File

@@ -144,10 +144,10 @@ Public Class cUIDPruefung
End Function
Public Shared Function doUIDPruefungALL(Optional datum As Object = Nothing, Optional SaveErgInAdressen As Boolean = True, Optional Sciherheitsabfrage As Boolean = True, Optional MaxEintraege As Integer = -1, Optional showErr As Boolean = True, Optional finanzOnline As Boolean = True, Optional veroegerungMs As Integer = 3000) As DataTable
Public Shared Function doUIDPruefungALL(Optional datum As Object = Nothing, Optional SaveErgInAdressen As Boolean = True, Optional Sciherheitsabfrage As Boolean = True, Optional MaxEintraege As Integer = -1, Optional showErr As Boolean = True, Optional finanzOnline As Boolean = True, Optional veroegerungMs As Integer = 3000, Optional olderThanCurrentMonth As Boolean = False) As DataTable
Dim dt As DataTable = Nothing
dt = get_zupruefendeKunden(MaxEintraege, datum,, True)
dt = get_zupruefendeKunden(MaxEintraege, datum,, True, olderThanCurrentMonth)
If dt IsNot Nothing Then
If dt.Rows.Count = 0 Then Return Nothing
@@ -302,19 +302,29 @@ Public Class cUIDPruefung
Return dt
End Function
Public Shared Function get_zupruefendeKunden(MaxEintraege As Integer, Optional datum As Object = Nothing, Optional Firma As String = "", Optional Validierungspruefung As Boolean = False) As DataTable
Public Shared Function get_zupruefendeKunden(MaxEintraege As Integer, Optional datum As Object = Nothing, Optional Firma As String = "", Optional Validierungspruefung As Boolean = False, Optional olderThanCurrentMonth As Boolean = False) As DataTable
Dim dt As DataTable = Nothing
If datum = Nothing Then datum = CDate("15." & Now.ToString("MM.yyyy")).AddMonths(-1)
Dim where = ""
Dim WhereDateOrMonthCondition As String = "UstIdGeprüft <= '" & datum.ToShortDateString & "'"
Dim WhereDateOrMonthConditionVeranlagung As String = "VAUID.UstIdGeprüft <= '" & datum.ToShortDateString & "'"
If olderThanCurrentMonth Then
WhereDateOrMonthCondition = "Month(UstIdGeprüft) <" & Now().Month & " and Year(UstIdGeprüft) <=" & Now().Year
WhereDateOrMonthConditionVeranlagung = "Month(VAUID.UstIdGeprüft) <" & Now().Month & " and Year(VAUID.UstIdGeprüft) <=" & Now().Year
End If
If Firma = "" Then
Firma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
End If
Select Case Firma
Case "AMBAR" : where = " And Filialen.FilialenNr IN (5701) "
Case " AMBAR" : where = " And Filialen.FilialenNr IN (5701) "
Case "IMEX" : where = " And Filialen.FilialenNr IN (5501) "
Case "ATILLA" : where = " And Filialen.FilialenNr IN (4801) "
Case "VERAG 360 GmbH" : where = " And Filialen.FilialenNr IN (8001) "
@@ -343,7 +353,7 @@ Public Class cUIDPruefung
ELSE 'Nein'
END AS istEUVAT, 'UID' as typ " &
" From [Adressen] inner Join kunden On KundenNr=AdressenNr inner join Filialen on Filialen.FilialenNr=Kunden.FilialenNr " &
" where (UstIdGeprüft <= '" & datum.ToShortDateString & "' OR UstIdGeprüft is null) and (isnull(Adressen.UstIdKz,'') <> '' and isnull(Adressen.UstIdNr,'') <> '') " &
" where ( " & WhereDateOrMonthCondition & " OR UstIdGeprüft is null) and (isnull(Adressen.UstIdKz,'') <> '' and isnull(Adressen.UstIdNr,'') <> '') " &
" And Auswahl='A' " & where
Dim SQLUID_Veranlagungskunden As String = "SELECT VAUID.KdNr,[Ordnungsbegriff] as Firma, VAUID.UstIdGeprüft, VAUID.UstIdKz,VAUID.UstIdNr, CASE WHEN UPPER(VAUID.UstIdKz) IN (
@@ -354,7 +364,7 @@ Public Class cUIDPruefung
inner Join [Adressen] On AdressenNr=VAUID.KdNr
inner Join kunden On KundenNr=VAUID.KdNr
inner join Filialen on Filialen.FilialenNr=Kunden.FilialenNr
where (VAUID.UstIdGeprüft <= '" & datum.ToShortDateString & "' OR VAUID.UstIdGeprüft is null) and (isnull(VAUID.UstIdKz,'') <> '' and isnull(VAUID.UstIdNr,'') <> '') AND Filialen.firma='VERAG' " & where.Replace("Adressen.", "VAUID.")
where (" & WhereDateOrMonthConditionVeranlagung & " OR VAUID.UstIdGeprüft is null) and (isnull(VAUID.UstIdKz,'') <> '' and isnull(VAUID.UstIdNr,'') <> '') AND Filialen.firma='VERAG' " & where.Replace("Adressen.", "VAUID.")
dt = SQL.loadDgvBySql(SQLUID & " UNION ALL " & SQLUID_Veranlagungskunden & " ORDER BY Ordnungsbegriff", "FMZOLL")

2
VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_CustomsDeclarations.vb
View File

@@ -895,6 +895,7 @@ Public Class cVERAG_CustomsDeclarations
Dim Kunde_Sicherheit As New cKundenSicherheiten(KUNDE.KundenNr, cbamQquarter, cbamYear)
If Kunde_Sicherheit.hasEntry Then
Kunde_Sicherheit.sc_updated = Now()
Kunde_Sicherheit.sc_Betrag = gesamtBetrag
Kunde_Sicherheit.SAVE()
Else
@@ -906,6 +907,7 @@ Public Class cVERAG_CustomsDeclarations
Kunde_Sicherheit.sc_gueltigBis = New Date(2027, 12, 31)
Kunde_Sicherheit.sc_datum = Today()
Kunde_Sicherheit.sc_Mitarbeiter = "AUTO"
Kunde_Sicherheit.sc_MitarbeiterId = -1
Kunde_Sicherheit.sc_dsId = -1
Kunde_Sicherheit.SAVE()
End If