USTAV, Vatrefund

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

@@ -3989,7 +3989,7 @@ Nächste_Textzeile_lesen:
     ' RECHNUNG.DruckDatumZeit
     Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
         If Not checkUIDNR() Then Exit Sub
-        getValues()
+        'getValues()
         If RECHNUNG.Rechnungsart = "PROFORMA" And RECHNUNG.Sammelrechnung <> "0" Then MsgBox("Proforma-Rechnung nur bei Einzelrechnung möglich!") : Exit Sub
         If RECHNUNG.Sammelrechnung <> "0" Then MsgBox("Nur bei Einzelrechnung möglich!") : Exit Sub
         If RECHNUNG.Status <> 0 OrElse vbYes = MsgBox("Möchten Sie das PDF erstellen?" & vbNewLine & "Es wird eine Rechnungsnummer vergeben, die Rechnung gilt somit als gedruckt und kann nicht mehr bearbeitet werden.", vbYesNoCancel) Then
@@ -4004,7 +4004,7 @@ Nächste_Textzeile_lesen:
     End Sub
 
     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
-        getValues()
+        'getValues()
         If RECHNUNG.Sammelrechnung <> "0" Then MsgBox("Nur bei Einzelrechnung möglich!") : Exit Sub
         If RECHNUNG.Status <> 0 OrElse vbYes = MsgBox("Möchten Sie die Rechnung drucken?" & vbNewLine & "Es wird eine Rechnungsnummer vergeben, die Rechnung kann nicht mehr bearbeitet werden.", vbYesNoCancel) Then
             If RECHNUNG.Status <> 0 OrElse saveMe() Then
@@ -4052,7 +4052,7 @@ Nächste_Textzeile_lesen:
 
     Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click, Button16.Click
         If Not checkUIDNR() Then Exit Sub
-        getValues()
+        'getValues()
         If RECHNUNG.Sammelrechnung <> "0" Then MsgBox("Nur bei Einzelrechnung möglich!") : Exit Sub
         If RECHNUNG.Status <> 0 OrElse saveMe() Then
             ' Anhänge sichern, falls geändert

SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_Vorpapier.vb

@@ -46,7 +46,9 @@ Public Class subRptLaufzettelZollDE_Vorpapier
                         picBarcodeMRN.Location = New PointF(picBarcodeMRN.Location.X - 0.5, picBarcodeMRN.Location.Y)
 
                         ATAMRN = "(" & ATAMRN & ")"
-                        txtATAMRN.Font = New Document.Drawing.Font("Microsoft Sans Serif", 10, GrapeCity.ActiveReports.Document.Drawing.FontStyle.Regular) ' kleiner schreiben
+                        txtATAMRN.Font = New GrapeCity.ActiveReports.Document.Drawing.Font("Microsoft Sans Serif", 10, GrapeCity.ActiveReports.Document.Drawing.FontStyle.Regular) ' kleiner schreiben
+
+
                     End If
                 End If
             Catch ex As Exception

SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_DE_indirekt.Designer.vb

@@ -53,8 +53,10 @@ Partial Class usrcntlVollmacht_DE_indirekt
         Me.cboSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.cbxEinmaligeVollmachtCarnetATA = New System.Windows.Forms.CheckBox()
         Me.txtEinmalig_CarnetATA = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtVmDat = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.datDatum = New System.Windows.Forms.DateTimePicker()
+        Me.txtOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label9 = New System.Windows.Forms.Label()
+        Me.cbxDatum = New System.Windows.Forms.CheckBox()
         CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
@@ -526,37 +528,57 @@ Partial Class usrcntlVollmacht_DE_indirekt
         Me.txtEinmalig_CarnetATA.Size = New System.Drawing.Size(174, 20)
         Me.txtEinmalig_CarnetATA.TabIndex = 34
         '
-        'txtVmDat
+        'datDatum
         '
-        Me.txtVmDat._DateTimeOnly = False
-        Me.txtVmDat._numbersOnly = False
-        Me.txtVmDat._numbersOnlyKommastellen = ""
-        Me.txtVmDat._numbersOnlyTrennzeichen = True
-        Me.txtVmDat._Prozent = False
-        Me.txtVmDat._ShortDateNew = False
-        Me.txtVmDat._ShortDateOnly = False
-        Me.txtVmDat._TimeOnly = False
-        Me.txtVmDat._TimeOnly_Seconds = False
-        Me.txtVmDat._value = Nothing
-        Me.txtVmDat._Waehrung = False
-        Me.txtVmDat._WaehrungZeichen = True
-        Me.txtVmDat.ForeColor = System.Drawing.Color.Black
-        Me.txtVmDat.Location = New System.Drawing.Point(47, 165)
-        Me.txtVmDat.MaxLineLength = -1
-        Me.txtVmDat.MaxLines_Warning = ""
-        Me.txtVmDat.MaxLines_Warning_Label = Nothing
-        Me.txtVmDat.Name = "txtVmDat"
-        Me.txtVmDat.Size = New System.Drawing.Size(89, 20)
-        Me.txtVmDat.TabIndex = 35
+        Me.datDatum.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.datDatum.Location = New System.Drawing.Point(868, 206)
+        Me.datDatum.Name = "datDatum"
+        Me.datDatum.Size = New System.Drawing.Size(95, 20)
+        Me.datDatum.TabIndex = 69
+        '
+        'txtOrt
+        '
+        Me.txtOrt._DateTimeOnly = False
+        Me.txtOrt._numbersOnly = False
+        Me.txtOrt._numbersOnlyKommastellen = ""
+        Me.txtOrt._numbersOnlyTrennzeichen = True
+        Me.txtOrt._Prozent = False
+        Me.txtOrt._ShortDateNew = False
+        Me.txtOrt._ShortDateOnly = False
+        Me.txtOrt._TimeOnly = False
+        Me.txtOrt._TimeOnly_Seconds = False
+        Me.txtOrt._value = Nothing
+        Me.txtOrt._Waehrung = False
+        Me.txtOrt._WaehrungZeichen = True
+        Me.txtOrt.ForeColor = System.Drawing.Color.Black
+        Me.txtOrt.Location = New System.Drawing.Point(687, 205)
+        Me.txtOrt.MaxLineLength = -1
+        Me.txtOrt.MaxLines_Warning = ""
+        Me.txtOrt.MaxLines_Warning_Label = Nothing
+        Me.txtOrt.Name = "txtOrt"
+        Me.txtOrt.Size = New System.Drawing.Size(109, 20)
+        Me.txtOrt.TabIndex = 67
         '
         'Label9
         '
         Me.Label9.AutoSize = True
-        Me.Label9.Location = New System.Drawing.Point(44, 149)
+        Me.Label9.Location = New System.Drawing.Point(650, 212)
         Me.Label9.Name = "Label9"
-        Me.Label9.Size = New System.Drawing.Size(88, 13)
-        Me.Label9.TabIndex = 36
-        Me.Label9.Text = "Vollmacht-datum:"
+        Me.Label9.Size = New System.Drawing.Size(24, 13)
+        Me.Label9.TabIndex = 66
+        Me.Label9.Text = "Ort:"
+        '
+        'cbxDatum
+        '
+        Me.cbxDatum.AutoSize = True
+        Me.cbxDatum.Checked = True
+        Me.cbxDatum.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.cbxDatum.Location = New System.Drawing.Point(808, 208)
+        Me.cbxDatum.Name = "cbxDatum"
+        Me.cbxDatum.Size = New System.Drawing.Size(60, 17)
+        Me.cbxDatum.TabIndex = 120
+        Me.cbxDatum.Text = "Datum:"
+        Me.cbxDatum.UseVisualStyleBackColor = True
         '
         'usrcntlVollmacht_DE_indirekt
         '
@@ -564,8 +586,10 @@ Partial Class usrcntlVollmacht_DE_indirekt
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.BackColor = System.Drawing.Color.WhiteSmoke
         Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Controls.Add(Me.cbxDatum)
+        Me.Controls.Add(Me.datDatum)
+        Me.Controls.Add(Me.txtOrt)
         Me.Controls.Add(Me.Label9)
-        Me.Controls.Add(Me.txtVmDat)
         Me.Controls.Add(Me.txtEinmalig_CarnetATA)
         Me.Controls.Add(Me.cbxEinmaligeVollmachtCarnetATA)
         Me.Controls.Add(Me.Label12)
@@ -598,7 +622,7 @@ Partial Class usrcntlVollmacht_DE_indirekt
         Me.Controls.Add(Me.txtFirma)
         Me.Controls.Add(Me.lbl)
         Me.Name = "usrcntlVollmacht_DE_indirekt"
-        Me.Size = New System.Drawing.Size(1000, 202)
+        Me.Size = New System.Drawing.Size(1000, 229)
         CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
@@ -635,6 +659,8 @@ Partial Class usrcntlVollmacht_DE_indirekt
     Friend WithEvents cboSprache As VERAG_PROG_ALLGEMEIN.MyComboBox
     Friend WithEvents cbxEinmaligeVollmachtCarnetATA As System.Windows.Forms.CheckBox
     Friend WithEvents txtEinmalig_CarnetATA As VERAG_PROG_ALLGEMEIN.MyTextBox
-    Friend WithEvents txtVmDat As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents datDatum As DateTimePicker
+    Friend WithEvents txtOrt As VERAG_PROG_ALLGEMEIN.MyTextBox
     Friend WithEvents Label9 As Label
+    Friend WithEvents cbxDatum As CheckBox
 End Class

SDL/Formulare/KDFormulare/frmFormulare.vb

@@ -1961,7 +1961,28 @@ Public Class FormularManagerNEU
         listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 119, 74, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
         listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 80, 90, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT))
 
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVmDat.Text, 25, 260, 90, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT))
+        'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVmDat.Text, 25, 260, 90, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT))
+
+        Dim dat As Date = Now
+
+
+        If usrCntl.txtOrt.Text <> "" Then
+            If (IsDate(usrCntl.datDatum.Text)) AndAlso usrCntl.cbxDatum.Checked Then
+                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtOrt.Text & ", " & usrCntl.datDatum.Text, 20, 269, 90, 6, "bold", 8, , itextsharp.text.Element.ALIGN_LEFT))
+            End If
+
+        Else
+            If (IsDate(usrCntl.datDatum.Text)) AndAlso usrCntl.cbxDatum.Checked Then
+
+
+                dat = CDate(usrCntl.datDatum.Value)
+
+
+                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.datDatum.Text, 50, 269, 90, 6, "bold", 8, , itextsharp.text.Element.ALIGN_LEFT))
+            End If
+        End If
+
+
 
         Dim top = 0
         If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
@@ -1974,11 +1995,6 @@ Public Class FormularManagerNEU
             listTowrite = addEinmaligeVMCarnetATA(listTowrite, 0, top + 220, usrCntl.cboSprache._value, usrCntl.txtEinmalig_CarnetATA.Text, "")
         End If
 
-        Dim dat As Date = Now
-
-        If IsDate(usrCntl.txtVmDat.Text) Then
-            dat = CDate(usrCntl.txtVmDat.Text)
-        End If
 
         If dat < CDate("01.01.2023") Then
 

SDL/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.5.1.9")>
-<Assembly: AssemblyFileVersion("1.5.1.9")>
+<Assembly: AssemblyVersion("1.5.2.1")>
+<Assembly: AssemblyFileVersion("1.5.2.1")>

SDL/SDL.vbproj

@@ -1275,6 +1275,7 @@
     <Compile Include="mdm\PLOSE\rptPLOSE_Konsortium.vb">
       <SubType>Component</SubType>
     </Compile>
+    <Compile Include="USTV\VATRefund.vb" />
     <Compile Include="USTV\usrCntlUSTV.Designer.vb">
       <DependentUpon>usrCntlUSTV.vb</DependentUpon>
     </Compile>

SDL/USTV/VATRefund.vb

@@ -0,0 +1,314 @@
+Imports Chilkat
+
+'=========================
+' HAUFENKLASSEN
+'=========================
+Public Class VATRefundApplication
+    Public Property CodF1 As FormInfo
+    Public Property RefundPeriod As Period
+    Public Property ApplicationReference As ApplicationReference
+    Public Property ProrateAdjustment As ProrateAdjustment
+    Public Property Applicant As Party
+    Public Property BusinessDescription As BusinessDescription
+    Public Property Representative As Party
+    Public Property DetailedBankAccount As BankAccount
+    Public Property PurchaseInformation As PurchaseInformation
+    Public Property ImportInformation As ImportInformation
+    Public Property DocumentCopy As List(Of DocumentCopy)
+    Public Property NumberOfDocuments As NumberOfDocuments
+    Public Property ApplicantSignature As Signature
+
+    Public Sub New()
+        DocumentCopy = New List(Of DocumentCopy)()
+        PurchaseInformation = New PurchaseInformation()
+        ImportInformation = New ImportInformation()
+    End Sub
+
+    '=========================
+    ' Methode um das XML zu erzeugen
+    '=========================
+    Public Function ToXml() As Xml
+        Dim xml As New Xml
+        xml.Tag = "VATRefundApplication"
+        xml.AddAttribute("xmlns:xfa", "http://www.xfa.org/schema/xfa-data/1.0/")
+
+        ' FormInfo
+        xml.UpdateChildContent("codF1|formType", CodF1.FormType)
+        xml.UpdateChildContentInt("codF1|formId", CodF1.FormId)
+        xml.UpdateChildContent("codF1|universalCode", CodF1.UniversalCode)
+
+        ' RefundPeriod
+        xml.UpdateChildContentInt("RefundPeriod|StartDate", RefundPeriod.StartDate)
+        xml.UpdateChildContentInt("RefundPeriod|EndDate", RefundPeriod.EndDate)
+
+        ' ApplicationReference
+        With ApplicationReference
+            xml.UpdateChildContentInt("ApplicationReference|Year", .Year)
+            xml.UpdateChildContent("ApplicationReference|RefundingCountryCode", .RefundingCountryCode)
+            xml.UpdateChildContent("ApplicationReference|Language", .Language)
+            xml.UpdateChildContent("ApplicationReference|Currency", .Currency)
+            xml.UpdateChildContentInt("ApplicationReference|ApplicationType", .ApplicationType)
+            xml.UpdateChildContent("ApplicationReference|ReferenceNumber", .ReferenceNumber)
+            xml.UpdateChildContentInt("ApplicationReference|Annual", .Annual)
+            xml.UpdateChildContentInt("ApplicationReference|an_r", .an_r)
+            xml.UpdateChildContentInt("ApplicationReference|d_rec", .d_rec)
+            xml.UpdateChildContentInt("ApplicationReference|luna_r", .luna_r)
+            xml.UpdateChildContentInt("ApplicationReference|cif", .cif)
+            xml.UpdateChildContentInt("ApplicationReference|totalPlata_A", .totalPlata_A)
+        End With
+
+        ' ProrateAdjustment
+        xml.UpdateChildContent("ProrateAdjustment|Year", ProrateAdjustment.Year)
+        xml.UpdateChildContent("ProrateAdjustment|FinalProrate", ProrateAdjustment.FinalProrate)
+
+        ' Applicant
+        UpdatePartyXml(xml, "Applicant", Applicant)
+
+        ' BusinessDescription
+        With BusinessDescription
+            xml.UpdateChildContentInt("BusinessDescription|d_caen", .d_caen)
+            xml.UpdateChildContent("BusinessDescription|CAEN", .CAEN)
+            xml.UpdateChildContentInt("BusinessDescription|BusinessActivity", .BusinessActivity)
+        End With
+
+        ' Representative
+        UpdatePartyXml(xml, "Representative", Representative)
+
+        ' DetailedBankAccount
+        With DetailedBankAccount
+            xml.UpdateChildContent("DetailedBankAccount|Total", .Total)
+            xml.UpdateChildContent("DetailedBankAccount|Currency", .Currency)
+            xml.UpdateChildContentInt("DetailedBankAccount|OwnerType", .OwnerType)
+            xml.UpdateChildContent("DetailedBankAccount|OwnerName", .OwnerName)
+            xml.UpdateChildContent("DetailedBankAccount|IBAN", .IBAN)
+            xml.UpdateChildContent("DetailedBankAccount|BIC", .BIC)
+        End With
+
+        ' PurchaseInformation
+        For i As Integer = 0 To PurchaseInformation.Invoices.Count - 1
+            Dim inv = PurchaseInformation.Invoices(i)
+            Dim path = $"PurchaseInformation|Invoice[{i}]"
+            xml.UpdateChildContentInt($"{path}|SequenceNumber", inv.SequenceNumber)
+            xml.UpdateChildContentInt($"{path}|simplifiedInvoice", inv.SimplifiedInvoice)
+            xml.UpdateChildContent($"{path}|ReferenceNumber", inv.ReferenceNumber)
+            xml.UpdateChildContent($"{path}|IssuingDate", inv.IssuingDate)
+
+            ' GoodsDescription
+            If inv.GoodsDescription IsNot Nothing AndAlso inv.GoodsDescription.GoodsItem IsNot Nothing Then
+                xml.UpdateChildContentInt($"{path}|GoodsDescription|GoodsItem|Code", inv.GoodsDescription.GoodsItem.Code)
+                xml.UpdateChildContent($"{path}|GoodsDescription|GoodsItem|SubCode", inv.GoodsDescription.GoodsItem.SubCode)
+                xml.UpdateChildContent($"{path}|GoodsDescription|GoodsItem|FreeText", inv.GoodsDescription.GoodsItem.FreeText)
+            End If
+
+            ' TransactionDescription
+            If inv.TransactionDescription IsNot Nothing Then
+                xml.UpdateChildContent($"{path}|TransactionDescription|TaxableAmount", inv.TransactionDescription.TaxableAmount)
+                xml.UpdateChildContent($"{path}|TransactionDescription|VATAmount", inv.TransactionDescription.VATAmount)
+            End If
+
+            ' Deduction
+            If inv.Deduction IsNot Nothing Then
+                xml.UpdateChildContent($"{path}|Deduction|ProRataRate", inv.Deduction.ProRataRate)
+                xml.UpdateChildContent($"{path}|Deduction|DeductibleVATAmount", inv.Deduction.DeductibleVATAmount)
+            End If
+
+            ' EUSupplier
+            If inv.EUSupplier IsNot Nothing Then
+                UpdatePartyXml(xml, $"{path}|EUSupplier", inv.EUSupplier)
+            End If
+        Next
+
+        ' ImportInformation
+        For i As Integer = 0 To ImportInformation._Imports.Count - 1
+            Dim imp = ImportInformation._Imports(i)
+            Dim path = $"ImportInformation|Import[{i}]"
+            xml.UpdateChildContentInt($"{path}|SequenceNumber", imp.SequenceNumber)
+            xml.UpdateChildContent($"{path}|ReferenceNumber", imp.ReferenceNumber)
+            xml.UpdateChildContent($"{path}|IssuingDate", imp.IssuingDate)
+            ' xml.UpdateChildContent($"{path}|ReferenceInformation", imp.ReferenceInformation)
+
+            If imp.GoodsDescription IsNot Nothing AndAlso imp.GoodsDescription.GoodsItem IsNot Nothing Then
+                xml.UpdateChildContent($"{path}|GoodsDescription|GoodsItem|Code", imp.GoodsDescription.GoodsItem.Code)
+                xml.UpdateChildContent($"{path}|GoodsDescription|GoodsItem|SubCode", imp.GoodsDescription.GoodsItem.SubCode)
+                xml.UpdateChildContent($"{path}|GoodsDescription|GoodsItem|FreeText", imp.GoodsDescription.GoodsItem.FreeText)
+            End If
+
+            If imp.TransactionDescription IsNot Nothing Then
+                xml.UpdateChildContent($"{path}|TransactionDescription|TaxableAmount", imp.TransactionDescription.TaxableAmount)
+                xml.UpdateChildContent($"{path}|TransactionDescription|VATAmount", imp.TransactionDescription.VATAmount)
+            End If
+
+            If imp.Deduction IsNot Nothing Then
+                xml.UpdateChildContent($"{path}|Deduction|ProRataRate", imp.Deduction.ProRataRate)
+                xml.UpdateChildContent($"{path}|Deduction|DeductibleVATAmount", imp.Deduction.DeductibleVATAmount)
+            End If
+
+            If imp.EUSupplier IsNot Nothing Then
+                UpdatePartyXml(xml, $"{path}|Supplier", imp.EUSupplier)
+            End If
+        Next
+
+        ' DocumentCopy
+        For i As Integer = 0 To DocumentCopy.Count - 1
+            Dim doc = DocumentCopy(i)
+            Dim path = $"DocumentCopy{i + 1}"
+            xml.UpdateChildContentInt($"{path}|Bifa_atasament", doc.Bifa_atasament)
+            xml.UpdateChildContent($"{path}|Document|FileName", doc.Document.FileName)
+            xml.UpdateChildContent($"{path}|Document|FileType", doc.Document.FileType)
+            xml.UpdateChildContent($"{path}|Document|FileDescription", doc.Document.FileDescription)
+        Next
+
+        ' NumberOfDocuments
+        With NumberOfDocuments
+            xml.UpdateChildContentInt("NumberOfDocuments|AtachatedFiles", .AtachatedFiles)
+            xml.UpdateChildContentInt("NumberOfDocuments|PurchaseOrders", .PurchaseOrders)
+            xml.UpdateChildContentInt("NumberOfDocuments|ImportOrders", .ImportOrders)
+        End With
+
+        ' ApplicantSignature
+        xml.UpdateChildContent("ApplicantSignature|NameFree", ApplicantSignature.NameFree)
+        xml.UpdateChildContent("ApplicantSignature|Position", ApplicantSignature.Position)
+
+        Return xml
+    End Function
+
+    '=========================
+    ' Hilfsmethode: Party in XML
+    '=========================
+    Private Sub UpdatePartyXml(xml As Xml, path As String, party As Party)
+        xml.UpdateChildContent($"{path}|NameFree", party.NameFree)
+        'If party.VATIdentificationNumber.HasValue Then
+        '    xml.UpdateChildContentInt($"{path}|VATIdentificationNumber", party.VATIdentificationNumber.Value)
+        'End If
+        xml.UpdateChildContent($"{path}|VATIdentificationNumber", party.VATIdentificationNumber)
+        xml.UpdateChildContent($"{path}|AddressFree", party.AddressFree)
+        xml.UpdateChildContent($"{path}|PostCode", party.PostCode)
+        xml.UpdateChildContent($"{path}|Phone", party.Phone)
+        xml.UpdateChildContent($"{path}|EmailAddress", party.EmailAddress)
+        xml.UpdateChildContent($"{path}|CountryCode", party.CountryCode)
+        xml.UpdateChildContent($"{path}|RepresentativeID", party.RepresentativeID)
+        xml.UpdateChildContent($"{path}|identificationType", party.IdentificationType)
+    End Sub
+End Class
+
+'=========================
+' UNTERKLASSEN
+'=========================
+Public Class FormInfo
+    Public Property FormType As String
+    Public Property FormId As Integer
+    Public Property UniversalCode As String
+End Class
+
+Public Class Period
+    Public Property StartDate As Integer
+    Public Property EndDate As Integer
+End Class
+
+Public Class ApplicationReference
+    Public Property Year As Integer
+    Public Property RefundingCountryCode As String
+    Public Property Language As String
+    Public Property Currency As String
+    Public Property ApplicationType As Integer
+    Public Property ReferenceNumber As String
+    Public Property Annual As Integer
+    Public Property an_r As Integer
+    Public Property d_rec As Integer
+    Public Property luna_r As Integer
+    Public Property cif As Integer
+    Public Property totalPlata_A As Integer
+End Class
+
+Public Class ProrateAdjustment
+    Public Property Year As String
+    Public Property FinalProrate As String
+End Class
+
+Public Class Party
+    Public Property NameFree As String
+    Public Property VATIdentificationNumber As String
+    Public Property AddressFree As String
+    Public Property PostCode As String
+    Public Property Phone As String
+    Public Property EmailAddress As String
+    Public Property CountryCode As String
+    Public Property RepresentativeID As String
+    Public Property IdentificationType As String
+End Class
+
+Public Class BusinessDescription
+    Public Property d_caen As Integer
+    Public Property CAEN As String
+    Public Property BusinessActivity As Integer
+End Class
+
+Public Class BankAccount
+    Public Property Total As Decimal
+    Public Property Currency As String
+    Public Property OwnerType As Integer
+    Public Property OwnerName As String
+    Public Property IBAN As String
+    Public Property BIC As String
+End Class
+
+Public Class PurchaseInformation
+    Public Property Invoices As List(Of Invoice) = New List(Of Invoice)
+End Class
+
+Public Class Invoice
+    Public Property SequenceNumber As Integer
+    Public Property SimplifiedInvoice As Integer
+    Public Property ReferenceNumber As String
+    Public Property IssuingDate As String
+    Public Property GoodsDescription As GoodsDescription
+    Public Property TransactionDescription As TransactionDescription
+    Public Property Deduction As Deduction
+    Public Property EUSupplier As Party
+End Class
+
+Public Class GoodsDescription
+    Public Property GoodsItem As GoodsItem
+End Class
+
+Public Class GoodsItem
+    Public Property Code As Integer
+    Public Property SubCode As String
+    Public Property FreeText As String
+End Class
+
+Public Class TransactionDescription
+    Public Property TaxableAmount As String
+    Public Property VATAmount As String
+End Class
+
+Public Class Deduction
+    Public Property ProRataRate As String
+    Public Property DeductibleVATAmount As String
+End Class
+
+Public Class ImportInformation
+    Public Property _Imports As List(Of Invoice) = New List(Of Invoice)
+End Class
+
+Public Class DocumentCopy
+    Public Property Bifa_atasament As Integer
+    Public Property Document As DocumentFile
+End Class
+
+Public Class DocumentFile
+    Public Property FileName As String
+    Public Property FileType As String
+    Public Property FileDescription As String
+End Class
+
+Public Class NumberOfDocuments
+    Public Property AtachatedFiles As Integer
+    Public Property PurchaseOrders As Integer
+    Public Property ImportOrders As Integer
+End Class
+
+Public Class Signature
+    Public Property NameFree As String
+    Public Property Position As String
+End Class

SDL/USTV/frmMDM_USTVAntrag.Designer.vb

@@ -27,6 +27,8 @@ Partial Class frmMDM_USTVAntrag
         Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.pnlBottom = New System.Windows.Forms.Panel()
+        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.btnRMCQuartal = New System.Windows.Forms.Button()
         Me.Label18 = New System.Windows.Forms.Label()
         Me.txtSumme = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.pbMail = New System.Windows.Forms.PictureBox()
@@ -144,8 +146,8 @@ Partial Class frmMDM_USTVAntrag
         Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
         Me.FakturiertToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.btnRMCQuartal = New System.Windows.Forms.Button()
         Me.pnlBottom.SuspendLayout()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.pbMail, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.pb_Beleg, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.picExcel, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -176,6 +178,7 @@ Partial Class frmMDM_USTVAntrag
         '
         Me.pnlBottom.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
         Me.pnlBottom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnlBottom.Controls.Add(Me.PictureBox1)
         Me.pnlBottom.Controls.Add(Me.btnRMCQuartal)
         Me.pnlBottom.Controls.Add(Me.Label18)
         Me.pnlBottom.Controls.Add(Me.txtSumme)
@@ -198,6 +201,29 @@ Partial Class frmMDM_USTVAntrag
         Me.pnlBottom.Size = New System.Drawing.Size(1444, 100)
         Me.pnlBottom.TabIndex = 3
         '
+        'PictureBox1
+        '
+        Me.PictureBox1.Image = Global.SDL.My.Resources.Resources.xml
+        Me.PictureBox1.Location = New System.Drawing.Point(1203, 10)
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.Size = New System.Drawing.Size(35, 35)
+        Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+        Me.PictureBox1.TabIndex = 56
+        Me.PictureBox1.TabStop = False
+        '
+        'btnRMCQuartal
+        '
+        Me.btnRMCQuartal.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnRMCQuartal.ForeColor = System.Drawing.Color.Black
+        Me.btnRMCQuartal.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnRMCQuartal.Location = New System.Drawing.Point(752, 17)
+        Me.btnRMCQuartal.Name = "btnRMCQuartal"
+        Me.btnRMCQuartal.Size = New System.Drawing.Size(103, 39)
+        Me.btnRMCQuartal.TabIndex = 55
+        Me.btnRMCQuartal.Text = "RMC Quartal"
+        Me.btnRMCQuartal.UseVisualStyleBackColor = True
+        Me.btnRMCQuartal.Visible = False
+        '
         'Label18
         '
         Me.Label18.AutoSize = True
@@ -236,7 +262,7 @@ Partial Class frmMDM_USTVAntrag
         'pbMail
         '
         Me.pbMail.Image = CType(resources.GetObject("pbMail.Image"), System.Drawing.Image)
-        Me.pbMail.Location = New System.Drawing.Point(1097, 8)
+        Me.pbMail.Location = New System.Drawing.Point(1080, 8)
         Me.pbMail.Name = "pbMail"
         Me.pbMail.Size = New System.Drawing.Size(35, 35)
         Me.pbMail.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
@@ -305,7 +331,7 @@ Partial Class frmMDM_USTVAntrag
         'picExcel
         '
         Me.picExcel.Image = CType(resources.GetObject("picExcel.Image"), System.Drawing.Image)
-        Me.picExcel.Location = New System.Drawing.Point(1145, 8)
+        Me.picExcel.Location = New System.Drawing.Point(1121, 8)
         Me.picExcel.Name = "picExcel"
         Me.picExcel.Size = New System.Drawing.Size(35, 35)
         Me.picExcel.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
@@ -327,7 +353,7 @@ Partial Class frmMDM_USTVAntrag
         'picPDF
         '
         Me.picPDF.Image = CType(resources.GetObject("picPDF.Image"), System.Drawing.Image)
-        Me.picPDF.Location = New System.Drawing.Point(1198, 8)
+        Me.picPDF.Location = New System.Drawing.Point(1162, 10)
         Me.picPDF.Name = "picPDF"
         Me.picPDF.Size = New System.Drawing.Size(35, 35)
         Me.picPDF.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
@@ -1850,19 +1876,6 @@ Partial Class frmMDM_USTVAntrag
         Me.FakturiertToolStripMenuItem.Text = "Fakturiert zurücksetzen"
         Me.FakturiertToolStripMenuItem.Visible = False
         '
-        'btnRMCQuartal
-        '
-        Me.btnRMCQuartal.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnRMCQuartal.ForeColor = System.Drawing.Color.Black
-        Me.btnRMCQuartal.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnRMCQuartal.Location = New System.Drawing.Point(752, 17)
-        Me.btnRMCQuartal.Name = "btnRMCQuartal"
-        Me.btnRMCQuartal.Size = New System.Drawing.Size(103, 39)
-        Me.btnRMCQuartal.TabIndex = 55
-        Me.btnRMCQuartal.Text = "RMC Quartal"
-        Me.btnRMCQuartal.UseVisualStyleBackColor = True
-        Me.btnRMCQuartal.Visible = False
-        '
         'frmMDM_USTVAntrag
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1878,6 +1891,7 @@ Partial Class frmMDM_USTVAntrag
         Me.Text = "USTV Antrag"
         Me.pnlBottom.ResumeLayout(False)
         Me.pnlBottom.PerformLayout()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.pbMail, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.pb_Beleg, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.picExcel, System.ComponentModel.ISupportInitialize).EndInit()
@@ -2031,4 +2045,5 @@ Partial Class frmMDM_USTVAntrag
     Friend WithEvents Label18 As Label
     Friend WithEvents txtSumme As VERAG_PROG_ALLGEMEIN.MyTextBox
     Friend WithEvents btnRMCQuartal As Button
+    Friend WithEvents PictureBox1 As PictureBox
 End Class

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -1,8 +1,8 @@
 Imports System.IO
+Imports System.IO.Compression
 Imports System.Reflection
 Imports System.Windows.Documents
-Imports com.sun.crypto.provider
-Imports GrapeCity.SpreadBuilder
+Imports com.sun.net.httpserver.Authenticator
 Imports itextsharp.text.pdf
 Imports Microsoft.Office.Interop
 Imports VERAG_PROG_ALLGEMEIN
@@ -542,7 +542,7 @@ Public Class frmMDM_USTVAntrag
             End If
 
         Else
-                Dim sqlWhere As String = ""
+            Dim sqlWhere As String = ""
             'neuer USTVA-Antrag
             KdSearchBox1.Visible = True
             cbxWahrung.Enabled = True
@@ -1161,8 +1161,8 @@ Public Class frmMDM_USTVAntrag
                         USTV_POS.UStVPo_Leistungsbezeichnung = r.Item("specification_page_name")
 
                         Dim leistender As New cUStVLeistender("MS Europe BV" & " " & Antrag_LandKz, Antrag_LandKz)
-                        If leistender.UStV_LeistenderId <1 Then
-                            leistender= New cUStVLeistender("MS Europe BV")
+                        If leistender.UStV_LeistenderId < 1 Then
+                            leistender = New cUStVLeistender("MS Europe BV")
                         End If
 
                         USTV_POS.UStVPo_Leistender = leistender.UStV_Leistender.ToString
@@ -1339,65 +1339,65 @@ Public Class frmMDM_USTVAntrag
 
 
                         Select Case Antrag_LandKz
-                                Case "RO"
-                                    leistenderName = "Kuwait Petroleum Romania S.R.L"
-                                Case "SE"
-                                    leistenderName = "OK-Q8 AB"
-                                Case "DK"
-                                    leistenderName = "Q8 Danmark A/S"
-                                Case "PL"
-                                    leistenderName = "Kuwait Petroleum Sp. Z.o.o"
-                                Case "DE"
-                                    leistenderName = "Kuwait Petroleum Gmbh"
-                                Case "IT"
-                                    leistenderName = "Kuwait Petroleum Italie Spa"
-                                Case "ES"
-                                    leistenderName = "Fuel Iberia S.L.U"
-                                Case Else
+                            Case "RO"
+                                leistenderName = "Kuwait Petroleum Romania S.R.L"
+                            Case "SE"
+                                leistenderName = "OK-Q8 AB"
+                            Case "DK"
+                                leistenderName = "Q8 Danmark A/S"
+                            Case "PL"
+                                leistenderName = "Kuwait Petroleum Sp. Z.o.o"
+                            Case "DE"
+                                leistenderName = "Kuwait Petroleum Gmbh"
+                            Case "IT"
+                                leistenderName = "Kuwait Petroleum Italie Spa"
+                            Case "ES"
+                                leistenderName = "Fuel Iberia S.L.U"
+                            Case Else
                                 leistenderName = IIf(Not useNewAdress, "IDS EUROPE B.V.", "Q8Truck International B.V.")
                         End Select
 
 
                         Dim leistender As New cUStVLeistender(leistenderName & " " & Antrag_LandKz, Antrag_LandKz)
-                            If leistender.UStV_LeistenderId < 1 Then
-                                leistender = New cUStVLeistender(leistenderName)
-                            End If
-
-                            USTV_POS.UStVPo_Leistender = leistender.UStV_Leistender.ToString
-
-                            USTV_POS.UStVPo_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
-                            USTV_POS.UStVPo_Zeitstempel = Now()
-
-
-                            Dim umrechKurs As Double = 1
-
-                            'TODO: IDS liefert Beträge immer in EUR, wir müssen allerdings die Beträge in FREMDW umrechnen, ev. bei IDS nachfragen, ob wir den Fremdwährungsbetrag bekommen können (würde uns einige manuelle Arbeit ersparen oder zumindest den Umrechnungskurs, das IDS einen Mischsatz verwendet und nicht den Umrechnungskurs vom Rechnungsdatum)!!
-
-                            Dim UST_EUR = CDbl(r.Item("Steuerbetrag")) 'ist immer EUR
-                            Dim UST_org = CDbl(r.Item("Steuerbetrag"))
-
-                            If USTV_ANTRAG.UStVAn_Währungscode <> "EUR" Then
-                                Dim kurs As New cEZB_Waehrungskurse(USTV_ANTRAG.UStVAn_Währungscode)
-                                UST_org = Math.Round(kurs.EXCHANGE_EURTOCUR(UST_EUR, USTV_ANTRAG.UStVAn_Währungscode, CDate(USTV_POS.UStVPo_ReDat)), 2)
-                            End If
-
-                            If (UST_org <> 0 AndAlso UST_org <> UST_EUR) Then
-                                umrechKurs = Math.Floor((UST_org / UST_EUR * 100 + 0.5)) / 100
-                            End If
-
-
-                            If UST_org <> 0 Then
-                                USTV_POS.UStVPo_USteuerbetragEUR = UST_EUR
-                                USTV_POS.UStVPo_Umrechnungskurs = umrechKurs
-                                USTV_POS.UStVPo_USteuerbetrag = UST_org
-                            End If
-
-                            If USTV_POS.INSERT() Then
-                                cIDS.UPDATE_ARCHIV(USTV_POS.UStVPo_ReDat, USTV_POS.UStVPo_ReNr, kdnr, Antrag_LandKz, USTV_POS.UStVAn_ID)
-                            End If
-                            'tblUStVPositionen
+                        If leistender.UStV_LeistenderId < 1 Then
+                            leistender = New cUStVLeistender(leistenderName)
                         End If
 
+                        USTV_POS.UStVPo_Leistender = leistender.UStV_Leistender.ToString
+
+                        USTV_POS.UStVPo_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+                        USTV_POS.UStVPo_Zeitstempel = Now()
+
+
+                        Dim umrechKurs As Double = 1
+
+                        'TODO: IDS liefert Beträge immer in EUR, wir müssen allerdings die Beträge in FREMDW umrechnen, ev. bei IDS nachfragen, ob wir den Fremdwährungsbetrag bekommen können (würde uns einige manuelle Arbeit ersparen oder zumindest den Umrechnungskurs, das IDS einen Mischsatz verwendet und nicht den Umrechnungskurs vom Rechnungsdatum)!!
+
+                        Dim UST_EUR = CDbl(r.Item("Steuerbetrag")) 'ist immer EUR
+                        Dim UST_org = CDbl(r.Item("Steuerbetrag"))
+
+                        If USTV_ANTRAG.UStVAn_Währungscode <> "EUR" Then
+                            Dim kurs As New cEZB_Waehrungskurse(USTV_ANTRAG.UStVAn_Währungscode)
+                            UST_org = Math.Round(kurs.EXCHANGE_EURTOCUR(UST_EUR, USTV_ANTRAG.UStVAn_Währungscode, CDate(USTV_POS.UStVPo_ReDat)), 2)
+                        End If
+
+                        If (UST_org <> 0 AndAlso UST_org <> UST_EUR) Then
+                            umrechKurs = Math.Floor((UST_org / UST_EUR * 100 + 0.5)) / 100
+                        End If
+
+
+                        If UST_org <> 0 Then
+                            USTV_POS.UStVPo_USteuerbetragEUR = UST_EUR
+                            USTV_POS.UStVPo_Umrechnungskurs = umrechKurs
+                            USTV_POS.UStVPo_USteuerbetrag = UST_org
+                        End If
+
+                        If USTV_POS.INSERT() Then
+                            cIDS.UPDATE_ARCHIV(USTV_POS.UStVPo_ReDat, USTV_POS.UStVPo_ReNr, kdnr, Antrag_LandKz, USTV_POS.UStVAn_ID)
+                        End If
+                        'tblUStVPositionen
+                    End If
+
                 Next
 
             End If
@@ -3764,19 +3764,19 @@ Public Class frmMDM_USTVAntrag
 
             If listOfTextconserven.LIST.Any(Function(c) c.txt_sprache = spracheRechnung) Then
 
-                    Dim r As cTextkonserve = listOfTextconserven.LIST.Find(Function(c) c.txt_sprache = spracheRechnung)
-                    If r IsNot Nothing Then
-
-                        Mail.Subject = r.txt_betreff
-                        Mail.Subject = Mail.Subject.Replace("%KdNr%", USTV_ANTRAG.UStVAn_KuNr)
-                        Mail.Subject = Mail.Subject.Replace("%KdName%", USTV_ANTRAG.UStVAn_Name)
-                        mailText = r.txt_text
-                    End If
-
+                Dim r As cTextkonserve = listOfTextconserven.LIST.Find(Function(c) c.txt_sprache = spracheRechnung)
+                If r IsNot Nothing Then
 
+                    Mail.Subject = r.txt_betreff
+                    Mail.Subject = Mail.Subject.Replace("%KdNr%", USTV_ANTRAG.UStVAn_KuNr)
+                    Mail.Subject = Mail.Subject.Replace("%KdName%", USTV_ANTRAG.UStVAn_Name)
+                    mailText = r.txt_text
                 End If
 
-                Select Case spracheRechnung
+
+            End If
+
+            Select Case spracheRechnung
                 Case "DE" : Attachmens_Bez = "Lief.-Rechn" : Attachmens_Bez_POS = "POS-Liste"
                 Case "EN", "TR" : Attachmens_Bez = "Supplier-Invoice(s)" : Attachmens_Bez_POS = "Item-List"
                 Case "RO" : Attachmens_Bez = "Factura-furnizorului" : Attachmens_Bez_POS = "Lista-articolelor"
@@ -3805,7 +3805,7 @@ Public Class frmMDM_USTVAntrag
                 End If
 
 
-                End If
+            End If
 
 
             Dim TextHTML = ""
@@ -3919,7 +3919,7 @@ Public Class frmMDM_USTVAntrag
 
 
         End If
-Return ""
+        Return ""
 
     End Function
 
@@ -3944,6 +3944,253 @@ Return ""
 
 
 
+    End Sub
+
+    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
+
+
+        Me.Cursor = Cursors.WaitCursor
+
+        If dgvUSTVPositionen.SelectedRows.Count = 0 Then Exit Sub
+
+
+
+        Try
+
+            Dim dtInvoices As New DataTable
+
+            Dim FIRMA As New cFirmen(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID)
+
+            Dim ADR As New cAdressen(USTV_ANTRAG.UStVAn_KuNr)
+            Dim KUNDE As New cKunde(USTV_ANTRAG.UStVAn_KuNr)
+            Dim KUNDE_ERW As New cKundenErweitert(USTV_ANTRAG.UStVAn_KuNr)
+
+
+            Dim filePath As String = ""
+            Dim fileName As String = USTV_ANTRAG.UStVAn_KuNr & "_" & Antrag_LandKz & "_" & CDate(USTV_ANTRAG.UStVAn_ReDatVon).Month & "_" & CDate(USTV_ANTRAG.UStVAn_ReDatBis).Month & "_" & CDate(USTV_ANTRAG.UStVAn_ReDatBis).Year & "_VATRefund.xml"
+
+            Dim saveDialog As New SaveFileDialog() With {
+               .Title = "XML-Datei speichern",
+               .Filter = "XML-Dateien (*.xml)|*.xml|Alle Dateien (*.*)|*.*",
+               .DefaultExt = "xml",
+               .AddExtension = True,
+               .FileName = fileName,
+               .OverwritePrompt = True
+                }
+
+            If saveDialog.ShowDialog() = DialogResult.OK Then
+                filePath = saveDialog.FileName
+            Else
+                Exit Sub
+            End If
+
+
+            Dim fullFilePath As String = saveDialog.FileName
+            Dim directoryPath As String = Path.GetDirectoryName(fullFilePath)
+
+            If Not Directory.Exists(directoryPath) Then
+                Directory.CreateDirectory(directoryPath)
+            End If
+
+            Dim app As New VATRefundApplication() With {
+            .CodF1 = New FormInfo With {.FormType = "D318", .FormId = 318, .UniversalCode = "D318_A1.0.0"},
+            .RefundPeriod = New Period With {.StartDate = CDate(USTV_ANTRAG.UStVAn_ReDatVon).Month, .EndDate = CDate(USTV_ANTRAG.UStVAn_ReDatBis).Month},
+            .ApplicationReference = New ApplicationReference With {
+                .Year = CDate(USTV_ANTRAG.UStVAn_ReDatBis).Year,
+                .RefundingCountryCode = Antrag_LandKz,
+                .Language = "DE",
+                .Currency = USTV_ANTRAG.UStVAn_Währungscode,
+                .ApplicationType = 1,
+                .ReferenceNumber = "",
+                .Annual = 0,
+                .an_r = CDate(USTV_ANTRAG.UStVAn_ReDatBis).Year,
+                .d_rec = 0,
+                .luna_r = CDate(USTV_ANTRAG.UStVAn_ReDatBis).Month,
+                .cif = ADR.UstIdNr,
+                .totalPlata_A = 0
+            },
+            .ProrateAdjustment = New ProrateAdjustment With {.Year = "", .FinalProrate = ""},
+            .Applicant = New Party With {
+                .NameFree = ADR.Name_1,
+                .VATIdentificationNumber = ADR.UstIdNr,
+                .AddressFree = ADR.Straße.ToString & vbCrLf & ADR.LandKz.ToString & " - " & ADR.PLZ.ToString & " -" & ADR.Ort.ToString,    '"RO - 550270 - MUN. SIBIU",
+                .PostCode = "", .Phone = "", .EmailAddress = "juricevic@verag.ag"
+            },
+            .BusinessDescription = New BusinessDescription With {
+                .d_caen = 2, .CAEN = "4941--Transp.rutiere de marfuri", .BusinessActivity = 4941
+            },
+            .Representative = New Party With {
+                .NameFree = "VERAG 360 GMBH",
+                .RepresentativeID = "ATU76165837",
+                .AddressFree = "SUBEN NR. 100, AT-4975 SUBEN",
+                .PostCode = "4975",
+                .Phone = "00437711277719",
+                .EmailAddress = "juricevic@verag.ag",
+                .CountryCode = "AT",
+                .IdentificationType = "TIN"
+            },
+            .DetailedBankAccount = New BankAccount With {
+                .Total = txtSummeEUR._value.ToString.Replace(",", "."),
+                .Currency = "EUR",
+                .OwnerType = 1,
+                .OwnerName = "VERAG 360 GMBH",
+                .IBAN = "AT053445500004210225",
+                .BIC = "RZOOAT2L455"
+            },
+            .NumberOfDocuments = New NumberOfDocuments With {.AtachatedFiles = 0, .PurchaseOrders = dgvUSTVPositionen.SelectedRows.Count, .ImportOrders = 0},
+            .ApplicantSignature = New Signature With {.NameFree = "LUXBAUER BRIGITTE", .Position = "IMPUTERNICIT"}
+        }
+
+            Dim counter As Integer = 1
+
+
+            For Each row As DataGridViewRow In dgvUSTVPositionen.SelectedRows.Cast(Of DataGridViewRow)().OrderBy(Function(dgvr) dgvr.Index)
+
+                Dim UIDNrLeistender = ""
+
+                If row.Cells("UstV_Leistender_UstNr").Value IsNot Nothing AndAlso row.Cells("UstV_Leistender_UstNr").Value <> "" IsNot Nothing Then
+                    UIDNrLeistender = UIDNrLeistender.ToString.Replace(Antrag_LandKz, "")
+                End If
+
+
+
+                app.PurchaseInformation.Invoices.Add(New Invoice With {
+                .SequenceNumber = counter,
+                .SimplifiedInvoice = 0,
+                .ReferenceNumber = row.Cells("UStVPo_ReNr").Value, ' "25/000616354/987",
+                .IssuingDate = row.Cells("UStVPo_ReDat").Value,'"2025-11-30",
+                .GoodsDescription = New GoodsDescription With {.GoodsItem = New GoodsItem With {.Code = 1, .SubCode = "1.1.2", .FreeText = ""}},
+                .TransactionDescription = New TransactionDescription With {.TaxableAmount = "00.00", .VATAmount = row.Cells("UStVPo_USteuerbetrag").Value.ToString.Replace(",", ".")},
+                .Deduction = New Deduction With {.ProRataRate = "", .DeductibleVATAmount = row.Cells("UStVPo_USteuerbetrag").Value.ToString.Replace(",", ".")},
+                .EUSupplier = New Party With {
+                 .NameFree = row.Cells("UStVPo_Leistender").Value,'"DKV EURO SERVICE GMBH + CO KG",
+                 .AddressFree = row.Cells("UstV_Leistender_Strasse").Value & " " & row.Cells("UstV_Leistender_Land").Value & " " & row.Cells("UstV_Leistender_PLZ").Value & " " & row.Cells("UstV_Leistender_Stadt").Value,'"BALCKE DÜRR ALLEE 3              DE 40882 RATINGEN",
+                 .VATIdentificationNumber = UIDNrLeistender,
+                .CountryCode = Antrag_LandKz
+            }
+        })
+
+                '[UStVAn_ID] , [UStVPo_ID], [UStVPo_ReDat], [UStVPo_ReNr], [UStVPo_Leistungsbezeichnung], [UStVPo_Leistender], leist.[UstV_Leistender_Strasse] + ' ' + leist.[UstV_Leistender_StrasseNr] as [UstV_Leistender_Strasse],leist.[UstV_Leistender_PLZ],leist.[UstV_Leistender_Stadt],leist.[UstV_Leistender_Land],leist.[UstV_Leistender_UstNr],[UStVPo_USteuerbetrag],[UStVPo_Schnittstelle],[UStVPo_SchnittstellenNr],[UStVPo_Umrechnungskurs],[UStVPo_USteuerbetragEUR],[UStVPo_Sachbearbeiter], [UStVPo_daId], [UStVPo_daId_loeschbar] ,[UStVPo_VZ],[UStVPo_VZ_RKID] 
+
+                ' =========================
+                ' 3️⃣ ImportInformation hinzufügen (wenn vorhanden - OPTIONAL)
+                ' =========================
+                '    app.ImportInformation._Imports.Add(New Invoice With {
+                '    .SequenceNumber = 17,
+                '    .ReferenceNumber = "",
+                '    .IssuingDate = "",
+                '    .GoodsDescription = New GoodsDescription With {.GoodsItem = New GoodsItem With {.FreeText = "", .Code = 0, .SubCode = ""}},
+                '    .Deduction = New Deduction With {.DeductibleVATAmount = "0.00", .ProRataRate = ""}
+                '})
+
+            Next
+
+
+
+            ' =========================
+            ' 4️⃣ Dokumente hinzufügen
+            ' =========================
+
+
+            Dim list As New List(Of String)
+            Dim pdfPathfinished As String = ""
+
+            If dgvUSTVPositionen.SelectedRows.Count > 0 Then
+                Dim nummerierung As Boolean = False
+
+                Select Case MsgBox("Soll eine Nummerierung auf den PDF Dokumenten angegeben werden?", vbYesNoCancel)
+                    Case vbYes : nummerierung = True
+                    Case vbNo : nummerierung = False
+                    Case Else : Exit Sub
+                End Select
+
+                For Each row As DataGridViewRow In dgvUSTVPositionen.SelectedRows.Cast(Of DataGridViewRow)().OrderBy(Function(dgvr) dgvr.Index)
+
+                    Dim pdf As String = ""
+                    pdf = func.getPDF(row.Cells("UStVPo_SchnittstellenNr").Value, row.Cells("UStVPo_ReNr").Value, row.Cells("UStVPo_ReDat").Value, row.Cells("UStVPo_daId").Value, IIf(nummerierung, row.Cells("UStVPo_ID").Value, -1), True, Antrag_LandKz, USTV_ANTRAG, New cFakturierung, False)
+
+                    If pdf <> "" Then list.Add(pdf)
+
+                Next
+            End If
+
+            If list.Count = 0 Then Me.Cursor = Cursors.Default : Exit Sub
+
+            If list.Count > 1 Then
+                Dim pathPDF = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("RG_" & Now.ToString("ddMMyyyyHHmmss") & ".pdf", ".pdf", False, False)
+                If FormularManagerNEU.MergePdfFiles(list, pathPDF) Then
+                    pdfPathfinished = pathPDF
+                End If
+            Else
+
+                pdfPathfinished = list(0)
+
+            End If
+
+            Dim fileNamePDFAttZIP As String = "RG_" & Antrag_LandKz & "_" & CDate(USTV_ANTRAG.UStVAn_ReDatVon).Month & "_" & CDate(USTV_ANTRAG.UStVAn_ReDatBis).Month & "_" & CDate(USTV_ANTRAG.UStVAn_ReDatBis).Year & ".zip"
+
+            fileNamePDFAttZIP = directoryPath & "\" & fileNamePDFAttZIP
+
+
+            Dim fileZipped As Boolean = True
+            If pdfPathfinished <> "" Then
+
+                ' Falls ZIP schon existiert → löschen
+                If File.Exists(fileNamePDFAttZIP) Then
+                    File.Delete(fileNamePDFAttZIP)
+                End If
+
+                Dim zipFile As New Chilkat.Zip()
+
+
+                Dim success = zipFile.NewZip(fileNamePDFAttZIP)
+                If (success = False) Then
+                    Debug.WriteLine(zipFile.LastErrorText)
+                    Exit Sub
+                End If
+                Dim saveExtraPath As Boolean = False
+                success = zipFile.AppendFiles(pdfPathfinished, saveExtraPath)
+                If (success = False) Then
+                    fileZipped = False
+                End If
+
+
+                success = zipFile.WriteZipAndClose()
+                If (success = False) Then
+                    fileZipped = False
+                End If
+
+                If fileZipped Then
+                    app.DocumentCopy.Add(New DocumentCopy With {
+                .Bifa_atasament = 1,
+                .Document = New DocumentFile With {
+                    .FileName = fileNamePDFAttZIP,
+                    .FileType = "application/zip",
+                    .FileDescription = "INVOICES/POA"
+                }
+                })
+                End If
+
+
+            End If
+
+                ' =========================
+                ' 5️⃣ XML erzeugen
+                ' =========================
+                Dim xml As Chilkat.Xml = app.ToXml()
+            Dim xmlString As String = xml.GetXml()
+            Console.WriteLine(xmlString)
+            System.IO.File.WriteAllText(filePath, xmlString)
+
+            Me.Cursor = Cursors.Default
+
+
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            Me.Cursor = Cursors.Default
+        End Try
+
     End Sub
 
     Private Function PDFInvoicesPath(ByRef posId As String) As String

SDL/kunden/frmKundenUebersichtZOLL.Designer.vb

@@ -22,7 +22,6 @@ Partial Class frmKundenUebersichtZOLL
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
-        Me.components = New System.ComponentModel.Container()
         Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
@@ -30,19 +29,17 @@ Partial Class frmKundenUebersichtZOLL
         Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmKundenUebersichtZOLL))
-        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip()
         Me.KopierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.tabZolltarife = New System.Windows.Forms.TabPage()
         Me.pnlZollTarife = New System.Windows.Forms.Panel()
         Me.tabKundendaten = New System.Windows.Forms.TabPage()
         Me.rtbInfo = New System.Windows.Forms.RichTextBox()
         Me.lblAbfertigungsverbot = New System.Windows.Forms.Label()
-        Me.usrcntlKundenuebersicht = New SDL.usrCntlKundenuebersicht()
-        Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip()
         Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
         Me.tbcntrKundenDaten = New System.Windows.Forms.TabControl()
         Me.TabPage1 = New System.Windows.Forms.TabPage()
-        Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte()
         Me.tbStatistik = New System.Windows.Forms.TabPage()
         Me.cboKundenblattFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Button1 = New System.Windows.Forms.Button()
@@ -89,10 +86,10 @@ Partial Class frmKundenUebersichtZOLL
         Me.btnSpeichern = New System.Windows.Forms.Button()
         Me.Label35 = New System.Windows.Forms.Label()
         Me.tbRechnungen = New System.Windows.Forms.TabPage()
-        Me.dgvRg = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
-        Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
+        Me.dgvRg = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
+        Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel()
         Me.btnRgPdf = New System.Windows.Forms.Button()
-        Me.ctxtRg = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.ctxtRg = New System.Windows.Forms.ContextMenuStrip()
         Me.DateiHochladenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.btnMonat = New System.Windows.Forms.Button()
         Me.Button10 = New System.Windows.Forms.Button()
@@ -100,9 +97,8 @@ Partial Class frmKundenUebersichtZOLL
         Me.Label40 = New System.Windows.Forms.Label()
         Me.tbSpeditionsbuch = New System.Windows.Forms.TabPage()
         Me.tbFiskaluebersicht = New System.Windows.Forms.TabPage()
-        Me.UsrcntlFiskaluebersicht1 = New SDL.usrcntlFiskaluebersicht()
         Me.tbCBAM = New System.Windows.Forms.TabPage()
-        Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components)
+        Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon()
         Me.Panel1 = New System.Windows.Forms.Panel()
         Me.MenuStripKunden = New System.Windows.Forms.MenuStrip()
         Me.mnueKunden = New System.Windows.Forms.ToolStripMenuItem()
@@ -149,8 +145,8 @@ Partial Class frmKundenUebersichtZOLL
         Me.lblTESTSystem = New System.Windows.Forms.Label()
         Me.pic = New System.Windows.Forms.PictureBox()
         Me.KdSearchBox1 = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
-        Me.tmrFiskal = New System.Windows.Forms.Timer(Me.components)
-        Me.ContextMenuStrip3 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.tmrFiskal = New System.Windows.Forms.Timer()
+        Me.ContextMenuStrip3 = New System.Windows.Forms.ContextMenuStrip()
         Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
         Me.ÄndernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.HochladenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -158,6 +154,10 @@ Partial Class frmKundenUebersichtZOLL
         Me.PDFLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.usrcntlKundenuebersicht = New SDL.usrCntlKundenuebersicht()
+        Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte()
+        Me.UsrcntlFiskaluebersicht1 = New SDL.usrcntlFiskaluebersicht()
+        Me.ZollvollmachtDEIndirektToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ContextMenuStrip1.SuspendLayout()
         Me.tabZolltarife.SuspendLayout()
         Me.tabKundendaten.SuspendLayout()
@@ -205,7 +205,7 @@ Partial Class frmKundenUebersichtZOLL
         Me.tabZolltarife.Location = New System.Drawing.Point(4, 25)
         Me.tabZolltarife.Name = "tabZolltarife"
         Me.tabZolltarife.Padding = New System.Windows.Forms.Padding(3)
-        Me.tabZolltarife.Size = New System.Drawing.Size(1182, 697)
+        Me.tabZolltarife.Size = New System.Drawing.Size(1182, 750)
         Me.tabZolltarife.TabIndex = 1
         Me.tabZolltarife.Text = "Kunden - Zolltarife"
         Me.tabZolltarife.UseVisualStyleBackColor = True
@@ -216,7 +216,7 @@ Partial Class frmKundenUebersichtZOLL
         Me.pnlZollTarife.Dock = System.Windows.Forms.DockStyle.Fill
         Me.pnlZollTarife.Location = New System.Drawing.Point(3, 3)
         Me.pnlZollTarife.Name = "pnlZollTarife"
-        Me.pnlZollTarife.Size = New System.Drawing.Size(1176, 691)
+        Me.pnlZollTarife.Size = New System.Drawing.Size(1176, 744)
         Me.pnlZollTarife.TabIndex = 0
         '
         'tabKundendaten
@@ -260,17 +260,6 @@ Partial Class frmKundenUebersichtZOLL
         Me.lblAbfertigungsverbot.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
         Me.lblAbfertigungsverbot.Visible = False
         '
-        'usrcntlKundenuebersicht
-        '
-        Me.usrcntlKundenuebersicht.BackColor = System.Drawing.Color.White
-        Me.usrcntlKundenuebersicht.BER_STUFE = 0
-        Me.usrcntlKundenuebersicht.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.usrcntlKundenuebersicht.Location = New System.Drawing.Point(3, 3)
-        Me.usrcntlKundenuebersicht.Margin = New System.Windows.Forms.Padding(2)
-        Me.usrcntlKundenuebersicht.Name = "usrcntlKundenuebersicht"
-        Me.usrcntlKundenuebersicht.Size = New System.Drawing.Size(1176, 744)
-        Me.usrcntlKundenuebersicht.TabIndex = 0
-        '
         'ContextMenuStrip2
         '
         Me.ContextMenuStrip2.ImageScalingSize = New System.Drawing.Size(24, 24)
@@ -312,20 +301,10 @@ Partial Class frmKundenUebersichtZOLL
         Me.TabPage1.Location = New System.Drawing.Point(4, 25)
         Me.TabPage1.Name = "TabPage1"
         Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage1.Size = New System.Drawing.Size(1182, 697)
+        Me.TabPage1.Size = New System.Drawing.Size(1182, 750)
         Me.TabPage1.TabIndex = 2
         Me.TabPage1.Text = "Offerte"
         '
-        'UsrCntlOfferte1
-        '
-        Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White
-        Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.UsrCntlOfferte1.Location = New System.Drawing.Point(3, 3)
-        Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(2)
-        Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1"
-        Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1176, 691)
-        Me.UsrCntlOfferte1.TabIndex = 0
-        '
         'tbStatistik
         '
         Me.tbStatistik.BackColor = System.Drawing.Color.White
@@ -359,7 +338,7 @@ Partial Class frmKundenUebersichtZOLL
         Me.tbStatistik.Location = New System.Drawing.Point(4, 25)
         Me.tbStatistik.Name = "tbStatistik"
         Me.tbStatistik.Padding = New System.Windows.Forms.Padding(3)
-        Me.tbStatistik.Size = New System.Drawing.Size(1182, 697)
+        Me.tbStatistik.Size = New System.Drawing.Size(1182, 750)
         Me.tbStatistik.TabIndex = 3
         Me.tbStatistik.Text = "Statikstik"
         '
@@ -850,7 +829,7 @@ Partial Class frmKundenUebersichtZOLL
         Me.tbFiskal.Controls.Add(Me.pnlFiskTop)
         Me.tbFiskal.Location = New System.Drawing.Point(4, 25)
         Me.tbFiskal.Name = "tbFiskal"
-        Me.tbFiskal.Size = New System.Drawing.Size(1182, 697)
+        Me.tbFiskal.Size = New System.Drawing.Size(1182, 750)
         Me.tbFiskal.TabIndex = 4
         Me.tbFiskal.Text = "Fiskal"
         '
@@ -859,7 +838,7 @@ Partial Class frmKundenUebersichtZOLL
         Me.pnlFiskal.Dock = System.Windows.Forms.DockStyle.Fill
         Me.pnlFiskal.Location = New System.Drawing.Point(0, 55)
         Me.pnlFiskal.Name = "pnlFiskal"
-        Me.pnlFiskal.Size = New System.Drawing.Size(1182, 642)
+        Me.pnlFiskal.Size = New System.Drawing.Size(1182, 695)
         Me.pnlFiskal.TabIndex = 40
         '
         'pnlFiskTop
@@ -912,7 +891,7 @@ Partial Class frmKundenUebersichtZOLL
         Me.tbRechnungen.Controls.Add(Me.MyPanel1)
         Me.tbRechnungen.Location = New System.Drawing.Point(4, 25)
         Me.tbRechnungen.Name = "tbRechnungen"
-        Me.tbRechnungen.Size = New System.Drawing.Size(1182, 697)
+        Me.tbRechnungen.Size = New System.Drawing.Size(1182, 750)
         Me.tbRechnungen.TabIndex = 5
         Me.tbRechnungen.Text = "Rechnungen"
         '
@@ -930,7 +909,7 @@ Partial Class frmKundenUebersichtZOLL
         Me.dgvRg.ReadOnly = True
         Me.dgvRg.RowHeadersVisible = False
         Me.dgvRg.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.dgvRg.Size = New System.Drawing.Size(1182, 637)
+        Me.dgvRg.Size = New System.Drawing.Size(1182, 690)
         Me.dgvRg.TabIndex = 1
         '
         'MyPanel1
@@ -1033,7 +1012,7 @@ Partial Class frmKundenUebersichtZOLL
         '
         Me.tbSpeditionsbuch.Location = New System.Drawing.Point(4, 25)
         Me.tbSpeditionsbuch.Name = "tbSpeditionsbuch"
-        Me.tbSpeditionsbuch.Size = New System.Drawing.Size(1182, 697)
+        Me.tbSpeditionsbuch.Size = New System.Drawing.Size(1182, 750)
         Me.tbSpeditionsbuch.TabIndex = 6
         Me.tbSpeditionsbuch.Text = "Speditionsbuch"
         Me.tbSpeditionsbuch.UseVisualStyleBackColor = True
@@ -1043,26 +1022,17 @@ Partial Class frmKundenUebersichtZOLL
         Me.tbFiskaluebersicht.Controls.Add(Me.UsrcntlFiskaluebersicht1)
         Me.tbFiskaluebersicht.Location = New System.Drawing.Point(4, 25)
         Me.tbFiskaluebersicht.Name = "tbFiskaluebersicht"
-        Me.tbFiskaluebersicht.Size = New System.Drawing.Size(1182, 697)
+        Me.tbFiskaluebersicht.Size = New System.Drawing.Size(1182, 750)
         Me.tbFiskaluebersicht.TabIndex = 7
         Me.tbFiskaluebersicht.Text = "Fiskal-Analyse"
         Me.tbFiskaluebersicht.UseVisualStyleBackColor = True
         '
-        'UsrcntlFiskaluebersicht1
-        '
-        Me.UsrcntlFiskaluebersicht1.BackColor = System.Drawing.Color.White
-        Me.UsrcntlFiskaluebersicht1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.UsrcntlFiskaluebersicht1.Location = New System.Drawing.Point(0, 0)
-        Me.UsrcntlFiskaluebersicht1.Name = "UsrcntlFiskaluebersicht1"
-        Me.UsrcntlFiskaluebersicht1.Size = New System.Drawing.Size(1182, 697)
-        Me.UsrcntlFiskaluebersicht1.TabIndex = 0
-        '
         'tbCBAM
         '
         Me.tbCBAM.Location = New System.Drawing.Point(4, 25)
         Me.tbCBAM.Name = "tbCBAM"
         Me.tbCBAM.Padding = New System.Windows.Forms.Padding(3)
-        Me.tbCBAM.Size = New System.Drawing.Size(1182, 697)
+        Me.tbCBAM.Size = New System.Drawing.Size(1182, 750)
         Me.tbCBAM.TabIndex = 8
         Me.tbCBAM.Text = "CBAM"
         Me.tbCBAM.UseVisualStyleBackColor = True
@@ -1214,7 +1184,7 @@ Partial Class frmKundenUebersichtZOLL
         '
         'ToolStripMenuItem4
         '
-        Me.ToolStripMenuItem4.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.toolStrVM_de, Me.ZollvollmachtDEFiskalToolStripMenuItem, Me.ToolStripMenuItem6, Me.ToolStripMenuItem8, Me.ZollvollmachtATEVToolStripMenuItem, Me.VollmachtFinanzamtToolStripMenuItem})
+        Me.ToolStripMenuItem4.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.toolStrVM_de, Me.ZollvollmachtDEFiskalToolStripMenuItem, Me.ToolStripMenuItem6, Me.ToolStripMenuItem8, Me.ZollvollmachtATEVToolStripMenuItem, Me.VollmachtFinanzamtToolStripMenuItem, Me.ZollvollmachtDEIndirektToolStripMenuItem})
         Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4"
         Me.ToolStripMenuItem4.Size = New System.Drawing.Size(242, 22)
         Me.ToolStripMenuItem4.Text = "Vollmachten"
@@ -1222,37 +1192,37 @@ Partial Class frmKundenUebersichtZOLL
         'toolStrVM_de
         '
         Me.toolStrVM_de.Name = "toolStrVM_de"
-        Me.toolStrVM_de.Size = New System.Drawing.Size(204, 22)
+        Me.toolStrVM_de.Size = New System.Drawing.Size(215, 22)
         Me.toolStrVM_de.Text = "Zollvollmacht DE"
         '
         'ZollvollmachtDEFiskalToolStripMenuItem
         '
         Me.ZollvollmachtDEFiskalToolStripMenuItem.Name = "ZollvollmachtDEFiskalToolStripMenuItem"
-        Me.ZollvollmachtDEFiskalToolStripMenuItem.Size = New System.Drawing.Size(204, 22)
+        Me.ZollvollmachtDEFiskalToolStripMenuItem.Size = New System.Drawing.Size(215, 22)
         Me.ZollvollmachtDEFiskalToolStripMenuItem.Text = "Zollvollmacht DE - Fiskal"
         '
         'ToolStripMenuItem6
         '
         Me.ToolStripMenuItem6.Name = "ToolStripMenuItem6"
-        Me.ToolStripMenuItem6.Size = New System.Drawing.Size(204, 22)
+        Me.ToolStripMenuItem6.Size = New System.Drawing.Size(215, 22)
         Me.ToolStripMenuItem6.Text = "Zollvollmacht AT"
         '
         'ToolStripMenuItem8
         '
         Me.ToolStripMenuItem8.Name = "ToolStripMenuItem8"
-        Me.ToolStripMenuItem8.Size = New System.Drawing.Size(204, 22)
+        Me.ToolStripMenuItem8.Size = New System.Drawing.Size(215, 22)
         Me.ToolStripMenuItem8.Text = "Zollvollmacht AT - Fiskal"
         '
         'ZollvollmachtATEVToolStripMenuItem
         '
         Me.ZollvollmachtATEVToolStripMenuItem.Name = "ZollvollmachtATEVToolStripMenuItem"
-        Me.ZollvollmachtATEVToolStripMenuItem.Size = New System.Drawing.Size(204, 22)
+        Me.ZollvollmachtATEVToolStripMenuItem.Size = New System.Drawing.Size(215, 22)
         Me.ZollvollmachtATEVToolStripMenuItem.Text = "Zollvollmacht AT - EV"
         '
         'VollmachtFinanzamtToolStripMenuItem
         '
         Me.VollmachtFinanzamtToolStripMenuItem.Name = "VollmachtFinanzamtToolStripMenuItem"
-        Me.VollmachtFinanzamtToolStripMenuItem.Size = New System.Drawing.Size(204, 22)
+        Me.VollmachtFinanzamtToolStripMenuItem.Size = New System.Drawing.Size(215, 22)
         Me.VollmachtFinanzamtToolStripMenuItem.Text = "Vollmacht Finanzamt"
         '
         'ToolStripMenuItem9
@@ -1577,6 +1547,42 @@ Partial Class frmKundenUebersichtZOLL
         Me.DataGridViewTextBoxColumn2.HeaderText = "KundenNr"
         Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
         '
+        'usrcntlKundenuebersicht
+        '
+        Me.usrcntlKundenuebersicht.BackColor = System.Drawing.Color.White
+        Me.usrcntlKundenuebersicht.BER_STUFE = 0
+        Me.usrcntlKundenuebersicht.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.usrcntlKundenuebersicht.Location = New System.Drawing.Point(3, 3)
+        Me.usrcntlKundenuebersicht.Margin = New System.Windows.Forms.Padding(2)
+        Me.usrcntlKundenuebersicht.Name = "usrcntlKundenuebersicht"
+        Me.usrcntlKundenuebersicht.Size = New System.Drawing.Size(1176, 744)
+        Me.usrcntlKundenuebersicht.TabIndex = 0
+        '
+        'UsrCntlOfferte1
+        '
+        Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlOfferte1.Location = New System.Drawing.Point(3, 3)
+        Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(2)
+        Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1"
+        Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1176, 744)
+        Me.UsrCntlOfferte1.TabIndex = 0
+        '
+        'UsrcntlFiskaluebersicht1
+        '
+        Me.UsrcntlFiskaluebersicht1.BackColor = System.Drawing.Color.White
+        Me.UsrcntlFiskaluebersicht1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrcntlFiskaluebersicht1.Location = New System.Drawing.Point(0, 0)
+        Me.UsrcntlFiskaluebersicht1.Name = "UsrcntlFiskaluebersicht1"
+        Me.UsrcntlFiskaluebersicht1.Size = New System.Drawing.Size(1182, 750)
+        Me.UsrcntlFiskaluebersicht1.TabIndex = 0
+        '
+        'ZollvollmachtDEIndirektToolStripMenuItem
+        '
+        Me.ZollvollmachtDEIndirektToolStripMenuItem.Name = "ZollvollmachtDEIndirektToolStripMenuItem"
+        Me.ZollvollmachtDEIndirektToolStripMenuItem.Size = New System.Drawing.Size(215, 22)
+        Me.ZollvollmachtDEIndirektToolStripMenuItem.Text = "Zollvollmacht DE - indirekt"
+        '
         'frmKundenUebersichtZOLL
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1754,4 +1760,5 @@ Partial Class frmKundenUebersichtZOLL
     Friend WithEvents lblAvgTnr As Label
     Friend WithEvents Button4 As Button
     Friend WithEvents lbAvgTnrGesPos As Label
+    Friend WithEvents ZollvollmachtDEIndirektToolStripMenuItem As ToolStripMenuItem
 End Class

SDL/kunden/frmKundenUebersichtZOLL.vb

@@ -164,7 +164,7 @@ Public Class frmKundenUebersichtZOLL
             ' toolOptionen.Visible = False
             mneBearbeiten.Visible = False
             mnueOfferte.Visible = False
-            mneFormulare.Visible = False
+            ' mneFormulare.Visible = False -> temoprär deaktiviert wegen einholung von Zoll-VM!!!!!!!!!!!
             mnueFiskal.Visible = False
             toolNeuerKunde.Visible = False
             mnueFiskaluebersicht.Visible = False
@@ -365,6 +365,10 @@ Public Class frmKundenUebersichtZOLL
 
                     toolOptionen.Enabled = False
 
+                Else
+
+                    mneFormulare.Enabled = True 'ebenfalls nach Erledigung deaktivieren!!!!!!!!!!!!!!!!!!!
+
                 End If
                 mnueFiskaluebersicht.Enabled = False
 
@@ -1522,7 +1526,9 @@ Public Class frmKundenUebersichtZOLL
 
     End Sub
 
-
+    Private Sub ZollvollmachtDEIndirektToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZollvollmachtDEIndirektToolStripMenuItem.Click
+        SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.DE_Vollmacht_indirekt, kdNr, {})
+    End Sub
 End Class
 
 

SDL/kunden/frmSDLDetails.vb

@@ -21,6 +21,7 @@
         ComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("0 - Sperre aufgehoben", "0")) 'Sperre aufgehoben
         ComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1 - Sperre gesetzt", "1")) 'Sperre gesetzt
         ComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("3 - Stopped for Post-Pay", "3")) 'Stopped for Post-Pay
+        ComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4 - temporär gesperrt", "4"))
         ComboBox1.SelectedIndex = 0
 
         bindingSDL.binddata(CheckBox1, "CheckState", bindingSDL.bindingSource, "Vertretungsvollmacht")

VERAG_PROG_ALLGEMEIN/Classes/cRMC.vb

@@ -341,7 +341,7 @@ Public Class cRMC
 
         Dim SQLFirst As String = ""
         If getInvoiceData Then
-            SQLFirst = "SELECT [rmc_kdNr], [rmc_kdName], [rmc_landKZ], [rmc_reDatum], [rmc_reNr], [rmc_waehrung], case WHEN rmc_daid IS NULL THEN 0 else 1 end as PDF_Rechnung, case WHEN rmc_daId_InvAtt IS NULL THEN 0 else 1 end as PDF_Anhang "
+            SQLFirst = "SELECT [rmc_kdNr], [rmc_kdName], [rmc_landKZ], [rmc_reDatum], [rmc_reNr], [rmc_waehrung],[rmc_betragNetto],([rmc_betragBrutto] - [rmc_betragNetto]) as MWST,[rmc_betragBrutto], case WHEN rmc_daid IS NULL THEN 0 else 1 end as PDF_Rechnung, case WHEN rmc_daId_InvAtt IS NULL THEN 0 else 1 end as PDF_Anhang "
         Else
             SQLFirst = "SELECT DISTINCT r.rmc_kdNr,r.rmc_kdName "
         End If