Admin
This commit is contained in:
@@ -10,7 +10,7 @@ Public Class frmFirmenuebersicht
|
||||
|
||||
Private Sub frminterneEmailBenachrichtigungen_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
|
||||
loadDGVMailbenachrichtigungen()
|
||||
|
||||
@@ -22,12 +22,12 @@ Public Class frmFirmenuebersicht
|
||||
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
|
||||
Dim TopMax = If(IsNumeric(MyTextBox2.Text), " TOP " & MyTextBox2.Text, "")
|
||||
Dim sqlstr As String = ""
|
||||
|
||||
|
||||
sqlstr &= " Select [Firma_ID] ,[Firma_Bez],Replace([Firma_Firmenbuch],'Firmenbuch: ', '') as Firma_Firmenbuch,Replace([Firma_UID],'UID: ', '') as Firma_UID ,Replace([Firma_EORI],'EORI: ', '') as Firma_EORI,[Firma_Bankverbindung1],[Firma_BLZ1],[Firma_KTO1],Replace([Firma_IBAN1],'IBAN: ', '') as Firma_IBAN1, Replace([Firma_BIC1],'BIC: ', '') as Firma_BIC1,[Firma_Bankverbindung2],[Firma_BLZ2],[Firma_KTO2],[Firma_IBAN2],[Firma_BIC2],[Firma_Ort],[Firma_Straße],[Firma_Telefon],[Firma_Telefax],[Firma_E-Mail],[Firma_Webadresse]
|
||||
,[Firma_LandKz],[Firmengruppe],[Firma_Warenort],[Firma_E_Mail_Mahnungen],[Firma_Steuernummer] ,[Firma_PLZ],[Firma_Logo],[Firma_Logo_Erweitert] from tblFirma "
|
||||
sqlstr &= " Select [Firma_ID] ,[Firma_Bez],[Firma_Straße],[Firma_PLZ],[Firma_Ort],[Firma_LandKz] as Land,[Firma_Telefon],[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_Steuernummer] ,Replace([Firma_Firmenbuch],'Firmenbuch: ', '') as Firma_Firmenbuch,[Firma_Logo],[Firma_Logo_Erweitert] from tblFirma "
|
||||
|
||||
With dgvFirmen
|
||||
|
||||
@@ -51,34 +51,24 @@ Public Class frmFirmenuebersicht
|
||||
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
|
||||
.MultiSelect = False
|
||||
|
||||
|
||||
|
||||
.Columns("Firma_Logo").Visible = False
|
||||
.Columns("Firma_Logo_Erweitert").Visible = False
|
||||
'.Columns("inaktivMA").Visible = False
|
||||
|
||||
.Columns("Firma_ID").Width = 40
|
||||
'.Columns("mb_object").HeaderText = "Benachrichtigung"
|
||||
|
||||
|
||||
'.Columns("Mitarbeiter").MinimumWidth = 100
|
||||
'.Columns("Mitarbeiter").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
|
||||
'.Columns("mb_beschreibung").MinimumWidth = 100
|
||||
'.Columns("mb_beschreibung").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
'.Columns("mb_beschreibung").HeaderText = "Info"
|
||||
|
||||
'.Columns("Emails").MinimumWidth = 100
|
||||
'.Columns("Emails").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
'.Columns("Emails").HeaderText = "EMail an"
|
||||
|
||||
'.Columns("Anzahl").Width = 50
|
||||
'.Columns("Anzahl").HeaderText = "# Empf."
|
||||
|
||||
'.Columns("Firma_Bez").Width = 150
|
||||
'.Columns("Firma_Bez").HeaderText = "Firma"
|
||||
|
||||
'.Columns("mb_aktiv").Width = 40
|
||||
'.Columns("mb_aktiv").HeaderText = "Aktiv"
|
||||
.Columns("Firma_Bankverbindung1").Visible = False
|
||||
.Columns("Firma_IBAN1").Visible = False
|
||||
.Columns("Firma_BIC1").Visible = False
|
||||
.Columns("Firma_Bankverbindung2").Visible = False
|
||||
.Columns("Firma_BIC2").Visible = False
|
||||
.Columns("Firma_IBAN2").Visible = False
|
||||
.Columns("Firma_E-Mail").Visible = False
|
||||
.Columns("Firma_E_Mail_Mahnungen").Visible = False
|
||||
|
||||
.Columns("Firma_ID").Width = 30
|
||||
.Columns("Firma_Warenort").Width = 60
|
||||
.Columns("Firma_PLZ").Width = 60
|
||||
.Columns("Land").Width = 40
|
||||
.Columns("Firma_Bez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
|
||||
For Each col As DataGridViewColumn In dgvFirmen.Columns
|
||||
|
||||
@@ -101,6 +91,23 @@ Public Class frmFirmenuebersicht
|
||||
|
||||
lblFirma.Text = dgvFirmen.SelectedRows(0).Cells("Firma_Bez").Value
|
||||
|
||||
lblBank1.Text = If(IsDBNull(dgvFirmen.SelectedRows(0).Cells("Firma_Bankverbindung1").Value) OrElse dgvFirmen.SelectedRows(0).Cells("Firma_Bankverbindung1").Value Is Nothing, "", dgvFirmen.SelectedRows(0).Cells("Firma_Bankverbindung1").Value.ToString())
|
||||
|
||||
lblIban1.Text = If(IsDBNull(dgvFirmen.SelectedRows(0).Cells("Firma_IBAN1").Value) OrElse dgvFirmen.SelectedRows(0).Cells("Firma_IBAN1").Value Is Nothing, "", dgvFirmen.SelectedRows(0).Cells("Firma_IBAN1").Value.ToString())
|
||||
|
||||
lblBic1.Text = If(IsDBNull(dgvFirmen.SelectedRows(0).Cells("Firma_BIC1").Value) OrElse dgvFirmen.SelectedRows(0).Cells("Firma_BIC1").Value Is Nothing, "", dgvFirmen.SelectedRows(0).Cells("Firma_BIC1").Value.ToString())
|
||||
|
||||
lblBank2.Text = If(IsDBNull(dgvFirmen.SelectedRows(0).Cells("Firma_Bankverbindung2").Value) OrElse dgvFirmen.SelectedRows(0).Cells("Firma_Bankverbindung2").Value Is Nothing, "", dgvFirmen.SelectedRows(0).Cells("Firma_Bankverbindung2").Value.ToString())
|
||||
|
||||
lblIban2.Text = If(IsDBNull(dgvFirmen.SelectedRows(0).Cells("Firma_IBAN2").Value) OrElse dgvFirmen.SelectedRows(0).Cells("Firma_IBAN2").Value Is Nothing, "", dgvFirmen.SelectedRows(0).Cells("Firma_IBAN2").Value.ToString())
|
||||
|
||||
lblBic2.Text = If(IsDBNull(dgvFirmen.SelectedRows(0).Cells("Firma_BIC2").Value) OrElse dgvFirmen.SelectedRows(0).Cells("Firma_BIC2").Value Is Nothing, "", dgvFirmen.SelectedRows(0).Cells("Firma_BIC2").Value.ToString())
|
||||
|
||||
lblMail1.Text = If(IsDBNull(dgvFirmen.SelectedRows(0).Cells("Firma_E-Mail").Value) OrElse dgvFirmen.SelectedRows(0).Cells("Firma_E-Mail").Value Is Nothing, "-", dgvFirmen.SelectedRows(0).Cells("Firma_E-Mail").Value.ToString())
|
||||
|
||||
lblMail2.Text = If(IsDBNull(dgvFirmen.SelectedRows(0).Cells("Firma_E_Mail_Mahnungen").Value) OrElse dgvFirmen.SelectedRows(0).Cells("Firma_E_Mail_Mahnungen").Value Is Nothing, "-", dgvFirmen.SelectedRows(0).Cells("Firma_E_Mail_Mahnungen").Value.ToString()) & " (Mahnungen)"
|
||||
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
@@ -188,6 +195,8 @@ Public Class frmFirmenuebersicht
|
||||
|
||||
MessageBox.Show("Logo wurde gespeichert.", "Erfolgreich", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
||||
|
||||
loadDGVMailbenachrichtigungen()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -207,6 +216,7 @@ Public Class frmFirmenuebersicht
|
||||
Return Nothing
|
||||
End Function
|
||||
|
||||
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
||||
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user