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

ustva

Browse Source
This commit is contained in:
d.breimaier
2025-04-14 08:48:53 +02:00
parent 5459e19ad9
commit a96203522c
3 changed files with 449 additions and 439 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

File diff suppressed because it is too large Load Diff

5
SDL/USTV/frmMDM_USTVAntrag.vb
View File

@@ -2474,6 +2474,7 @@ Public Class frmMDM_USTVAntrag
abfNrisSetManually = True abfNrisSetManually = True
txtAbfNr.Text = CInt(CDate(USTV_ANTRAG.UStVAn_ReDatVon).Year.ToString.Substring(2, 2)) * 1000000 + CInt(txtAbfNr.Text) txtAbfNr.Text = CInt(CDate(USTV_ANTRAG.UStVAn_ReDatVon).Year.ToString.Substring(2, 2)) * 1000000 + CInt(txtAbfNr.Text)
End If End If
Exit Sub Exit Sub
@@ -2490,6 +2491,10 @@ Public Class frmMDM_USTVAntrag
MsgBox("Bitte Filiale auswählen!") : Exit Sub MsgBox("Bitte Filiale auswählen!") : Exit Sub
End If End If
txtAbfNr.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.getMaxPosNrIncrement(cbxFiliale._value, Now.Year) txtAbfNr.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.getMaxPosNrIncrement(cbxFiliale._value, Now.Year)
If txtBezugsNr.Text = "" AndAlso txtAbfNr.Text.ToString.Length >= 6 Then
txtBezugsNr.Text = txtAbfNr.Text.Substring(txtAbfNr.Text.ToString.Length - 6, 6)
txtBezugsNr.Text = txtBezugsNr.Text.TrimStart("0"c)
End If
cbxFiliale.Enabled = False cbxFiliale.Enabled = False
btnAbfertigungsNrVergeben.Visible = False btnAbfertigungsNrVergeben.Visible = False

6
VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb
View File

@@ -666,6 +666,8 @@ Public Class cATEZ_NCTS_IN
Dim bTls As Boolean = True Dim bTls As Boolean = True
Dim port As Integer = 443 Dim port As Integer = 443
Dim bAutoReconnect As Boolean = True Dim bAutoReconnect As Boolean = True
'API_STRING = API_STRING.Replace("https://", "")
'API_STRING = API_STRING.Replace("http://", "")
success = rest.Connect(API_STRING, port, bTls, bAutoReconnect) success = rest.Connect(API_STRING, port, bTls, bAutoReconnect)
If (success <> True) Then If (success <> True) Then
Debug.WriteLine("ConnectFailReason: " & rest.ConnectFailReason) Debug.WriteLine("ConnectFailReason: " & rest.ConnectFailReason)
@@ -691,6 +693,10 @@ Public Class cATEZ_NCTS_IN
'rest.DebugMode = True 'rest.DebugMode = True
Dim sbResponseBody As New Chilkat.StringBuilder Dim sbResponseBody As New Chilkat.StringBuilder
'myuri = myuri.Replace("https:/", "")
'myuri = myuri.Replace("http:/", "")
Dim ResponseStr = rest.FullRequestSb(method, myuri, sbRequestBody, sbResponseBody) Dim ResponseStr = rest.FullRequestSb(method, myuri, sbRequestBody, sbResponseBody)