MA Anzeige Hauptfirma, div. Fixes

2022-12-05 14:17:34 +01:00
parent 0fd21dba2a
commit b4d25e6ea1
5 changed files with 104 additions and 69 deletions
--- a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
+++ b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
@@ -3342,40 +3342,55 @@ Public Class frmDYNachrichtenVerarbeitung
                        'Erwerber -->  NEU!!! = zusätzl. Steuerl. Angaben
                        If FCFCDE.Body IsNot Nothing AndAlso FCFCDE.Body.AdditionalDutyReferences IsNot Nothing AndAlso FCFCDE.Body.AdditionalDutyReferences.Count > 0 AndAlso FCFCDE.Body.AdditionalDutyReferences(0).DutyInterestedParty IsNot Nothing Then

-                            Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
-                            ADR.ezaAd_AdressTyp = "UC"
-                            If FCFCDE.Body.AdditionalDutyReferences(0).DutyInterestedParty.Name IsNot Nothing Then
-                                If FCFCDE.Body.AdditionalDutyReferences(0).DutyInterestedParty.Name.ToString.Length > 40 Then
-                                    If FCFCDE.Body.AdditionalDutyReferences(0).DutyInterestedParty.Name.ToString.Length > 80 Then
-                                        ADR.ezaAd_NameFirma1 = FCFCDE.Body.AdditionalDutyReferences(0).DutyInterestedParty.Name.ToString.Substring(0, 40)
-                                        ADR.ezaAd_NameFirma2 = FCFCDE.Body.AdditionalDutyReferences(0).DutyInterestedParty.Name.ToString.Substring(40, 40)
-                                        ADR.ezaAd_NameFirma3 = FCFCDE.Body.AdditionalDutyReferences(0).DutyInterestedParty.Name.ToString.Substring(80, FCFCDE.Body.AdditionalDutyReferences(0).DutyInterestedParty.Name.ToString.Length - 80)
-                                    End If
-                                    ADR.ezaAd_NameFirma1 = FCFCDE.Body.AdditionalDutyReferences(0).DutyInterestedParty.Name.ToString.Substring(0, 40)
-                                    ADR.ezaAd_NameFirma2 = FCFCDE.Body.AdditionalDutyReferences(0).DutyInterestedParty.Name.ToString.Substring(40, FCFCDE.Body.AdditionalDutyReferences(0).DutyInterestedParty.Name.ToString.Length - 40)
-                                Else
-                                    ADR.ezaAd_NameFirma1 = FCFCDE.Body.AdditionalDutyReferences(0).DutyInterestedParty.Name
-                                End If
-                            End If
-                            If FCFCDE.Body.AdditionalDutyReferences(0).ReferenceNumber IsNot Nothing Then
-                                ADR.ezaAd_UStIDAnmelder = FCFCDE.Body.AdditionalDutyReferences(0).ReferenceNumber
-                                EZA.eza_UstIdAnmelder = FCFCDE.Body.AdditionalDutyReferences(0).ReferenceNumber
-                            End If
+                            For Each ADDREF In FCFCDE.Body.AdditionalDutyReferences
+                                If ADDREF.ReferenceNumber IsNot Nothing Then
+                                    If ADDREF.ReferenceNumber.ToString.StartsWith("FR2") Then 'ERWERBER
+
+                                        Dim UIDNR = ADDREF.ReferenceNumber.Substring(3) ' ohne FR2
+                                        Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
+                                        ADR.ezaAd_AdressTyp = "UC" 'ERWERBER
+                                        If ADDREF.DutyInterestedParty.Name IsNot Nothing Then
+                                            If ADDREF.DutyInterestedParty.Name.ToString.Length > 40 Then
+                                                If ADDREF.DutyInterestedParty.Name.ToString.Length > 80 Then
+                                                    ADR.ezaAd_NameFirma1 = ADDREF.DutyInterestedParty.Name.ToString.Substring(0, 40)
+                                                    ADR.ezaAd_NameFirma2 = ADDREF.DutyInterestedParty.Name.ToString.Substring(40, 40)
+                                                    ADR.ezaAd_NameFirma3 = ADDREF.DutyInterestedParty.Name.ToString.Substring(80, ADDREF.DutyInterestedParty.Name.ToString.Length - 80)
+                                                End If
+                                                ADR.ezaAd_NameFirma1 = ADDREF.DutyInterestedParty.Name.ToString.Substring(0, 40)
+                                                ADR.ezaAd_NameFirma2 = ADDREF.DutyInterestedParty.Name.ToString.Substring(40, ADDREF.DutyInterestedParty.Name.ToString.Length - 40)
+                                            Else
+                                                ADR.ezaAd_NameFirma1 = ADDREF.DutyInterestedParty.Name
+                                            End If
+                                        End If
+
+                                        ADR.ezaAd_UStIDAnmelder = UIDNR
+                                        EZA.eza_UstIdAnmelder = UIDNR
+
+                                        If ADDREF.DutyInterestedParty.Identification IsNot Nothing Then
+                                            ADR.ezaAd_TeilnehmerEORI = ADDREF.DutyInterestedParty.Identification.ReferenceNumber
+                                            'ADR.ezaAd_TeilnehmerNLNR = ADDREF.DutyInterestedParty.Identification.ReferenceNumber
+                                        End If
+                                        If ADDREF.DutyInterestedParty.Address IsNot Nothing Then
+                                            ADR.ezaAd_StrasseHausNr1 = ADDREF.DutyInterestedParty.Address.Line
+                                            ADR.ezaAd_StrasseHausNr2 = Nothing
+                                            ADR.ezaAd_Ort = ADDREF.DutyInterestedParty.Address.City
+                                            ADR.ezaAd_PLZ = ADDREF.DutyInterestedParty.Address.Postcode
+                                            ADR.ezaAd_LandCode = ADDREF.DutyInterestedParty.Address.Country
+                                        End If
+                                        EZA.eza_ADRESSEN.Add(ADR)
+
+
+
+                                    ElseIf ADDREF.ReferenceNumber.ToString.StartsWith("FR2") Then 'ERWERBER
+                                        'Fiskalvertreter
+                                    End If
+                                End If
+                            Next
+

-                            If FCFCDE.Body.AdditionalDutyReferences(0).DutyInterestedParty.Identification IsNot Nothing Then
-                                ADR.ezaAd_TeilnehmerEORI = FCFCDE.Body.AdditionalDutyReferences(0).DutyInterestedParty.Identification.ReferenceNumber
-                                'ADR.ezaAd_TeilnehmerNLNR = FCFCDE.Body.AdditionalDutyReferences(0).DutyInterestedParty.Identification.ReferenceNumber
-                            End If
-                            If FCFCDE.Body.AdditionalDutyReferences(0).DutyInterestedParty.Address IsNot Nothing Then
-                                ADR.ezaAd_StrasseHausNr1 = FCFCDE.Body.AdditionalDutyReferences(0).DutyInterestedParty.Address.Line
-                                ADR.ezaAd_StrasseHausNr2 = Nothing
-                                ADR.ezaAd_Ort = FCFCDE.Body.AdditionalDutyReferences(0).DutyInterestedParty.Address.City
-                                ADR.ezaAd_PLZ = FCFCDE.Body.AdditionalDutyReferences(0).DutyInterestedParty.Address.Postcode
-                                ADR.ezaAd_LandCode = FCFCDE.Body.AdditionalDutyReferences(0).DutyInterestedParty.Address.Country
-                            End If
-                            EZA.eza_ADRESSEN.Add(ADR)
                        End If

+
                        'Versender/Ausführer
                        If FCFCDE.Body IsNot Nothing AndAlso FCFCDE.Body.Consignor IsNot Nothing Then
                            Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
@@ -3961,38 +3976,49 @@ Public Class frmDYNachrichtenVerarbeitung
                        'Erwerber -->  NEU!!! = zusätzl. Steuerl. Angaben
                        If FCFCDF.Body IsNot Nothing AndAlso FCFCDF.Body.AdditionalDutyReferences IsNot Nothing AndAlso FCFCDF.Body.AdditionalDutyReferences.Count > 0 AndAlso FCFCDF.Body.AdditionalDutyReferences(0).DutyInterestedParty IsNot Nothing Then

-                            Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
-                            ADR.ezaAd_AdressTyp = "UC"
-                            If FCFCDF.Body.AdditionalDutyReferences(0).DutyInterestedParty.Name IsNot Nothing Then
-                                If FCFCDF.Body.AdditionalDutyReferences(0).DutyInterestedParty.Name.ToString.Length > 40 Then
-                                    If FCFCDF.Body.AdditionalDutyReferences(0).DutyInterestedParty.Name.ToString.Length > 80 Then
-                                        ADR.ezaAd_NameFirma1 = FCFCDF.Body.AdditionalDutyReferences(0).DutyInterestedParty.Name.ToString.Substring(0, 40)
-                                        ADR.ezaAd_NameFirma2 = FCFCDF.Body.AdditionalDutyReferences(0).DutyInterestedParty.Name.ToString.Substring(40, 40)
-                                        ADR.ezaAd_NameFirma3 = FCFCDF.Body.AdditionalDutyReferences(0).DutyInterestedParty.Name.ToString.Substring(80, FCFCDF.Body.AdditionalDutyReferences(0).DutyInterestedParty.Name.ToString.Length - 80)
-                                    End If
-                                    ADR.ezaAd_NameFirma1 = FCFCDF.Body.AdditionalDutyReferences(0).DutyInterestedParty.Name.ToString.Substring(0, 40)
-                                    ADR.ezaAd_NameFirma2 = FCFCDF.Body.AdditionalDutyReferences(0).DutyInterestedParty.Name.ToString.Substring(40, FCFCDF.Body.AdditionalDutyReferences(0).DutyInterestedParty.Name.ToString.Length - 40)
-                                Else
-                                    ADR.ezaAd_NameFirma1 = FCFCDF.Body.AdditionalDutyReferences(0).DutyInterestedParty.Name
-                                End If
-                            End If
-                            If FCFCDF.Body.AdditionalDutyReferences(0).ReferenceNumber IsNot Nothing Then
-                                ADR.ezaAd_UStIDAnmelder = FCFCDF.Body.AdditionalDutyReferences(0).ReferenceNumber
-                                EZA.eza_UstIdAnmelder = FCFCDF.Body.AdditionalDutyReferences(0).ReferenceNumber
-                            End If
+                            For Each ADDREF In FCFCDF.Body.AdditionalDutyReferences
+                                If ADDREF.ReferenceNumber IsNot Nothing Then
+                                    If ADDREF.ReferenceNumber.ToString.StartsWith("FR2") Then 'ERWERBER
+
+                                        Dim UIDNR = ADDREF.ReferenceNumber.Substring(3) ' ohne FR2
+                                        Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
+                                        ADR.ezaAd_AdressTyp = "UC" 'ERWERBER
+                                        If ADDREF.DutyInterestedParty.Name IsNot Nothing Then
+                                            If ADDREF.DutyInterestedParty.Name.ToString.Length > 40 Then
+                                                If ADDREF.DutyInterestedParty.Name.ToString.Length > 80 Then
+                                                    ADR.ezaAd_NameFirma1 = ADDREF.DutyInterestedParty.Name.ToString.Substring(0, 40)
+                                                    ADR.ezaAd_NameFirma2 = ADDREF.DutyInterestedParty.Name.ToString.Substring(40, 40)
+                                                    ADR.ezaAd_NameFirma3 = ADDREF.DutyInterestedParty.Name.ToString.Substring(80, ADDREF.DutyInterestedParty.Name.ToString.Length - 80)
+                                                End If
+                                                ADR.ezaAd_NameFirma1 = ADDREF.DutyInterestedParty.Name.ToString.Substring(0, 40)
+                                                ADR.ezaAd_NameFirma2 = ADDREF.DutyInterestedParty.Name.ToString.Substring(40, ADDREF.DutyInterestedParty.Name.ToString.Length - 40)
+                                            Else
+                                                ADR.ezaAd_NameFirma1 = ADDREF.DutyInterestedParty.Name
+                                            End If
+                                        End If
+
+                                        ADR.ezaAd_UStIDAnmelder = UIDNR
+                                        EZA.eza_UstIdAnmelder = UIDNR
+
+                                        If ADDREF.DutyInterestedParty.Identification IsNot Nothing Then
+                                            ADR.ezaAd_TeilnehmerEORI = ADDREF.DutyInterestedParty.Identification.ReferenceNumber
+                                            'ADR.ezaAd_TeilnehmerNLNR = ADDREF.DutyInterestedParty.Identification.ReferenceNumber
+                                        End If
+                                        If ADDREF.DutyInterestedParty.Address IsNot Nothing Then
+                                            ADR.ezaAd_StrasseHausNr1 = ADDREF.DutyInterestedParty.Address.Line
+                                            ADR.ezaAd_StrasseHausNr2 = Nothing
+                                            ADR.ezaAd_Ort = ADDREF.DutyInterestedParty.Address.City
+                                            ADR.ezaAd_PLZ = ADDREF.DutyInterestedParty.Address.Postcode
+                                            ADR.ezaAd_LandCode = ADDREF.DutyInterestedParty.Address.Country
+                                        End If
+                                        EZA.eza_ADRESSEN.Add(ADR)
+
+
+                                    End If
+                                End If
+                            Next
+

-                            If FCFCDF.Body.AdditionalDutyReferences(0).DutyInterestedParty.Identification IsNot Nothing Then
-                                ADR.ezaAd_TeilnehmerEORI = FCFCDF.Body.AdditionalDutyReferences(0).DutyInterestedParty.Identification.ReferenceNumber
-                                'ADR.ezaAd_TeilnehmerNLNR = FCFCDF.Body.AdditionalDutyReferences(0).DutyInterestedParty.Identification.ReferenceNumber
-                            End If
-                            If FCFCDF.Body.AdditionalDutyReferences(0).DutyInterestedParty.Address IsNot Nothing Then
-                                ADR.ezaAd_StrasseHausNr1 = FCFCDF.Body.AdditionalDutyReferences(0).DutyInterestedParty.Address.Line
-                                ADR.ezaAd_StrasseHausNr2 = Nothing
-                                ADR.ezaAd_Ort = FCFCDF.Body.AdditionalDutyReferences(0).DutyInterestedParty.Address.City
-                                ADR.ezaAd_PLZ = FCFCDF.Body.AdditionalDutyReferences(0).DutyInterestedParty.Address.Postcode
-                                ADR.ezaAd_LandCode = FCFCDF.Body.AdditionalDutyReferences(0).DutyInterestedParty.Address.Country
-                            End If
-                            EZA.eza_ADRESSEN.Add(ADR)
                        End If

                        'Versender/Ausführer