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
2022-07-08 08:11:33 +02:00
parent a4ad6cc8c8
commit 505b2800c5
96 changed files with 4969 additions and 8465 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -32,6 +32,8 @@
txtAbsender.usrcntlWIDTH = 360
txtAbsender.usrcntlHEIGHT = 100
txtWarenwertWaehrung.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land FROM tbl_DY_ZollDE_I0400_Waehrungsliste", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 150, 200)
AddHandler txtEmpfaenger.PropertyChanged, Sub()
FlatButton4.BackgroundImage = IIf(txtEmpfaenger.KdNr > 0, My.Resources.person, My.Resources.personInaktiv)
initWarnKd(txtEmpfaenger, picWarnEmpfaenger)
@@ -60,6 +62,8 @@
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
txtWarenwert.Text = If(Sendung.tblSnd_Warenwert, "")
txtWarenwertWaehrung.SET_VALUE(If(Sendung.tblSnd_WarenwertWaehrung, ""))
rtbWarenbezeichnung.Text = If(Sendung.tblSnd_Warenbezeichnung, "")
End If
@@ -73,7 +77,7 @@
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 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)
@@ -88,6 +92,9 @@
Sendung.tblSnd_Gewicht = ""
If txtColli.Text <> "" Then Sendung.tblSnd_Colli = CInt(txtColli.Text)
If txtGewicht.Text <> "" Then Sendung.tblSnd_Gewicht = CDbl(txtGewicht.Text)
If txtWarenwert._value <> "" Then Sendung.tblSnd_Warenwert = CDbl(txtWarenwert._value)
If txtWarenwertWaehrung._value <> "" Then Sendung.tblSnd_WarenwertWaehrung = txtWarenwertWaehrung._value
Sendung.tblSnd_Warenbezeichnung = rtbWarenbezeichnung.Text