ustva_antrag, Kundenbatt Umsatzbericht, etc.

SDL/USTV/ustCntlUSTV_AntragPosition.vb

@@ -267,7 +267,8 @@ Public Class ustCntlUSTV_AntragPosition
             txtOrt.Text = If(UStV_Leist.UstV_Leistender_Stadt, "")
             txtLand.Text = If(UStV_Leist.UstV_Leistender_Land, "")
             txtUIDNr.Text = If(UStV_Leist.UstV_Leistender_UstNr, "")
-            adressLoadedByLeistender = True
+            If UStV_Leist.hasEntry Then adressLoadedByLeistender = True
+
         End If
 
         If Not initial Then
@@ -423,7 +424,7 @@ Public Class ustCntlUSTV_AntragPosition
 
     End Sub
 
-    Private Sub txtUSTBetrag_PreviewKeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles txtUSTBetrag.PreviewKeyDown, txtUSTBetragEUR.PreviewKeyDown, txtRgDatum.PreviewKeyDown, txtRgNr.PreviewKeyDown, txtUmrechnungskurs.PreviewKeyDown
+    Private Sub txtUSTBetrag_PreviewKeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles txtUSTBetrag.PreviewKeyDown, txtUSTBetragEUR.PreviewKeyDown, txtRgDatum.PreviewKeyDown, txtRgNr.PreviewKeyDown, txtUmrechnungskurs.PreviewKeyDown, sbLeistender.PreviewKeyDown
         If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVA_bearbeiten", Me.FindForm) Then Exit Sub
 
         If gridAktiv And Me.FindForm IsNot Nothing Then
@@ -510,20 +511,18 @@ Public Class ustCntlUSTV_AntragPosition
 
 
 
-                ElseIf sender Is sbLeistender Then
+                    'ElseIf sender Is sbLeistender Then
 
 
 
-                    If UStV_Leist.hasEntry Then
+                    '    If UStV_Leist.hasEntry Then
 
 
-                        UStV_POS.UStVPo_Leistender = UStV_Leist.UStV_Leistender
-                        If UStV_Leist.UStV_LeistenderId > 0 Then UStV_POS.UStVPo_LeistenderId = UStV_Leist.UStV_LeistenderId
+                    '        UStV_POS.UStVPo_Leistender = UStV_Leist.UStV_Leistender
+                    '        If UStV_Leist.UStV_LeistenderId > 0 Then UStV_POS.UStVPo_LeistenderId = UStV_Leist.UStV_LeistenderId
+                    '        txtChanged = True
 
-                        txtChanged = True
-                        'UStV_POS.SAVE()
-                        'RaiseEvent CHANGED(UStV_POS.UStVPo_ID)
-                    End If
+                    '    End If
 
 
 
@@ -535,6 +534,21 @@ Public Class ustCntlUSTV_AntragPosition
                     End If
 
 
+                ElseIf sender Is sbLeistender Then
+                    If sbLeistender.Text <> "" Then
+                        If sbLeistender.Text IsNot Nothing AndAlso sbLeistender.Text <> "" Then
+                            If IsNumeric(sbLeistender.Text) Then
+                                UStV_Leist = New VERAG_PROG_ALLGEMEIN.cUStVLeistender(CInt(sbLeistender.Text))
+                            Else
+                                UStV_Leist = New VERAG_PROG_ALLGEMEIN.cUStVLeistender(sbLeistender.Text)
+                            End If
+
+                            loadChangedDSToPanel(UStV_Leist)
+                        Else
+                            loadChangedDSToPanel(Nothing, True)
+                        End If
+                    End If
+                    'MsgBox()
                 End If
 
 
@@ -580,7 +594,7 @@ Public Class ustCntlUSTV_AntragPosition
                 Dim authResp = API.authenticate("VAT", "client1", "password")
                 Dim resp
                 If authResp <> "200" Then
-                    MsgBox("Authentifizierung fehlgeschlagen")
+                    MsgBox("Authentifizierung fehlgeschlagen" & vbNewLine & authResp)
                     Exit Sub
                 Else
                     If API.SendRequestWithAuthHeader("application/json", failreDesc, "/health", "GET") = "200" Then