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

CMR Anhang

Browse Source
This commit is contained in:
d.breimaier
2024-08-12 10:39:20 +02:00
parent aea4f8f6ad
commit 6701e4fe92
4 changed files with 78 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
VERAG_PROG_ALLGEMEIN/Classes/cAvisoAnhaenge.vb
View File

@@ -14,6 +14,7 @@ Public Class cAvisoAnhaenge
Property anh_GestellungslisteAnfuegen As Boolean = False
Property anh_markiert As Boolean = False
Property anh_size As Double
Property anh_cmrId As Integer
Public hasEntry As Boolean = False
@@ -30,7 +31,7 @@ Public Class cAvisoAnhaenge
' End If
End Sub
Sub New(anh_AvisoId, anh_Name, anh_docId, anh_Art, anh_Typ, Optional anh_SendungsId = Nothing, Optional anh_Reihenfolge = 99, Optional anh_size = 0)
Sub New(anh_AvisoId, anh_Name, anh_docId, anh_Art, anh_Typ, Optional anh_SendungsId = Nothing, Optional anh_Reihenfolge = 99, Optional anh_size = 0, Optional anh_cmrId = -1)
Me.anh_AvisoId = anh_AvisoId
Me.anh_SendungsId = anh_SendungsId
Me.anh_Name = anh_Name
@@ -39,6 +40,7 @@ Public Class cAvisoAnhaenge
Me.anh_Typ = anh_Typ
Me.anh_Reihenfolge = anh_Reihenfolge
Me.anh_size = anh_size
Me.anh_cmrId = anh_cmrId
If anh_Art.ToString.Equals("Auftrag") Then
anh_markiert = True
@@ -63,6 +65,7 @@ Public Class cAvisoAnhaenge
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_GestellungslisteAnfuegen", anh_GestellungslisteAnfuegen))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_markiert", anh_markiert))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_size", anh_size))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_cmrId", anh_cmrId))
Return list
End Function