ustva

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -2474,6 +2474,7 @@ Public Class frmMDM_USTVAntrag
                     abfNrisSetManually = True
                     txtAbfNr.Text = CInt(CDate(USTV_ANTRAG.UStVAn_ReDatVon).Year.ToString.Substring(2, 2)) * 1000000 + CInt(txtAbfNr.Text)
 
+
                 End If
                 Exit Sub
 
@@ -2490,6 +2491,10 @@ Public Class frmMDM_USTVAntrag
             MsgBox("Bitte Filiale auswählen!") : Exit Sub
         End If
         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
         btnAbfertigungsNrVergeben.Visible = False
 

VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb

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