Merge branch 'newMaster2024' of https://dev.azure.com/VeragAG/_git/SDL into newMaster2024

SDL/SDL.vbproj

@@ -587,18 +587,31 @@
     <Compile Include="Creditsafe\frmCreditSafeSearch.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="Creditsafe\frmVAT_ATEZ.Designer.vb">
+      <DependentUpon>frmVAT_ATEZ.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Creditsafe\frmVAT_ATEZ.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="Creditsafe\usrcntlCreditsafe.Designer.vb">
       <DependentUpon>usrcntlCreditsafe.vb</DependentUpon>
     </Compile>
     <Compile Include="Creditsafe\usrcntlCreditsafe.vb">
       <SubType>UserControl</SubType>
     </Compile>
+    <Compile Include="Creditsafe\usrcntlVAT_ATEZ.Designer.vb">
+      <DependentUpon>usrcntlVAT_ATEZ.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Creditsafe\usrcntlVAT_ATEZ.vb">
+      <SubType>UserControl</SubType>
+    </Compile>
     <Compile Include="cServerClient.vb" />
     <Compile Include="cSourceListWrapper.vb" />
     <Compile Include="cSplitButton.vb">
       <SubType>Component</SubType>
     </Compile>
     <Compile Include="cSqlDb.vb" />
+    <Compile Include="Fakturierung\cAutomailversand.vb" />
     <Compile Include="Fakturierung\frmSendEmail.Designer.vb">
       <DependentUpon>frmSendEmail.vb</DependentUpon>
     </Compile>
@@ -779,6 +792,12 @@
     <Compile Include="kunden\frmGoMautBoxen_Bestellung.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="kunden\frmKundenLinkedGruppe.Designer.vb">
+      <DependentUpon>frmKundenLinkedGruppe.vb</DependentUpon>
+    </Compile>
+    <Compile Include="kunden\frmKundenLinkedGruppe.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="kunden\frmKundenTOBBKdNr.Designer.vb">
       <DependentUpon>frmKundenTOBBKdNr.vb</DependentUpon>
     </Compile>
@@ -875,10 +894,6 @@
     <Compile Include="mdm\Besuchsberichte\usrCntlBesuchsberichte.vb">
       <SubType>UserControl</SubType>
     </Compile>
-    <Compile Include="mdm\frmDatumsabfrage.Designer.vb">
-      <DependentUpon>frmDatumsabfrage.vb</DependentUpon>
-    </Compile>
-    <Compile Include="mdm\frmDatumsabfrage.vb" />
     <Compile Include="mdm\frmMDMLieferantenrechnungen.Designer.vb">
       <DependentUpon>frmMDMLieferantenrechnungen.vb</DependentUpon>
     </Compile>
@@ -3257,9 +3272,15 @@
     <EmbeddedResource Include="Creditsafe\frmCreditSafeSearch.resx">
       <DependentUpon>frmCreditSafeSearch.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="Creditsafe\frmVAT_ATEZ.resx">
+      <DependentUpon>frmVAT_ATEZ.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="Creditsafe\usrcntlCreditsafe.resx">
       <DependentUpon>usrcntlCreditsafe.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="Creditsafe\usrcntlVAT_ATEZ.resx">
+      <DependentUpon>usrcntlVAT_ATEZ.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="Fakturierung\frmSendEmail.resx">
       <DependentUpon>frmSendEmail.vb</DependentUpon>
     </EmbeddedResource>
@@ -3351,6 +3372,9 @@
     <EmbeddedResource Include="kunden\frmGoMautBoxen_Bestellung.resx">
       <DependentUpon>frmGoMautBoxen_Bestellung.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="kunden\frmKundenLinkedGruppe.resx">
+      <DependentUpon>frmKundenLinkedGruppe.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="kunden\frmKundenTOBBKdNr.resx">
       <DependentUpon>frmKundenTOBBKdNr.vb</DependentUpon>
     </EmbeddedResource>
@@ -3399,9 +3423,6 @@
     <EmbeddedResource Include="mdm\Besuchsberichte\usrCntlBesuchsberichte.resx">
       <DependentUpon>usrCntlBesuchsberichte.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="mdm\frmDatumsabfrage.resx">
-      <DependentUpon>frmDatumsabfrage.vb</DependentUpon>
-    </EmbeddedResource>
     <EmbeddedResource Include="mdm\frmMDMLieferantenrechnungen.resx">
       <DependentUpon>frmMDMLieferantenrechnungen.vb</DependentUpon>
     </EmbeddedResource>

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -334,6 +334,7 @@ Public Class frmMDM_USTVAntrag
             USTV_ANTRAG.UStVAn_StatusText = rtbStatusText.Text
 
             USTV_ANTRAG.FilialenNr = cbxFiliale._value
+
             USTV_ANTRAG.FilialenNr = cbxFiliale._value
 
             If txt3470.Text <> "" AndAlso IsNumeric(txt3470.Text) Then
@@ -728,14 +729,28 @@ Public Class frmMDM_USTVAntrag
 
                         Select Case Antrag_LandKz
                             Case "DK"
-                                leistenderName = "A/S Storebealt"
+                                If IsDBNull(ANTRAG.plose_Lieferant) Then
-                            Case Else
+                                    leistenderName = "A/S Storebealt"
-                                If ANTRAG.plose_Lieferant = "SOFICO BELGIO" Then
-                                    leistenderName = "Sofico"
                                 Else
                                     leistenderName = ANTRAG.plose_Lieferant
                                 End If
 
+                            Case "SE"
+                                If IsDBNull(ANTRAG.plose_Lieferant) Then
+                                    leistenderName = "Oresundsbro konsortiet I/S"
+                                Else
+                                    leistenderName = ANTRAG.plose_Lieferant
+                                End If
+
+                            Case Else
+                                If Not IsDBNull(ANTRAG.plose_Lieferant) Then
+                                    If ANTRAG.plose_Lieferant IsNot Nothing AndAlso ANTRAG.plose_Lieferant = "SOFICO BELGIO" Then
+                                        leistenderName = "Sofico"
+                                    Else
+                                        leistenderName = ANTRAG.plose_Lieferant
+                                    End If
+                                End If
+
                         End Select
 
 
@@ -2402,7 +2417,7 @@ Public Class frmMDM_USTVAntrag
         If dgvErstattungspositionen.Rows.Count = 0 Then Exit Sub
         If vbYes = MsgBox("Möchten Sie den Erstattungseintrag wirklich löschen?", vbYesNoCancel) Then
 
-            If UstCntlUSTV_AntragErstattungen1.UStV_ERS.DELETE(UstCntlUSTV_AntragPosition1.UStV_POS.UStVAn_ID, UstCntlUSTV_AntragErstattungen1.UStV_ERS) Then
+            If UstCntlUSTV_AntragErstattungen1.UStV_ERS.DELETE(UstCntlUSTV_AntragErstattungen1.UstV_AN.UStVAn_ID, UstCntlUSTV_AntragErstattungen1.UStV_ERS) Then
                 initdgvErstattungen()
             End If
         End If
@@ -2743,6 +2758,14 @@ Public Class frmMDM_USTVAntrag
     End Sub
 
     Private Sub cbxWahrung_SelectedValueChanged(sender As Object, e As EventArgs) Handles cbxWahrung.SelectedValueChanged
+        If USTV_ANTRAG IsNot Nothing Then
+            If cbxWahrung.SelectedItem IsNot Nothing Then
+                USTV_ANTRAG.UStVAn_Währungscode = cbxWahrung.SelectedItem.Text
+            Else
+                USTV_ANTRAG.UStVAn_Währungscode = ""
+            End If
+        End If
+
 
     End Sub
 

SDL/USTV/usrCntlUSTV.vb

@@ -307,7 +307,12 @@ Public Class usrCntlUSTV
 
             Dim f As New frmMDM_USTVAntrag(dgvUSTV.SelectedRows(0).Cells("UStVAn_ID").Value)
             f.Show(Me)
-            dgvUSTV.RELOAD()
+
+            If Not f.IsHandleCreated Then
+                dgvUSTV.RELOAD()
+            End If
+
+            'dgvUSTV.RELOAD()
         End If
     End Sub
 
@@ -777,7 +782,18 @@ Public Class usrCntlUSTV
         End If
 
         Dim frm = New frmMDM_USTVAntrag(IIf(KdSearchBox1.KdNr_value > 0, KdSearchBox1.KdNr_value, -1), "AT", Nothing, Nothing)
-        frm.ShowDialog()
+        If frm.ShowDialog() = DialogResult.Cancel Then
+
+            dgvUSTV.RELOAD()
+
+            'Dim enabl = KdSearchBox1.Enabled
+            'Me.init(IIf(KdSearchBox1.KdNr_value > 0, KdSearchBox1.KdNr_value, -1))
+            'Me.KdSearchBox1.Enabled = enabl
+
+        End If
+
+
+
 
     End Sub