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
2019-10-28 09:30:39 +01:00
parent d29dc72b22
commit 6ae299259e
38 changed files with 2570 additions and 1168 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Aviso/Classes/cSendungsoptions.vb
View File

@@ -132,7 +132,8 @@ Public Class SendungOptions
End Sub
Shared Sub PrintSendung(art As String, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, AVISO As cAviso, Optional Printername As String = "")
Shared Sub PrintSendung(art As String, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, AVISO As cAviso, Optional Printername As String = "", Optional TYP As String = "AKT")
'TYP --> LAUFZETTEL
Dim ADMIN As New cADMIN
If IsNumeric(SENDUNG.AbfertigungsNr) AndAlso CInt(SENDUNG.AbfertigungsNr) > 100000 Then
@@ -263,6 +264,7 @@ Public Class SendungOptions
Try
' VALUES.BAR = "X"
' Dim dt As DataTable = VERAGSQL.loadDgvBySql("SELECT rksv_BelegId, rksv_umsatz , isnull((Select Name from Personal where ID=Benutzer),'') as Benutzer FROM [tblEABelegnummer] where ((FilialenNr='" & SENDUNG.FilialenNr & "' and AbfertigungsNr='" & SENDUNG.AbfertigungsNr & "') OR LKW_id='" & AVISO.AvisoID & "') and storniert=0 and gebuchtstorno=0 order by rksv_BelegId", "FMZOLL")
Dim dt As DataTable = VERAGSQL.loadDgvBySql("SELECT rksv_BelegId, rksv_umsatz , isnull((Select Name from Personal where ID=Benutzer),'') as Benutzer FROM [tblEABelegnummer] where ((FilialenNr='" & SENDUNG.FilialenNr & "' and AbfertigungsNr='" & SENDUNG.AbfertigungsNr & "') OR LKW_id='" & AVISO.AvisoID & "') and storniert=0 and gebuchtstorno=0 order by rksv_BelegId", "FMZOLL")
If dt.Rows.Count > 0 Then
VALUES.Frachtfuehrer_Bar_BelegNr = getBenutzerShort(dt.Rows(0)("Benutzer").ToString) & " / " & dt.Rows(0)("rksv_BelegId").ToString
@@ -387,6 +389,10 @@ Public Class SendungOptions
imgpath = resPath & "LEX.png"
ElseIf SENDUNG.FilialenNr = "5501" Then
imgpath = resPath & "IMEX.png"
ElseIf SENDUNG.FilialenNr = "5601" Then
imgpath = resPath & "UNISPED.png"
ElseIf SENDUNG.FilialenNr = "5701" Then
imgpath = resPath & "AMBAR.png"
Else
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung
Case "SUB"