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

Sendungsvermerke, Hauptfenster, etc.

Browse Source
This commit is contained in:
d.breimaier
2024-08-28 14:19:42 +02:00
parent f4de59cd5d
commit 6d663578ba
3 changed files with 373 additions and 372 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Aviso/frmHauptfenster.vb
View File

@@ -2224,7 +2224,7 @@ Public Class frmHauptfenster
GridZeichnenAviso()
End Sub
Private Sub btnErfasst_MouseHover(sender As Object, e As EventArgs) Handles btnZollwebseiten.MouseEnter, Button7.MouseEnter, Button6.MouseEnter, Button5.MouseEnter, btnSpedBuch.MouseEnter, btnRg.MouseEnter, btnRefresh.MouseEnter, btnNeu.MouseEnter, btnKunden.MouseEnter, btnKassenbuch.MouseEnter, btnDrucken.MouseEnter
Private Sub btnErfasst_MouseHover(sender As Object, e As EventArgs) Handles btnZollwebseiten.MouseEnter, btnUmrechnungskurse.MouseEnter, Button6.MouseEnter, Button5.MouseEnter, btnSpedBuch.MouseEnter, btnRg.MouseEnter, btnRefresh.MouseEnter, btnNeu.MouseEnter, btnKunden.MouseEnter, btnKassenbuch.MouseEnter, btnDrucken.MouseEnter
Try
Dim cF As Color = DirectCast(sender, Button).ForeColor
Dim cB As Color = DirectCast(sender, Button).BackColor
@@ -2235,7 +2235,7 @@ Public Class frmHauptfenster
End Try
End Sub
Private Sub btnErfasst_MouseLeave(sender As Object, e As EventArgs) Handles btnZollwebseiten.MouseLeave, Button7.MouseLeave, Button6.MouseLeave, Button5.MouseLeave, btnSpedBuch.MouseLeave, btnRg.MouseLeave, btnRefresh.MouseLeave, btnNeu.MouseLeave, btnKunden.MouseLeave, btnKassenbuch.MouseLeave, btnDrucken.MouseLeave
Private Sub btnErfasst_MouseLeave(sender As Object, e As EventArgs) Handles btnZollwebseiten.MouseLeave, btnUmrechnungskurse.MouseLeave, Button6.MouseLeave, Button5.MouseLeave, btnSpedBuch.MouseLeave, btnRg.MouseLeave, btnRefresh.MouseLeave, btnNeu.MouseLeave, btnKunden.MouseLeave, btnKassenbuch.MouseLeave, btnDrucken.MouseLeave
Try
Dim cF As Color = DirectCast(sender, Button).ForeColor
Dim cB As Color = DirectCast(sender, Button).BackColor
@@ -3469,7 +3469,7 @@ Public Class frmHauptfenster
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles btnUmrechnungskurse.Click
'Process.Start("http://www.zoll.de/DE/Fachthemen/Zoelle/Zollwert/Aktuelle-Umrechnungskurse/Datenbankanwendung/datenbankanwendung_node.html")
'Process.Start("http://www.zoll.de/SiteGlobals/Forms/KursSuche/KurseSuche_Formular_NotierteWaehrung.html?method=post&iso2code2=TR")
@@ -4208,7 +4208,7 @@ Public Class frmHauptfenster
End If
End Sub
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles btnKontakt.Click
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Telefonliste")
'MsgBox(DS.da_id)
DS.OPEN_SINGLE()