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
2020-03-12 14:48:24 +01:00
parent e879fb6881
commit afaac3c2a4
107 changed files with 16055 additions and 3324 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -58,8 +58,8 @@
txtAbsender.Text = Sendung.tblSnd_Absender
End If
txtColli.Text = If(Sendung.tblSnd_Colli, "")
txtGewicht.Text = If(Sendung.tblSnd_Gewicht, "")
txtColli.Text = If(Sendung.tblSnd_Colli, "").ToString.Replace(" ", "").Replace(Chr(160), "") ' 160: irgend ein Sonder-Leerzeichen
txtGewicht.Text = If(Sendung.tblSnd_Gewicht, "").ToString.Replace(" ", "").Replace(Chr(160), "") ' 160: irgend ein Sonder-Leerzeichen
rtbWarenbezeichnung.Text = If(Sendung.tblSnd_Warenbezeichnung, "")
End If
@@ -70,6 +70,10 @@
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
Try
txtColli.Text = txtColli.Text.Replace(" ", "").Replace(Chr(160), "") ' 160: irgend ein Sonder-Leerzeichen
txtGewicht.Text = txtGewicht.Text.Replace(" ", "").Replace(Chr(160), "") ' 160: irgend ein Sonder-Leerzeichen
If txtColli.Text <> "" And Not IsNumeric(txtColli.Text) Then MsgBox("Colli: Falsches Format") : Exit Sub
If txtGewicht.Text <> "" And Not IsNumeric(txtGewicht.Text) Then MsgBox("f 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)
@@ -80,8 +84,11 @@
Sendung.tblSnd_EmpfaengerKdNr = txtEmpfaenger.KdNr
Sendung.tblSnd_Absender = txtAbsender.Text
Sendung.tblSnd_AbsenderKdNr = txtAbsender.KdNr
Sendung.tblSnd_Colli = txtColli.Text
Sendung.tblSnd_Gewicht = txtGewicht.Text
Sendung.tblSnd_Colli = ""
Sendung.tblSnd_Gewicht = ""
If txtColli.Text <> "" Then Sendung.tblSnd_Colli = CInt(txtColli.Text)
If txtGewicht.Text <> "" Then Sendung.tblSnd_Gewicht = CDbl(txtGewicht.Text)
Sendung.tblSnd_Warenbezeichnung = rtbWarenbezeichnung.Text
If Sendung.SAVE Then
@@ -91,7 +98,7 @@
Me.DialogResult = DialogResult.None
End If
Catch ex As Exception
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
@@ -178,11 +185,7 @@
initBesKd(Nothing)
End Sub
Private Sub txtGewicht_TextChanged(sender As Object, e As EventArgs) Handles txtGewicht.TextChanged
Private Sub txtGewicht_Leave(sender As Object, e As EventArgs) Handles txtGewicht.Leave, txtColli.Leave
sender.Text = sender.Text.Replace(" ", "")
End Sub
Private Sub txtGewicht_Leave(sender As Object, e As EventArgs) Handles txtGewicht.TextChanged
txtGewicht.Text = txtGewicht.Text.Replace(" ", "")
End Sub
End Class