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

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

Browse Source
This commit is contained in:
d.breimaier
2024-10-22 13:06:08 +02:00
parent 41c9acb3cd d5519e1622
commit a1c0046393
3 changed files with 111 additions and 91 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
DAKOSY_Worker/DAKOSY_Worker_lib.vbproj
View File

@@ -146,6 +146,7 @@
<Compile Include="DAKOSY\ATLAS\NCTS\Ueberlassungsmeldung\UeberlassungsmeldungNCTSDE_006.Designer.vb" />
<Compile Include="DAKOSY\ATLAS\NCTS\Ueberlassungsmeldung\UeberlassungsmeldungNCTSDE_007.Designer.vb" />
<Compile Include="DAKOSY\ATLAS\NCTS\Ueberlassungsmeldung\UeberlassungsmeldungNCTSDE_008.Designer.vb" />
<Compile Include="DAKOSY\ATLAS\NCTS\Ueberlassungsmeldung\UeberlassungsmeldungNCTSDE_009.Designer.vb" />
<Compile Include="DAKOSY\ATLAS\NCTS\UngueltigkeitSicherheit\UngueltigkeitSicherheitenNCTSDE_002.Designer.vb" />
<Compile Include="DAKOSY\ATLAS\NCTS\UngueltigkeitSicherheit\UngueltigkeitSicherheitenNCTSDE_003.Designer.vb" />
<Compile Include="DAKOSY\ATLAS\NCTS\UngueltigkeitSicherheit\UngueltigkeitSicherheitenNCTSDE_004.Designer.vb" />
@@ -416,6 +417,9 @@
<None Include="DAKOSY\ATLAS\NCTS\Ueberlassungsmeldung\UeberlassungsmeldungNCTSDE_008.xsd">
<SubType>Designer</SubType>
</None>
<None Include="DAKOSY\ATLAS\NCTS\Ueberlassungsmeldung\UeberlassungsmeldungNCTSDE_009.xsd">
<SubType>Designer</SubType>
</None>
<None Include="DAKOSY\ATLAS\NCTS\Ueberlassungsmeldung\xsd2code.config" />
<None Include="DAKOSY\ATLAS\NCTS\UngueltigkeitSicherheit\UngueltigkeitSicherheitenNCTSDE_002.xsd">
<SubType>Designer</SubType>

35
initATLASAufschubkonten/cWorker_NCTS.vb
View File

@@ -3954,18 +3954,31 @@ Public Class cWorker_NCTS
Wiedergestellungsdatum = NCTS.EinzelUeberlassungsmeldung.KopfDaten.Wiedergestellungsdatum
' bearbeiter=NCTS.EinzelUeberlassungsmeldung.KopfDaten.
'If NCTS.EinzelUeberlassungsmeldung.TransitOperation IsNot Nothing Then
' If NCTS.EinzelUeberlassungsmeldung.TransitOperation.LimitDate.ToString <> "" Then 'Sollte mit Version 009 hier enthalten sein!
' Wiedergestellungsdatum = DateTime.ParseExact(NCTS.EinzelUeberlassungsmeldung.TransitOperation.LimitDate, "yyyy-MM-dd", System.Globalization.CultureInfo.InvariantCulture)
' If NCTS.EinzelUeberlassungsmeldung.TransitOperation.AdditionalInformation IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.TransitOperation.ApplicationInternalData.AdditionalDetails IsNot Nothing Then
' For Each a In NCTS.EinzelUeberlassungsmeldung.TransitOperation.ApplicationInternalData.AdditionalDetails
' If a.Key = "LimitDate" Then
' Wiedergestellungsdatum = DateTime.ParseExact(a.Value, "yyyy-MM-dd", System.Globalization.CultureInfo.InvariantCulture)
If NCTS.EinzelUeberlassungsmeldung.TransitOperation IsNot Nothing Then
If NCTS.EinzelUeberlassungsmeldung.TransitOperation.LimitDate.ToString <> "" Then 'Sollte mit Version 009 hier enthalten sein!
Try
Wiedergestellungsdatum = DateTime.ParseExact(NCTS.EinzelUeberlassungsmeldung.TransitOperation.LimitDate, "dd.MM.yyyy", System.Globalization.CultureInfo.InvariantCulture)
If NCTS.EinzelUeberlassungsmeldung.TransitOperation.AdditionalInformation IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.TransitOperation.ApplicationInternalData.AdditionalDetails IsNot Nothing Then
For Each a In NCTS.EinzelUeberlassungsmeldung.TransitOperation.ApplicationInternalData.AdditionalDetails
If a.Key = "LimitDate" Then
Wiedergestellungsdatum = DateTime.ParseExact(a.Value, "dd.MM.yyyy", System.Globalization.CultureInfo.InvariantCulture)
' End If
' Next
' End If
' End If
End If
Next
End If
Catch ex As Exception
Wiedergestellungsdatum = DateTime.ParseExact(NCTS.EinzelUeberlassungsmeldung.TransitOperation.LimitDate, "yyyy-MM-dd", System.Globalization.CultureInfo.InvariantCulture)
If NCTS.EinzelUeberlassungsmeldung.TransitOperation.AdditionalInformation IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.TransitOperation.ApplicationInternalData.AdditionalDetails IsNot Nothing Then
For Each a In NCTS.EinzelUeberlassungsmeldung.TransitOperation.ApplicationInternalData.AdditionalDetails
If a.Key = "LimitDate" Then
Wiedergestellungsdatum = DateTime.ParseExact(a.Value, "yyyy-MM-dd", System.Globalization.CultureInfo.InvariantCulture)
End If
Next
End If
End Try
End If
End If
'Verschluesse
If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse IsNot Nothing Then

7
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -1351,7 +1351,7 @@ Public Class frmDYNachrichtenVerarbeitung
If NCTS.EinzelQuittung IsNot Nothing Then
For Each ge In NCTS.EinzelQuittung
If ge.Quittungsobjekt IsNot Nothing Then
If ge.Quittungsobjekt.QuittungTech IsNot Nothing Then
If ge.Quittungsobjekt.QuittungTech IsNot Nothing AndAlso ge.Quittungsobjekt.QuittungTech.Count > 0 Then
If ge.Quittungsobjekt.QuittungTech(0).BezugsObjekt IsNot Nothing Then
' ListBox4.Items.Add(ge.ObjektIdentifizierung.ObjektName)
@@ -1496,7 +1496,9 @@ Public Class frmDYNachrichtenVerarbeitung
Else
'Update
EZA_TMP.UPDATE_Status(DY_TMP.dy_Status) 'weil der Status bereit überprüft wurde --> neuste TransaktionsID
If DAKOSY_Worker.cDakosy_Statusmeldungen.isNewestTransaktion(STATUS.dySt_BezugsNr, transID, transDate) Then
EZA_TMP.UPDATE_Status(STATUS.dySt_status)
End If
If ANR <> "" Then EZA_TMP.eza_ANR = ANR : EZA_TMP.SAVE()
If MRN <> "" Then EZA_TMP.eza_MRN = MRN : EZA_TMP.SAVE()
@@ -10058,6 +10060,7 @@ Public Class frmDYNachrichtenVerarbeitung
STATUS.dySt_BezugsNr = readEZA_Abgabenbescheid012
STATUS.dySt_artMitteilung = "AB"
STATUS.dySt_dyArt = "EZA" '"EZA" 'T1/T2
' MsgBox(erledigung)
Select Case erledigung
Case "0" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_69 'ungültig