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_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>

35
initATLASAufschubkonten/cWorker_NCTS.vb
View File

@@ -3954,18 +3954,31 @@ Public Class cWorker_NCTS
Wiedergestellungsdatum = NCTS.EinzelUeberlassungsmeldung.KopfDaten.Wiedergestellungsdatum Wiedergestellungsdatum = NCTS.EinzelUeberlassungsmeldung.KopfDaten.Wiedergestellungsdatum
' 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 End If
' Next Next
' End If End If
' 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 End If
'Verschluesse 'Verschluesse
If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse IsNot Nothing Then 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 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