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

ATB

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-03-07 17:00:06 +01:00
parent 9759683a6f
commit 18a10620e8
10 changed files with 347 additions and 220 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
Aviso/usrcntlAktDetails.vb
View File

@@ -107,6 +107,7 @@ Public Class usrcntlAktDetails
Case "NKD"
lblFiskde.Visible = False
txtSndFiskalDE.Visible = False
Case "SUB", "NEU"
txtSndFremd.Visible = True
lblSndFremd.Visible = True
@@ -313,6 +314,9 @@ Public Class usrcntlAktDetails
txtAuftraggeber.Cursor = IIf(AvisiererKdNr > 0, Cursors.Hand, Cursors.Default)
cbxLZDeFisk.Checked = False
If AVISO.Grenzstelle = "DTB" Then cbxLZDeFisk.Checked = True
txtFrächter.Text = AVISO.Frächter
@@ -3051,7 +3055,9 @@ Public Class usrcntlAktDetails
End Sub
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles btnLZDruckDIGITAL.Click, btnLZDruck.Click
Dim f As New frmLaufzettel(AVISO, Nothing, (sender Is btnLZDruckDIGITAL), cbxLZT1.Checked, cbxLZRg.Checked, cbxVPSplit.Checked)
Dim f As New frmLaufzettel(AVISO, Nothing, (sender Is btnLZDruckDIGITAL), cbxLZT1.Checked, cbxLZRg.Checked, cbxLZDeFisk.Checked, cbxVPSplit.Checked)
f.ShowDialog()
Panel4.Visible = False
@@ -3149,6 +3155,9 @@ Public Class usrcntlAktDetails
Case "WAI"
Mail.To = ""
tX = New VERAG_PROG_ALLGEMEIN.cTextkonserve("LAUFZETTEL_DIGITAL", "LAUFZETTEL_DE_DIGITAL_WAI", "DE", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
Case "DTB"
Mail.To = ""
tX = New VERAG_PROG_ALLGEMEIN.cTextkonserve("LAUFZETTEL_DIGITAL", "LAUFZETTEL_DE_DIGITAL_DTB", "DE", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
Case "SBG"
Mail.To = ""
tX = New VERAG_PROG_ALLGEMEIN.cTextkonserve("LAUFZETTEL_DIGITAL", "LAUFZETTEL_DE_DIGITAL_SBG", "DE", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
@@ -3185,7 +3194,22 @@ Public Class usrcntlAktDetails
Next
End If
If cbxLZRg.Visible AndAlso cbxLZRg.Checked Then
If cbxLZDeFisk.Visible AndAlso cbxLZDeFisk.Checked Then
For Each s In SENDUNG_LIST
Select Case s.tblSnd_Abfertigungsart_ID
'Falls RECHNUNGen in den Unterlagen vorhanden, werden diese beigefügt
Case "28" 'T1, Ü-T1, DE-FISK
Dim ANH_LIST_SND As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge)
VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_BySendung(ANH_LIST_SND, s.tblSnd_SendungID) 'LÄDT alle Aviso-Anhänge
For Each l In ANH_LIST_SND
Select Case l.anh_Art.ToString.ToUpper
Case "RECHNUNG", "HANDELSRECHNUNG", "CMR"
Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(l.anh_docId), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
End Select
Next
End Select
Next
ElseIf cbxLZRg.Visible AndAlso cbxLZRg.Checked Then
For Each s In SENDUNG_LIST
Select Case s.tblSnd_Abfertigungsart_ID
'Falls RECHNUNGen in den Unterlagen vorhanden, werden diese beigefügt
@@ -3201,6 +3225,8 @@ Public Class usrcntlAktDetails
End Select
Next
End If
End If
'Markierte Anhänge
@@ -3644,7 +3670,7 @@ Public Class usrcntlAktDetails
End Sub
Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
Dim f As New frmLaufzettel(AVISO, Nothing, True, True, True, cbxVPSplit.Checked)
Dim f As New frmLaufzettel(AVISO, Nothing, True, True, True, True, cbxVPSplit.Checked)
f.ShowDialog()
End Sub
@@ -3761,5 +3787,6 @@ Public Class usrcntlAktDetails
End If
End Sub
End Class