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
2021-01-19 20:26:05 +01:00
parent f25ff457b2
commit 2f7746d9ca
28 changed files with 2921 additions and 329 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
Gemeinsames/rptSendungen.vb
View File

@@ -6,6 +6,7 @@ Public Class rptSendungen
Public imgPath As String
Public ZOLLANMELDUNG As DAKOSY_Worker.cZollsysteme_Aktenbeschriftung = Nothing
Public HANDLING As List(Of VERAG_PROG_ALLGEMEIN.cSendHandling) = Nothing
Public VORKOSTEN As List(Of VERAG_PROG_ALLGEMEIN.cSendVorkosten) = Nothing
Sub New()
@@ -16,12 +17,13 @@ Public Class rptSendungen
End Sub
Sub New(VALUES As rptSendungenValues, imgPath As String, ZOLLANMELDUNG As DAKOSY_Worker.cZollsysteme_Aktenbeschriftung, HANDLING As List(Of VERAG_PROG_ALLGEMEIN.cSendHandling))
Sub New(VALUES As rptSendungenValues, imgPath As String, ZOLLANMELDUNG As DAKOSY_Worker.cZollsysteme_Aktenbeschriftung, HANDLING As List(Of VERAG_PROG_ALLGEMEIN.cSendHandling), VORKOSTEN As List(Of VERAG_PROG_ALLGEMEIN.cSendVorkosten))
InitializeComponent()
Me.VALUES = VALUES
Me.imgPath = imgPath
Me.ZOLLANMELDUNG = ZOLLANMELDUNG
Me.HANDLING = HANDLING
Me.VORKOSTEN = VORKOSTEN
init()
End Sub
@@ -178,13 +180,17 @@ Public Class rptSendungen
End If
End If
If ZOLLANMELDUNG IsNot Nothing Then
Dim s = New subRptSendungenZollpruefung(ZOLLANMELDUNG)
SubReport.Report = s
ElseIf HANDLING IsNot Nothing Then
Dim s = New subRptSendungenATA(HANDLING)
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
Dim s = New subRptSendungenVorkosten(VORKOSTEN)
SubReport.Report = s
Else
If ZOLLANMELDUNG IsNot Nothing Then
Dim s = New subRptSendungenZollpruefung(ZOLLANMELDUNG)
SubReport.Report = s
ElseIf HANDLING IsNot Nothing Then
Dim s = New subRptSendungenATA(HANDLING)
SubReport.Report = s
End If
End If
End Sub