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-03-21 09:19:52 +01:00
parent 4491b88deb
commit a4ad6cc8c8
68 changed files with 12141 additions and 6529 deletions
Download Patch File Download Diff File Expand all files Collapse all files

52
Aviso/usrCntlVermerkeATilla.vb
View File

@@ -68,22 +68,54 @@ Public Class usrCntlVermerkeATilla
If Sendung IsNot Nothing Then
Dim anzahl As String = "0"
Dim anzahlPos As String = "0"
If Sendung.tblSnd_AbfertigungTR Is Nothing Then
anzahl = InputBox("Anzahl T1/T2:")
If anzahl = "" OrElse Not IsNumeric(anzahl) OrElse anzahl <= 0 Then
Exit Sub
Else
anzahl = CInt(anzahl)
Dim f As New frmAbfertigungTR_ExportAnz
If f.ShowDialog = DialogResult.OK Then
anzahl = f.txtAnz._value
anzahlPos = f.txtAnzPos._value
Dim FUNC As New AvisoStatusFunctions
FUNC.setSendungAbfertigungTR(Sendung.tblSnd_SendungID, AvisoID, anzahl, anzahlPos)
Sendung.LOAD(Sendung.tblSnd_SendungID) 'neu laden
initControls()
End If
End If
Dim FUNC As New AvisoStatusFunctions
FUNC.setSendungAbfertigungTR(Sendung.tblSnd_SendungID, AvisoID, anzahl)
Sendung.LOAD(Sendung.tblSnd_SendungID) 'neu laden
initControls()
'anzahl = InputBox("Anzahl T1/T2:")
'If anzahl = "" OrElse Not IsNumeric(anzahl) OrElse anzahl <= 0 Then
' Exit Sub
'Else
' anzahl = CInt(anzahl)
'End If
'anzahlPos = InputBox("Anzahl T1/T2 Psoitionen:")
'If anzahlPos = "" OrElse Not IsNumeric(anzahlPos) OrElse anzahlPos <= 0 Then
' Exit Sub
'Else
' anzahlPos = CInt(anzahlPos)
'End If
Else
If vbYes = MsgBox("Möchten Sie den Eintrag wirklich zurücksetzen?", vbYesNoCancel) Then
anzahl = "0"
anzahlPos = "0"
Dim FUNC As New AvisoStatusFunctions
FUNC.setSendungAbfertigungTR(Sendung.tblSnd_SendungID, AvisoID, anzahl, anzahlPos)
Sendung.LOAD(Sendung.tblSnd_SendungID) 'neu laden
initControls()
End If
End If
End If
ElseIf sender Is btnOK Then
If txtDetail.Text.Trim = "" Then lblErr240Zeichen.Visible = True : Exit Sub
If txtDetail.Text.Length <= 80 Then