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

DAKOSY Worker

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-10-21 07:54:56 +02:00
parent 3950f2f100
commit 7169794f6a
3 changed files with 30 additions and 10 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_006.Designer.vb" />
<Compile Include="DAKOSY\ATLAS\NCTS\Ueberlassungsmeldung\UeberlassungsmeldungNCTSDE_007.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_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_002.Designer.vb" />
<Compile Include="DAKOSY\ATLAS\NCTS\UngueltigkeitSicherheit\UngueltigkeitSicherheitenNCTSDE_003.Designer.vb" /> <Compile Include="DAKOSY\ATLAS\NCTS\UngueltigkeitSicherheit\UngueltigkeitSicherheitenNCTSDE_003.Designer.vb" />
<Compile Include="DAKOSY\ATLAS\NCTS\UngueltigkeitSicherheit\UngueltigkeitSicherheitenNCTSDE_004.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"> <None Include="DAKOSY\ATLAS\NCTS\Ueberlassungsmeldung\UeberlassungsmeldungNCTSDE_008.xsd">
<SubType>Designer</SubType> <SubType>Designer</SubType>
</None> </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\Ueberlassungsmeldung\xsd2code.config" />
<None Include="DAKOSY\ATLAS\NCTS\UngueltigkeitSicherheit\UngueltigkeitSicherheitenNCTSDE_002.xsd"> <None Include="DAKOSY\ATLAS\NCTS\UngueltigkeitSicherheit\UngueltigkeitSicherheitenNCTSDE_002.xsd">
<SubType>Designer</SubType> <SubType>Designer</SubType>

29
initATLASAufschubkonten/cWorker_NCTS.vb
View File

@@ -3956,15 +3956,28 @@ Public Class cWorker_NCTS
' bearbeiter=NCTS.EinzelUeberlassungsmeldung.KopfDaten. ' bearbeiter=NCTS.EinzelUeberlassungsmeldung.KopfDaten.
If NCTS.EinzelUeberlassungsmeldung.TransitOperation IsNot Nothing Then If NCTS.EinzelUeberlassungsmeldung.TransitOperation IsNot Nothing Then
If NCTS.EinzelUeberlassungsmeldung.TransitOperation.LimitDate.ToString <> "" Then 'Sollte mit Version 009 hier enthalten sein! 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) Try
If NCTS.EinzelUeberlassungsmeldung.TransitOperation.AdditionalInformation IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.TransitOperation.ApplicationInternalData.AdditionalDetails IsNot Nothing Then Wiedergestellungsdatum = DateTime.ParseExact(NCTS.EinzelUeberlassungsmeldung.TransitOperation.LimitDate, "dd.MM.yyyy", System.Globalization.CultureInfo.InvariantCulture)
For Each a In NCTS.EinzelUeberlassungsmeldung.TransitOperation.ApplicationInternalData.AdditionalDetails If NCTS.EinzelUeberlassungsmeldung.TransitOperation.AdditionalInformation IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.TransitOperation.ApplicationInternalData.AdditionalDetails IsNot Nothing Then
If a.Key = "LimitDate" Then For Each a In NCTS.EinzelUeberlassungsmeldung.TransitOperation.ApplicationInternalData.AdditionalDetails
Wiedergestellungsdatum = DateTime.ParseExact(a.Value, "yyyy-MM-dd", System.Globalization.CultureInfo.InvariantCulture) If a.Key = "LimitDate" Then
Wiedergestellungsdatum = DateTime.ParseExact(a.Value, "dd.MM.yyyy", System.Globalization.CultureInfo.InvariantCulture)
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
Next
End If
End If End If
End If End If
'Verschluesse 'Verschluesse

7
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -1351,7 +1351,7 @@ Public Class frmDYNachrichtenVerarbeitung
If NCTS.EinzelQuittung IsNot Nothing Then If NCTS.EinzelQuittung IsNot Nothing Then
For Each ge In NCTS.EinzelQuittung For Each ge In NCTS.EinzelQuittung
If ge.Quittungsobjekt IsNot Nothing Then 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 If ge.Quittungsobjekt.QuittungTech(0).BezugsObjekt IsNot Nothing Then
' ListBox4.Items.Add(ge.ObjektIdentifizierung.ObjektName) ' ListBox4.Items.Add(ge.ObjektIdentifizierung.ObjektName)
@@ -1496,7 +1496,9 @@ Public Class frmDYNachrichtenVerarbeitung
Else Else
'Update '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 ANR <> "" Then EZA_TMP.eza_ANR = ANR : EZA_TMP.SAVE()
If MRN <> "" Then EZA_TMP.eza_MRN = MRN : 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_BezugsNr = readEZA_Abgabenbescheid012
STATUS.dySt_artMitteilung = "AB" STATUS.dySt_artMitteilung = "AB"
STATUS.dySt_dyArt = "EZA" '"EZA" 'T1/T2 STATUS.dySt_dyArt = "EZA" '"EZA" 'T1/T2
' MsgBox(erledigung)
Select Case erledigung Select Case erledigung
Case "0" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_69 'ungültig Case "0" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_69 'ungültig