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

Merge branch 'master' of https://verag.visualstudio.com/ADMIN/_git/ADMIN

Browse Source
This commit is contained in:
ja
2021-09-07 11:00:36 +02:00
parent 99b069d611 289037b7f3
commit 32f70ae8f8
28 changed files with 1882 additions and 702 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
TELOTEK_Worker_lib/TELOTEC_Worker_lib.vbproj
View File

@@ -22,6 +22,7 @@
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>TELOTEC_Worker.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<PlatformTarget>x64</PlatformTarget>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<DebugType>pdbonly</DebugType>

9
TELOTEK_Worker_lib/cTelokec.vb
View File

@@ -392,7 +392,14 @@ Public Class cTelotec_Anmeldung
If srchStrFiliale.Length <> 4 Then Return False
'If srchStrAbf.Length > 8 Then srchStrAbf = srchStrAbf.Substring(0, 8)
If srchStrAbf.Length < 8 Then srchStrAbf = Me.telanm_Erstellung.ToString("yy") & CInt(srchStrAbf).ToString("000000")
If srchStrAbf.Length < 8 Then
If Me.telanm_Erstellung IsNot Nothing Then
srchStrAbf = CDate(Me.telanm_Erstellung).ToString("yy") & CInt(srchStrAbf).ToString("000000")
Else
srchStrAbf = Now.ToString("yy") & CInt(srchStrAbf).ToString("000000")
End If
End If
Dim sqlstr = " Select [tblSnd_SendungID],[tblSnd_AvisoID] FROM [tblSendungen] where '" & srchStrAbf & "' like ('%' + cast(AbfertigungsNr as varchar(10))+ '%') and FilialenNr ='" & srchStrFiliale & "' and AbfertigungsNr >0"