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>

2
Aviso/frmHauptfenster.vb
View File

@@ -5125,6 +5125,7 @@ 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
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "ATILLA" Then
Select Case aviso.Grenzstelle Select Case aviso.Grenzstelle
Case "NEU", "DTB", "NKN" Case "NEU", "DTB", "NKN"
Dim rpt As New rptQRSendung_VerwahrungApp(aviso, Nothing) Dim rpt As New rptQRSendung_VerwahrungApp(aviso, Nothing)
@@ -5138,6 +5139,7 @@ Public Class AvisoStatusFunctions
' 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