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

faktAbr, CreditsafeAPI, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-09-25 13:04:53 +02:00
parent 28ce22c2bd
commit 0871e82f58
4 changed files with 333 additions and 174 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
SDL/Fakturierung/usrCntlFaktAbrechnung.vb
View File

@@ -3686,7 +3686,7 @@ Nächste_Textzeile_lesen:
End If
If keyData = Keys.F3 AndAlso cboSammelrechnung._value = 0 Then
btn.PerformClick()
btnZoll_EUST.PerformClick()
Return True
End If
@@ -3740,7 +3740,7 @@ Nächste_Textzeile_lesen:
f.Show(Me)
End Sub
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btnZoll_EUST.Click
Dim bezugsNr = ""
If RECHNUNG IsNot Nothing Then
bezugsNr = RECHNUNG.FilialenNr & "/" & RECHNUNG.AbfertigungsNr & ""
@@ -4707,7 +4707,7 @@ Nächste_Textzeile_lesen:
Private Sub cboSammelrechnung_SelectedValueChanged(sender As Object, e As EventArgs) Handles cboSammelrechnung.SelectedValueChanged
btn.Enabled = IIf(cboSammelrechnung._value = 0, True, False)
btnZoll_EUST.Enabled = IIf(cboSammelrechnung._value = 0, True, False)
End Sub