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

merge

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-03-27 10:11:33 +01:00
parent d134027977
commit a166e48d4a
3 changed files with 193 additions and 226 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -5264,12 +5264,12 @@ Public Class frmSendungsdetailsNEU
If ABR_ID >= 0 Then
Dim ABR = SENDUNG_LIST(CURRENT_INDEX).ABRECHNUNG(ABR_ID)
ABR.sndabr_LeistungsNr = cboAbrLeistungen._value
abr.sndabr_abrArt = ""
ABR.sndabr_abrArt = ""
ABR.sndabr_bezeichnung = txtAbrLeistungsBez.Text.Trim
ABR.sndabr_beteiligter = cboAbrAn._value.Trim
abr.sndabr_preis = CDbl(txtAbrPreis._value)
abr.sndabr_einzelPreis = CDbl(txtAbrPreis._value)
abr.sndabr_anzahl = 1
ABR.sndabr_preis = CDbl(txtAbrPreis._value)
ABR.sndabr_einzelPreis = CDbl(txtAbrPreis._value)
ABR.sndabr_anzahl = 1
'SENDUNG_LIST(CURRENT_INDEX).SAVE()
btnAddAbr.BackgroundImage = My.Resources.plus
Else
@@ -5289,7 +5289,7 @@ Public Class frmSendungsdetailsNEU
txtVK_Leistung.Text = ""
txtVK_Firma.Text = ""
txtVK_Preis.Text = ""
initdgvAbrechnung()
initDGVAbrechnung()
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
@@ -5305,7 +5305,7 @@ Public Class frmSendungsdetailsNEU
Dim ABR = SENDUNG_LIST(CURRENT_INDEX).ABRECHNUNG.Find(Function(x) x.sndabr_id = dgvAbrechnung.SelectedRows(0).Cells("clmnAbrID").Value)
SENDUNG_LIST(CURRENT_INDEX).ABRECHNUNG.Remove(ABR)
SENDUNG_LIST(CURRENT_INDEX).SAVE(False)
initdgvAbrechnung()
initDGVAbrechnung()
End If
End If
End Sub
@@ -8067,7 +8067,7 @@ Public Class frmSendungsdetailsNEU
If AVISOFUNC.setSendungAbklaerungTR(SendungsId, AvisoId) Then
initDataBinding()
End If
Me.Cursor = Cursors.Default
Me.Cursor = Cursors.Default
End Sub
Private Sub btnStatusVorbereitetQS_Click(sender As Object, e As EventArgs) Handles btnStatusVorbereitetQS.Click