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

hf

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-12-18 14:30:44 +01:00
parent 6ff78c9918
commit 85b0db961a
2 changed files with 14 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
Aviso/Aviso.vbproj
View File

@@ -1456,6 +1456,7 @@
<EmbeddedResource Include="GVMS\frmGVMSNew.resx"> <EmbeddedResource Include="GVMS\frmGVMSNew.resx">
<DependentUpon>frmGVMSNew.vb</DependentUpon> <DependentUpon>frmGVMSNew.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="My Project\licenses.licx" />
<EmbeddedResource Include="My Project\Resources.resx"> <EmbeddedResource Include="My Project\Resources.resx">
<Generator>PublicVbMyResourcesResXFileCodeGenerator</Generator> <Generator>PublicVbMyResourcesResXFileCodeGenerator</Generator>
<CustomToolNamespace>My.Resources</CustomToolNamespace> <CustomToolNamespace>My.Resources</CustomToolNamespace>

24
Aviso/frmHauptfenster.vb
View File

@@ -5125,19 +5125,21 @@ Public Class AvisoStatusFunctions
Public Function printQR_CODE(aviso As VERAG_PROG_ALLGEMEIN.cAviso) As Boolean Public Function printQR_CODE(aviso As VERAG_PROG_ALLGEMEIN.cAviso) As Boolean
If aviso Is Nothing Then Return False If aviso Is Nothing Then Return False
Select Case aviso.Grenzstelle If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "ATILLA" Then
Case "NEU", "DTB", "NKN" Select Case aviso.Grenzstelle
Dim rpt As New rptQRSendung_VerwahrungApp(aviso, Nothing) Case "NEU", "DTB", "NKN"
Dim printer = VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_BON Dim rpt As New rptQRSendung_VerwahrungApp(aviso, Nothing)
If printer = "" Then printer = SDL.cProgramFunctions.getDruckernameBySearch("BON", True) Dim printer = VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_BON
If printer = "" Then printer = SDL.cProgramFunctions.getDruckernameBySearch("INFO", True) If printer = "" Then printer = SDL.cProgramFunctions.getDruckernameBySearch("BON", True)
If printer = "" Then printer = SDL.cProgramFunctions.getDruckernameBySearch("INFO", True)
'If printer = "" Then 'If printer = "" Then
SDL.cProgramFunctions.printRpt(rpt, printer, True) SDL.cProgramFunctions.printRpt(rpt, printer, True)
Return True Return True
' End If ' End If
End Select End Select
End If
Return False Return False
End Function End Function
Public Function setAnkunft(AvisoID) As Boolean Public Function setAnkunft(AvisoID) As Boolean