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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2019-10-28 09:30:39 +01:00
parent d29dc72b22
commit 6ae299259e
38 changed files with 2570 additions and 1168 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -19,20 +19,26 @@
End Sub
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
Try
Sendung = New VERAG_PROG_ALLGEMEIN.cSendungen(AvisoId, SQL.getValueTxtBySql("SELECT Count(*)+1 FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoId & "", "AVISO"),,,, 0)
Sendung.tblSnd_Abfertigungsart_ID = cboAbfertigungsart._value
Sendung.tblSnd_Empfaenger = txtEmpfaenger.Text
Sendung.tblSnd_EmpfaengerKdNr = txtEmpfaenger.KdNr
Sendung.tblSnd_Colli = txtColli.Text
Sendung.tblSnd_Gewicht = txtGewicht.Text
Sendung.tblSnd_Warenbezeichnung = rtbWarenbezeichnung.Text
Sendung = New VERAG_PROG_ALLGEMEIN.cSendungen(AvisoId, SQL.getValueTxtBySql("SELECT Count(*)+1 FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoId & "", "AVISO"),,,, 0)
Sendung.tblSnd_Abfertigungsart_ID = If(cboAbfertigungsart._value <> "", cboAbfertigungsart._value, -1)
Sendung.tblSnd_Empfaenger = txtEmpfaenger.Text
Sendung.tblSnd_EmpfaengerKdNr = txtEmpfaenger.KdNr
Sendung.tblSnd_Colli = txtColli.Text
Sendung.tblSnd_Gewicht = txtGewicht.Text
Sendung.tblSnd_Warenbezeichnung = rtbWarenbezeichnung.Text
If Sendung.SAVE Then
Me.DialogResult = DialogResult.OK
Else
Me.DialogResult = DialogResult.None
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
If Sendung.SAVE Then
Me.DialogResult = DialogResult.OK
Else
Me.DialogResult = DialogResult.None
End If
End Sub
End Class