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

Gestellungen

Browse Source
This commit is contained in:
d.breimaier
2024-11-13 13:05:44 +01:00
parent 20ef28a101
commit f35f070b9f
6 changed files with 66 additions and 44 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Aviso/Anhänge/frmAddSendnung.vb
View File

@@ -112,7 +112,7 @@
If txtGewicht.Text <> "" And Not IsNumeric(txtGewicht.Text) Then MsgBox("Gewicht: Falsches Format") : Exit Sub
If Sendung Is Nothing Then
Sendung = New VERAG_PROG_ALLGEMEIN.cSendungen(AvisoId, SQL.getValueTxtBySql("SELECT Count(*)+1 FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoId & "", "AVISO"),,,, 0)
Sendung = New VERAG_PROG_ALLGEMEIN.cSendungen(AvisoId, SQL.getValueTxtBySql("SELECT Count(*)+1 FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoId & "", "AVISO"), filialNr,,, 0)
End If
Sendung.tblSnd_Abfertigungsart_ID = If(cboAbfertigungsart._value <> "", cboAbfertigungsart._value, -1)