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

ENS HMRC

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-02-24 15:10:01 +01:00
parent 0debf6f694
commit e175b4ac2d
5 changed files with 534 additions and 299 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -2497,15 +2497,15 @@ Public Class frmStartOptions
'==================================
ElseIf betreff.ToString.Contains("DAKOSY GE - Abgabenbescheid/Befund , Bezugsnr.: ") Then
ElseIf betreff.ToString.Contains("DAKOSY GE - Abgabenbescheid/Befund , BezugsNr./LRN: ") Then '("DAKOSY GE - Abgabenbescheid/Befund , Bezugsnr.: ") Then
betreff = betreff.replace("WG: ", "")
betreff = betreff.replace("FW: ", "")
betreff = betreff.replace("DAKOSY GE - Abgabenbescheid/Befund , Bezugsnr.: ", "")
betreff = betreff.replace("DAKOSY GE - Abgabenbescheid/Befund , BezugsNr./LRN: ", "") '("DAKOSY GE - Abgabenbescheid/Befund , Bezugsnr.: ", "")
If betreff.ToString.Contains(",") Then
Dim sp = betreff.ToString.Split(",")
If betreff.contains("Registriernr.: ATD") Then ' ZNV!!!!
If betreff.contains("Registriernr.: ATD") Then ' ZNV!!!! ------> FUNKTIONIERT MIT NUEER ATLAS MRN Nummer nicht mehr --> Keine ATD!
betreff = sp(0).Trim
Dim SND_ID = sql.getValueTxtBySql("SELECT TOP (1) [tblSnd_SendungID] FROM [tblSendungen] where '" & betreff.ToString.Trim & "' LIKE (cast(FilialenNr as varchar(4))+ '/' + cast(AbfertigungsNr as varchar(8))+'%')", "AVISO")
If IsNumeric(SND_ID) AndAlso SND_ID > 0 Then
@@ -2528,7 +2528,7 @@ Public Class frmStartOptions
Else ' STB !!!!
betreff = sp(0).Trim
' , RegistrierNr./MRN:
Dim dy_id As String = ""
If betreff.ToString.Length > 15 Then