edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ustva_antrag, Kundenbatt Umsatzbericht, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-04-08 17:29:27 +02:00
parent 669cbcade6
commit 35c6c6ccea
7 changed files with 819 additions and 622 deletions
Download Patch File Download Diff File Expand all files Collapse all files

869
SDL/USTV/frmMDM_USTVAntrag.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

2
SDL/USTV/frmMDM_USTVAntrag.vb
View File

@@ -14,7 +14,7 @@ Public Class frmMDM_USTVAntrag
Dim Antrag_LandKz As String = ""
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim posTabisSelected As Boolean = True
Dim atez_api = New cATEZ_NCTS_IN("ATEZ_VAT")
Dim atez_api = New cATEZ_NCTS_IN("ATEZ_VAT", False)
Dim von, bis As Date

8
SDL/USTV/ustCntlUSTV_AntragPosition.Designer.vb generated
View File

@@ -888,14 +888,14 @@ Partial Class ustCntlUSTV_AntragPosition
'
'btnAPIUbload
'
Me.btnAPIUbload.BackgroundImage = Global.SDL.My.Resources.Resources.refresh
Me.btnAPIUbload.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnAPIUbload.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAPIUbload.Location = New System.Drawing.Point(36, 186)
Me.btnAPIUbload.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnAPIUbload.Location = New System.Drawing.Point(16, 186)
Me.btnAPIUbload.Name = "btnAPIUbload"
Me.btnAPIUbload.Size = New System.Drawing.Size(35, 24)
Me.btnAPIUbload.Size = New System.Drawing.Size(71, 24)
Me.btnAPIUbload.TabIndex = 25
Me.btnAPIUbload.TextAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnAPIUbload.Text = "API-Upload"
Me.btnAPIUbload.UseVisualStyleBackColor = True
'
'Panel3

36
SDL/USTV/ustCntlUSTV_AntragPosition.vb
View File

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