diff --git a/AVISOUPDATER/UPDATERfrm.vb b/AVISOUPDATER/UPDATERfrm.vb index 276081f..8f211c0 100644 --- a/AVISOUPDATER/UPDATERfrm.vb +++ b/AVISOUPDATER/UPDATERfrm.vb @@ -35,8 +35,10 @@ Public Class UPDATERfrm CopyIncremental = False End If - If System.AppDomain.CurrentDomain.BaseDirectory = "\\share01\Programme\AVISO\" OrElse System.AppDomain.CurrentDomain.BaseDirectory = "\\share01\f\Programme\AVISO\" OrElse System.AppDomain.CurrentDomain.BaseDirectory = "\\install\Programme\AVISO\" Then - MsgBox("Programm kann nicht im Quellpfad " & System.AppDomain.CurrentDomain.BaseDirectory & " geupdated werden!" & vbNewLine & "Vorgang wird abgebrochen!", MsgBoxStyle.Critical) + If System.AppDomain.CurrentDomain.BaseDirectory = "\\share01\Programme\AVISO\" OrElse System.AppDomain.CurrentDomain.BaseDirectory = "\\share01\f\Programme\AVISO\" OrElse System.AppDomain.CurrentDomain.BaseDirectory = "\\install\Programme\AVISO\" OrElse + System.AppDomain.CurrentDomain.BaseDirectory = "\\share01\Programme\AVISO_INSTALL\" OrElse System.AppDomain.CurrentDomain.BaseDirectory = "\\share01\f\Programme\AVISO_INSTALL\" OrElse System.AppDomain.CurrentDomain.BaseDirectory = "\\install\Programme\AVISO_INSTALL\" Then + MsgBox("Programm kann im Quellpfad " & System.AppDomain.CurrentDomain.BaseDirectory & " nicht geupdated werden!" & vbNewLine & "Vorgang wird abgebrochen!", MsgBoxStyle.Critical) + Me.Close() Exit Sub End If diff --git a/Aviso/Aviso.vbproj b/Aviso/Aviso.vbproj index af15531..6b3862c 100644 --- a/Aviso/Aviso.vbproj +++ b/Aviso/Aviso.vbproj @@ -76,7 +76,8 @@ On - aviso.ico + + @@ -596,7 +597,6 @@ - diff --git a/Aviso/Benachrichtigung/frmAvisoWeiterleiten.vb b/Aviso/Benachrichtigung/frmAvisoWeiterleiten.vb index 83a9144..c51b600 100644 --- a/Aviso/Benachrichtigung/frmAvisoWeiterleiten.vb +++ b/Aviso/Benachrichtigung/frmAvisoWeiterleiten.vb @@ -319,7 +319,12 @@ Public Class frmAvisoWeiterleiten End If ElseIf sender Is btnAMBAR Then addBtn(flpFirma, "F", "AMBAR", "AMBAR", True) - + Dim dt As DataTable = SQL.loadDgvBySql("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='AMBAR' order by team_id", "ADMIN") + If dt IsNot Nothing Then + For Each t In dt.Rows + addBtn(flpTeams, "T", t("team_id"), t("team_bezeichnung"),, "AMBAR") + Next + End If ElseIf sender Is Button2 Then addBtn(flpFirma, "W", "FO_WIHD", "KÖRFEZ 61", True, "VERAG") diff --git a/Aviso/CHMRC.vb b/Aviso/CHMRC.vb deleted file mode 100644 index 2d392eb..0000000 --- a/Aviso/CHMRC.vb +++ /dev/null @@ -1,1614 +0,0 @@ -Imports System.Net.Http -Imports System.Web -Imports System -Imports Microsoft.AspNetCore.Authentication.Cookies -Imports Microsoft.AspNetCore.Builder -Imports Microsoft.AspNetCore.Hosting -Imports Microsoft.AspNetCore.Http -Imports Microsoft.Extensions.Configuration -Imports Microsoft.Extensions.DependencyInjection -Imports Microsoft.Extensions.Hosting -Imports System.Collections.Specialized -Imports System.Text -Imports System.IO -Imports VERAG_PROG_ALLGEMEIN - - -Public Class cHMRC - - 'TEST - 'Shared API_STRING As String = "https://test-api.service.hmrc.gov.uk" - 'Shared CLIENT_ID As String = "xybTOMaQWcuifeW5xnGggojlACWC" - 'Shared CLIENT_SECRET As String = "bf1cfb6e-1bcb-4282-b7a0-3d3ccb2b1dc1" - - 'PROD - Shared API_STRING As String = "https://api.service.hmrc.gov.uk" - Shared CLIENT_ID As String = "qO1kqyMtFnvHi9XpRVJBGTCrNpno" - Shared CLIENT_SECRET As String = "3169852a-afa5-4adb-837c-fbd4d0cd4c7e" - - Shared Sub getCredentials() - If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then - API_STRING = "https://test-api.service.hmrc.gov.uk" - CLIENT_ID = "xybTOMaQWcuifeW5xnGggojlACWC" - CLIENT_SECRET = "bf1cfb6e-1bcb-4282-b7a0-3d3ccb2b1dc1" - Else - API_STRING = "https://api.service.hmrc.gov.uk" - CLIENT_ID = "qO1kqyMtFnvHi9XpRVJBGTCrNpno " - CLIENT_SECRET = "3169852a-afa5-4adb-837c-fbd4d0cd4c7e" - End If - - End Sub - - Shared Function SEND_GVMS(GVMS As VERAG_PROG_ALLGEMEIN.cGVMS, Optional updateGMR As String = "") - - VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat() - Dim AccessToken = "" - grantAccess(AccessToken, "write:goods-movement-system+read:pull-notifications") - - If AccessToken <> "" Then - Dim Notification_Box_Id = "" - Dim Notification_Message_Id = "" - If genGVMS_GMR(GVMS, AccessToken, Notification_Box_Id, Notification_Message_Id, updateGMR) Then - GVMS.SAVE() - End If - End If - - End Function - - Shared Function GET_GVMS_LIST() - - VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat() - Dim AccessToken = "" - grantAccess(AccessToken, "write:goods-movement-system") - - If AccessToken <> "" Then - If getGVMS_LIST(AccessToken) Then - MsgBox("LISTE: " & Now.ToShortDateString & " " & Now.ToShortTimeString) - End If - End If - - End Function - - Shared Function GET_GVMS_GMR(GMR As String) - - VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat() - Dim AccessToken = "" - grantAccess(AccessToken, "write:goods-movement-system") - - If AccessToken <> "" Then - If getGVMS_GMR(GMR, AccessToken) Then - MsgBox("GMR: " & Now.ToShortDateString & " " & Now.ToShortTimeString) - End If - End If - - End Function - - - Shared Function DELETE_GMR(GVMS As VERAG_PROG_ALLGEMEIN.cGVMS) - - VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat() - Dim AccessToken = "" - grantAccess(AccessToken, "write:goods-movement-system+read:pull-notifications") - - If AccessToken <> "" Then - Dim Notification_Box_Id = "" - Dim Notification_Message_Id = "" - If delGVMS_GMR(GVMS, AccessToken, Notification_Box_Id, Notification_Message_Id) Then - 'GVMS.delete() - MsgBox("GELÖSCHT: " & Now.ToShortDateString & " " & Now.ToShortTimeString) - End If - End If - - End Function - - Shared Function GET_NOTIFICATIONS(Notification_Box_Id As String) As Boolean - VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat() - Dim AccessTokenNotTEST1 = grantAccessApplication("", "read:pull-notifications") - If AccessTokenNotTEST1 <> "" Then - getGVMS_Notifications(AccessTokenNotTEST1, Notification_Box_Id) 'Notification_Box_Id) '"877b619c-33c1-4ab6-a34f-8bd7542e0596" - End If - End Function - Shared Function Acknowledge_NOTIFICATIONS(Notification_Box_Id As String, Notification_Message_Id As String) As Boolean - VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat() - MsgBox("3") - Dim AccessTokenNotTEST1 = grantAccessApplication("", "write:notifications") - If AccessTokenNotTEST1 <> "" Then - MsgBox("4") - getGVMS_AcknolageNotifications(AccessTokenNotTEST1, Notification_Box_Id, Notification_Message_Id) '"877b619c-33c1-4ab6-a34f-8bd7542e0596" - End If - End Function - - Shared Sub hmrcTEST2() - 'Dim rClient As RestClient = New RestClient() - 'rClient.endPoint = "https://test-api.service.hmrc.gov.uk/hello/user" - 'Dim strResponse As String = String.Empty - 'strResponse = rClient.makeRequest(_accessToken) - - Dim rest As New Chilkat.Rest - - ' Connect to the REST server. - Dim bTls As Boolean = True - Dim port As Integer = 443 - Dim bAutoReconnect As Boolean = True - Dim success As Boolean = rest.Connect("https://test-api.service.hmrc.gov.uk", port, bTls, bAutoReconnect) - '389356931 -> VERAG-UNISPED - 'Dim responseJson As String = rest.FullRequestNoBody("GET", "/organisations/vat/check-vat-number/lookup/553557881") - 'Dim responseJson As String = rest.FullRequestNoBody("GET", "/organisations/vat/check-vat-number/lookup/553552881") 'falsch - Dim responseJson As String = rest.FullRequestNoBody("GET", "/organisations/vat/check-vat-number/lookup/5535532881") 'falsch - If (rest.LastMethodSuccess <> True) Then - Console.WriteLine(rest.LastErrorText) - Exit Sub - End If - - Try - - Dim read = Newtonsoft.Json.Linq.JObject.Parse(responseJson) - - If read.Item("code") IsNot Nothing Then - Dim VAT_Message = read.Item("message").ToString - Dim VAT_code = read.Item("code").ToString - MsgBox("ERROR: " & VAT_Message, MsgBoxStyle.OkOnly, VAT_code) - Else - ' Dim json As String = "{""name"":""Rap God"",""statistics"":{""likeCount"":""122255"",""dislikeCount"":""4472""}}" - Dim VAT_Name = read.Item("target")("name").ToString - Dim VAT_processingDate = read.Item("processingDate").ToString - Dim VAT_Strasse = read.Item("target")("address")("line1").ToString - Dim VAT_PLZ = read.Item("target")("address")("postcode").ToString - Dim VAT_countryCode = read.Item("target")("address")("countryCode").ToString - - MsgBox(VAT_Name) - MsgBox(VAT_processingDate) - End If - Catch ex As Exception - MsgBox(ex.Message & ex.StackTrace) - End Try - - - 'Console.WriteLine(responseJson) - 'Console.WriteLine("----") - - '' We can alternatively do this: - 'rest.ClearAllQueryParams() - '' rest.AddQueryParam("consumer_key", "YOUR_CONSUMER_KEY") - '' rest.AddQueryParam("consumer_secret", "YOUR_CONSUMER_SECRET") - 'responseJson = rest.FullRequestNoBody("GET", "/wp-json/wc/v1/products") - 'If (rest.LastMethodSuccess <> True) Then - ' Console.WriteLine(rest.LastErrorText) - ' Exit Sub - 'End If - - - Console.WriteLine(responseJson) - - End Sub - - - Shared Sub hmrcTEST() - VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat() - - '---------------------------REF DATA--------------------------- - - getGVMS_RefData() - - '-------------------------------------------------------------- - - - Exit Sub - - - '---------------------------NOTIFICATIONS--------------------------- - - Dim AccessTokenNotTEST1 = grantAccessApplication("", "read:pull-notifications") - If AccessTokenNotTEST1 <> "" Then - getGVMS_Notifications(AccessTokenNotTEST1, "877b619c-33c1-4ab6-a34f-8bd7542e0596") - End If - - '------------------------------------------------------------------- - Exit Sub - - - Dim AccessToken = "" - 'grantAccess(AccessToken, "write:goods-movement-system") - grantAccess(AccessToken, "write:goods-movement-system+read:pull-notifications") - 'getHMRC_Token(AccessToken, "write:goods-movement-system") - - ' MsgBox(AccessToken) - 'If AccessToken <> "" Then - - ' Dim Notification_Box_Id = "" - ' Dim Notification_Message_Id = "" - ' If genGVMS_GMR(AccessToken, Notification_Box_Id, Notification_Message_Id) Then - - ' Dim AccessTokenNotTEST = grantAccessApplication("", "read:pull-notifications") - - ' ' getHMRC_Token(AccessTokenNotTEST, "read:pull-notifications") - ' ' grantAccess(AccessTokenNotTEST, "read:pull-notifications") - ' If AccessTokenNotTEST <> "" Then - ' getGVMS_Notifications(AccessTokenNotTEST, Notification_Box_Id) - ' End If - ' 'If AccessToken <> "" Then - ' ' getGVMS_Notifications(AccessToken, Notification_Box_Id) - ' 'End If - ' End If - 'End If - - Exit Sub - 'UnlockCilkat() - - 'Dim AccessTokenNotTEST = "" - 'grantAccess(AccessTokenNotTEST, "read:pull-notifications") - 'If AccessTokenNotTEST <> "" Then - ' getGVMS_Notifications(AccessTokenNotTEST, "877b619c-33c1-4ab6-a34f-8bd7542e0596") - - 'End If - Exit Sub - - 'Dim AccessToken = "" - 'grantAccess(AccessToken, "write:goods-movement-system") - 'If AccessToken <> "" Then - - ' Dim Notification_Box_Id = "" - ' Dim Notification_Message_Id = "" - ' genGVMS_GMR(AccessToken, Notification_Box_Id, Notification_Message_Id) - - ' Dim AccessTokenNot = "" - ' grantAccess(AccessTokenNot, "read:pull-notifications") - ' If AccessTokenNot <> "" Then - ' getGVMS_Notifications(AccessTokenNot, Notification_Box_Id) - - ' End If - 'End If - - - - Exit Sub - getGVMS_RefData() - - Exit Sub - - - - Exit Sub - 'genGVMS_GMR("TEST") - - 'Exit Sub - 'Dim AccessToken = "" - 'grantAccess(AccessToken) - 'If AccessToken <> "" Then - ' genGVMS_GMR(AccessToken) - 'End If - End Sub - Shared Sub grantAccess(ByRef AccessToken, scope) - Try - VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat() - - Debug.WriteLine("HMRC Start") - Dim oauth2 As Chilkat.OAuth2 = New Chilkat.OAuth2() - Dim success As Boolean - - oauth2.ListenPort = 3017 - 'oauth2.AuthorizationEndpoint = "https://test-api.service.hmrc.gov.uk/oauth/authorize" - 'oauth2.TokenEndpoint = "https://test-api.service.hmrc.gov.uk/oauth/token" - oauth2.AuthorizationEndpoint = API_STRING & "/oauth/authorize" - oauth2.TokenEndpoint = API_STRING & "/oauth/token" - oauth2.ClientId = CLIENT_ID '"xybTOMaQWcuifeW5xnGggojlACWC" - oauth2.ClientSecret = CLIENT_SECRET '"bf1cfb6e-1bcb-4282-b7a0-3d3ccb2b1dc1" - 'oauth2.Scope = "read:vat write:vat" !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - oauth2.Scope = scope '"write:goods-movement-system" - Dim url As String = oauth2.StartAuth() - - ' oauth2.RedirectAllowHtml = "http://www.verag.ag/AVISO/Success.html" - 'oauth2.RedirectDenyHtml = "http://www.verag.ag/AVISO/Sussess.html" - - If oauth2.LastMethodSuccess <> True Then - Debug.WriteLine(oauth2.LastErrorText) - Exit Sub - End If - - Dim http As Chilkat.Http = New Chilkat.Http() - - Dim useBrowser = False - If Not useBrowser Then - System.Diagnostics.Process.Start(url) - Dim numMsWaited As Integer = 0 - - - While (numMsWaited < 120000) AndAlso (oauth2.AuthFlowState < 3) - oauth2.SleepMs(100) - numMsWaited = numMsWaited + 100 - End While - ' If there was no response from the browser within 30 seconds, then - ' the AuthFlowState will be equal to 1 Or 2. - ' 1: Waiting for Redirect. The OAuth2 background thread Is waiting to receive the redirect HTTP request from the browser. - ' 2: Waiting for Final Response. The OAuth2 background thread Is waiting for the final access token response. - ' In that case, cancel the background task started in the call to StartAuth. - - Else - - ' System.Diagnostics.Process.Start(url) - - Dim f As New Form - f.Size = New Size(800, 1400) - Dim wb As New WebBrowser - f.Controls.Add(wb) - f.StartPosition = FormStartPosition.CenterScreen - wb.Dock = DockStyle.Fill - wb.Navigate(url) - Dim done = False - - - 'AddHandler wb.DocumentCompleted, Sub() - ' If Not done Then - - ' If wb.Url.AbsolutePath = "/api-test-login/sign-in" Then - ' Try - ' Dim txtInput As HtmlElement = wb.Document.Forms(0).GetElementsByTagName("input").GetElementsByName("userId")(0) - ' txtInput.InnerText = "224015321897" - ' Dim txtInputPwd As HtmlElement = wb.Document.Forms(0).GetElementsByTagName("input").GetElementsByName("password")(0) - ' txtInputPwd.InnerText = "ry1cspz0nsvj" - ' done = True - ' Catch - ' End Try - ' End If - ' End If - ' MsgBox(wb.Url.AbsolutePath) - ' End Sub - - f.ShowDialog() - End If - - - - If oauth2.AuthFlowState < 3 Then - oauth2.Cancel() - Debug.WriteLine("No response from the browser!") - Exit Sub - End If - - Debug.WriteLine("HMRC here") - - - ' Check the AuthFlowState to see if authorization was granted, denied, Or if some error occurred - ' The possible AuthFlowState values are: - ' 3 Completed with Success. The OAuth2 flow has completed, the background thread exited, And the successful JSON response Is available in AccessTokenResponse property. - ' 4: Completed with Access Denied. The OAuth2 flow has completed, the background thread exited, And the error JSON Is available in AccessTokenResponse property. - ' 5: Failed Prior To Completion. The OAuth2 flow failed To complete, the background thread exited, And the error information Is available in the FailureInfo property. - - If oauth2.AuthFlowState = 5 Then - Debug.WriteLine("OAuth2 failed to complete.") - Debug.WriteLine(oauth2.FailureInfo) - Exit Sub - End If - - If oauth2.AuthFlowState = 4 Then - Debug.WriteLine("OAuth2 authorization was denied.") - Debug.WriteLine(oauth2.AccessTokenResponse) - Exit Sub - End If - - If oauth2.AuthFlowState <> 3 Then - Debug.WriteLine("Unexpected AuthFlowState:" & Convert.ToString(oauth2.AuthFlowState)) - Exit Sub - End If - - ' MsgBox("OAuth2 authorization granted!") - Debug.WriteLine("OAuth2 authorization granted!") - Debug.WriteLine("Access Token = " & oauth2.AccessToken) - Dim json As Chilkat.JsonObject = New Chilkat.JsonObject() - json.Load(oauth2.AccessTokenResponse) - json.EmitCompact = False - Debug.WriteLine(json.Emit()) - ' MsgBox(json.Emit()) - - ' The JSON response looks Like this - - ' { - ' "token_type": "Bearer", - ' "scope": "user_impersonation", - ' "expires_in": "3599", - ' "ext_expires_in": "0", - ' "expires_on": "1524783438", - ' "not_before": "1524779538", - ' "resource": "https://mydomain.api.crm.dynamics.com", - ' "access_token": "...", - ' "refresh_token": "...", - ' "id_token": "..." - ' } - - ' If an "expires_on" member does Not exist, then add the JSON member by - ' getting the current system date/time And adding the "expires_in" seconds. - ' This way we'll know when the token expires. - - If json.HasMember("expires_on") <> True Then - Dim dtExpire As Chilkat.CkDateTime = New Chilkat.CkDateTime() - dtExpire.SetFromCurrentSystemTime() - dtExpire.AddSeconds(json.IntOf("expires_in")) - json.AppendString("expires_on", dtExpire.GetAsUnixTimeStr(False)) - End If - - Debug.WriteLine(json.Emit()) - Dim fac As Chilkat.FileAccess = New Chilkat.FileAccess() - 'fac.WriteEntireTextFile("qa_data/tokens/hmrc.json", json.Emit(), "utf-8", False) - ' fac.WriteEntireTextFile("C:\Users\DEVELOPER1\Desktop\hmrc.json", json.Emit(), "utf-8", False) - AccessToken = oauth2.AccessToken - Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) - End Try - End Sub - - - Shared Sub HMRC_RefreshToken(ByVal TOKEN As cHMRCToken) - - If DateDiff(DateInterval.Minute, TOKEN.token_refresh_datetime, Now) < 230 Then 'bis 240 MIN / 4hr - 'Token ist noch frisch - Exit Sub - End If - - ' Chilkat Lizenz aktivieren (falls benötigt) - VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat() - - ' HTTP-Objekt für API-Request erstellen - Dim http As New Chilkat.Http() - - ' URL für HMRC Token Refresh - Dim url As String = "https://api.service.hmrc.gov.uk/oauth/token" - - ' HTTP-Request-Objekt für POST-Anfrage - Dim req As New Chilkat.HttpRequest() - req.HttpVerb = "POST" - req.Path = "/oauth/token" - req.ContentType = "application/x-www-form-urlencoded" - - ' OAuth2 Credentials einfügen - - Dim TOKEN_NEW = "" - req.AddParam("client_secret", CLIENT_SECRET) - req.AddParam("client_id", CLIENT_ID) - req.AddParam("grant_type", "client_credentials") - req.AddParam("refresh_token", TOKEN_NEW) - - - - ' rest.AddQueryParam("scope", scope) - - - ' Anfrage senden - Dim resp As Chilkat.HttpResponse = http.PostUrlEncoded(url, req) - - ' Fehlerprüfung - If resp Is Nothing Then - Console.WriteLine("Fehler: " & http.LastErrorText) - Exit Sub - End If - - ' API-Antwort ausgeben - Dim json As New Chilkat.JsonObject() - json.Load(resp.BodyStr) - - ' Neuer Access Token - Dim accessToken As String = json.StringOf("access_token") - Dim newRefreshToken As String = json.StringOf("refresh_token") - Dim expiresIn As String = json.StringOf("expires_in") - - Console.WriteLine("Neuer Access Token: " & accessToken) - Console.WriteLine("Neuer Refresh Token: " & newRefreshToken) - Console.WriteLine("Gültigkeit (Sekunden): " & expiresIn) - - ' Optional: Tokens in einer Datei speichern - 'Dim tokenFile As String = "token.json" - 'json.EmitCompact = False - 'json.WriteFile(tokenFile) - - TOKEN.token_BEARER_TOKEN = newRefreshToken - TOKEN.token_refresh_datetime = Now - TOKEN.SAVE() - - Console.WriteLine("Tokens wurden in '" & tokenFile & "' gespeichert.") - - End Sub - - - Shared Function grantAccessApplication(ByRef AccessToken, scope) As String - Try - VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat() - - Dim rest As New Chilkat.Rest - Dim success As Boolean - - - Dim bTls As Boolean = True - Dim port As Integer = 443 - Dim bAutoReconnect As Boolean = True - success = rest.Connect(API_STRING, port, bTls, bAutoReconnect) - If (success <> True) Then - Debug.WriteLine("ConnectFailReason: " & rest.ConnectFailReason) - Debug.WriteLine(rest.LastErrorText) - MsgBox(rest.LastErrorText) - Return "" - End If - - - rest.AddHeader("Content-Type", "application/x-www-form-urlencoded") - - rest.AddQueryParam("client_secret", CLIENT_SECRET) - rest.AddQueryParam("client_id", CLIENT_ID) - rest.AddQueryParam("grant_type", "client_credentials") - rest.AddQueryParam("scope", scope) - - - Dim ResponseStr = rest.FullRequestFormUrlEncoded("POST", "/oauth/token") - - Dim respStatusCode As Integer = rest.ResponseStatusCode - - - If (respStatusCode <> 200) Then - Debug.WriteLine(rest.LastErrorText) - Return "" - End If - - Dim jsonResp = New Chilkat.JsonObject() - jsonResp.Load(ResponseStr) - - AccessToken = jsonResp.StringOf("access_token") - ' MsgBox("AccessToken: " & AccessToken) - 'jsonResp.StringOf("expires_in") - - Return AccessToken - Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) - End Try - Return "" - - End Function - - - Shared Sub VATTEST(hmrc_app_server_token) - - Dim rest As New Chilkat.Rest - Dim success As Boolean - - - Dim bTls As Boolean = True - Dim port As Integer = 443 - Dim bAutoReconnect As Boolean = True - success = rest.Connect(API_STRING, port, bTls, bAutoReconnect) - If (success <> True) Then - Debug.WriteLine("ConnectFailReason: " & rest.ConnectFailReason) - Debug.WriteLine(rest.LastErrorText) - Exit Sub - End If - - - ' See the Online Tool for Generating JSON Creation Code - Dim json As New Chilkat.JsonObject - json.UpdateString("periodKey", "#001") - json.UpdateNumber("vatDueSales", "100.00") - json.UpdateNumber("vatDueAcquisitions", "100.00") - json.UpdateNumber("totalVatDue", "200") - json.UpdateNumber("vatReclaimedCurrPeriod", "100.00") - json.UpdateNumber("netVatDue", "100") - json.UpdateNumber("totalValueSalesExVAT", "500") - json.UpdateNumber("totalValuePurchasesExVAT", "500") - json.UpdateNumber("totalValueGoodsSuppliedExVAT", "500") - json.UpdateNumber("totalAcquisitionsExVAT", "500") - json.UpdateBool("finalised", True) - - - rest.AddHeader("Content-Type", "application/json") - rest.AddHeader("Authorization", "Bearer " & hmrc_app_server_token) - rest.AddHeader("Accept", "application/vnd.hmrc.1.0+json") - - Dim sbRequestBody As New Chilkat.StringBuilder - json.EmitSb(sbRequestBody) - Dim sbResponseBody As New Chilkat.StringBuilder - success = rest.FullRequestSb("POST", "/organisations/vat/123456789/returns", sbRequestBody, sbResponseBody) - If (success <> True) Then - Debug.WriteLine(rest.LastErrorText) - Exit Sub - End If - - Dim respStatusCode As Integer = rest.ResponseStatusCode - If (respStatusCode >= 400) Then - Debug.WriteLine("Response Status Code = " & respStatusCode) - Debug.WriteLine("Response Header:") - Debug.WriteLine(rest.ResponseHeader) - Debug.WriteLine("Response Body:") - Debug.WriteLine(sbResponseBody.GetAsString()) - Exit Sub - End If - - - End Sub - - Shared Sub getGVMS_RefData() - - Dim rest As New Chilkat.Rest - Dim success As Boolean - - Dim bTls As Boolean = True - Dim portSSL As Integer = 443 - Dim bAutoReconnect As Boolean = True - - success = rest.Connect(API_STRING, portSSL, bTls, bAutoReconnect) - If (success <> True) Then - Debug.WriteLine("ConnectFailReason: " & rest.ConnectFailReason) - Debug.WriteLine(rest.LastErrorText) - - Exit Sub - End If - - rest.AddHeader("Accept", "application/vnd.hmrc.1.0+json") - - Dim sbRequestBody As New Chilkat.StringBuilder - - Dim sbResponseBody As New Chilkat.StringBuilder - success = rest.FullRequestSb("GET", "/customs/goods-movement-system/reference-data", sbRequestBody, sbResponseBody) - - If (success <> True) Then - Debug.WriteLine(rest.LastErrorText) - MsgBox(rest.LastErrorText) - Exit Sub - End If - - Dim respStatusCode As Integer = rest.ResponseStatusCode - If (respStatusCode <> 200) Then - MsgBox("respStatusCode: " & respStatusCode) - Debug.WriteLine("Response Status Code = " & respStatusCode) - Debug.WriteLine("Response Header:") - Debug.WriteLine(rest.ResponseHeader) - Debug.WriteLine("Response Body:") - Debug.WriteLine(sbResponseBody.GetAsString()) - - Exit Sub - End If - - MsgBox("OK " & respStatusCode) - - Dim jsonResp = New Chilkat.JsonObject() - jsonResp.LoadSb(sbResponseBody) - - VERAG_PROG_ALLGEMEIN.cGVMS_Routes.DELETE_ALL() - For i = 0 To jsonResp.SizeOfArray("routes") - 1 - - Dim ROUTE As New VERAG_PROG_ALLGEMEIN.cGVMS_Routes - - ROUTE.routeId = jsonResp.StringOf("routes[" & i & "].routeId") - ROUTE.routeDirection = jsonResp.StringOf("routes[" & i & "].routeDirection") - - ROUTE.routeEffectiveFrom = jsonResp.StringOf("routes[" & i & "].routeEffectiveFrom") - ROUTE.departurePortId = jsonResp.StringOf("routes[" & i & "].departurePortId") - ROUTE.arrivalPortId = jsonResp.StringOf("routes[" & i & "].arrivalPortId") - ROUTE.carrierId = jsonResp.StringOf("routes[" & i & "].carrierId") - ROUTE.routeEffectiveTo = jsonResp.StringOf("routes[" & i & "].routeEffectiveTo") - ROUTE.SAVE() - - Next - - - VERAG_PROG_ALLGEMEIN.cGVMS_Ports.DELETE_ALL() - For i = 0 To jsonResp.SizeOfArray("ports") - 1 - - Dim PORT As New VERAG_PROG_ALLGEMEIN.cGVMS_Ports - PORT.portId = jsonResp.StringOf("ports[" & i & "].portId") - PORT.portDescription = jsonResp.StringOf("ports[" & i & "].portDescription") - PORT.portRegion = jsonResp.StringOf("ports[" & i & "].portRegion") - PORT.portEffectiveFrom = jsonResp.StringOf("ports[" & i & "].portEffectiveFrom") - PORT.portDescription = jsonResp.StringOf("ports[" & i & "].portDescription") - PORT.chiefPortCode = jsonResp.StringOf("ports[" & i & "].chiefPortCode") - PORT.cdsPortCode = jsonResp.StringOf("ports[" & i & "].cdsPortCode") - PORT.officeOfTransitCustomsOfficeCode = jsonResp.StringOf("ports[" & i & "].officeOfTransitCustomsOfficeCode") - PORT.portEffectiveTo = jsonResp.StringOf("ports[" & i & "].portEffectiveTo") - PORT.portCountryCode = jsonResp.StringOf("ports[" & i & "].portCountryCode") - PORT.isOperatingArrivedExportsProcess = jsonResp.StringOf("ports[" & i & "].isOperatingArrivedExportsProcess") - PORT.SAVE() - Next - - VERAG_PROG_ALLGEMEIN.cGVMS_Carriers.DELETE_ALL() - For i = 0 To jsonResp.SizeOfArray("carriers") - 1 - - Dim CARRIER As New VERAG_PROG_ALLGEMEIN.cGVMS_Carriers - CARRIER.carrierId = jsonResp.StringOf("carriers[" & i & "].carrierId") - CARRIER.carrierName = jsonResp.StringOf("carriers[" & i & "].carrierName") - CARRIER.countryCode = jsonResp.StringOf("carriers[" & i & "].countryCode") - CARRIER.SAVE() - Next - - 'For i = 0 To jsonResp.SizeOfArray("locations") - 1 - - ' MsgBox(jsonResp.StringOf("locations[" & i & "].locationId")) - ' MsgBox(jsonResp.StringOf("locations[" & i & "].locationDescription")) - ' MsgBox(jsonResp.StringOf("locations[" & i & "].locationType")) - - 'Next - 'For i = 0 To jsonResp.SizeOfArray("inspectionTypes") - 1 - - ' MsgBox(jsonResp.StringOf("inspectionTypes[" & i & "].inspectionTypeId")) - ' MsgBox(jsonResp.StringOf("inspectionTypes[" & i & "].description")) - - 'Next - 'For i = 0 To jsonResp.SizeOfArray("ruleFailures") - 1 - - ' MsgBox(jsonResp.StringOf("ruleFailures[" & i & "].ruleId")) - ' MsgBox(jsonResp.StringOf("ruleFailures[" & i & "].ruleDescription")) - - 'Next - - MsgBox("FERTIG: " & Now.ToShortDateString & " " & Now.ToShortTimeString) - - End Sub - Private Shared Function genGVMS_GMR(ByRef GVMS As VERAG_PROG_ALLGEMEIN.cGVMS, hmrc_app_server_token As String, ByRef Notification_Box_Id As String, ByRef Notification_Message_Id As String, Optional updateGMR As String = "") As Boolean - Try - Dim rest As New Chilkat.Rest - Dim success As Boolean - - - Dim bTls As Boolean = True - Dim port As Integer = 443 - Dim bAutoReconnect As Boolean = True - success = rest.Connect(API_STRING, port, bTls, bAutoReconnect) - If (success <> True) Then - Debug.WriteLine("ConnectFailReason: " & rest.ConnectFailReason) - Debug.WriteLine(rest.LastErrorText) - MsgBox(rest.LastErrorText) - Return False - End If - - ' See the Online Tool for Generating JSON Creation Code - Dim json As New Chilkat.JsonObject - json.UpdateString("direction", GVMS.gvms_direction) - json.UpdateBool("isUnaccompanied", GVMS.gvms_isUnaccompanied) - json.UpdateString("vehicleRegNum", GVMS.gvms_vehicleRegNum) 'LKW - If If(GVMS.gvms_trailorRegNum, "") <> "" Then json.UpdateString("trailerRegistrationNums", GVMS.gvms_trailorRegNum) 'Anhänger - - - json.UpdateString("plannedCrossing.routeId", GVMS.gvms_routeId) '--> Calais - Dover - DFDS - json.UpdateString("plannedCrossing.localDateTimeOfDeparture", Format(CDate(GVMS.gvms_locateDateTimeOfDeparture), "yyyy-MM-ddTHH:mm")) '"2021-08-11T10:58") - - - - If GVMS.gvms_empty Then - json.UpdateBool("emptyVehicle.isOwnVehicle", GVMS.gvms_emptyisOwn) - ' json.UpdateBool("emptyVehicle.sAndSMasterRefNum", GVMS.gvms_emptyisOwn) - Else - Dim cnt = 0 - '---------customsDeclarations---------------- - cnt = 0 - For Each POS In GVMS.GVMS_POSITIONEN - If POS.gvms_art = VERAG_PROG_ALLGEMEIN.cGVMS_POS_DecArt.IMPORT Or POS.gvms_art = VERAG_PROG_ALLGEMEIN.cGVMS_POS_DecArt.EXPORT Then - json.UpdateString("customsDeclarations[" & cnt & "].customsDeclarationId", POS.gvms_RefNum) - ' json.UpdateString("customsDeclarations[" & cnt & "].customsDeclarationPartId", "20GB01I0XLM976S001") - If If(POS.gvms_SS, "") <> "" Then json.UpdateString("customsDeclarations[" & cnt & "].sAndSMasterRefNum", POS.gvms_SS) - End If - cnt += 1 - Next - - '---------transitDeclarations TSAD---------------- - cnt = 0 - For Each POS In GVMS.GVMS_POSITIONEN - If POS.gvms_art = VERAG_PROG_ALLGEMEIN.cGVMS_POS_DecArt.TSAD Then - json.UpdateString("transitDeclarations[" & cnt & "].transitDeclarationId", POS.gvms_RefNum) - json.UpdateBool("transitDeclarations[" & cnt & "].isTSAD", True) - If If(POS.gvms_SS, "") <> "" Then json.UpdateString("transitDeclarations[" & cnt & "].sAndSMasterRefNum", POS.gvms_SS) - End If - cnt += 1 - Next - - '---------transitDeclarations TAD---------------- - cnt = 0 - For Each POS In GVMS.GVMS_POSITIONEN - If POS.gvms_art = VERAG_PROG_ALLGEMEIN.cGVMS_POS_DecArt.TAD Then - json.UpdateString("transitDeclarations[" & cnt & "].transitDeclarationId", POS.gvms_RefNum) - json.UpdateBool("transitDeclarations[" & cnt & "].isTSAD", False) - If If(POS.gvms_SS, "") <> "" Then json.UpdateString("transitDeclarations[" & cnt & "].sAndSMasterRefNum", POS.gvms_SS) - End If - cnt += 1 - Next - - '---------tirDeclarations---------------- - cnt = 0 - For Each POS In GVMS.GVMS_POSITIONEN - If POS.gvms_art = VERAG_PROG_ALLGEMEIN.cGVMS_POS_DecArt.TIR Then - json.UpdateString("tirDeclarations[" & cnt & "].tirCarnetId", POS.gvms_RefNum) - If If(POS.gvms_SS, "") <> "" Then json.UpdateString("tirDeclarations[" & cnt & "].sAndSMasterRefNum", POS.gvms_SS) - End If - cnt += 1 - Next - - '---------ataDeclarations---------------- - cnt = 0 - For Each POS In GVMS.GVMS_POSITIONEN - If POS.gvms_art = VERAG_PROG_ALLGEMEIN.cGVMS_POS_DecArt.ATA Then - json.UpdateString("ataDeclarations[" & cnt & "].ataCarnetId", POS.gvms_RefNum) - If If(POS.gvms_SS, "") <> "" Then json.UpdateString("ataDeclarations[" & cnt & "].sAndSMasterRefNum", POS.gvms_SS) - End If - cnt += 1 - Next - - - '---------eidrDeclarations---------------- - cnt = 0 - For Each POS In GVMS.GVMS_POSITIONEN - If POS.gvms_art = VERAG_PROG_ALLGEMEIN.cGVMS_POS_DecArt.EIDR Then - json.UpdateString("eidrDeclarations[" & cnt & "].traderEORI", POS.gvms_RefNum) - If If(POS.gvms_SS, "") <> "" Then json.UpdateString("eidrDeclarations[" & cnt & "].sAndSMasterRefNum", POS.gvms_SS) - End If - cnt += 1 - Next - - - '---------indirectExportDeclarations---------------- - cnt = 0 - For Each POS In GVMS.GVMS_POSITIONEN - If POS.gvms_art = VERAG_PROG_ALLGEMEIN.cGVMS_POS_DecArt.INDIRECT Then - json.UpdateString("indirectExportDeclarations[" & cnt & "].eadMasterRefNum", POS.gvms_RefNum) - End If - cnt += 1 - Next - - End If - - - rest.AddHeader("Content-Type", "application/json") - rest.AddHeader("Authorization", "Bearer " & hmrc_app_server_token) - rest.AddHeader("Accept", "application/vnd.hmrc.1.0+json") - - Dim sbRequestBody As New Chilkat.StringBuilder - json.EmitSb(sbRequestBody) - - - Dim sbResponseBody As New Chilkat.StringBuilder - - If updateGMR <> "" Then 'UPDATE! - success = rest.FullRequestSb("PUT", "/customs/goods-movement-system/movements/" & updateGMR, sbRequestBody, sbResponseBody) - Dim respStatusCode As Integer = rest.ResponseStatusCode - - If (respStatusCode = 404) Then 'update - MsgBox("GMR wurde nicht gefunden.") - Return False - End If - '403 - If (respStatusCode = 202) Then - MsgBox("UPDATE: " & Now.ToShortDateString & " " & Now.ToShortTimeString) - - Return True 'OK - Else - MsgBox("HMRC ERROR: " & respStatusCode & rest.ResponseHeader.ToString) - MsgBox("HMRC ERROR: " & sbResponseBody.ToString) - Return False - End If - - Else - success = rest.FullRequestSb("POST", "/customs/goods-movement-system/movements", sbRequestBody, sbResponseBody) - - - If (success <> True) Then - Debug.WriteLine(rest.LastErrorText) - Return False - End If - Dim respStatusCode As Integer = rest.ResponseStatusCode - - If (respStatusCode = 404) Then 'update - MsgBox("GMR wurde nicht gefunden.") - Return False - End If - - If (respStatusCode <> 202) Then - MsgBox("HMRC ERROR: " & respStatusCode & rest.ResponseHeader.ToString) - MsgBox("HMRC ERROR: " & sbResponseBody.ToString) - Return False - End If - - - - 'Dim jsonResp = New Chilkat.JsonObject() - 'jsonResp.Load(rest.ResponseHeader) - - - 'MsgBox(rest.ResponseHeader) - - 'MsgBox(jsonResp.StringOf("Notification-Box-Id")) - 'MsgBox(jsonResp.StringOf("Notification-Message-Id")) - - 'Notification_Box_Id = (jsonResp.StringOf("Notification-Box-Id")) - 'Notification_Message_Id = (jsonResp.StringOf("Notification-Message-Id")) - - For Each rh In rest.ResponseHeader.Split(vbNewLine) - If (rh.Contains("Notification-Box-Id: ")) Then - Notification_Box_Id = rh.Replace("Notification-Box-Id: ", "").Replace(vbNewLine, "").Replace(" ", "").Trim - ' MsgBox(Notification_Box_Id) - End If - If (rh.Contains("Notification-Message-Id: ")) Then - Notification_Message_Id = rh.Replace("Notification-Message-Id: ", "").Replace(vbNewLine, "").Replace(" ", "").Trim - ' MsgBox(Notification_Message_Id) - End If - Next - - GVMS.gvms_notification_id = Notification_Message_Id - GVMS.gvms_notification_boxid = Notification_Box_Id - - Return True - End If - Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) - End Try - Return False - End Function - - - Private Shared Function delGVMS_GMR(ByRef GVMS As VERAG_PROG_ALLGEMEIN.cGVMS, hmrc_app_server_token As String, ByRef Notification_Box_Id As String, ByRef Notification_Message_Id As String) As Boolean - Try - Dim rest As New Chilkat.Rest - Dim success As Boolean - - Dim bTls As Boolean = True - Dim port As Integer = 443 - Dim bAutoReconnect As Boolean = True - success = rest.Connect(API_STRING, port, bTls, bAutoReconnect) - If (success <> True) Then - Debug.WriteLine("ConnectFailReason: " & rest.ConnectFailReason) - Debug.WriteLine(rest.LastErrorText) - MsgBox(rest.LastErrorText) - Return False - End If - - ' See the Online Tool for Generating JSON Creation Code - Dim json As New Chilkat.JsonObject - - ' rest.AddHeader("Content-Type", "application/json") - rest.AddHeader("Authorization", "Bearer " & hmrc_app_server_token) - rest.AddHeader("Accept", "application/vnd.hmrc.1.0+json") - - Dim sbRequestBody As New Chilkat.StringBuilder - json.EmitSb(sbRequestBody) - - - Dim sbResponseBody As New Chilkat.StringBuilder - success = rest.FullRequestSb("DELETE", "/customs/goods-movement-system/movements/" & GVMS.gvms_GMR, sbRequestBody, sbResponseBody) - If (success <> True) Then - Debug.WriteLine(rest.LastErrorText) - Return False - End If - Dim respStatusCode As Integer = rest.ResponseStatusCode - - If (respStatusCode = 404) Then - MsgBox("GMR wurde nicht gefunden.") - Return False - End If - If (respStatusCode <> 202) Then - MsgBox("HMRC ERROR: " & respStatusCode & rest.ResponseHeader.ToString) - Return False - End If - - - For Each rh In rest.ResponseHeader.Split(vbNewLine) - If (rh.Contains("Notification-Box-Id: ")) Then - Notification_Box_Id = rh.Replace("Notification-Box-Id: ", "").Replace(vbNewLine, "").Replace(" ", "").Trim - ' MsgBox(Notification_Box_Id) - End If - If (rh.Contains("Notification-Message-Id: ")) Then - Notification_Message_Id = rh.Replace("Notification-Message-Id: ", "").Replace(vbNewLine, "").Replace(" ", "").Trim - ' MsgBox(Notification_Message_Id) - End If - Next - - GVMS.gvms_notification_id = Notification_Message_Id - GVMS.gvms_notification_boxid = Notification_Box_Id - - Return True - Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) - End Try - Return False - End Function - - - Private Shared Function getGVMS_LIST(hmrc_app_server_token As String) As Boolean - Try - Dim rest As New Chilkat.Rest - Dim success As Boolean - - Dim bTls As Boolean = True - Dim port As Integer = 443 - Dim bAutoReconnect As Boolean = True - success = rest.Connect(API_STRING, port, bTls, bAutoReconnect) - If (success <> True) Then - Debug.WriteLine("ConnectFailReason: " & rest.ConnectFailReason) - Debug.WriteLine(rest.LastErrorText) - MsgBox(rest.LastErrorText) - Return False - End If - - ' See the Online Tool for Generating JSON Creation Code - Dim json As New Chilkat.JsonObject - - ' rest.AddHeader("Content-Type", "application/json") - rest.AddHeader("Authorization", "Bearer " & hmrc_app_server_token) - rest.AddHeader("Accept", "application/vnd.hmrc.1.0+json") - - Dim sbRequestBody As New Chilkat.StringBuilder - 'json.EmitSb(sbRequestBody) - - - Dim sbResponseBody As New Chilkat.StringBuilder - success = rest.FullRequestSb("GET", "/customs/goods-movement-system/movements", sbRequestBody, sbResponseBody) - - MsgBox("GO " & success) - - If (success <> True) Then - Debug.WriteLine(rest.LastErrorText) - Return False - End If - Dim respStatusCode As Integer = rest.ResponseStatusCode - - - If (respStatusCode = 200) Then - MsgBox(sbResponseBody.ToString) - Return True - Else - MsgBox(sbResponseBody.ToString) - MsgBox(rest.ResponseHeader.ToString) - MsgBox("HMRC ERROR: " & respStatusCode & rest.ResponseHeader.ToString) - Return False - End If - - - Return True - Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) - End Try - Return False - End Function - - - Private Shared Function getGVMS_GMR(GMR As String, hmrc_app_server_token As String) As Boolean - Try - Dim rest As New Chilkat.Rest - Dim success As Boolean - - Dim bTls As Boolean = True - Dim port As Integer = 443 - Dim bAutoReconnect As Boolean = True - success = rest.Connect(API_STRING, port, bTls, bAutoReconnect) - If (success <> True) Then - Debug.WriteLine("ConnectFailReason: " & rest.ConnectFailReason) - Debug.WriteLine(rest.LastErrorText) - MsgBox(rest.LastErrorText) - Return False - End If - - ' See the Online Tool for Generating JSON Creation Code - Dim json As New Chilkat.JsonObject - - ' rest.AddHeader("Content-Type", "application/json") - rest.AddHeader("Authorization", "Bearer " & hmrc_app_server_token) - rest.AddHeader("Accept", "application/vnd.hmrc.1.0+json") - - Dim sbRequestBody As New Chilkat.StringBuilder - - - Dim sbResponseBody As New Chilkat.StringBuilder - success = rest.FullRequestSb("GET", "/customs/goods-movement-system/movements/" & GMR, sbRequestBody, sbResponseBody) - If (success <> True) Then - Debug.WriteLine(rest.LastErrorText) - Return False - End If - Dim respStatusCode As Integer = rest.ResponseStatusCode - - - If (respStatusCode = 200) Then - MsgBox(sbResponseBody.ToString) - Return True - Else - MsgBox("HMRC ERROR: " & respStatusCode & rest.ResponseHeader.ToString) - Return False - End If - - - Return True - Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) - End Try - Return False - End Function - - - Private Shared Sub getGVMS_Notifications(hmrc_app_server_token As String, Notification_Box_Id As String) - Try - - - Dim rest As New Chilkat.Rest - Dim success As Boolean - - Dim bTls As Boolean = True - Dim port As Integer = 443 - Dim bAutoReconnect As Boolean = True - success = rest.Connect(API_STRING, port, bTls, bAutoReconnect) - If (success <> True) Then - Debug.WriteLine("ConnectFailReason: " & rest.ConnectFailReason) - Debug.WriteLine(rest.LastErrorText) - - Exit Sub - End If - '37d1feab8776c006f7fb7c9cc2f93172 - - - '"UK_INBOUND", - ' "UK_OUTBOUND", - ' "GB_TO_NI", - ' "NI_TO_GB" - - ' See the Online Tool for Generating JSON Creation Code - 'Dim json As New Chilkat.JsonObject - 'json.UpdateString("boxId", Notification_Box_Id) - ' json.UpdateString("status", "PENDING") - 'json.UpdateString("fromDate", "2020-06-03T14:20:54.987") - 'json.UpdateString("toDate", "2020-06-03T14:20:54.987") - - - ' rest.AddHeader("Content-Type", "application/json") - rest.AddHeader("Authorization", "Bearer " & hmrc_app_server_token) - rest.AddHeader("Accept", "application/vnd.hmrc.1.0+json") - - - Dim sbRequestBody As New Chilkat.StringBuilder - ' json.EmitSb(sbRequestBody) - - - Dim sbResponseBody As New Chilkat.StringBuilder - success = rest.FullRequestSb("GET", "/misc/push-pull-notification/box/" & Notification_Box_Id & "/notifications", sbRequestBody, sbResponseBody) - - Dim respStatusCode As Integer = rest.ResponseStatusCode - - - If (success <> True) Then - Debug.WriteLine(rest.LastErrorText) - Exit Sub - End If - If (respStatusCode <> 200) Then - IO.File.WriteAllText("C:\Users\DEVELOPER1\Desktop\hmrc3.json", rest.ResponseHeader.ToString()) - - Debug.WriteLine("Response Status Code = " & respStatusCode) - Debug.WriteLine("Response Header:") - Debug.WriteLine(rest.ResponseHeader) - Debug.WriteLine("Response Body:") - Debug.WriteLine(sbResponseBody.GetAsString()) - Exit Sub - End If - - Dim strJson = sbResponseBody.ToString - - If strJson.StartsWith("[") Then - strJson = "{""arrNotification"":" & strJson & "}" - End If - - Dim jsonResp = New Chilkat.JsonObject() - jsonResp.Load(strJson) - - - - For i = 0 To jsonResp.SizeOfArray("arrNotification") - 1 - - 'MsgBox(jsonResp.StringOf("arrNotification[" & i & "].status")) - 'Dim notificationId = jsonResp.StringOf("arrNotification[" & i & "].notificationId") - 'If notificationId = "notificationId" Then - ' MsgBox("OOOO") - 'End If - - Dim jsonRespMsg = New Chilkat.JsonObject() - If jsonRespMsg.Load(jsonResp.StringOf("arrNotification[" & i & "].message")) Then - If jsonRespMsg.StringOf("gmrId") <> "" Then - Dim notificationId = jsonRespMsg.StringOf("messageId") - Dim GVMS = VERAG_PROG_ALLGEMEIN.cGVMS.LOAD_ByNotification(Notification_Box_Id, notificationId) - If GVMS IsNot Nothing Then - If jsonRespMsg.StringOf("gmrId") <> "" Then GVMS.gvms_GMR = jsonRespMsg.StringOf("gmrId") - If jsonRespMsg.StringOf("gmrState") <> "" Then GVMS.gvms_status = jsonRespMsg.StringOf("gmrState") - GVMS.SAVE() - End If - End If - End If - - ' MsgBox(jsonRespMsg.StringOf("messageId") & " / " & jsonRespMsg.StringOf("gmrId") & " / " & jsonRespMsg.StringOf("gmrState")) - - - Next - - 'i = 0; - 'count_i = json.SizeOfArray("product.variants"); - 'while (i < count_i) { - ' json.I = i; - ' id = json.IntOf("product.variants[i].id"); - ' product_id = json.IntOf("product.variants[i].product_id"); - ' title = json.StringOf("product.variants[i].title"); - ' price = json.StringOf("product.variants[i].price"); - ' sku = json.StringOf("product.variants[i].sku"); - Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) - End Try - End Sub - - Private Shared Sub getGVMS_AcknolageNotifications(hmrc_app_server_token As String, Notification_Box_Id As String, Notification_Message_Id As String) - Try - - - Dim rest As New Chilkat.Rest - Dim success As Boolean - - Dim bTls As Boolean = True - Dim port As Integer = 443 - Dim bAutoReconnect As Boolean = True - success = rest.Connect(API_STRING, port, bTls, bAutoReconnect) - If (success <> True) Then - Debug.WriteLine("ConnectFailReason: " & rest.ConnectFailReason) - Debug.WriteLine(rest.LastErrorText) - - Exit Sub - End If - - ' rest.AddHeader("Content-Type", "application/json") - rest.AddHeader("Authorization", "Bearer " & hmrc_app_server_token) - rest.AddHeader("Accept", "application/vnd.hmrc.1.0+json") - - - - Dim json As New Chilkat.JsonObject - json.Load("{ - ""notificationIds"": [ - """ & Notification_Message_Id & """ - ] - }") - - Dim sbRequestBody As New Chilkat.StringBuilder - json.EmitSb(sbRequestBody) - - - Dim sbResponseBody As New Chilkat.StringBuilder - success = rest.FullRequestSb("PUT", "/misc/push-pull-notification/box/" & Notification_Box_Id & "/notifications/acknowledge", sbRequestBody, sbResponseBody) - - Dim respStatusCode As Integer = rest.ResponseStatusCode - - MsgBox("OK: " & success) - If (success <> True) Then - Debug.WriteLine(rest.LastErrorText) - Exit Sub - End If - If (respStatusCode = 204) Then - MsgBox("ACKNOLAGED " & Now.ToShortDateString & " " & Now.ToShortTimeString) - Exit Sub - Else - IO.File.WriteAllText("C:\Users\DEVELOPER1\Desktop\hmrc3.json", rest.ResponseHeader.ToString()) - - Debug.WriteLine("Response Status Code = " & respStatusCode) - Debug.WriteLine("Response Header:") - Debug.WriteLine(rest.ResponseHeader) - Debug.WriteLine("Response Body:") - Debug.WriteLine(sbResponseBody.GetAsString()) - Exit Sub - End If - - - Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) - End Try - End Sub - - - '''''''''''''''''''''''''''''''''''''''''''''''''''''''' - ''' - 'Shared Sub testToken2() - ' Dim refresh_token As String - ' Dim token As String - - ' ' construct the request for access token - ' Dim client = New RestClient(API_STRING & "/oauth/token") - ' Dim request = New RestRequest("dfe/application-info", Method.POST) - ' request.AddHeader("content-type", "application/x-www-form-urlencoded") - ' request.AddParameter("grant_type", "client_credentials") - ' request.AddParameter("client_id", "") - ' request.AddParameter("client_secret", "") - - ' ' make call to get token - ' Dim response As IRestResponse = client.Execute(request) - - ' ' Extract token - ' token = JObject.Parse(response.Content).SelectToken("$..access_token").ToString() - ' refresh_token = JObject.Parse(response.Content).SelectToken("$..refresh_token").ToString() - 'End Sub - Shared Sub getHMRC_Token(ByRef AccessToken, scope) - 'oauth2.ListenPort = 3017 - ''oauth2.AuthorizationEndpoint = "https://test-api.service.hmrc.gov.uk/oauth/authorize" - ''oauth2.TokenEndpoint = "https://test-api.service.hmrc.gov.uk/oauth/token" - 'oauth2.AuthorizationEndpoint = API_STRING & "/oauth/authorize" - 'oauth2.TokenEndpoint = API_STRING & "/oauth/token" - 'oauth2.ClientId = "xybTOMaQWcuifeW5xnGggojlACWC" - 'oauth2.ClientSecret = "bf1cfb6e-1bcb-4282-b7a0-3d3ccb2b1dc1" - ''oauth2.Scope = "read:vat write:vat" !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - 'oauth2.Scope = scope '"write:goods-movement-system" - 'Dim url As String = oauth2.StartAuth() - - - ' Refer to the documentation for more information on how to get the client id/secret - 'Dim clientId As String = "xybTOMaQWcuifeW5xnGggojlACWC" - ' Dim clientSecret As String = "bf1cfb6e-1bcb-4282-b7a0-3d3ccb2b1dc1" - ' Refer to the documentation for more information on how to get the tokens - 'Dim accessToken As String = "" '"OaOXXXXTaSucp8XXcgXXH" - ' Dim refreshToken As String = "kE4HXXXXXXXhxvtUHlboSF" - - ' -- Refresh the access token - Dim request As System.Net.WebRequest = System.Net.HttpWebRequest.Create(API_STRING & "/oauth/token") - 'oauth2.AuthorizationEndpoint = API_STRING & "/oauth/authorize" - ' oauth2.TokenEndpoint = API_STRING & "/oauth/token" - request.Method = "POST" - request.ContentType = "application/x-www-form-urlencoded" - 'request.ContentType = "application/json" - - Dim outgoingQueryString As NameValueCollection = HttpUtility.ParseQueryString(String.Empty) - outgoingQueryString.Add("grant_type", "client_credentials") - ' outgoingQueryString.Add("refresh_token", refreshToken) - outgoingQueryString.Add("client_id", CLIENT_ID) - outgoingQueryString.Add("client_secret", CLIENT_SECRET) - outgoingQueryString.Add("scope", scope) '"write:goods-movement-system") - Dim postBytes As Byte() = New ASCIIEncoding().GetBytes(outgoingQueryString.ToString()) - - Dim postStream As Stream = request.GetRequestStream() - postStream.Write(postBytes, 0, postBytes.Length) - postStream.Flush() - postStream.Close() - Try - - Using response As System.Net.WebResponse = request.GetResponse() - Using streamReader As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream()) - ' Parse the JSON the way you prefer - Dim jsonResult As RefreshTokenResultJSON = New System.Web.Script.Serialization.JavaScriptSerializer().Deserialize(streamReader.ReadToEnd(), GetType(RefreshTokenResultJSON)) - AccessToken = jsonResult.access_token - - - ' For more information, refer to the documentation - End Using - End Using - - Catch ex As Exception - MsgBox(ex.Message & ex.StackTrace) - End Try - '' -- Get current user profile - 'request = System.Net.HttpWebRequest.Create("https://api.clicdata.com/profile/user") - 'request.Method = "GET" - 'request.Headers.Add("Authorization", "Bearer " & accessToken) - 'Using response As System.Net.WebResponse = request.GetResponse() - ' Using streamReader As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream()) - ' Dim jsonResponseText = streamReader.ReadToEnd() - ' ' Parse the JSON the way you prefer - ' ' In this example the JSON will be something Like: - ' ' {"email_address" "john.smith@clicdata.com", "first_name": "John", "last_login_date": "2016−04−26T14:24:58+00:00", "last_name": "Smith", ... - ' ' For more information, refer to the documentation - ' End Using - 'End Using - - '' -- List the current data - 'request = System.Net.HttpWebRequest.Create("https://api.clicdata.com/data/") - 'request.Method = "GET" - 'request.Headers.Add("Authorization", "Bearer " & accessToken) - 'Using response As System.Net.WebResponse = request.GetResponse() - ' Using streamReader As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream()) - ' Dim jsonResponseText = streamReader.ReadToEnd() - ' ' Parse the JSON the way you prefer - ' ' In this example the JSON will be something Like: - ' ' { "count" 265, "data": [{ "description": "","source": "merge", "creation_date": "2015−06−10T12:47:32+02:00", "last_data_update_date": "2015−06−10T12:47:49+02:00", ... - ' ' For more information, refer to the documentation - ' End Using - 'End Using - - '' -- Create some new data - 'Dim dataId As Integer = 0 - 'request = System.Net.HttpWebRequest.Create("https://api.clicdata.com/data/") - 'request.Method = "POST" - 'request.ContentType = "application/json" - 'request.Headers.Add("Authorization", "Bearer " & accessToken) - 'Using tStreamWriter As System.IO.StreamWriter = New System.IO.StreamWriter(request.GetRequestStream()) - ' tStreamWriter.Write(New System.Web.Script.Serialization.JavaScriptSerializer().Serialize(New With {Key .name = "my test data " & Guid.NewGuid().ToString(), Key .description = "some description for my test data", Key .columns = {New With {Key .name = "column 1", Key .data_type = "text"}, New With {Key .name = "column 2", Key .data_type = "number"}}})) - 'End Using - - 'Using response As System.Net.WebResponse = request.GetResponse() - ' Using streamReader As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream()) - ' Dim jsonResponseText = streamReader.ReadToEnd() - ' ' The JSON returned in this example is the ID of our newly created data - ' dataId = Integer.Parse(jsonResponseText) - ' ' For more information, refer to the documentation - ' End Using - 'End Using - - '' -- Add a few rows of data - 'request = System.Net.HttpWebRequest.Create("https://api.clicdata.com/data/" & dataId & "/rows") - 'request.Method = "POST" - 'request.ContentType = "application/json" - 'request.Headers.Add("Authorization", "Bearer " & accessToken) - 'Using tStreamWriter As System.IO.StreamWriter = New System.IO.StreamWriter(request.GetRequestStream()) - ' tStreamWriter.Write(New System.Web.Script.Serialization.JavaScriptSerializer().Serialize(New With {Key .data = New Object() {New Object() {"one", 1}, New Object() {"two", 2}}})) - 'End Using - - 'Using response As System.Net.WebResponse = request.GetResponse() - ' Using streamReader As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream()) - ' Dim jsonResponseText = streamReader.ReadToEnd() - ' ' The JSON returned in this example tells us if the rows were inserted successfully: - ' ' { "success" true } - ' ' For more information, refer to the documentation - ' End Using - 'End Using - - - - - - End Sub - - - - Shared Function getTOKEN(APPLICATION) As cHMRCToken - Dim TOKEN = New cHMRCToken(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, APPLICATION) - If TOKEN.hasEntry = False OrElse TOKEN.token_BEARER_TOKEN = "" Then - Dim AccessToken = "" - Dim appl = "" - Select Case APPLICATION - Case "GVMS" - appl = "write:goods-movement-system+read:pull-notifications" - Case "VAT_CHECK" '"EORI_CHECK" - appl = "read:vat write:vat" - End Select - grantAccess(AccessToken, appl) - TOKEN.token_BEARER_TOKEN = AccessToken - TOKEN.token_refresh_datetime = Now - TOKEN.SAVE() - Else - HMRC_RefreshToken(TOKEN) - End If - Return TOKEN - End Function - - - Shared Function checkEORI_UK(eoriNumber As String, ByVal response As String) As Boolean - ' Chilkat-Objekt initialisieren - Dim http As New Chilkat.Http - - http.SetRequestHeader("Accept", "application/x-www-form-urlencoded") - - ' EORI-Nummer für die Überprüfung - 'Dim eoriNumber As String = "GB123456789000" - Dim url As String = "https://api.service.hmrc.gov.uk/customs/eori/lookup/check-multiple-eori" - - - Dim requestBody As New Chilkat.JsonObject - requestBody.AppendArray("eoris").AddStringAt(-1, eoriNumber) - requestBody.AppendArray("eoris").AddStringAt(-1, "GB8392848394939") - - - - ' HTTP GET-Anfrage senden - Dim responseHttp = http.PostJson2(url, "application/json", requestBody.Emit()) - - ' Fehlerprüfung - If http.LastMethodSuccess <> True Then - Console.WriteLine("Fehler: " & http.LastErrorText) - Return False - End If - response = responseHttp.BodyStr - ' Antwort ausgeben - Console.WriteLine("API Antwort: " & responseHttp.BodyStr) - Return True - End Function - - Shared Function checkVAT_UK(VATNumber As String, ByVal response As String) As Boolean - ' Chilkat-Objekt initialisieren - Dim http As New Chilkat.Http - - ' Falls API-Schlüssel oder Authentifizierung erforderlich ist, hinzufügen - ' Beispiel: http.SetRequestHeader("Authorization", "Bearer YOUR_ACCESS_TOKEN") - - VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat() - - Dim TOKEN = getTOKEN("VAT_CHECK") - - If TOKEN.hasEntry Then - http.SetRequestHeader("Authorization", "Bearer " & accessToken) - http.SetRequestHeader("Accept", "application/x-www-form-urlencoded") - - ' EORI-Nummer für die Überprüfung - Dim url As String = "https://api.service.hmrc.gov.uk/organisations/vat/check-vat-number/lookup/" & VATNumber - - response = http.QuickGetStr(url) - - If http.LastMethodSuccess <> True Then - Console.WriteLine("Fehler: " & http.LastErrorText) - Return False - End If - - ' Antwort ausgeben - Console.WriteLine("API Antwort: " & response) - Return True - End If - Return False - End Function - - Public Class RefreshTokenResultJSON - Public Property access_token As String - End Class -End Class - -'Public Class Startup -' Public Sub New(ByVal configuration As IConfiguration) -' configuration = configuration -' End Sub - -' Public ReadOnly Property Configuration As IConfiguration - -' Public Sub ConfigureServices(ByVal services As IServiceCollection) -' services.Configure(Configuration) - -' services.Configure(Of CookiePolicyOptions)(Function(options) -' options.CheckConsentNeeded = Function(context) True -' options.MinimumSameSitePolicy = SameSiteMode.None -' End Function) -' services.AddSession(Function(options) -' options.IdleTimeout = TimeSpan.FromSeconds(10) -' options.Cookie.HttpOnly = True -' options.Cookie.IsEssential = True -' End Function) -' services.AddAuthentication(Function(options) -' options.DefaultAuthenticateScheme = CookieAuthenticationDefaults.AuthenticationScheme -' options.DefaultSignInScheme = CookieAuthenticationDefaults.AuthenticationScheme -' options.DefaultChallengeScheme = "HMRC" -' End Function).AddCookie().AddOAuth("HMRC", Function(options) -' options.ClientId = Configuration("clientId") -' options.ClientSecret = Configuration("clientSecret") -' options.CallbackPath = New PathString(Configuration("oauthCallbackUri")) -' options.Scope.Add("hello") -' options.SaveTokens = True -' options.AuthorizationEndpoint = Configuration("uri") & "/oauth/authorize" -' options.TokenEndpoint = Configuration("uri") & "/oauth/token" -' End Function) -' services.AddRazorPages(Function(options) -' options.Conventions.AddPageRoute("/HelloWorld/Index", "") -' End Function) -' End Sub - -' Public Sub Configure(ByVal app As IApplicationBuilder, ByVal env As IWebHostEnvironment) -' If env.IsDevelopment() Then -' app.UseDeveloperExceptionPage() -' Else -' app.UseExceptionHandler("/Error") -' app.UseHsts() -' End If - -' app.UseHttpsRedirection() -' app.UseStaticFiles() -' app.UseRouting() -' app.UseAuthorization() -' app.UseAuthentication() -' app.UseSession() -' app.UseCookiePolicy() -' app.UseEndpoints(Function(endpoints) -' endpoints.MapRazorPages() -' endpoints.MapControllerRoute(name:="default", pattern:="{controller=HelloWorld}/{action=Index}") -' End Function) -' End Sub -'End Class - - - -Public Class VATResponse - Public Class Address - Public Property line1 As String - Public Property postcode As String - Public Property countryCode As String - End Class - - Public Class Target - Public Property name As String - Public Property vatNumber As String - Public Property address As Address - End Class - - Public Class Root - Public Property target As Target - Public Property processingDate As DateTime - End Class - -End Class diff --git a/Aviso/GVMS/frmGVMS.vb b/Aviso/GVMS/frmGVMS.vb index 22853c8..684a5c5 100644 --- a/Aviso/GVMS/frmGVMS.vb +++ b/Aviso/GVMS/frmGVMS.vb @@ -338,7 +338,7 @@ Dim dt = SQL.loadDgvBySql("SELECT distinct([gvms_notification_boxid]) FROM [tblGVMS] where gvms_GMR is null and gvms_notification_boxid is not null", "FMZOLL") If dt IsNot Nothing Then For Each row In dt.Rows - cHMRC.GET_NOTIFICATIONS(row("gvms_notification_boxid")) + VERAG_PROG_ALLGEMEIN.cHMRC.GET_NOTIFICATIONS(row("gvms_notification_boxid")) Next End If Catch ex As Exception @@ -377,7 +377,7 @@ If MyDatagridview1.SelectedRows.Count() = 1 Then Dim GVMS = New VERAG_PROG_ALLGEMEIN.cGVMS(MyDatagridview1.SelectedRows(0).Cells("gvms_id").Value) If GVMS.hasEntry AndAlso If(GVMS.gvms_GMR, "") <> "" Then - cHMRC.DELETE_GMR(GVMS) + VERAG_PROG_ALLGEMEIN.cHMRC.DELETE_GMR(GVMS) End If ElseIf MyDatagridview1.SelectedRows.Count() = 0 Then Else @@ -387,7 +387,7 @@ End Sub Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click - cHMRC.GET_GVMS_LIST() + VERAG_PROG_ALLGEMEIN.cHMRC.GET_GVMS_LIST() End Sub @@ -395,7 +395,7 @@ If MyDatagridview1.SelectedRows.Count() = 1 Then Dim GVMS = New VERAG_PROG_ALLGEMEIN.cGVMS(MyDatagridview1.SelectedRows(0).Cells("gvms_id").Value) If GVMS.hasEntry AndAlso If(GVMS.gvms_GMR, "") <> "" Then - cHMRC.GET_GVMS_GMR(GVMS.gvms_GMR) + VERAG_PROG_ALLGEMEIN.cHMRC.GET_GVMS_GMR(GVMS.gvms_GMR) End If ElseIf MyDatagridview1.SelectedRows.Count() = 0 Then Else @@ -404,14 +404,14 @@ End Sub Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click - cHMRC.getGVMS_RefData() + VERAG_PROG_ALLGEMEIN.cHMRC.getGVMS_RefData() End Sub Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click If MyDatagridview1.SelectedRows.Count() = 1 Then Dim GVMS = New VERAG_PROG_ALLGEMEIN.cGVMS(MyDatagridview1.SelectedRows(0).Cells("gvms_id").Value) If GVMS.hasEntry AndAlso If(GVMS.gvms_notification_boxid, "") <> "" AndAlso If(GVMS.gvms_notification_id, "") <> "" Then - cHMRC.Acknowledge_NOTIFICATIONS(GVMS.gvms_notification_boxid, GVMS.gvms_notification_id) + VERAG_PROG_ALLGEMEIN.cHMRC.Acknowledge_NOTIFICATIONS(GVMS.gvms_notification_boxid, GVMS.gvms_notification_id) End If ElseIf MyDatagridview1.SelectedRows.Count() = 0 Then Else diff --git a/Aviso/GVMS/frmGVMSNew.vb b/Aviso/GVMS/frmGVMSNew.vb index 30e0804..f227273 100644 --- a/Aviso/GVMS/frmGVMSNew.vb +++ b/Aviso/GVMS/frmGVMSNew.vb @@ -221,9 +221,9 @@ Public Class frmGVMSNew If GVMS.SAVE() Then If If(GVMS.gvms_GMR, "") <> "" Then - cHMRC.SEND_GVMS(GVMS, GVMS.gvms_GMR) 'UPDATE + VERAG_PROG_ALLGEMEIN.cHMRC.SEND_GVMS(GVMS, GVMS.gvms_GMR) 'UPDATE Else - cHMRC.SEND_GVMS(GVMS) + VERAG_PROG_ALLGEMEIN.cHMRC.SEND_GVMS(GVMS) End If Return True diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index 77f40a6..7d783ba 100644 --- a/Aviso/My Project/AssemblyInfo.vb +++ b/Aviso/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/Aviso/My Project/Resources.Designer.vb b/Aviso/My Project/Resources.Designer.vb index ff3b3a7..2ed2bb2 100644 --- a/Aviso/My Project/Resources.Designer.vb +++ b/Aviso/My Project/Resources.Designer.vb @@ -1709,7 +1709,7 @@ Namespace My.Resources End Property ''' - ''' Sucht eine lokalisierte Zeichenfolge, die 6.0 ähnelt. + ''' Sucht eine lokalisierte Zeichenfolge, die 7.1 ähnelt. ''' Public ReadOnly Property UpdaterVersion() As String Get diff --git a/Aviso/My Project/Resources.resx b/Aviso/My Project/Resources.resx index 95d4235..84a938c 100644 --- a/Aviso/My Project/Resources.resx +++ b/Aviso/My Project/Resources.resx @@ -545,7 +545,7 @@ ..\Resources\mitarbeiter_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - 6.0 + 7.1 ..\resources\dgs_instructions_import.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 diff --git a/Aviso/frmEintragAviso.vb b/Aviso/frmEintragAviso.vb index 2ce51bb..39fea39 100644 --- a/Aviso/frmEintragAviso.vb +++ b/Aviso/frmEintragAviso.vb @@ -1078,29 +1078,32 @@ Public Class frmEintragAviso ' Dim FIRMA_CBO = If(cboFirma._value <> "", cboFirma._value, FIRMA_TMP) Select Case FIRMA_TMP - Case "ATILLA" - Try - 'ATILLA AKTENZETTEL DRUCKEN - If Neuanlage Then - If ATILLA_NEUERAKTENDECKEL Then - Dim abfnr_tmp As Object = DBNull.Value - Dim sndId = -1 - Dim filiale_tmp As Integer = 4801 'VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE - If cboGrenzstelle._value = "NEU" Then filiale_tmp = 4802 - getFilialeAndAbfertNrATILLA(1, abfnr_tmp, filiale_tmp) ' FilialeNr u AbfNr werden geladen - If AvisoDAL.insertSendungEmpty(tmpId, 1, filiale_tmp, abfnr_tmp, 0, Nothing, , , , sndId) Then ' INSERT - TMP_SND_Atilla = New VERAG_PROG_ALLGEMEIN.cSendungen(sndId) - loadInSND(TMP_SND_Atilla) - End If - End If - Else - loadInSND(TMP_SND_Atilla) - End If - If cbxAktenzettelDrucken.Checked Then SendungOptions.PrintSendungATILLA("PRINT", TMP_SND_Atilla, myAviso, cboPrinter.Text) - Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) - End Try - Case "IMEX", "UNISPED", "AMBAR", "FRONTOFFICE", "VERIMEX" + 'Case "ATILLA" + ' Try + ' 'ATILLA AKTENZETTEL DRUCKEN + ' If Neuanlage Then + ' If ATILLA_NEUERAKTENDECKEL Then + ' Dim abfnr_tmp As Object = DBNull.Value + ' Dim sndId = -1 + ' Dim filiale_tmp As Integer = 4801 'VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE + ' If cboGrenzstelle._value = "NEU" Then filiale_tmp = 4802 + ' getFilialeAndAbfertNrATILLA(1, abfnr_tmp, filiale_tmp) ' FilialeNr u AbfNr werden geladen + + ' MsgBox(filiale_tmp & "/" & abfnr_tmp) + + ' If AvisoDAL.insertSendungEmpty(tmpId, 1, filiale_tmp, abfnr_tmp, 0, Nothing, , , , sndId) Then ' INSERT + ' TMP_SND_Atilla = New VERAG_PROG_ALLGEMEIN.cSendungen(sndId) + ' loadInSND(TMP_SND_Atilla) + ' End If + ' End If + ' Else + ' loadInSND(TMP_SND_Atilla) + ' End If + ' If cbxAktenzettelDrucken.Checked Then SendungOptions.PrintSendungATILLA("PRINT", TMP_SND_Atilla, myAviso, cboPrinter.Text) + ' Catch ex As Exception + ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + ' End Try + Case "IMEX", "UNISPED", "AMBAR", "FRONTOFFICE", "VERIMEX", "ATILLA" Dim anzahlSendungen = ADMIN.getValueTxtBySql("SELECT count(*) FROM tblSendungen WHERE tblSnd_AvisoID=" & tmpId, "AVISO") ' bei Neuanlage=0 'Die Sendungen eintragen: @@ -1112,6 +1115,11 @@ Public Class frmEintragAviso showSendungsdetails = True ' Damit der benutzer gleich die Sendungen sieht und ggf löschen kann. Else Dim filiale_tmp As Integer = VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE + Select Case FIRMA_TMP + Case "ATILLA" + filiale_tmp = 4801 + If cboGrenzstelle._value = "NEU" Then filiale_tmp = 4802 + End Select Dim gesAnzSnd = initSndAnzahl() @@ -1136,7 +1144,17 @@ Public Class frmEintragAviso tblSnd_Auftraggeber = kdAvisierer.Text End If - AvisoDAL.insertSendungEmpty(tmpId, cnt, filiale_tmp, abfnr_tmp, 0, abfArt, tblSnd_AuftraggeberKdNr, tblSnd_Auftraggeber, fremd) ' INSERT + Dim sndId = -1 + + If AvisoDAL.insertSendungEmpty(tmpId, cnt, filiale_tmp, abfnr_tmp, 0, abfArt, tblSnd_AuftraggeberKdNr, tblSnd_Auftraggeber, remd, sndId) Then ' INSERT + + If FIRMA_TMP = "ATILLA" Then + TMP_SND_Atilla = New VERAG_PROG_ALLGEMEIN.cSendungen(sndId) + loadInSND(TMP_SND_Atilla) + + End If + + End If Next End If @@ -1259,9 +1277,9 @@ Public Class frmEintragAviso Sub loadInSND(SND As VERAG_PROG_ALLGEMEIN.cSendungen) If SND IsNot Nothing Then - SND.tblSnd_Warenbezeichnung = (UsrCntlEintragAvisoAtilla.txtWarenbezeichnung.Text) - SND.tblSnd_Colli = (UsrCntlEintragAvisoAtilla.txtColli.Text) - SND.tblSnd_Gewicht = (UsrCntlEintragAvisoAtilla.txtGewicht.Text) + ' SND.tblSnd_Warenbezeichnung = (UsrCntlEintragAvisoAtilla.txtWarenbezeichnung.Text) + ' SND.tblSnd_Colli = (UsrCntlEintragAvisoAtilla.txtColli.Text) + ' SND.tblSnd_Gewicht = (UsrCntlEintragAvisoAtilla.txtGewicht.Text) SND.tblSnd_Anmerkung = (UsrCntlEintragAvisoAtilla.txtAnmerkung.Text) diff --git a/Aviso/frmHauptfenster.vb b/Aviso/frmHauptfenster.vb index 9be4cca..0fcb99f 100644 --- a/Aviso/frmHauptfenster.vb +++ b/Aviso/frmHauptfenster.vb @@ -397,7 +397,7 @@ Public Class frmHauptfenster Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "ATILLA" ' Case "VERAG", "IMEX" - lblErweitereSuche.Visible = False + ' lblErweitereSuche.Visible = False MDMParkplatzkartenToolStripMenuItem.Visible = False ' SplitContainer3.Panel1Collapsed = True @@ -5231,6 +5231,7 @@ Public Class AvisoStatusFunctions Public Sub sendAnkunftBenachrichtigung(AvisoId) 'VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(AvisoId, -1, 3, "T", TeamID, "*ANKUNFT*", 0, "", "AUTO: LKW Ankunft - nicht vorgeschrieben!") + Dim alreadySent As New List(Of Integer) Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen) For Each r In AvisoDAL.loadDataTableBySQL("SELECT tblSnd_SendungID FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoId).Rows @@ -5342,7 +5343,9 @@ Public Class AvisoStatusFunctions End If 'E-Mail - sendAnkunftBenachrichtigung(Aviso.AvisoID) + If Aviso.FIRMA <> "ATILLA" Then + sendAnkunftBenachrichtigung(Aviso.AvisoID) + End If If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX Or Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN Then Rücksetzen = True @@ -6246,54 +6249,55 @@ Public Class AvisoStatusFunctions If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Or Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet Or Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst Or Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben Then 'Prüfung - If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then - If value Then - Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL - If SQL.getValueTxtBySql("SELECT isnull(count(*),0) FROM Speditionsbuch WHERE AvisoID=" & AvisoID, "FMZOLL") = 0 Then - If vbYes <> MsgBox("Keine Speditionbucheinträge vorhanden!" & vbNewLine & vbNewLine & "Möchten Sie trotzdem fortfahren?", vbYesNoCancel) Then - Return False - End If - End If + If False Then + 'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then + ' If value Then + ' Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + ' If SQL.getValueTxtBySql("SELECT isnull(count(*),0) FROM Speditionsbuch WHERE AvisoID=" & AvisoID, "FMZOLL") = 0 Then + ' If vbYes <> MsgBox("Keine Speditionbucheinträge vorhanden!" & vbNewLine & vbNewLine & "Möchten Sie trotzdem fortfahren?", vbYesNoCancel) Then + ' Return False + ' End If + ' End If - Aviso.Abgeschlossen = value - AvisoDAL.SpeichernAviso(Aviso) - AvisoDAL.addAenderung(AvisoID, "AKT abgeschlossen", "auf 'AKT ABGESCHLOSSEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) - Else - Aviso.Abgeschlossen = value - AvisoDAL.SpeichernAviso(Aviso) - AvisoDAL.addAenderung(AvisoID, "AKT erneut geöffnet", "auf 'AKT OFFEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) - End If + ' Aviso.Abgeschlossen = value + ' AvisoDAL.SpeichernAviso(Aviso) + ' AvisoDAL.addAenderung(AvisoID, "AKT abgeschlossen", "auf 'AKT ABGESCHLOSSEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) + ' Else + ' Aviso.Abgeschlossen = value + ' AvisoDAL.SpeichernAviso(Aviso) + ' AvisoDAL.addAenderung(AvisoID, "AKT erneut geöffnet", "auf 'AKT OFFEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) + ' End If Else - If value Then - For Each r In AvisoDAL.loadDataTableBySQL("SELECT tblSnd_SpeditionsbuchEingetragen FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoID & " AND [tblSnd_Fremdspedition]=0").Rows - If Not CBool(r(0)) Then - MsgBox("Sie müssen erst alle Sendungen ins Speditionsbuch eintragen!") - Return False - End If - Next - Aviso.Abgeschlossen = value - AvisoDAL.SpeichernAviso(Aviso) + If value Then + For Each r In AvisoDAL.loadDataTableBySQL("SELECT tblSnd_SpeditionsbuchEingetragen FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoID & " AND [tblSnd_Fremdspedition]=0").Rows + If Not CBool(r(0)) Then + MsgBox("Sie müssen erst alle Sendungen ins Speditionsbuch eintragen!") + Return False + End If + Next + Aviso.Abgeschlossen = value + AvisoDAL.SpeichernAviso(Aviso) - '--> Nicht mehr benötigt, alte Archiv Software IMEX - 'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - ' Case "IMEX" : createNLC(Aviso) - 'End Select + '--> Nicht mehr benötigt, alte Archiv Software IMEX + 'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + ' Case "IMEX" : createNLC(Aviso) + 'End Select - AvisoDAL.addAenderung(AvisoID, "AKT abgeschlossen", "auf 'AKT ABGESCHLOSSEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) + AvisoDAL.addAenderung(AvisoID, "AKT abgeschlossen", "auf 'AKT ABGESCHLOSSEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) - 'Benachrichtigungen erledigen - VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.BESTAETIGEN_BENACHRICHTIGUNG_ALL(Aviso.AvisoID, False) - Else - Aviso.Abgeschlossen = value - AvisoDAL.SpeichernAviso(Aviso) - AvisoDAL.addAenderung(AvisoID, "AKT erneut geöffnet", "auf 'AKT OFFEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) + 'Benachrichtigungen erledigen + VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.BESTAETIGEN_BENACHRICHTIGUNG_ALL(Aviso.AvisoID, False) + Else + Aviso.Abgeschlossen = value + AvisoDAL.SpeichernAviso(Aviso) + AvisoDAL.addAenderung(AvisoID, "AKT erneut geöffnet", "auf 'AKT OFFEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) + End If End If - End If - Return True - Else - MsgBox("LKW-Status muss auf 'Freigegeben' sein.", vbInformation) + Return True + Else + MsgBox("LKW-Status muss auf 'Freigegeben' sein.", vbInformation) Return False End If diff --git a/Aviso/frmLogin.vb b/Aviso/frmLogin.vb index 23d1391..d08ad4a 100644 --- a/Aviso/frmLogin.vb +++ b/Aviso/frmLogin.vb @@ -62,6 +62,17 @@ Public Class frmLogin lblVersion.ContextMenuStrip = ctxUpdate If Application.ProductVersion.StartsWith("0") Then lblVersion.Text += " BETA" + + If System.AppDomain.CurrentDomain.BaseDirectory = "\\share01\Programme\AVISO\" OrElse System.AppDomain.CurrentDomain.BaseDirectory = "\\share01\f\Programme\AVISO\" OrElse System.AppDomain.CurrentDomain.BaseDirectory = "\\install\Programme\AVISO\" OrElse + System.AppDomain.CurrentDomain.BaseDirectory = "\\share01\Programme\AVISO_INSTALL\" OrElse System.AppDomain.CurrentDomain.BaseDirectory = "\\share01\f\Programme\AVISO_INSTALL\" OrElse System.AppDomain.CurrentDomain.BaseDirectory = "\\install\Programme\AVISO_INSTALL\" Then + MsgBox("Programm kann im Quellpfad " & System.AppDomain.CurrentDomain.BaseDirectory & " nicht gestartet werden!" & vbNewLine & "Vorgang wird abgebrochen!", MsgBoxStyle.Critical) + Application.Exit() + Me.Close() + Exit Sub + End If + + + If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense() Then MsgBox("Fehler beim Laden der SPIRE-Lizenz") Dim pfadDatei As String = Application.StartupPath & "\Standort.txt" diff --git a/Aviso/frmSendungsdetailsNEU.Designer.vb b/Aviso/frmSendungsdetailsNEU.Designer.vb index 6d6840a..6ae35e6 100644 --- a/Aviso/frmSendungsdetailsNEU.Designer.vb +++ b/Aviso/frmSendungsdetailsNEU.Designer.vb @@ -24,25 +24,25 @@ Partial Class frmSendungsdetailsNEU Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSendungsdetailsNEU)) - Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle25 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle26 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle27 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle28 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle29 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle30 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle31 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle32 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle34 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle35 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle33 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle36 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle37 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle38 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.pnl = New System.Windows.Forms.Panel() Me.Panel4 = New System.Windows.Forms.Panel() Me.TabControl1 = New System.Windows.Forms.TabControl() @@ -50,6 +50,7 @@ Partial Class frmSendungsdetailsNEU Me.pnlKundenInfo = New System.Windows.Forms.Panel() Me.Panel20 = New System.Windows.Forms.Panel() Me.tbAnhang = New System.Windows.Forms.TabPage() + Me.dgvAnhang = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.btnDirektAnfuegen = New System.Windows.Forms.Button() Me.Panel19 = New System.Windows.Forms.Panel() Me.Button22 = New System.Windows.Forms.Button() @@ -70,6 +71,7 @@ Partial Class frmSendungsdetailsNEU Me.lblAnhaenge = New System.Windows.Forms.Label() Me.tbZollabfertigung = New System.Windows.Forms.TabPage() Me.Panel16 = New System.Windows.Forms.Panel() + Me.dgvZollAnmeldungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.Panel17 = New System.Windows.Forms.Panel() Me.Button6 = New System.Windows.Forms.Button() Me.Button5 = New System.Windows.Forms.Button() @@ -81,6 +83,7 @@ Partial Class frmSendungsdetailsNEU Me.ToolStripMenuItem10 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem11 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem33 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem17 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem20 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem18 = New System.Windows.Forms.ToolStripMenuItem() @@ -98,7 +101,9 @@ Partial Class frmSendungsdetailsNEU Me.lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden = New System.Windows.Forms.Label() Me.Panel18 = New System.Windows.Forms.Panel() Me.Label5 = New System.Windows.Forms.Label() + Me.cboZolltarif = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.TabPage2 = New System.Windows.Forms.TabPage() + Me.DataGridView = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.pnlSpedBuchNacherfassung = New System.Windows.Forms.Panel() Me.cbxOhneZollsys = New System.Windows.Forms.CheckBox() Me.Label31 = New System.Windows.Forms.Label() @@ -106,16 +111,24 @@ Partial Class frmSendungsdetailsNEU Me.pnlHandling = New System.Windows.Forms.FlowLayoutPanel() Me.cbxNCTST = New System.Windows.Forms.CheckBox() Me.Label32 = New System.Windows.Forms.Label() + Me.cboSachbearbeiter = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboZollsystem2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtAtlasBezNrEZA2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAtlasBezNrNCTS2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label30 = New System.Windows.Forms.Label() Me.cboNiederlassung = New System.Windows.Forms.ComboBox() Me.Label56 = New System.Windows.Forms.Label() Me.lblZollsysErr = New System.Windows.Forms.Label() + Me.cboZollsystem = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtAtlasBezNrEZA = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAtlasBezNrNCTS = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label29 = New System.Windows.Forms.Label() Me.Label50 = New System.Windows.Forms.Label() Me.Label51 = New System.Windows.Forms.Label() Me.Label25 = New System.Windows.Forms.Label() Me.Button7 = New System.Windows.Forms.Button() Me.TabPage3 = New System.Windows.Forms.TabPage() + Me.RCntrlVermerke1 = New AVISO.rCntrlVermerke() Me.gridVermerke = New System.Windows.Forms.DataGridView() Me.tbATEZ = New System.Windows.Forms.TabPage() Me.dgvATEZNCTS = New System.Windows.Forms.DataGridView() @@ -127,6 +140,11 @@ Partial Class frmSendungsdetailsNEU Me.Button19 = New System.Windows.Forms.Button() Me.tbMail = New System.Windows.Forms.TabPage() Me.dgvMail = New System.Windows.Forms.DataGridView() + Me.clmnSender = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.clmnRec = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.clmnSbj = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.clmnAtt = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.clmnUIDL = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.Panel25 = New System.Windows.Forms.Panel() Me.Button23 = New System.Windows.Forms.Button() Me.Panel14 = New System.Windows.Forms.Panel() @@ -136,41 +154,60 @@ Partial Class frmSendungsdetailsNEU Me.btnWWberechnen = New System.Windows.Forms.Button() Me.Panel22 = New System.Windows.Forms.Panel() Me.lblZuKass = New System.Windows.Forms.Label() + Me.txtBARzuKassieren = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label12 = New System.Windows.Forms.Label() Me.Label10 = New System.Windows.Forms.Label() Me.btn_FrachtkostenBerechnen = New System.Windows.Forms.Button() + Me.txtFrachtkostenGesamt = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label6 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label() + Me.txtFrachtkostenNichtEU = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtFrachtkostenEU = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.cbx = New System.Windows.Forms.CheckBox() + Me.txtWarenwertWaehrung = New VERAG_PROG_ALLGEMEIN.MySearchBox() Me.lblWW = New System.Windows.Forms.Label() + Me.txtWarenwert = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Button21 = New System.Windows.Forms.Button() Me.lblAnmerkungDispoliste = New System.Windows.Forms.Label() Me.rtbAnmerkungDispoliste = New System.Windows.Forms.RichTextBox() Me.btnImportaviso = New System.Windows.Forms.Button() Me.btnVorauszahlung = New System.Windows.Forms.Button() Me.Button12 = New System.Windows.Forms.Button() + Me.txtGewicht = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblWarenbezeichnung = New System.Windows.Forms.Label() Me.Label35 = New System.Windows.Forms.Label() Me.lblCollGew = New System.Windows.Forms.Label() Me.Button3 = New System.Windows.Forms.Button() Me.Button8 = New System.Windows.Forms.Button() + Me.txtColli = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.rtbWarenbezeichnung = New System.Windows.Forms.RichTextBox() Me.Label23 = New System.Windows.Forms.Label() Me.Label24 = New System.Windows.Forms.Label() Me.lblAnmerkung = New System.Windows.Forms.Label() + Me.cboPrinter = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.rtbAnmerkung = New System.Windows.Forms.RichTextBox() Me.Label7 = New System.Windows.Forms.Label() Me.Button14 = New System.Windows.Forms.Button() Me.tbVorkosten = New System.Windows.Forms.TabPage() Me.lblVK_BEarbeitungAbbrechen = New System.Windows.Forms.LinkLabel() Me.btnVorkostenAdd = New System.Windows.Forms.Button() + Me.txtVK_Preis = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtVK_Leistung = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtVK_Firma = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.dgvVorkosten = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.clmnVK_id = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.clmnFirma = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.clmnLeistung = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.clmnPreis = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.tbBAR = New System.Windows.Forms.TabPage() + Me.dgvBelege = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.Button9 = New System.Windows.Forms.Button() Me.btnKassenbuchEintrag = New System.Windows.Forms.Button() Me.btnLeihgeld = New System.Windows.Forms.Button() Me.Panel6 = New System.Windows.Forms.Panel() Me.Label13 = New System.Windows.Forms.Label() Me.txtATANr = New System.Windows.Forms.TextBox() + Me.txtFrachtfuehrer = New VERAG_PROG_ALLGEMEIN.KdSearchBox() Me.Panel12 = New System.Windows.Forms.Panel() Me.lblErr_FraechterKdNr = New System.Windows.Forms.Label() Me.lblErr_EmpfKdNr = New System.Windows.Forms.Label() @@ -192,33 +229,78 @@ Partial Class frmSendungsdetailsNEU Me.Button16 = New System.Windows.Forms.Button() Me.Button15 = New System.Windows.Forms.Button() Me.Button11 = New System.Windows.Forms.Button() + Me.txtKdAuftragsNrFrachtfuehrer = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtKdAuftragsNrEmpfaenger = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtKdAuftragsNrAvisierer = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.KdAuftragsNrInAlleSendungenÜbernehmenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.lblKdAtrNr = New System.Windows.Forms.Label() + Me.FlatButton4 = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.btnFrachtfuehrer = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.FlatButton3 = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.btnAvisierer = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.Button4 = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button() + Me.cntlFrachtfuehrer_Sonst = New AVISO.usrcntlCheckBox() + Me.cntlAbsender_Sonst = New AVISO.usrcntlCheckBox() + Me.cntlEmpfaenger_Sonst = New AVISO.usrcntlCheckBox() + Me.cntlAuftraggeber_Sonst = New AVISO.usrcntlCheckBox() + Me.cntlAvisierer_Sonst = New AVISO.usrcntlCheckBox() Me.lblSonstigesKosten = New System.Windows.Forms.Label() Me.btnAufschub_Atr = New System.Windows.Forms.Button() Me.btnAufschub_Empf = New System.Windows.Forms.Button() Me.btnAufschub_VERAG = New System.Windows.Forms.Button() + Me.cntlFrachtf_Clear = New AVISO.usrcntlCheckBox() + Me.cntlFrachtf_Abf = New AVISO.usrcntlCheckBox() + Me.cntlFrachtf_Eust = New AVISO.usrcntlCheckBox() + Me.cntlFrachtf_Zoll = New AVISO.usrcntlCheckBox() + Me.cntlAbsender_Clear = New AVISO.usrcntlCheckBox() + Me.cntlAbsender_Abf = New AVISO.usrcntlCheckBox() + Me.cntlAbsender_Eust = New AVISO.usrcntlCheckBox() + Me.cntlAbsender_Zoll = New AVISO.usrcntlCheckBox() + Me.cntlEmpf_Clear = New AVISO.usrcntlCheckBox() + Me.cntlEmpf_Abf = New AVISO.usrcntlCheckBox() + Me.cntlEmpf_Eust = New AVISO.usrcntlCheckBox() + Me.cntlEmpf_Zoll = New AVISO.usrcntlCheckBox() + Me.cntlAuftr_Clear = New AVISO.usrcntlCheckBox() + Me.cntlAuftr_Abf = New AVISO.usrcntlCheckBox() + Me.cntlAuftr_Eust = New AVISO.usrcntlCheckBox() + Me.cntlAuftr_Zoll = New AVISO.usrcntlCheckBox() + Me.cntlAvisierer_Clear = New AVISO.usrcntlCheckBox() + Me.cntlAvisierer_Abf = New AVISO.usrcntlCheckBox() + Me.cntlAvisierer_Eust = New AVISO.usrcntlCheckBox() + Me.cntlAvisierer_Zoll = New AVISO.usrcntlCheckBox() Me.Panel15 = New System.Windows.Forms.Panel() + Me.txtAvisierer = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.txtAuftraggeber = New VERAG_PROG_ALLGEMEIN.KdSearchBox() Me.Panel13 = New System.Windows.Forms.Panel() Me.Panel11 = New System.Windows.Forms.Panel() Me.Panel10 = New System.Windows.Forms.Panel() + Me.txtFrachtfuehrerKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Panel8 = New System.Windows.Forms.Panel() Me.lblEmpfAufschubEustTxt = New System.Windows.Forms.Label() + Me.lblEmpfAufschubEust = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblFrachtfuehrer = New System.Windows.Forms.Label() Me.pnlT1 = New System.Windows.Forms.Panel() + Me.UsrCntlSND_NCTSGestellungsadresse1 = New AVISO.usrCntlSND_NCTSGestellungsadresse() Me.Label43 = New System.Windows.Forms.Label() Me.lblAbsender = New System.Windows.Forms.Label() + Me.txtAbsenderKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label41 = New System.Windows.Forms.Label() + Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblEmpfaenger = New System.Windows.Forms.Label() Me.Label39 = New System.Windows.Forms.Label() + Me.txtEmpfaengerKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAbsender = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.txtEmpfaenger = New VERAG_PROG_ALLGEMEIN.KdSearchBox() Me.lblAuftraggeber = New System.Windows.Forms.Label() Me.Label37 = New System.Windows.Forms.Label() + Me.lblAtrAufschubEust = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblAvisierer = New System.Windows.Forms.Label() Me.Label36 = New System.Windows.Forms.Label() Me.lblAbfertigungskost = New System.Windows.Forms.Label() + Me.txtAuftraggeberKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblEUST = New System.Windows.Forms.Label() Me.lblZoll = New System.Windows.Forms.Label() Me.Label26 = New System.Windows.Forms.Label() @@ -227,12 +309,17 @@ Partial Class frmSendungsdetailsNEU Me.LinkLabel2 = New System.Windows.Forms.LinkLabel() Me.lklAuftraggeber = New System.Windows.Forms.LinkLabel() Me.Label8 = New System.Windows.Forms.Label() + Me.txtAvisiererKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtKdAuftragsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.LinkLabel4 = New System.Windows.Forms.LinkLabel() Me.Panel5 = New System.Windows.Forms.Panel() Me.pnlValidation = New System.Windows.Forms.Panel() + Me.rtbValidierung = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() Me.Label15 = New System.Windows.Forms.Label() + Me.cboAbfertigungsLand = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.lblSNDChat_MsgCnt = New System.Windows.Forms.Label() Me.picAVISOMessengerSNDChat = New System.Windows.Forms.PictureBox() + Me.txtAnzahlPos = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label4 = New System.Windows.Forms.Label() Me.lblAbfNrExists = New System.Windows.Forms.Label() Me.cbxFremdspedition = New System.Windows.Forms.CheckBox() @@ -241,27 +328,39 @@ Partial Class frmSendungsdetailsNEU Me.Button13 = New System.Windows.Forms.Button() Me.lblSendungen = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label() + Me.cboAbfertigungsart = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.lblAbfertigungsart = New System.Windows.Forms.Label() Me.pnlFremd = New System.Windows.Forms.Panel() Me.Label9 = New System.Windows.Forms.Label() + Me.txtFremdEmpfKdNR = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtFremdEmpf = New VERAG_PROG_ALLGEMEIN.KdSearchBox() Me.Label11 = New System.Windows.Forms.Label() + Me.cboFremdsped = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtAnzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblAnzahl = New System.Windows.Forms.Label() Me.btnNeueAbfertigungNrVergeben = New System.Windows.Forms.Button() Me.lblFiliale = New System.Windows.Forms.Label() + Me.txtUnterNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblAbfertigungsnummer = New System.Windows.Forms.Label() Me.lblUnterNr = New System.Windows.Forms.Label() + Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtAbfertigungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Panel2 = New System.Windows.Forms.Panel() Me.FlowLayoutPanel = New System.Windows.Forms.FlowLayoutPanel() + Me.FlatButton2 = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.pnlheader = New System.Windows.Forms.Panel() Me.Label2 = New System.Windows.Forms.Label() Me.Panel7 = New System.Windows.Forms.Panel() Me.btnLKWUmmelden = New System.Windows.Forms.Button() Me.Button24 = New System.Windows.Forms.Button() + Me.cboVorpapier3 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboVorpapier2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.txtVorpapier3Pos = New System.Windows.Forms.RichTextBox() Me.txtVorpapier2Pos = New System.Windows.Forms.RichTextBox() Me.lblPos = New System.Windows.Forms.Label() Me.txtVorpapierPos = New System.Windows.Forms.RichTextBox() Me.lblZuweisungVP = New System.Windows.Forms.Label() + Me.cboVorpapier = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.lblGrenze = New System.Windows.Forms.Label() Me.lblGrenzeSnd = New System.Windows.Forms.Label() Me.Panel3 = New System.Windows.Forms.Panel() @@ -278,6 +377,7 @@ Partial Class frmSendungsdetailsNEU Me.lblgesGewicht = New System.Windows.Forms.Label() Me.lblGesamt = New System.Windows.Forms.Label() Me.btnSpedBuch = New System.Windows.Forms.Button() + Me.cbxSpedBuch = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components) Me.cntxtAnh = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.MarkiertePDFsDruckenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.EMailAnfügenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() @@ -371,121 +471,27 @@ Partial Class frmSendungsdetailsNEU Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn5 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.dgvAnhang = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.dgvZollAnmeldungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.cboZolltarif = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.DataGridView = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.cboSachbearbeiter = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboZollsystem2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtAtlasBezNrEZA2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAtlasBezNrNCTS2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cboZollsystem = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtAtlasBezNrEZA = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAtlasBezNrNCTS = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.RCntrlVermerke1 = New AVISO.rCntrlVermerke() - Me.clmnSender = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.clmnRec = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.clmnSbj = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.clmnAtt = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.clmnUIDL = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.txtBARzuKassieren = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtFrachtkostenGesamt = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtFrachtkostenNichtEU = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtFrachtkostenEU = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtWarenwertWaehrung = New VERAG_PROG_ALLGEMEIN.MySearchBox() - Me.txtWarenwert = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtGewicht = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtColli = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cboPrinter = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtVK_Preis = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtVK_Leistung = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtVK_Firma = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.dgvVorkosten = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.clmnVK_id = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.clmnFirma = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.clmnLeistung = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.clmnPreis = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.dgvBelege = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.txtFrachtfuehrer = New VERAG_PROG_ALLGEMEIN.KdSearchBox() - Me.txtKdAuftragsNrFrachtfuehrer = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtKdAuftragsNrEmpfaenger = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtKdAuftragsNrAvisierer = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.FlatButton4 = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.btnFrachtfuehrer = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.FlatButton3 = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.btnAvisierer = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.cntlFrachtfuehrer_Sonst = New AVISO.usrcntlCheckBox() - Me.cntlAbsender_Sonst = New AVISO.usrcntlCheckBox() - Me.cntlEmpfaenger_Sonst = New AVISO.usrcntlCheckBox() - Me.cntlAuftraggeber_Sonst = New AVISO.usrcntlCheckBox() - Me.cntlAvisierer_Sonst = New AVISO.usrcntlCheckBox() - Me.cntlFrachtf_Clear = New AVISO.usrcntlCheckBox() - Me.cntlFrachtf_Abf = New AVISO.usrcntlCheckBox() - Me.cntlFrachtf_Eust = New AVISO.usrcntlCheckBox() - Me.cntlFrachtf_Zoll = New AVISO.usrcntlCheckBox() - Me.cntlAbsender_Clear = New AVISO.usrcntlCheckBox() - Me.cntlAbsender_Abf = New AVISO.usrcntlCheckBox() - Me.cntlAbsender_Eust = New AVISO.usrcntlCheckBox() - Me.cntlAbsender_Zoll = New AVISO.usrcntlCheckBox() - Me.cntlEmpf_Clear = New AVISO.usrcntlCheckBox() - Me.cntlEmpf_Abf = New AVISO.usrcntlCheckBox() - Me.cntlEmpf_Eust = New AVISO.usrcntlCheckBox() - Me.cntlEmpf_Zoll = New AVISO.usrcntlCheckBox() - Me.cntlAuftr_Clear = New AVISO.usrcntlCheckBox() - Me.cntlAuftr_Abf = New AVISO.usrcntlCheckBox() - Me.cntlAuftr_Eust = New AVISO.usrcntlCheckBox() - Me.cntlAuftr_Zoll = New AVISO.usrcntlCheckBox() - Me.cntlAvisierer_Clear = New AVISO.usrcntlCheckBox() - Me.cntlAvisierer_Abf = New AVISO.usrcntlCheckBox() - Me.cntlAvisierer_Eust = New AVISO.usrcntlCheckBox() - Me.cntlAvisierer_Zoll = New AVISO.usrcntlCheckBox() - Me.txtAvisierer = New VERAG_PROG_ALLGEMEIN.KdSearchBox() - Me.txtAuftraggeber = New VERAG_PROG_ALLGEMEIN.KdSearchBox() - Me.txtFrachtfuehrerKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.lblEmpfAufschubEust = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.UsrCntlSND_NCTSGestellungsadresse1 = New AVISO.usrCntlSND_NCTSGestellungsadresse() - Me.txtAbsenderKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtEmpfaengerKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAbsender = New VERAG_PROG_ALLGEMEIN.KdSearchBox() - Me.txtEmpfaenger = New VERAG_PROG_ALLGEMEIN.KdSearchBox() - Me.lblAtrAufschubEust = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAuftraggeberKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAvisiererKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtKdAuftragsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.rtbValidierung = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() - Me.cboAbfertigungsLand = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtAnzahlPos = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cboAbfertigungsart = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtFremdEmpfKdNR = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtFremdEmpf = New VERAG_PROG_ALLGEMEIN.KdSearchBox() - Me.cboFremdsped = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtAnzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtUnterNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtAbfertigungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.FlatButton2 = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.cboVorpapier3 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboVorpapier2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboVorpapier = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cbxSpedBuch = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components) - Me.ToolStripMenuItem33 = New System.Windows.Forms.ToolStripMenuItem() + Me.lblAbfArtLand = New System.Windows.Forms.Label() + Me.lblFilialeAbfNr = New System.Windows.Forms.Label() + Me.lblErr_Auftrageber = New System.Windows.Forms.Label() Me.pnl.SuspendLayout() Me.Panel4.SuspendLayout() Me.TabControl1.SuspendLayout() Me.tbKundenInfo.SuspendLayout() Me.tbAnhang.SuspendLayout() + CType(Me.dgvAnhang, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel19.SuspendLayout() Me.Panel21.SuspendLayout() Me.tbZollabfertigung.SuspendLayout() Me.Panel16.SuspendLayout() + CType(Me.dgvZollAnmeldungen, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel17.SuspendLayout() Me.MenuStrip.SuspendLayout() Me.TabPage1.SuspendLayout() Me.pnlKundenZolltarif.SuspendLayout() Me.Panel18.SuspendLayout() Me.TabPage2.SuspendLayout() + CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).BeginInit() Me.pnlSpedBuchNacherfassung.SuspendLayout() Me.TabPage3.SuspendLayout() CType(Me.gridVermerke, System.ComponentModel.ISupportInitialize).BeginInit() @@ -503,7 +509,9 @@ Partial Class frmSendungsdetailsNEU Me.TabPage4.SuspendLayout() Me.Panel22.SuspendLayout() Me.tbVorkosten.SuspendLayout() + CType(Me.dgvVorkosten, System.ComponentModel.ISupportInitialize).BeginInit() Me.tbBAR.SuspendLayout() + CType(Me.dgvBelege, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel6.SuspendLayout() CType(Me.picKdAtrNr_Fraechter, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.picKdAtrNr_Empfänger, System.ComponentModel.ISupportInitialize).BeginInit() @@ -537,11 +545,6 @@ Partial Class frmSendungsdetailsNEU Me.ContextMenuStrip2.SuspendLayout() Me.cntDigicust.SuspendLayout() Me.ContextMenuStrip3.SuspendLayout() - CType(Me.dgvAnhang, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.dgvZollAnmeldungen, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.dgvVorkosten, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.dgvBelege, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'pnl @@ -633,6 +636,25 @@ Partial Class frmSendungsdetailsNEU Me.tbAnhang.Text = "Anhang" Me.tbAnhang.UseVisualStyleBackColor = True ' + 'dgvAnhang + ' + Me.dgvAnhang.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvAnhang.AllowUserToAddRows = False + Me.dgvAnhang.AllowUserToDeleteRows = False + Me.dgvAnhang.AllowUserToResizeColumns = False + Me.dgvAnhang.AllowUserToResizeRows = False + Me.dgvAnhang.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvAnhang.Dock = System.Windows.Forms.DockStyle.Fill + Me.dgvAnhang.Location = New System.Drawing.Point(0, 45) + Me.dgvAnhang.Name = "dgvAnhang" + Me.dgvAnhang.ReadOnly = True + Me.dgvAnhang.RowHeadersVisible = False + Me.dgvAnhang.RowHeadersWidth = 51 + Me.dgvAnhang.RowTemplate.Height = 40 + Me.dgvAnhang.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvAnhang.Size = New System.Drawing.Size(1206, 243) + Me.dgvAnhang.TabIndex = 1 + ' 'btnDirektAnfuegen ' Me.btnDirektAnfuegen.Enabled = False @@ -891,6 +913,24 @@ Partial Class frmSendungsdetailsNEU Me.Panel16.Size = New System.Drawing.Size(1206, 288) Me.Panel16.TabIndex = 0 ' + 'dgvZollAnmeldungen + ' + Me.dgvZollAnmeldungen.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvZollAnmeldungen.AllowUserToAddRows = False + Me.dgvZollAnmeldungen.AllowUserToDeleteRows = False + Me.dgvZollAnmeldungen.AllowUserToResizeColumns = False + Me.dgvZollAnmeldungen.AllowUserToResizeRows = False + Me.dgvZollAnmeldungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvZollAnmeldungen.Dock = System.Windows.Forms.DockStyle.Fill + Me.dgvZollAnmeldungen.Location = New System.Drawing.Point(0, 32) + Me.dgvZollAnmeldungen.Name = "dgvZollAnmeldungen" + Me.dgvZollAnmeldungen.ReadOnly = True + Me.dgvZollAnmeldungen.RowHeadersWidth = 51 + Me.dgvZollAnmeldungen.RowTemplate.Height = 30 + Me.dgvZollAnmeldungen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvZollAnmeldungen.Size = New System.Drawing.Size(1206, 218) + Me.dgvZollAnmeldungen.TabIndex = 1 + ' 'Panel17 ' Me.Panel17.BackColor = System.Drawing.Color.WhiteSmoke @@ -962,7 +1002,7 @@ Partial Class frmSendungsdetailsNEU Me.ToolStripMenuItem8.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.ToolStripMenuItem8.Image = Global.AVISO.My.Resources.Resources.plus Me.ToolStripMenuItem8.Name = "ToolStripMenuItem8" - Me.ToolStripMenuItem8.Size = New System.Drawing.Size(93, 22) + Me.ToolStripMenuItem8.Size = New System.Drawing.Size(101, 30) Me.ToolStripMenuItem8.Text = "T1" ' 'ToolStripMenuItem9 @@ -970,7 +1010,7 @@ Partial Class frmSendungsdetailsNEU Me.ToolStripMenuItem9.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.ToolStripMenuItem9.Image = Global.AVISO.My.Resources.Resources.plus Me.ToolStripMenuItem9.Name = "ToolStripMenuItem9" - Me.ToolStripMenuItem9.Size = New System.Drawing.Size(93, 22) + Me.ToolStripMenuItem9.Size = New System.Drawing.Size(101, 30) Me.ToolStripMenuItem9.Text = "T2" ' 'ToolStripMenuItem10 @@ -978,7 +1018,7 @@ Partial Class frmSendungsdetailsNEU Me.ToolStripMenuItem10.Enabled = False Me.ToolStripMenuItem10.Image = Global.AVISO.My.Resources.Resources.plus Me.ToolStripMenuItem10.Name = "ToolStripMenuItem10" - Me.ToolStripMenuItem10.Size = New System.Drawing.Size(93, 22) + Me.ToolStripMenuItem10.Size = New System.Drawing.Size(101, 30) Me.ToolStripMenuItem10.Text = "Ü-T" Me.ToolStripMenuItem10.Visible = False ' @@ -1002,6 +1042,13 @@ Partial Class frmSendungsdetailsNEU Me.ToolStripMenuItem11.Text = " AES" Me.ToolStripMenuItem11.ToolTipText = "Neue Zollanmeldung" ' + 'ToolStripMenuItem33 + ' + Me.ToolStripMenuItem33.Image = Global.AVISO.My.Resources.Resources.plus + Me.ToolStripMenuItem33.Name = "ToolStripMenuItem33" + Me.ToolStripMenuItem33.Size = New System.Drawing.Size(64, 28) + Me.ToolStripMenuItem33.Text = "EXG" + ' 'ToolStripMenuItem17 ' Me.ToolStripMenuItem17.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem20, Me.ToolStripMenuItem18, Me.ToolStripMenuItem19}) @@ -1016,7 +1063,7 @@ Partial Class frmSendungsdetailsNEU ' Me.ToolStripMenuItem20.Image = Global.AVISO.My.Resources.Resources.plus Me.ToolStripMenuItem20.Name = "ToolStripMenuItem20" - Me.ToolStripMenuItem20.Size = New System.Drawing.Size(95, 22) + Me.ToolStripMenuItem20.Size = New System.Drawing.Size(103, 30) Me.ToolStripMenuItem20.Text = "EZA" ' 'ToolStripMenuItem18 @@ -1025,7 +1072,7 @@ Partial Class frmSendungsdetailsNEU Me.ToolStripMenuItem18.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.ToolStripMenuItem18.Image = Global.AVISO.My.Resources.Resources.plus Me.ToolStripMenuItem18.Name = "ToolStripMenuItem18" - Me.ToolStripMenuItem18.Size = New System.Drawing.Size(95, 22) + Me.ToolStripMenuItem18.Size = New System.Drawing.Size(103, 30) Me.ToolStripMenuItem18.Text = "T1" ' 'ToolStripMenuItem19 @@ -1034,7 +1081,7 @@ Partial Class frmSendungsdetailsNEU Me.ToolStripMenuItem19.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.ToolStripMenuItem19.Image = Global.AVISO.My.Resources.Resources.plus Me.ToolStripMenuItem19.Name = "ToolStripMenuItem19" - Me.ToolStripMenuItem19.Size = New System.Drawing.Size(95, 22) + Me.ToolStripMenuItem19.Size = New System.Drawing.Size(103, 30) Me.ToolStripMenuItem19.Text = "T2" ' 'ToolStripMenuItem21 @@ -1051,7 +1098,7 @@ Partial Class frmSendungsdetailsNEU ' Me.ToolStripMenuItem22.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1 Me.ToolStripMenuItem22.Name = "ToolStripMenuItem22" - Me.ToolStripMenuItem22.Size = New System.Drawing.Size(176, 22) + Me.ToolStripMenuItem22.Size = New System.Drawing.Size(184, 30) Me.ToolStripMenuItem22.Text = "MIC Import senden" ' 'ToolStripMenuItem23 @@ -1059,7 +1106,7 @@ Partial Class frmSendungsdetailsNEU Me.ToolStripMenuItem23.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.ToolStripMenuItem23.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1 Me.ToolStripMenuItem23.Name = "ToolStripMenuItem23" - Me.ToolStripMenuItem23.Size = New System.Drawing.Size(176, 22) + Me.ToolStripMenuItem23.Size = New System.Drawing.Size(184, 30) Me.ToolStripMenuItem23.Text = "MIC Transit senden" ' 'ToolStripMenuItem24 @@ -1068,7 +1115,7 @@ Partial Class frmSendungsdetailsNEU Me.ToolStripMenuItem24.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.ToolStripMenuItem24.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1 Me.ToolStripMenuItem24.Name = "ToolStripMenuItem24" - Me.ToolStripMenuItem24.Size = New System.Drawing.Size(176, 22) + Me.ToolStripMenuItem24.Size = New System.Drawing.Size(184, 30) Me.ToolStripMenuItem24.Text = "MIC Export senden" ' 'ToolStripMenuItem31 @@ -1168,6 +1215,17 @@ Partial Class frmSendungsdetailsNEU Me.Label5.TabIndex = 0 Me.Label5.Text = "ZT:" ' + 'cboZolltarif + ' + Me.cboZolltarif._allowedValuesFreiText = Nothing + Me.cboZolltarif._allowFreiText = False + Me.cboZolltarif._value = "" + Me.cboZolltarif.FormattingEnabled = True + Me.cboZolltarif.Location = New System.Drawing.Point(59, 8) + Me.cboZolltarif.Name = "cboZolltarif" + Me.cboZolltarif.Size = New System.Drawing.Size(142, 21) + Me.cboZolltarif.TabIndex = 1 + ' 'TabPage2 ' Me.TabPage2.Controls.Add(Me.DataGridView) @@ -1181,6 +1239,22 @@ Partial Class frmSendungsdetailsNEU Me.TabPage2.Text = "Speditionsbuch" Me.TabPage2.UseVisualStyleBackColor = True ' + 'DataGridView + ' + Me.DataGridView.AKTUALISIERUNGS_INTERVALL = -1 + Me.DataGridView.AllowUserToAddRows = False + Me.DataGridView.AllowUserToDeleteRows = False + Me.DataGridView.AllowUserToOrderColumns = True + Me.DataGridView.AllowUserToResizeColumns = False + Me.DataGridView.AllowUserToResizeRows = False + Me.DataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.DataGridView.Dock = System.Windows.Forms.DockStyle.Fill + Me.DataGridView.Location = New System.Drawing.Point(3, 94) + Me.DataGridView.Name = "DataGridView" + Me.DataGridView.RowHeadersWidth = 51 + Me.DataGridView.Size = New System.Drawing.Size(1200, 191) + Me.DataGridView.TabIndex = 1 + ' 'pnlSpedBuchNacherfassung ' Me.pnlSpedBuchNacherfassung.Controls.Add(Me.cbxOhneZollsys) @@ -1269,6 +1343,80 @@ Partial Class frmSendungsdetailsNEU Me.Label32.TabIndex = 8 Me.Label32.Text = "Zoll Sachbearbeiter:" ' + 'cboSachbearbeiter + ' + Me.cboSachbearbeiter._allowedValuesFreiText = Nothing + Me.cboSachbearbeiter._allowFreiText = False + Me.cboSachbearbeiter._value = "" + Me.cboSachbearbeiter.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend + Me.cboSachbearbeiter.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems + Me.cboSachbearbeiter.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboSachbearbeiter.FormattingEnabled = True + Me.cboSachbearbeiter.Location = New System.Drawing.Point(466, 42) + Me.cboSachbearbeiter.Name = "cboSachbearbeiter" + Me.cboSachbearbeiter.Size = New System.Drawing.Size(171, 24) + Me.cboSachbearbeiter.TabIndex = 14 + ' + 'cboZollsystem2 + ' + Me.cboZollsystem2._allowedValuesFreiText = Nothing + Me.cboZollsystem2._allowFreiText = False + Me.cboZollsystem2._value = "" + Me.cboZollsystem2.Enabled = False + Me.cboZollsystem2.FormattingEnabled = True + Me.cboZollsystem2.Location = New System.Drawing.Point(151, 66) + Me.cboZollsystem2.Name = "cboZollsystem2" + Me.cboZollsystem2.Size = New System.Drawing.Size(97, 21) + Me.cboZollsystem2.TabIndex = 16 + ' + 'txtAtlasBezNrEZA2 + ' + Me.txtAtlasBezNrEZA2._DateTimeOnly = False + Me.txtAtlasBezNrEZA2._numbersOnly = False + Me.txtAtlasBezNrEZA2._numbersOnlyKommastellen = "" + Me.txtAtlasBezNrEZA2._numbersOnlyTrennzeichen = True + Me.txtAtlasBezNrEZA2._Prozent = False + Me.txtAtlasBezNrEZA2._ShortDateNew = False + Me.txtAtlasBezNrEZA2._ShortDateOnly = False + Me.txtAtlasBezNrEZA2._TimeOnly = False + Me.txtAtlasBezNrEZA2._TimeOnly_Seconds = False + Me.txtAtlasBezNrEZA2._value = Nothing + Me.txtAtlasBezNrEZA2._Waehrung = False + Me.txtAtlasBezNrEZA2._WaehrungZeichen = True + Me.txtAtlasBezNrEZA2.Enabled = False + Me.txtAtlasBezNrEZA2.ForeColor = System.Drawing.Color.Black + Me.txtAtlasBezNrEZA2.Location = New System.Drawing.Point(253, 66) + Me.txtAtlasBezNrEZA2.MaxLineLength = -1 + Me.txtAtlasBezNrEZA2.MaxLines_Warning = "" + Me.txtAtlasBezNrEZA2.MaxLines_Warning_Label = Nothing + Me.txtAtlasBezNrEZA2.Name = "txtAtlasBezNrEZA2" + Me.txtAtlasBezNrEZA2.Size = New System.Drawing.Size(101, 20) + Me.txtAtlasBezNrEZA2.TabIndex = 17 + ' + 'txtAtlasBezNrNCTS2 + ' + Me.txtAtlasBezNrNCTS2._DateTimeOnly = False + Me.txtAtlasBezNrNCTS2._numbersOnly = False + Me.txtAtlasBezNrNCTS2._numbersOnlyKommastellen = "" + Me.txtAtlasBezNrNCTS2._numbersOnlyTrennzeichen = True + Me.txtAtlasBezNrNCTS2._Prozent = False + Me.txtAtlasBezNrNCTS2._ShortDateNew = False + Me.txtAtlasBezNrNCTS2._ShortDateOnly = False + Me.txtAtlasBezNrNCTS2._TimeOnly = False + Me.txtAtlasBezNrNCTS2._TimeOnly_Seconds = False + Me.txtAtlasBezNrNCTS2._value = Nothing + Me.txtAtlasBezNrNCTS2._Waehrung = False + Me.txtAtlasBezNrNCTS2._WaehrungZeichen = True + Me.txtAtlasBezNrNCTS2.Enabled = False + Me.txtAtlasBezNrNCTS2.ForeColor = System.Drawing.Color.Black + Me.txtAtlasBezNrNCTS2.Location = New System.Drawing.Point(359, 66) + Me.txtAtlasBezNrNCTS2.MaxLineLength = -1 + Me.txtAtlasBezNrNCTS2.MaxLines_Warning = "" + Me.txtAtlasBezNrNCTS2.MaxLines_Warning_Label = Nothing + Me.txtAtlasBezNrNCTS2.Name = "txtAtlasBezNrNCTS2" + Me.txtAtlasBezNrNCTS2.Size = New System.Drawing.Size(101, 20) + Me.txtAtlasBezNrNCTS2.TabIndex = 18 + ' 'Label30 ' Me.Label30.AutoSize = True @@ -1307,6 +1455,63 @@ Partial Class frmSendungsdetailsNEU Me.lblZollsysErr.TabIndex = 19 Me.lblZollsysErr.Text = "ERR" ' + 'cboZollsystem + ' + Me.cboZollsystem._allowedValuesFreiText = Nothing + Me.cboZollsystem._allowFreiText = False + Me.cboZollsystem._value = "" + Me.cboZollsystem.FormattingEnabled = True + Me.cboZollsystem.Location = New System.Drawing.Point(151, 42) + Me.cboZollsystem.Name = "cboZollsystem" + Me.cboZollsystem.Size = New System.Drawing.Size(97, 21) + Me.cboZollsystem.TabIndex = 11 + ' + 'txtAtlasBezNrEZA + ' + Me.txtAtlasBezNrEZA._DateTimeOnly = False + Me.txtAtlasBezNrEZA._numbersOnly = False + Me.txtAtlasBezNrEZA._numbersOnlyKommastellen = "" + Me.txtAtlasBezNrEZA._numbersOnlyTrennzeichen = True + Me.txtAtlasBezNrEZA._Prozent = False + Me.txtAtlasBezNrEZA._ShortDateNew = False + Me.txtAtlasBezNrEZA._ShortDateOnly = False + Me.txtAtlasBezNrEZA._TimeOnly = False + Me.txtAtlasBezNrEZA._TimeOnly_Seconds = False + Me.txtAtlasBezNrEZA._value = Nothing + Me.txtAtlasBezNrEZA._Waehrung = False + Me.txtAtlasBezNrEZA._WaehrungZeichen = True + Me.txtAtlasBezNrEZA.ForeColor = System.Drawing.Color.Black + Me.txtAtlasBezNrEZA.Location = New System.Drawing.Point(253, 42) + Me.txtAtlasBezNrEZA.MaxLineLength = -1 + Me.txtAtlasBezNrEZA.MaxLines_Warning = "" + Me.txtAtlasBezNrEZA.MaxLines_Warning_Label = Nothing + Me.txtAtlasBezNrEZA.Name = "txtAtlasBezNrEZA" + Me.txtAtlasBezNrEZA.Size = New System.Drawing.Size(101, 20) + Me.txtAtlasBezNrEZA.TabIndex = 12 + ' + 'txtAtlasBezNrNCTS + ' + Me.txtAtlasBezNrNCTS._DateTimeOnly = False + Me.txtAtlasBezNrNCTS._numbersOnly = False + Me.txtAtlasBezNrNCTS._numbersOnlyKommastellen = "" + Me.txtAtlasBezNrNCTS._numbersOnlyTrennzeichen = True + Me.txtAtlasBezNrNCTS._Prozent = False + Me.txtAtlasBezNrNCTS._ShortDateNew = False + Me.txtAtlasBezNrNCTS._ShortDateOnly = False + Me.txtAtlasBezNrNCTS._TimeOnly = False + Me.txtAtlasBezNrNCTS._TimeOnly_Seconds = False + Me.txtAtlasBezNrNCTS._value = Nothing + Me.txtAtlasBezNrNCTS._Waehrung = False + Me.txtAtlasBezNrNCTS._WaehrungZeichen = True + Me.txtAtlasBezNrNCTS.ForeColor = System.Drawing.Color.Black + Me.txtAtlasBezNrNCTS.Location = New System.Drawing.Point(359, 42) + Me.txtAtlasBezNrNCTS.MaxLineLength = -1 + Me.txtAtlasBezNrNCTS.MaxLines_Warning = "" + Me.txtAtlasBezNrNCTS.MaxLines_Warning_Label = Nothing + Me.txtAtlasBezNrNCTS.Name = "txtAtlasBezNrNCTS" + Me.txtAtlasBezNrNCTS.Size = New System.Drawing.Size(101, 20) + Me.txtAtlasBezNrNCTS.TabIndex = 13 + ' 'Label29 ' Me.Label29.AutoSize = True @@ -1367,23 +1572,30 @@ Partial Class frmSendungsdetailsNEU Me.TabPage3.Text = "Vermerke" Me.TabPage3.UseVisualStyleBackColor = True ' + 'RCntrlVermerke1 + ' + Me.RCntrlVermerke1.Location = New System.Drawing.Point(251, 18) + Me.RCntrlVermerke1.Name = "RCntrlVermerke1" + Me.RCntrlVermerke1.Size = New System.Drawing.Size(575, 208) + Me.RCntrlVermerke1.TabIndex = 1 + ' 'gridVermerke ' Me.gridVermerke.AllowUserToAddRows = False Me.gridVermerke.AllowUserToDeleteRows = False Me.gridVermerke.AllowUserToResizeRows = False - DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure - DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 + DataGridViewCellStyle20.BackColor = System.Drawing.Color.Azure + DataGridViewCellStyle20.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle20 Me.gridVermerke.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle2.BackColor = System.Drawing.Color.LightBlue - DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!) - DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2 + DataGridViewCellStyle21.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle21.BackColor = System.Drawing.Color.LightBlue + DataGridViewCellStyle21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!) + DataGridViewCellStyle21.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle21.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle21.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle21.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle21 Me.gridVermerke.ColumnHeadersHeight = 29 Me.gridVermerke.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing Me.gridVermerke.Dock = System.Windows.Forms.DockStyle.Fill @@ -1394,8 +1606,8 @@ Partial Class frmSendungsdetailsNEU Me.gridVermerke.RowHeadersVisible = False Me.gridVermerke.RowHeadersWidth = 51 Me.gridVermerke.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing - DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle3 + DataGridViewCellStyle22.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle22 Me.gridVermerke.RowTemplate.Height = 20 Me.gridVermerke.RowTemplate.ReadOnly = True Me.gridVermerke.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False] @@ -1423,18 +1635,18 @@ Partial Class frmSendungsdetailsNEU Me.dgvATEZNCTS.AllowUserToAddRows = False Me.dgvATEZNCTS.AllowUserToDeleteRows = False Me.dgvATEZNCTS.AllowUserToResizeRows = False - DataGridViewCellStyle4.BackColor = System.Drawing.Color.Azure - DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvATEZNCTS.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4 + DataGridViewCellStyle23.BackColor = System.Drawing.Color.Azure + DataGridViewCellStyle23.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvATEZNCTS.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle23 Me.dgvATEZNCTS.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle5.BackColor = System.Drawing.Color.LightBlue - DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvATEZNCTS.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle5 + DataGridViewCellStyle24.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle24.BackColor = System.Drawing.Color.LightBlue + DataGridViewCellStyle24.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + DataGridViewCellStyle24.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle24.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle24.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle24.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvATEZNCTS.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle24 Me.dgvATEZNCTS.ColumnHeadersHeight = 29 Me.dgvATEZNCTS.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing Me.dgvATEZNCTS.Dock = System.Windows.Forms.DockStyle.Fill @@ -1445,8 +1657,8 @@ Partial Class frmSendungsdetailsNEU Me.dgvATEZNCTS.RowHeadersVisible = False Me.dgvATEZNCTS.RowHeadersWidth = 51 Me.dgvATEZNCTS.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing - DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvATEZNCTS.RowsDefaultCellStyle = DataGridViewCellStyle6 + DataGridViewCellStyle25.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvATEZNCTS.RowsDefaultCellStyle = DataGridViewCellStyle25 Me.dgvATEZNCTS.RowTemplate.Height = 20 Me.dgvATEZNCTS.RowTemplate.ReadOnly = True Me.dgvATEZNCTS.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False] @@ -1497,18 +1709,18 @@ Partial Class frmSendungsdetailsNEU Me.dgvDigicust.AllowUserToAddRows = False Me.dgvDigicust.AllowUserToDeleteRows = False Me.dgvDigicust.AllowUserToResizeRows = False - DataGridViewCellStyle7.BackColor = System.Drawing.Color.Azure - DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvDigicust.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7 + DataGridViewCellStyle26.BackColor = System.Drawing.Color.Azure + DataGridViewCellStyle26.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvDigicust.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle26 Me.dgvDigicust.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle8.BackColor = System.Drawing.Color.LightBlue - DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvDigicust.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle8 + DataGridViewCellStyle27.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle27.BackColor = System.Drawing.Color.LightBlue + DataGridViewCellStyle27.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + DataGridViewCellStyle27.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle27.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle27.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle27.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvDigicust.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle27 Me.dgvDigicust.ColumnHeadersHeight = 29 Me.dgvDigicust.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing Me.dgvDigicust.Dock = System.Windows.Forms.DockStyle.Fill @@ -1519,8 +1731,8 @@ Partial Class frmSendungsdetailsNEU Me.dgvDigicust.RowHeadersVisible = False Me.dgvDigicust.RowHeadersWidth = 51 Me.dgvDigicust.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing - DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvDigicust.RowsDefaultCellStyle = DataGridViewCellStyle9 + DataGridViewCellStyle28.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvDigicust.RowsDefaultCellStyle = DataGridViewCellStyle28 Me.dgvDigicust.RowTemplate.Height = 20 Me.dgvDigicust.RowTemplate.ReadOnly = True Me.dgvDigicust.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False] @@ -1572,18 +1784,18 @@ Partial Class frmSendungsdetailsNEU Me.dgvMail.AllowUserToAddRows = False Me.dgvMail.AllowUserToDeleteRows = False Me.dgvMail.AllowUserToResizeRows = False - DataGridViewCellStyle10.BackColor = System.Drawing.Color.Azure - DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvMail.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10 + DataGridViewCellStyle29.BackColor = System.Drawing.Color.Azure + DataGridViewCellStyle29.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvMail.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle29 Me.dgvMail.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle11.BackColor = System.Drawing.Color.LightBlue - DataGridViewCellStyle11.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - DataGridViewCellStyle11.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle11.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle11.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvMail.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle11 + DataGridViewCellStyle30.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle30.BackColor = System.Drawing.Color.LightBlue + DataGridViewCellStyle30.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + DataGridViewCellStyle30.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle30.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle30.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle30.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvMail.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle30 Me.dgvMail.ColumnHeadersHeight = 29 Me.dgvMail.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing Me.dgvMail.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnSender, Me.clmnRec, Me.clmnSbj, Me.clmnAtt, Me.clmnUIDL}) @@ -1595,8 +1807,8 @@ Partial Class frmSendungsdetailsNEU Me.dgvMail.RowHeadersVisible = False Me.dgvMail.RowHeadersWidth = 51 Me.dgvMail.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing - DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvMail.RowsDefaultCellStyle = DataGridViewCellStyle12 + DataGridViewCellStyle31.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvMail.RowsDefaultCellStyle = DataGridViewCellStyle31 Me.dgvMail.RowTemplate.Height = 20 Me.dgvMail.RowTemplate.ReadOnly = True Me.dgvMail.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False] @@ -1607,6 +1819,46 @@ Partial Class frmSendungsdetailsNEU Me.dgvMail.TabIndex = 109 Me.dgvMail.TabStop = False ' + 'clmnSender + ' + Me.clmnSender.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.clmnSender.HeaderText = "Absender" + Me.clmnSender.MinimumWidth = 6 + Me.clmnSender.Name = "clmnSender" + Me.clmnSender.ReadOnly = True + ' + 'clmnRec + ' + Me.clmnRec.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.clmnRec.HeaderText = "Empfänger" + Me.clmnRec.MinimumWidth = 6 + Me.clmnRec.Name = "clmnRec" + Me.clmnRec.ReadOnly = True + ' + 'clmnSbj + ' + Me.clmnSbj.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.clmnSbj.HeaderText = "Betreff" + Me.clmnSbj.MinimumWidth = 6 + Me.clmnSbj.Name = "clmnSbj" + Me.clmnSbj.ReadOnly = True + ' + 'clmnAtt + ' + Me.clmnAtt.HeaderText = "Anhänge" + Me.clmnAtt.MinimumWidth = 6 + Me.clmnAtt.Name = "clmnAtt" + Me.clmnAtt.ReadOnly = True + Me.clmnAtt.Width = 70 + ' + 'clmnUIDL + ' + Me.clmnUIDL.HeaderText = "UIDL" + Me.clmnUIDL.MinimumWidth = 6 + Me.clmnUIDL.Name = "clmnUIDL" + Me.clmnUIDL.ReadOnly = True + Me.clmnUIDL.Width = 200 + ' 'Panel25 ' Me.Panel25.Controls.Add(Me.Button23) @@ -1743,6 +1995,31 @@ Partial Class frmSendungsdetailsNEU Me.lblZuKass.TabIndex = 0 Me.lblZuKass.Text = "zu kassieren (BAR):" ' + 'txtBARzuKassieren + ' + Me.txtBARzuKassieren._DateTimeOnly = False + Me.txtBARzuKassieren._numbersOnly = False + Me.txtBARzuKassieren._numbersOnlyKommastellen = "" + Me.txtBARzuKassieren._numbersOnlyTrennzeichen = True + Me.txtBARzuKassieren._Prozent = False + Me.txtBARzuKassieren._ShortDateNew = False + Me.txtBARzuKassieren._ShortDateOnly = False + Me.txtBARzuKassieren._TimeOnly = False + Me.txtBARzuKassieren._TimeOnly_Seconds = False + Me.txtBARzuKassieren._value = "" + Me.txtBARzuKassieren._Waehrung = True + Me.txtBARzuKassieren._WaehrungZeichen = True + Me.txtBARzuKassieren.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.txtBARzuKassieren.ForeColor = System.Drawing.Color.Black + Me.txtBARzuKassieren.Location = New System.Drawing.Point(3, 16) + Me.txtBARzuKassieren.MaxLineLength = -1 + Me.txtBARzuKassieren.MaxLines_Warning = "" + Me.txtBARzuKassieren.MaxLines_Warning_Label = Nothing + Me.txtBARzuKassieren.Name = "txtBARzuKassieren" + Me.txtBARzuKassieren.Size = New System.Drawing.Size(126, 26) + Me.txtBARzuKassieren.TabIndex = 1 + Me.txtBARzuKassieren.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' 'Label12 ' Me.Label12.AutoSize = True @@ -1772,6 +2049,30 @@ Partial Class frmSendungsdetailsNEU Me.btn_FrachtkostenBerechnen.Text = "berechnen" Me.btn_FrachtkostenBerechnen.UseVisualStyleBackColor = True ' + 'txtFrachtkostenGesamt + ' + Me.txtFrachtkostenGesamt._DateTimeOnly = False + Me.txtFrachtkostenGesamt._numbersOnly = False + Me.txtFrachtkostenGesamt._numbersOnlyKommastellen = "" + Me.txtFrachtkostenGesamt._numbersOnlyTrennzeichen = True + Me.txtFrachtkostenGesamt._Prozent = False + Me.txtFrachtkostenGesamt._ShortDateNew = False + Me.txtFrachtkostenGesamt._ShortDateOnly = False + Me.txtFrachtkostenGesamt._TimeOnly = False + Me.txtFrachtkostenGesamt._TimeOnly_Seconds = False + Me.txtFrachtkostenGesamt._value = "" + Me.txtFrachtkostenGesamt._Waehrung = True + Me.txtFrachtkostenGesamt._WaehrungZeichen = True + Me.txtFrachtkostenGesamt.ForeColor = System.Drawing.Color.Black + Me.txtFrachtkostenGesamt.Location = New System.Drawing.Point(375, 22) + Me.txtFrachtkostenGesamt.MaxLineLength = -1 + Me.txtFrachtkostenGesamt.MaxLines_Warning = "" + Me.txtFrachtkostenGesamt.MaxLines_Warning_Label = Nothing + Me.txtFrachtkostenGesamt.Name = "txtFrachtkostenGesamt" + Me.txtFrachtkostenGesamt.Size = New System.Drawing.Size(50, 20) + Me.txtFrachtkostenGesamt.TabIndex = 61 + Me.txtFrachtkostenGesamt.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' 'Label6 ' Me.Label6.AutoSize = True @@ -1790,6 +2091,54 @@ Partial Class frmSendungsdetailsNEU Me.Label1.Size = New System.Drawing.Size(0, 13) Me.Label1.TabIndex = 63 ' + 'txtFrachtkostenNichtEU + ' + Me.txtFrachtkostenNichtEU._DateTimeOnly = False + Me.txtFrachtkostenNichtEU._numbersOnly = False + Me.txtFrachtkostenNichtEU._numbersOnlyKommastellen = "" + Me.txtFrachtkostenNichtEU._numbersOnlyTrennzeichen = True + Me.txtFrachtkostenNichtEU._Prozent = False + Me.txtFrachtkostenNichtEU._ShortDateNew = False + Me.txtFrachtkostenNichtEU._ShortDateOnly = False + Me.txtFrachtkostenNichtEU._TimeOnly = False + Me.txtFrachtkostenNichtEU._TimeOnly_Seconds = False + Me.txtFrachtkostenNichtEU._value = "" + Me.txtFrachtkostenNichtEU._Waehrung = True + Me.txtFrachtkostenNichtEU._WaehrungZeichen = True + Me.txtFrachtkostenNichtEU.ForeColor = System.Drawing.Color.Black + Me.txtFrachtkostenNichtEU.Location = New System.Drawing.Point(322, 22) + Me.txtFrachtkostenNichtEU.MaxLineLength = -1 + Me.txtFrachtkostenNichtEU.MaxLines_Warning = "" + Me.txtFrachtkostenNichtEU.MaxLines_Warning_Label = Nothing + Me.txtFrachtkostenNichtEU.Name = "txtFrachtkostenNichtEU" + Me.txtFrachtkostenNichtEU.Size = New System.Drawing.Size(54, 20) + Me.txtFrachtkostenNichtEU.TabIndex = 14 + Me.txtFrachtkostenNichtEU.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'txtFrachtkostenEU + ' + Me.txtFrachtkostenEU._DateTimeOnly = False + Me.txtFrachtkostenEU._numbersOnly = False + Me.txtFrachtkostenEU._numbersOnlyKommastellen = "" + Me.txtFrachtkostenEU._numbersOnlyTrennzeichen = True + Me.txtFrachtkostenEU._Prozent = False + Me.txtFrachtkostenEU._ShortDateNew = False + Me.txtFrachtkostenEU._ShortDateOnly = False + Me.txtFrachtkostenEU._TimeOnly = False + Me.txtFrachtkostenEU._TimeOnly_Seconds = False + Me.txtFrachtkostenEU._value = "" + Me.txtFrachtkostenEU._Waehrung = True + Me.txtFrachtkostenEU._WaehrungZeichen = True + Me.txtFrachtkostenEU.ForeColor = System.Drawing.Color.Black + Me.txtFrachtkostenEU.Location = New System.Drawing.Point(269, 22) + Me.txtFrachtkostenEU.MaxLineLength = -1 + Me.txtFrachtkostenEU.MaxLines_Warning = "" + Me.txtFrachtkostenEU.MaxLines_Warning_Label = Nothing + Me.txtFrachtkostenEU.Name = "txtFrachtkostenEU" + Me.txtFrachtkostenEU.Size = New System.Drawing.Size(54, 20) + Me.txtFrachtkostenEU.TabIndex = 12 + Me.txtFrachtkostenEU.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' 'cbx ' Me.cbx.AutoSize = True @@ -1801,6 +2150,31 @@ Partial Class frmSendungsdetailsNEU Me.cbx.UseVisualStyleBackColor = True Me.cbx.Visible = False ' + 'txtWarenwertWaehrung + ' + Me.txtWarenwertWaehrung._allowFreitext = False + Me.txtWarenwertWaehrung._AllowSetValue = False + Me.txtWarenwertWaehrung._allowSpaceAsSplitter = False + Me.txtWarenwertWaehrung._autoSizeGross = False + Me.txtWarenwertWaehrung._hideIfListEmpty = True + Me.txtWarenwertWaehrung._value = "" + Me.txtWarenwertWaehrung.conn_art = "FMZOLL" + Me.txtWarenwertWaehrung.dgvpos = "LEFT" + Me.txtWarenwertWaehrung.DISPLAY_PARAM = Nothing + Me.txtWarenwertWaehrung.INVISIBLE_COLUMNS = Nothing + Me.txtWarenwertWaehrung.key_visible = False + Me.txtWarenwertWaehrung.KEYPARAM = Nothing + Me.txtWarenwertWaehrung.Location = New System.Drawing.Point(207, 77) + Me.txtWarenwertWaehrung.Name = "txtWarenwertWaehrung" + Me.txtWarenwertWaehrung.searchActive = True + Me.txtWarenwertWaehrung.Size = New System.Drawing.Size(51, 20) + Me.txtWarenwertWaehrung.SQL_ORDER_BY = Nothing + Me.txtWarenwertWaehrung.SQL_SELECT = Nothing + Me.txtWarenwertWaehrung.SQL_WHERE = Nothing + Me.txtWarenwertWaehrung.SQL_WhereParamList = Nothing + Me.txtWarenwertWaehrung.TabIndex = 11 + Me.txtWarenwertWaehrung.usrcntl = Nothing + ' 'lblWW ' Me.lblWW.AutoSize = True @@ -1810,6 +2184,30 @@ Partial Class frmSendungsdetailsNEU Me.lblWW.TabIndex = 9 Me.lblWW.Text = "Warenwert:" ' + 'txtWarenwert + ' + Me.txtWarenwert._DateTimeOnly = False + Me.txtWarenwert._numbersOnly = True + Me.txtWarenwert._numbersOnlyKommastellen = "" + Me.txtWarenwert._numbersOnlyTrennzeichen = True + Me.txtWarenwert._Prozent = False + Me.txtWarenwert._ShortDateNew = False + Me.txtWarenwert._ShortDateOnly = False + Me.txtWarenwert._TimeOnly = False + Me.txtWarenwert._TimeOnly_Seconds = False + Me.txtWarenwert._value = "" + Me.txtWarenwert._Waehrung = False + Me.txtWarenwert._WaehrungZeichen = True + Me.txtWarenwert.ForeColor = System.Drawing.Color.Black + Me.txtWarenwert.Location = New System.Drawing.Point(78, 77) + Me.txtWarenwert.MaxLineLength = -1 + Me.txtWarenwert.MaxLines_Warning = "" + Me.txtWarenwert.MaxLines_Warning_Label = Nothing + Me.txtWarenwert.Name = "txtWarenwert" + Me.txtWarenwert.Size = New System.Drawing.Size(130, 20) + Me.txtWarenwert.TabIndex = 10 + Me.txtWarenwert.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' 'Button21 ' Me.Button21.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom @@ -1886,6 +2284,30 @@ Partial Class frmSendungsdetailsNEU Me.Button12.UseVisualStyleBackColor = True Me.Button12.Visible = False ' + 'txtGewicht + ' + Me.txtGewicht._DateTimeOnly = False + Me.txtGewicht._numbersOnly = True + Me.txtGewicht._numbersOnlyKommastellen = "1" + Me.txtGewicht._numbersOnlyTrennzeichen = True + Me.txtGewicht._Prozent = False + Me.txtGewicht._ShortDateNew = False + Me.txtGewicht._ShortDateOnly = False + Me.txtGewicht._TimeOnly = False + Me.txtGewicht._TimeOnly_Seconds = False + Me.txtGewicht._value = "" + Me.txtGewicht._Waehrung = False + Me.txtGewicht._WaehrungZeichen = True + Me.txtGewicht.ForeColor = System.Drawing.Color.Black + Me.txtGewicht.Location = New System.Drawing.Point(81, 22) + Me.txtGewicht.MaxLineLength = -1 + Me.txtGewicht.MaxLines_Warning = "" + Me.txtGewicht.MaxLines_Warning_Label = Nothing + Me.txtGewicht.Name = "txtGewicht" + Me.txtGewicht.Size = New System.Drawing.Size(69, 20) + Me.txtGewicht.TabIndex = 4 + Me.txtGewicht.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' 'lblWarenbezeichnung ' Me.lblWarenbezeichnung.AutoSize = True @@ -1935,6 +2357,30 @@ Partial Class frmSendungsdetailsNEU Me.Button8.TabIndex = 22 Me.Button8.UseVisualStyleBackColor = True ' + 'txtColli + ' + Me.txtColli._DateTimeOnly = False + Me.txtColli._numbersOnly = True + Me.txtColli._numbersOnlyKommastellen = "0" + Me.txtColli._numbersOnlyTrennzeichen = True + Me.txtColli._Prozent = False + Me.txtColli._ShortDateNew = False + Me.txtColli._ShortDateOnly = False + Me.txtColli._TimeOnly = False + Me.txtColli._TimeOnly_Seconds = False + Me.txtColli._value = "" + Me.txtColli._Waehrung = False + Me.txtColli._WaehrungZeichen = True + Me.txtColli.ForeColor = System.Drawing.Color.Black + Me.txtColli.Location = New System.Drawing.Point(7, 22) + Me.txtColli.MaxLineLength = -1 + Me.txtColli.MaxLines_Warning = "" + Me.txtColli.MaxLines_Warning_Label = Nothing + Me.txtColli.Name = "txtColli" + Me.txtColli.Size = New System.Drawing.Size(46, 20) + Me.txtColli.TabIndex = 3 + Me.txtColli.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' 'rtbWarenbezeichnung ' Me.rtbWarenbezeichnung.Cursor = System.Windows.Forms.Cursors.IBeam @@ -1972,6 +2418,19 @@ Partial Class frmSendungsdetailsNEU Me.lblAnmerkung.TabIndex = 17 Me.lblAnmerkung.Text = "Anmerkung:" ' + 'cboPrinter + ' + Me.cboPrinter._allowedValuesFreiText = Nothing + Me.cboPrinter._allowFreiText = False + Me.cboPrinter._value = "" + Me.cboPrinter.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboPrinter.DropDownWidth = 300 + Me.cboPrinter.FormattingEnabled = True + Me.cboPrinter.Location = New System.Drawing.Point(296, 139) + Me.cboPrinter.Name = "cboPrinter" + Me.cboPrinter.Size = New System.Drawing.Size(131, 21) + Me.cboPrinter.TabIndex = 24 + ' 'rtbAnmerkung ' Me.rtbAnmerkung.Location = New System.Drawing.Point(6, 127) @@ -2051,6 +2510,161 @@ Partial Class frmSendungsdetailsNEU Me.btnVorkostenAdd.TabStop = False Me.btnVorkostenAdd.UseVisualStyleBackColor = False ' + 'txtVK_Preis + ' + Me.txtVK_Preis._DateTimeOnly = False + Me.txtVK_Preis._numbersOnly = True + Me.txtVK_Preis._numbersOnlyKommastellen = "" + Me.txtVK_Preis._numbersOnlyTrennzeichen = True + Me.txtVK_Preis._Prozent = False + Me.txtVK_Preis._ShortDateNew = False + Me.txtVK_Preis._ShortDateOnly = False + Me.txtVK_Preis._TimeOnly = False + Me.txtVK_Preis._TimeOnly_Seconds = False + Me.txtVK_Preis._value = "" + Me.txtVK_Preis._Waehrung = True + Me.txtVK_Preis._WaehrungZeichen = True + Me.txtVK_Preis.ForeColor = System.Drawing.Color.Black + Me.txtVK_Preis.Location = New System.Drawing.Point(255, 205) + Me.txtVK_Preis.MaxLength = 15 + Me.txtVK_Preis.MaxLineLength = -1 + Me.txtVK_Preis.MaxLines_Warning = "" + Me.txtVK_Preis.MaxLines_Warning_Label = Nothing + Me.txtVK_Preis.Name = "txtVK_Preis" + Me.txtVK_Preis.Size = New System.Drawing.Size(75, 20) + Me.txtVK_Preis.TabIndex = 4 + ' + 'txtVK_Leistung + ' + Me.txtVK_Leistung._DateTimeOnly = False + Me.txtVK_Leistung._numbersOnly = False + Me.txtVK_Leistung._numbersOnlyKommastellen = "" + Me.txtVK_Leistung._numbersOnlyTrennzeichen = True + Me.txtVK_Leistung._Prozent = False + Me.txtVK_Leistung._ShortDateNew = False + Me.txtVK_Leistung._ShortDateOnly = False + Me.txtVK_Leistung._TimeOnly = False + Me.txtVK_Leistung._TimeOnly_Seconds = False + Me.txtVK_Leistung._value = "" + Me.txtVK_Leistung._Waehrung = False + Me.txtVK_Leistung._WaehrungZeichen = False + Me.txtVK_Leistung.ForeColor = System.Drawing.Color.Black + Me.txtVK_Leistung.Location = New System.Drawing.Point(129, 205) + Me.txtVK_Leistung.MaxLength = 30 + Me.txtVK_Leistung.MaxLineLength = -1 + Me.txtVK_Leistung.MaxLines_Warning = "" + Me.txtVK_Leistung.MaxLines_Warning_Label = Nothing + Me.txtVK_Leistung.Name = "txtVK_Leistung" + Me.txtVK_Leistung.Size = New System.Drawing.Size(127, 20) + Me.txtVK_Leistung.TabIndex = 2 + ' + 'txtVK_Firma + ' + Me.txtVK_Firma._DateTimeOnly = False + Me.txtVK_Firma._numbersOnly = False + Me.txtVK_Firma._numbersOnlyKommastellen = "" + Me.txtVK_Firma._numbersOnlyTrennzeichen = True + Me.txtVK_Firma._Prozent = False + Me.txtVK_Firma._ShortDateNew = False + Me.txtVK_Firma._ShortDateOnly = False + Me.txtVK_Firma._TimeOnly = False + Me.txtVK_Firma._TimeOnly_Seconds = False + Me.txtVK_Firma._value = "" + Me.txtVK_Firma._Waehrung = False + Me.txtVK_Firma._WaehrungZeichen = True + Me.txtVK_Firma.ForeColor = System.Drawing.Color.Black + Me.txtVK_Firma.Location = New System.Drawing.Point(3, 205) + Me.txtVK_Firma.MaxLength = 200 + Me.txtVK_Firma.MaxLineLength = -1 + Me.txtVK_Firma.MaxLines_Warning = "" + Me.txtVK_Firma.MaxLines_Warning_Label = Nothing + Me.txtVK_Firma.Name = "txtVK_Firma" + Me.txtVK_Firma.Size = New System.Drawing.Size(127, 20) + Me.txtVK_Firma.TabIndex = 1 + ' + 'dgvVorkosten + ' + Me.dgvVorkosten.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvVorkosten.AllowUserToAddRows = False + Me.dgvVorkosten.AllowUserToDeleteRows = False + Me.dgvVorkosten.AllowUserToResizeColumns = False + Me.dgvVorkosten.AllowUserToResizeRows = False + Me.dgvVorkosten.BackgroundColor = System.Drawing.Color.White + DataGridViewCellStyle32.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle32.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle32.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle32.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle32.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle32.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle32.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvVorkosten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle32 + Me.dgvVorkosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvVorkosten.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnVK_id, Me.clmnFirma, Me.clmnLeistung, Me.clmnPreis}) + DataGridViewCellStyle34.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle34.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle34.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle34.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle34.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle34.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle34.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvVorkosten.DefaultCellStyle = DataGridViewCellStyle34 + Me.dgvVorkosten.Location = New System.Drawing.Point(3, 4) + Me.dgvVorkosten.MultiSelect = False + Me.dgvVorkosten.Name = "dgvVorkosten" + Me.dgvVorkosten.ReadOnly = True + DataGridViewCellStyle35.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle35.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle35.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle35.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle35.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle35.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle35.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvVorkosten.RowHeadersDefaultCellStyle = DataGridViewCellStyle35 + Me.dgvVorkosten.RowHeadersVisible = False + Me.dgvVorkosten.RowHeadersWidth = 51 + Me.dgvVorkosten.RowTemplate.Height = 18 + Me.dgvVorkosten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvVorkosten.Size = New System.Drawing.Size(360, 194) + Me.dgvVorkosten.TabIndex = 0 + ' + 'clmnVK_id + ' + Me.clmnVK_id.HeaderText = "ID" + Me.clmnVK_id.MinimumWidth = 6 + Me.clmnVK_id.Name = "clmnVK_id" + Me.clmnVK_id.ReadOnly = True + Me.clmnVK_id.Visible = False + Me.clmnVK_id.Width = 125 + ' + 'clmnFirma + ' + Me.clmnFirma.HeaderText = "Firma" + Me.clmnFirma.MaxInputLength = 200 + Me.clmnFirma.MinimumWidth = 6 + Me.clmnFirma.Name = "clmnFirma" + Me.clmnFirma.ReadOnly = True + Me.clmnFirma.Width = 127 + ' + 'clmnLeistung + ' + Me.clmnLeistung.HeaderText = "Leistung" + Me.clmnLeistung.MaxInputLength = 30 + Me.clmnLeistung.MinimumWidth = 6 + Me.clmnLeistung.Name = "clmnLeistung" + Me.clmnLeistung.ReadOnly = True + Me.clmnLeistung.Width = 129 + ' + 'clmnPreis + ' + Me.clmnPreis.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + DataGridViewCellStyle33.Format = "C2" + Me.clmnPreis.DefaultCellStyle = DataGridViewCellStyle33 + Me.clmnPreis.HeaderText = "Preis" + Me.clmnPreis.MaxInputLength = 15 + Me.clmnPreis.MinimumWidth = 6 + Me.clmnPreis.Name = "clmnPreis" + Me.clmnPreis.ReadOnly = True + ' 'tbBAR ' Me.tbBAR.Controls.Add(Me.dgvBelege) @@ -2065,6 +2679,50 @@ Partial Class frmSendungsdetailsNEU Me.tbBAR.Text = "Abrechnung/BAR-Belege" Me.tbBAR.UseVisualStyleBackColor = True ' + 'dgvBelege + ' + Me.dgvBelege.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvBelege.AllowUserToAddRows = False + Me.dgvBelege.AllowUserToDeleteRows = False + Me.dgvBelege.AllowUserToResizeColumns = False + Me.dgvBelege.AllowUserToResizeRows = False + Me.dgvBelege.BackgroundColor = System.Drawing.Color.White + DataGridViewCellStyle36.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle36.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle36.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle36.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle36.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle36.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle36.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvBelege.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle36 + Me.dgvBelege.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + DataGridViewCellStyle37.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle37.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle37.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle37.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle37.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle37.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle37.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvBelege.DefaultCellStyle = DataGridViewCellStyle37 + Me.dgvBelege.Location = New System.Drawing.Point(6, 40) + Me.dgvBelege.MultiSelect = False + Me.dgvBelege.Name = "dgvBelege" + Me.dgvBelege.ReadOnly = True + DataGridViewCellStyle38.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle38.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle38.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle38.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle38.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle38.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle38.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvBelege.RowHeadersDefaultCellStyle = DataGridViewCellStyle38 + Me.dgvBelege.RowHeadersVisible = False + Me.dgvBelege.RowHeadersWidth = 51 + Me.dgvBelege.RowTemplate.Height = 18 + Me.dgvBelege.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvBelege.Size = New System.Drawing.Size(360, 165) + Me.dgvBelege.TabIndex = 3 + ' 'Button9 ' Me.Button9.BackColor = System.Drawing.Color.WhiteSmoke @@ -2115,6 +2773,7 @@ Partial Class frmSendungsdetailsNEU Me.Panel6.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Panel6.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.Panel6.Controls.Add(Me.lblErr_Auftrageber) Me.Panel6.Controls.Add(Me.Label13) Me.Panel6.Controls.Add(Me.txtATANr) Me.Panel6.Controls.Add(Me.txtFrachtfuehrer) @@ -2243,6 +2902,36 @@ Partial Class frmSendungsdetailsNEU Me.txtATANr.TabIndex = 95 Me.txtATANr.Visible = False ' + 'txtFrachtfuehrer + ' + Me.txtFrachtfuehrer._AlleFirmenCLUSTER = False + Me.txtFrachtfuehrer._AllowSetValue = True + Me.txtFrachtfuehrer._autoSizeGross = True + Me.txtFrachtfuehrer._display_Name1 = False + Me.txtFrachtfuehrer._displayAVISO_Email = False + Me.txtFrachtfuehrer._displayFullName = False + Me.txtFrachtfuehrer._displayWoelflKd = False + Me.txtFrachtfuehrer._hideIfListEmpty = True + Me.txtFrachtfuehrer._loadKdData = True + Me.txtFrachtfuehrer._searchName1 = True + Me.txtFrachtfuehrer._UseFIRMA = "" + Me.txtFrachtfuehrer._ValueKdAndName = False + Me.txtFrachtfuehrer.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.txtFrachtfuehrer.dgvpos = "LEFT" + Me.txtFrachtfuehrer.KdName = Nothing + Me.txtFrachtfuehrer.KdNr = "-1" + Me.txtFrachtfuehrer.kdNrField = Nothing + Me.txtFrachtfuehrer.KdNrNullInt = Nothing + Me.txtFrachtfuehrer.Location = New System.Drawing.Point(120, 168) + Me.txtFrachtfuehrer.MaxLength = 50 + Me.txtFrachtfuehrer.Name = "txtFrachtfuehrer" + Me.txtFrachtfuehrer.nurAktive = False + Me.txtFrachtfuehrer.searchActive = True + Me.txtFrachtfuehrer.Size = New System.Drawing.Size(245, 20) + Me.txtFrachtfuehrer.TabIndex = 75 + Me.txtFrachtfuehrer.TIMER_SEARCH = True + Me.txtFrachtfuehrer.usrcntl = Nothing + ' 'Panel12 ' Me.Panel12.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer)) @@ -2488,6 +3177,80 @@ Partial Class frmSendungsdetailsNEU Me.Button11.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText Me.Button11.UseVisualStyleBackColor = True ' + 'txtKdAuftragsNrFrachtfuehrer + ' + Me.txtKdAuftragsNrFrachtfuehrer._DateTimeOnly = False + Me.txtKdAuftragsNrFrachtfuehrer._numbersOnly = False + Me.txtKdAuftragsNrFrachtfuehrer._numbersOnlyKommastellen = "" + Me.txtKdAuftragsNrFrachtfuehrer._numbersOnlyTrennzeichen = True + Me.txtKdAuftragsNrFrachtfuehrer._Prozent = False + Me.txtKdAuftragsNrFrachtfuehrer._ShortDateNew = False + Me.txtKdAuftragsNrFrachtfuehrer._ShortDateOnly = False + Me.txtKdAuftragsNrFrachtfuehrer._TimeOnly = False + Me.txtKdAuftragsNrFrachtfuehrer._TimeOnly_Seconds = False + Me.txtKdAuftragsNrFrachtfuehrer._value = Nothing + Me.txtKdAuftragsNrFrachtfuehrer._Waehrung = False + Me.txtKdAuftragsNrFrachtfuehrer._WaehrungZeichen = True + Me.txtKdAuftragsNrFrachtfuehrer.ForeColor = System.Drawing.Color.Black + Me.txtKdAuftragsNrFrachtfuehrer.Location = New System.Drawing.Point(410, 168) + Me.txtKdAuftragsNrFrachtfuehrer.MaxLength = 50 + Me.txtKdAuftragsNrFrachtfuehrer.MaxLineLength = -1 + Me.txtKdAuftragsNrFrachtfuehrer.MaxLines_Warning = "" + Me.txtKdAuftragsNrFrachtfuehrer.MaxLines_Warning_Label = Nothing + Me.txtKdAuftragsNrFrachtfuehrer.Name = "txtKdAuftragsNrFrachtfuehrer" + Me.txtKdAuftragsNrFrachtfuehrer.Size = New System.Drawing.Size(90, 20) + Me.txtKdAuftragsNrFrachtfuehrer.TabIndex = 77 + ' + 'txtKdAuftragsNrEmpfaenger + ' + Me.txtKdAuftragsNrEmpfaenger._DateTimeOnly = False + Me.txtKdAuftragsNrEmpfaenger._numbersOnly = False + Me.txtKdAuftragsNrEmpfaenger._numbersOnlyKommastellen = "" + Me.txtKdAuftragsNrEmpfaenger._numbersOnlyTrennzeichen = True + Me.txtKdAuftragsNrEmpfaenger._Prozent = False + Me.txtKdAuftragsNrEmpfaenger._ShortDateNew = False + Me.txtKdAuftragsNrEmpfaenger._ShortDateOnly = False + Me.txtKdAuftragsNrEmpfaenger._TimeOnly = False + Me.txtKdAuftragsNrEmpfaenger._TimeOnly_Seconds = False + Me.txtKdAuftragsNrEmpfaenger._value = Nothing + Me.txtKdAuftragsNrEmpfaenger._Waehrung = False + Me.txtKdAuftragsNrEmpfaenger._WaehrungZeichen = True + Me.txtKdAuftragsNrEmpfaenger.ForeColor = System.Drawing.Color.Black + Me.txtKdAuftragsNrEmpfaenger.Location = New System.Drawing.Point(410, 94) + Me.txtKdAuftragsNrEmpfaenger.MaxLength = 50 + Me.txtKdAuftragsNrEmpfaenger.MaxLineLength = -1 + Me.txtKdAuftragsNrEmpfaenger.MaxLines_Warning = "" + Me.txtKdAuftragsNrEmpfaenger.MaxLines_Warning_Label = Nothing + Me.txtKdAuftragsNrEmpfaenger.Name = "txtKdAuftragsNrEmpfaenger" + Me.txtKdAuftragsNrEmpfaenger.Size = New System.Drawing.Size(90, 20) + Me.txtKdAuftragsNrEmpfaenger.TabIndex = 48 + ' + 'txtKdAuftragsNrAvisierer + ' + Me.txtKdAuftragsNrAvisierer._DateTimeOnly = False + Me.txtKdAuftragsNrAvisierer._numbersOnly = False + Me.txtKdAuftragsNrAvisierer._numbersOnlyKommastellen = "" + Me.txtKdAuftragsNrAvisierer._numbersOnlyTrennzeichen = True + Me.txtKdAuftragsNrAvisierer._Prozent = False + Me.txtKdAuftragsNrAvisierer._ShortDateNew = False + Me.txtKdAuftragsNrAvisierer._ShortDateOnly = False + Me.txtKdAuftragsNrAvisierer._TimeOnly = False + Me.txtKdAuftragsNrAvisierer._TimeOnly_Seconds = False + Me.txtKdAuftragsNrAvisierer._value = Nothing + Me.txtKdAuftragsNrAvisierer._Waehrung = False + Me.txtKdAuftragsNrAvisierer._WaehrungZeichen = True + Me.txtKdAuftragsNrAvisierer.BackColor = System.Drawing.Color.White + Me.txtKdAuftragsNrAvisierer.ContextMenuStrip = Me.cntxt + Me.txtKdAuftragsNrAvisierer.ForeColor = System.Drawing.Color.Black + Me.txtKdAuftragsNrAvisierer.Location = New System.Drawing.Point(410, 20) + Me.txtKdAuftragsNrAvisierer.MaxLength = 50 + Me.txtKdAuftragsNrAvisierer.MaxLineLength = -1 + Me.txtKdAuftragsNrAvisierer.MaxLines_Warning = "" + Me.txtKdAuftragsNrAvisierer.MaxLines_Warning_Label = Nothing + Me.txtKdAuftragsNrAvisierer.Name = "txtKdAuftragsNrAvisierer" + Me.txtKdAuftragsNrAvisierer.Size = New System.Drawing.Size(90, 20) + Me.txtKdAuftragsNrAvisierer.TabIndex = 16 + ' 'cntxt ' Me.cntxt.ImageScalingSize = New System.Drawing.Size(24, 24) @@ -2512,6 +3275,81 @@ Partial Class frmSendungsdetailsNEU Me.lblKdAtrNr.TabIndex = 2 Me.lblKdAtrNr.Text = "Kd-AuftragsNr.:" ' + 'FlatButton4 + ' + Me.FlatButton4.allowBorder = False + Me.FlatButton4.BackgroundImage = CType(resources.GetObject("FlatButton4.BackgroundImage"), System.Drawing.Image) + Me.FlatButton4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.FlatButton4.FlatAppearance.BorderSize = 0 + Me.FlatButton4.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton4.ForeColor = System.Drawing.Color.Black + Me.FlatButton4.Location = New System.Drawing.Point(365, 132) + Me.FlatButton4.Name = "FlatButton4" + Me.FlatButton4.Size = New System.Drawing.Size(22, 22) + Me.FlatButton4.TabIndex = 62 + Me.FlatButton4.TabStop = False + Me.FlatButton4.UseVisualStyleBackColor = True + ' + 'FlatButton1 + ' + Me.FlatButton1.allowBorder = False + Me.FlatButton1.BackgroundImage = CType(resources.GetObject("FlatButton1.BackgroundImage"), System.Drawing.Image) + Me.FlatButton1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.FlatButton1.FlatAppearance.BorderSize = 0 + Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton1.ForeColor = System.Drawing.Color.Black + Me.FlatButton1.Location = New System.Drawing.Point(365, 93) + Me.FlatButton1.Name = "FlatButton1" + Me.FlatButton1.Size = New System.Drawing.Size(22, 22) + Me.FlatButton1.TabIndex = 46 + Me.FlatButton1.TabStop = False + Me.FlatButton1.UseVisualStyleBackColor = True + ' + 'btnFrachtfuehrer + ' + Me.btnFrachtfuehrer.allowBorder = False + Me.btnFrachtfuehrer.BackgroundImage = Global.AVISO.My.Resources.Resources.personInaktiv + Me.btnFrachtfuehrer.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnFrachtfuehrer.FlatAppearance.BorderSize = 0 + Me.btnFrachtfuehrer.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnFrachtfuehrer.ForeColor = System.Drawing.Color.Black + Me.btnFrachtfuehrer.Location = New System.Drawing.Point(365, 167) + Me.btnFrachtfuehrer.Name = "btnFrachtfuehrer" + Me.btnFrachtfuehrer.Size = New System.Drawing.Size(22, 22) + Me.btnFrachtfuehrer.TabIndex = 76 + Me.btnFrachtfuehrer.TabStop = False + Me.btnFrachtfuehrer.UseVisualStyleBackColor = True + ' + 'FlatButton3 + ' + Me.FlatButton3.allowBorder = False + Me.FlatButton3.BackgroundImage = Global.AVISO.My.Resources.Resources.personInaktiv + Me.FlatButton3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.FlatButton3.FlatAppearance.BorderSize = 0 + Me.FlatButton3.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton3.ForeColor = System.Drawing.Color.Black + Me.FlatButton3.Location = New System.Drawing.Point(365, 56) + Me.FlatButton3.Name = "FlatButton3" + Me.FlatButton3.Size = New System.Drawing.Size(22, 22) + Me.FlatButton3.TabIndex = 29 + Me.FlatButton3.TabStop = False + Me.FlatButton3.UseVisualStyleBackColor = True + ' + 'btnAvisierer + ' + Me.btnAvisierer.allowBorder = False + Me.btnAvisierer.BackgroundImage = Global.AVISO.My.Resources.Resources.personInaktiv + Me.btnAvisierer.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnAvisierer.FlatAppearance.BorderSize = 0 + Me.btnAvisierer.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnAvisierer.ForeColor = System.Drawing.Color.Black + Me.btnAvisierer.Location = New System.Drawing.Point(365, 19) + Me.btnAvisierer.Name = "btnAvisierer" + Me.btnAvisierer.Size = New System.Drawing.Size(22, 22) + Me.btnAvisierer.TabIndex = 15 + Me.btnAvisierer.TabStop = False + Me.btnAvisierer.UseVisualStyleBackColor = True + ' 'Button4 ' Me.Button4.BackColor = System.Drawing.Color.Transparent @@ -2540,6 +3378,66 @@ Partial Class frmSendungsdetailsNEU Me.Button1.Text = "BAR - Beleg" Me.Button1.UseVisualStyleBackColor = False ' + 'cntlFrachtfuehrer_Sonst + ' + Me.cntlFrachtfuehrer_Sonst._abrArt = "SONST" + Me.cntlFrachtfuehrer_Sonst._beteiligter = "FRACHTF" + Me.cntlFrachtfuehrer_Sonst._readOnly = True + Me.cntlFrachtfuehrer_Sonst.Location = New System.Drawing.Point(632, 168) + Me.cntlFrachtfuehrer_Sonst.Name = "cntlFrachtfuehrer_Sonst" + Me.cntlFrachtfuehrer_Sonst.Size = New System.Drawing.Size(21, 20) + Me.cntlFrachtfuehrer_Sonst.TabIndex = 82 + Me.cntlFrachtfuehrer_Sonst.TabStop = False + Me.cntlFrachtfuehrer_Sonst.value = "" + ' + 'cntlAbsender_Sonst + ' + Me.cntlAbsender_Sonst._abrArt = "SONST" + Me.cntlAbsender_Sonst._beteiligter = "ABS" + Me.cntlAbsender_Sonst._readOnly = True + Me.cntlAbsender_Sonst.Location = New System.Drawing.Point(632, 133) + Me.cntlAbsender_Sonst.Name = "cntlAbsender_Sonst" + Me.cntlAbsender_Sonst.Size = New System.Drawing.Size(21, 20) + Me.cntlAbsender_Sonst.TabIndex = 68 + Me.cntlAbsender_Sonst.TabStop = False + Me.cntlAbsender_Sonst.value = "" + ' + 'cntlEmpfaenger_Sonst + ' + Me.cntlEmpfaenger_Sonst._abrArt = "SONST" + Me.cntlEmpfaenger_Sonst._beteiligter = "EMPF" + Me.cntlEmpfaenger_Sonst._readOnly = True + Me.cntlEmpfaenger_Sonst.Location = New System.Drawing.Point(632, 94) + Me.cntlEmpfaenger_Sonst.Name = "cntlEmpfaenger_Sonst" + Me.cntlEmpfaenger_Sonst.Size = New System.Drawing.Size(21, 20) + Me.cntlEmpfaenger_Sonst.TabIndex = 53 + Me.cntlEmpfaenger_Sonst.TabStop = False + Me.cntlEmpfaenger_Sonst.value = "" + ' + 'cntlAuftraggeber_Sonst + ' + Me.cntlAuftraggeber_Sonst._abrArt = "SONST" + Me.cntlAuftraggeber_Sonst._beteiligter = "AUFTR" + Me.cntlAuftraggeber_Sonst._readOnly = True + Me.cntlAuftraggeber_Sonst.Location = New System.Drawing.Point(632, 57) + Me.cntlAuftraggeber_Sonst.Name = "cntlAuftraggeber_Sonst" + Me.cntlAuftraggeber_Sonst.Size = New System.Drawing.Size(21, 20) + Me.cntlAuftraggeber_Sonst.TabIndex = 36 + Me.cntlAuftraggeber_Sonst.TabStop = False + Me.cntlAuftraggeber_Sonst.value = "" + ' + 'cntlAvisierer_Sonst + ' + Me.cntlAvisierer_Sonst._abrArt = "SONST" + Me.cntlAvisierer_Sonst._beteiligter = "AVISIERER" + Me.cntlAvisierer_Sonst._readOnly = True + Me.cntlAvisierer_Sonst.Location = New System.Drawing.Point(632, 20) + Me.cntlAvisierer_Sonst.Name = "cntlAvisierer_Sonst" + Me.cntlAvisierer_Sonst.Size = New System.Drawing.Size(21, 20) + Me.cntlAvisierer_Sonst.TabIndex = 21 + Me.cntlAvisierer_Sonst.TabStop = False + Me.cntlAvisierer_Sonst.value = "" + ' 'lblSonstigesKosten ' Me.lblSonstigesKosten.AutoSize = True @@ -2607,6 +3505,246 @@ Partial Class frmSendungsdetailsNEU Me.btnAufschub_VERAG.UseVisualStyleBackColor = False Me.btnAufschub_VERAG.Visible = False ' + 'cntlFrachtf_Clear + ' + Me.cntlFrachtf_Clear._abrArt = "CLEARING" + Me.cntlFrachtf_Clear._beteiligter = "FRACHTF" + Me.cntlFrachtf_Clear._readOnly = False + Me.cntlFrachtf_Clear.Location = New System.Drawing.Point(600, 168) + Me.cntlFrachtf_Clear.Name = "cntlFrachtf_Clear" + Me.cntlFrachtf_Clear.Size = New System.Drawing.Size(21, 20) + Me.cntlFrachtf_Clear.TabIndex = 81 + Me.cntlFrachtf_Clear.TabStop = False + Me.cntlFrachtf_Clear.value = "" + ' + 'cntlFrachtf_Abf + ' + Me.cntlFrachtf_Abf._abrArt = "ABFKOST" + Me.cntlFrachtf_Abf._beteiligter = "FRACHTF" + Me.cntlFrachtf_Abf._readOnly = False + Me.cntlFrachtf_Abf.Location = New System.Drawing.Point(569, 168) + Me.cntlFrachtf_Abf.Name = "cntlFrachtf_Abf" + Me.cntlFrachtf_Abf.Size = New System.Drawing.Size(21, 20) + Me.cntlFrachtf_Abf.TabIndex = 80 + Me.cntlFrachtf_Abf.TabStop = False + Me.cntlFrachtf_Abf.value = "" + ' + 'cntlFrachtf_Eust + ' + Me.cntlFrachtf_Eust._abrArt = "EUST" + Me.cntlFrachtf_Eust._beteiligter = "FRACHTF" + Me.cntlFrachtf_Eust._readOnly = False + Me.cntlFrachtf_Eust.Location = New System.Drawing.Point(538, 168) + Me.cntlFrachtf_Eust.Name = "cntlFrachtf_Eust" + Me.cntlFrachtf_Eust.Size = New System.Drawing.Size(21, 20) + Me.cntlFrachtf_Eust.TabIndex = 79 + Me.cntlFrachtf_Eust.TabStop = False + Me.cntlFrachtf_Eust.value = "" + ' + 'cntlFrachtf_Zoll + ' + Me.cntlFrachtf_Zoll._abrArt = "ZOLL" + Me.cntlFrachtf_Zoll._beteiligter = "FRACHTF" + Me.cntlFrachtf_Zoll._readOnly = False + Me.cntlFrachtf_Zoll.Location = New System.Drawing.Point(507, 168) + Me.cntlFrachtf_Zoll.Name = "cntlFrachtf_Zoll" + Me.cntlFrachtf_Zoll.Size = New System.Drawing.Size(21, 20) + Me.cntlFrachtf_Zoll.TabIndex = 78 + Me.cntlFrachtf_Zoll.TabStop = False + Me.cntlFrachtf_Zoll.value = "" + ' + 'cntlAbsender_Clear + ' + Me.cntlAbsender_Clear._abrArt = "CLEARING" + Me.cntlAbsender_Clear._beteiligter = "ABS" + Me.cntlAbsender_Clear._readOnly = False + Me.cntlAbsender_Clear.Location = New System.Drawing.Point(600, 133) + Me.cntlAbsender_Clear.Name = "cntlAbsender_Clear" + Me.cntlAbsender_Clear.Size = New System.Drawing.Size(21, 20) + Me.cntlAbsender_Clear.TabIndex = 67 + Me.cntlAbsender_Clear.TabStop = False + Me.cntlAbsender_Clear.value = "" + ' + 'cntlAbsender_Abf + ' + Me.cntlAbsender_Abf._abrArt = "ABFKOST" + Me.cntlAbsender_Abf._beteiligter = "ABS" + Me.cntlAbsender_Abf._readOnly = False + Me.cntlAbsender_Abf.Location = New System.Drawing.Point(569, 133) + Me.cntlAbsender_Abf.Name = "cntlAbsender_Abf" + Me.cntlAbsender_Abf.Size = New System.Drawing.Size(21, 20) + Me.cntlAbsender_Abf.TabIndex = 66 + Me.cntlAbsender_Abf.TabStop = False + Me.cntlAbsender_Abf.value = "" + ' + 'cntlAbsender_Eust + ' + Me.cntlAbsender_Eust._abrArt = "EUST" + Me.cntlAbsender_Eust._beteiligter = "ABS" + Me.cntlAbsender_Eust._readOnly = False + Me.cntlAbsender_Eust.Location = New System.Drawing.Point(538, 133) + Me.cntlAbsender_Eust.Name = "cntlAbsender_Eust" + Me.cntlAbsender_Eust.Size = New System.Drawing.Size(21, 20) + Me.cntlAbsender_Eust.TabIndex = 65 + Me.cntlAbsender_Eust.TabStop = False + Me.cntlAbsender_Eust.value = "" + ' + 'cntlAbsender_Zoll + ' + Me.cntlAbsender_Zoll._abrArt = "ZOLL" + Me.cntlAbsender_Zoll._beteiligter = "ABS" + Me.cntlAbsender_Zoll._readOnly = False + Me.cntlAbsender_Zoll.Location = New System.Drawing.Point(507, 133) + Me.cntlAbsender_Zoll.Name = "cntlAbsender_Zoll" + Me.cntlAbsender_Zoll.Size = New System.Drawing.Size(21, 20) + Me.cntlAbsender_Zoll.TabIndex = 64 + Me.cntlAbsender_Zoll.TabStop = False + Me.cntlAbsender_Zoll.value = "" + ' + 'cntlEmpf_Clear + ' + Me.cntlEmpf_Clear._abrArt = "CLEARING" + Me.cntlEmpf_Clear._beteiligter = "EMPF" + Me.cntlEmpf_Clear._readOnly = False + Me.cntlEmpf_Clear.Location = New System.Drawing.Point(600, 94) + Me.cntlEmpf_Clear.Name = "cntlEmpf_Clear" + Me.cntlEmpf_Clear.Size = New System.Drawing.Size(21, 20) + Me.cntlEmpf_Clear.TabIndex = 52 + Me.cntlEmpf_Clear.TabStop = False + Me.cntlEmpf_Clear.value = "" + ' + 'cntlEmpf_Abf + ' + Me.cntlEmpf_Abf._abrArt = "ABFKOST" + Me.cntlEmpf_Abf._beteiligter = "EMPF" + Me.cntlEmpf_Abf._readOnly = False + Me.cntlEmpf_Abf.Location = New System.Drawing.Point(569, 94) + Me.cntlEmpf_Abf.Name = "cntlEmpf_Abf" + Me.cntlEmpf_Abf.Size = New System.Drawing.Size(21, 20) + Me.cntlEmpf_Abf.TabIndex = 51 + Me.cntlEmpf_Abf.TabStop = False + Me.cntlEmpf_Abf.value = "" + ' + 'cntlEmpf_Eust + ' + Me.cntlEmpf_Eust._abrArt = "EUST" + Me.cntlEmpf_Eust._beteiligter = "EMPF" + Me.cntlEmpf_Eust._readOnly = False + Me.cntlEmpf_Eust.Location = New System.Drawing.Point(538, 94) + Me.cntlEmpf_Eust.Name = "cntlEmpf_Eust" + Me.cntlEmpf_Eust.Size = New System.Drawing.Size(21, 20) + Me.cntlEmpf_Eust.TabIndex = 50 + Me.cntlEmpf_Eust.TabStop = False + Me.cntlEmpf_Eust.value = "" + ' + 'cntlEmpf_Zoll + ' + Me.cntlEmpf_Zoll._abrArt = "ZOLL" + Me.cntlEmpf_Zoll._beteiligter = "EMPF" + Me.cntlEmpf_Zoll._readOnly = False + Me.cntlEmpf_Zoll.Location = New System.Drawing.Point(507, 94) + Me.cntlEmpf_Zoll.Name = "cntlEmpf_Zoll" + Me.cntlEmpf_Zoll.Size = New System.Drawing.Size(21, 20) + Me.cntlEmpf_Zoll.TabIndex = 49 + Me.cntlEmpf_Zoll.TabStop = False + Me.cntlEmpf_Zoll.value = "" + ' + 'cntlAuftr_Clear + ' + Me.cntlAuftr_Clear._abrArt = "CLEARING" + Me.cntlAuftr_Clear._beteiligter = "AUFTR" + Me.cntlAuftr_Clear._readOnly = False + Me.cntlAuftr_Clear.Location = New System.Drawing.Point(600, 57) + Me.cntlAuftr_Clear.Name = "cntlAuftr_Clear" + Me.cntlAuftr_Clear.Size = New System.Drawing.Size(21, 20) + Me.cntlAuftr_Clear.TabIndex = 35 + Me.cntlAuftr_Clear.TabStop = False + Me.cntlAuftr_Clear.value = "" + ' + 'cntlAuftr_Abf + ' + Me.cntlAuftr_Abf._abrArt = "ABFKOST" + Me.cntlAuftr_Abf._beteiligter = "AUFTR" + Me.cntlAuftr_Abf._readOnly = False + Me.cntlAuftr_Abf.Location = New System.Drawing.Point(569, 57) + Me.cntlAuftr_Abf.Name = "cntlAuftr_Abf" + Me.cntlAuftr_Abf.Size = New System.Drawing.Size(21, 20) + Me.cntlAuftr_Abf.TabIndex = 34 + Me.cntlAuftr_Abf.TabStop = False + Me.cntlAuftr_Abf.value = "" + ' + 'cntlAuftr_Eust + ' + Me.cntlAuftr_Eust._abrArt = "EUST" + Me.cntlAuftr_Eust._beteiligter = "AUFTR" + Me.cntlAuftr_Eust._readOnly = False + Me.cntlAuftr_Eust.Location = New System.Drawing.Point(538, 57) + Me.cntlAuftr_Eust.Name = "cntlAuftr_Eust" + Me.cntlAuftr_Eust.Size = New System.Drawing.Size(21, 20) + Me.cntlAuftr_Eust.TabIndex = 33 + Me.cntlAuftr_Eust.TabStop = False + Me.cntlAuftr_Eust.value = "" + ' + 'cntlAuftr_Zoll + ' + Me.cntlAuftr_Zoll._abrArt = "ZOLL" + Me.cntlAuftr_Zoll._beteiligter = "AUFTR" + Me.cntlAuftr_Zoll._readOnly = False + Me.cntlAuftr_Zoll.Location = New System.Drawing.Point(507, 57) + Me.cntlAuftr_Zoll.Name = "cntlAuftr_Zoll" + Me.cntlAuftr_Zoll.Size = New System.Drawing.Size(21, 20) + Me.cntlAuftr_Zoll.TabIndex = 32 + Me.cntlAuftr_Zoll.TabStop = False + Me.cntlAuftr_Zoll.value = "" + ' + 'cntlAvisierer_Clear + ' + Me.cntlAvisierer_Clear._abrArt = "CLEARING" + Me.cntlAvisierer_Clear._beteiligter = "AVISIERER" + Me.cntlAvisierer_Clear._readOnly = False + Me.cntlAvisierer_Clear.Location = New System.Drawing.Point(600, 20) + Me.cntlAvisierer_Clear.Name = "cntlAvisierer_Clear" + Me.cntlAvisierer_Clear.Size = New System.Drawing.Size(21, 20) + Me.cntlAvisierer_Clear.TabIndex = 20 + Me.cntlAvisierer_Clear.TabStop = False + Me.cntlAvisierer_Clear.value = "" + ' + 'cntlAvisierer_Abf + ' + Me.cntlAvisierer_Abf._abrArt = "ABFKOST" + Me.cntlAvisierer_Abf._beteiligter = "AVISIERER" + Me.cntlAvisierer_Abf._readOnly = False + Me.cntlAvisierer_Abf.Location = New System.Drawing.Point(569, 20) + Me.cntlAvisierer_Abf.Name = "cntlAvisierer_Abf" + Me.cntlAvisierer_Abf.Size = New System.Drawing.Size(21, 20) + Me.cntlAvisierer_Abf.TabIndex = 19 + Me.cntlAvisierer_Abf.TabStop = False + Me.cntlAvisierer_Abf.value = "" + ' + 'cntlAvisierer_Eust + ' + Me.cntlAvisierer_Eust._abrArt = "EUST" + Me.cntlAvisierer_Eust._beteiligter = "AVISIERER" + Me.cntlAvisierer_Eust._readOnly = False + Me.cntlAvisierer_Eust.Location = New System.Drawing.Point(538, 20) + Me.cntlAvisierer_Eust.Name = "cntlAvisierer_Eust" + Me.cntlAvisierer_Eust.Size = New System.Drawing.Size(21, 20) + Me.cntlAvisierer_Eust.TabIndex = 18 + Me.cntlAvisierer_Eust.TabStop = False + Me.cntlAvisierer_Eust.value = "" + ' + 'cntlAvisierer_Zoll + ' + Me.cntlAvisierer_Zoll._abrArt = "ZOLL" + Me.cntlAvisierer_Zoll._beteiligter = "AVISIERER" + Me.cntlAvisierer_Zoll._readOnly = False + Me.cntlAvisierer_Zoll.Location = New System.Drawing.Point(507, 20) + Me.cntlAvisierer_Zoll.Name = "cntlAvisierer_Zoll" + Me.cntlAvisierer_Zoll.Size = New System.Drawing.Size(21, 20) + Me.cntlAvisierer_Zoll.TabIndex = 17 + Me.cntlAvisierer_Zoll.TabStop = False + Me.cntlAvisierer_Zoll.value = "" + ' 'Panel15 ' Me.Panel15.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) @@ -2616,6 +3754,67 @@ Partial Class frmSendungsdetailsNEU Me.Panel15.Size = New System.Drawing.Size(5, 325) Me.Panel15.TabIndex = 1 ' + 'txtAvisierer + ' + Me.txtAvisierer._AlleFirmenCLUSTER = False + Me.txtAvisierer._AllowSetValue = True + Me.txtAvisierer._autoSizeGross = True + Me.txtAvisierer._display_Name1 = False + Me.txtAvisierer._displayAVISO_Email = False + Me.txtAvisierer._displayFullName = False + Me.txtAvisierer._displayWoelflKd = False + Me.txtAvisierer._hideIfListEmpty = True + Me.txtAvisierer._loadKdData = True + Me.txtAvisierer._searchName1 = True + Me.txtAvisierer._UseFIRMA = "" + Me.txtAvisierer._ValueKdAndName = False + Me.txtAvisierer.BackColor = System.Drawing.SystemColors.Window + Me.txtAvisierer.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.txtAvisierer.dgvpos = "LEFT" + Me.txtAvisierer.KdName = Nothing + Me.txtAvisierer.KdNr = "-1" + Me.txtAvisierer.kdNrField = Nothing + Me.txtAvisierer.KdNrNullInt = Nothing + Me.txtAvisierer.Location = New System.Drawing.Point(120, 20) + Me.txtAvisierer.MaxLength = 50 + Me.txtAvisierer.Name = "txtAvisierer" + Me.txtAvisierer.nurAktive = False + Me.txtAvisierer.searchActive = True + Me.txtAvisierer.Size = New System.Drawing.Size(245, 20) + Me.txtAvisierer.TabIndex = 14 + Me.txtAvisierer.TIMER_SEARCH = True + Me.txtAvisierer.usrcntl = Nothing + ' + 'txtAuftraggeber + ' + Me.txtAuftraggeber._AlleFirmenCLUSTER = False + Me.txtAuftraggeber._AllowSetValue = True + Me.txtAuftraggeber._autoSizeGross = True + Me.txtAuftraggeber._display_Name1 = False + Me.txtAuftraggeber._displayAVISO_Email = False + Me.txtAuftraggeber._displayFullName = False + Me.txtAuftraggeber._displayWoelflKd = False + Me.txtAuftraggeber._hideIfListEmpty = True + Me.txtAuftraggeber._loadKdData = True + Me.txtAuftraggeber._searchName1 = True + Me.txtAuftraggeber._UseFIRMA = "" + Me.txtAuftraggeber._ValueKdAndName = False + Me.txtAuftraggeber.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.txtAuftraggeber.dgvpos = "LEFT" + Me.txtAuftraggeber.KdName = Nothing + Me.txtAuftraggeber.KdNr = "-1" + Me.txtAuftraggeber.kdNrField = Nothing + Me.txtAuftraggeber.KdNrNullInt = Nothing + Me.txtAuftraggeber.Location = New System.Drawing.Point(120, 57) + Me.txtAuftraggeber.MaxLength = 50 + Me.txtAuftraggeber.Name = "txtAuftraggeber" + Me.txtAuftraggeber.nurAktive = False + Me.txtAuftraggeber.searchActive = True + Me.txtAuftraggeber.Size = New System.Drawing.Size(245, 20) + Me.txtAuftraggeber.TabIndex = 28 + Me.txtAuftraggeber.TIMER_SEARCH = True + Me.txtAuftraggeber.usrcntl = Nothing + ' 'Panel13 ' Me.Panel13.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer)) @@ -2643,6 +3842,32 @@ Partial Class frmSendungsdetailsNEU Me.Panel10.Size = New System.Drawing.Size(710, 1) Me.Panel10.TabIndex = 39 ' + 'txtFrachtfuehrerKdNr + ' + Me.txtFrachtfuehrerKdNr._DateTimeOnly = False + Me.txtFrachtfuehrerKdNr._numbersOnly = False + Me.txtFrachtfuehrerKdNr._numbersOnlyKommastellen = "" + Me.txtFrachtfuehrerKdNr._numbersOnlyTrennzeichen = True + Me.txtFrachtfuehrerKdNr._Prozent = False + Me.txtFrachtfuehrerKdNr._ShortDateNew = False + Me.txtFrachtfuehrerKdNr._ShortDateOnly = False + Me.txtFrachtfuehrerKdNr._TimeOnly = False + Me.txtFrachtfuehrerKdNr._TimeOnly_Seconds = False + Me.txtFrachtfuehrerKdNr._value = Nothing + Me.txtFrachtfuehrerKdNr._Waehrung = False + Me.txtFrachtfuehrerKdNr._WaehrungZeichen = True + Me.txtFrachtfuehrerKdNr.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.txtFrachtfuehrerKdNr.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtFrachtfuehrerKdNr.Location = New System.Drawing.Point(121, 155) + Me.txtFrachtfuehrerKdNr.MaxLineLength = -1 + Me.txtFrachtfuehrerKdNr.MaxLines_Warning = "" + Me.txtFrachtfuehrerKdNr.MaxLines_Warning_Label = Nothing + Me.txtFrachtfuehrerKdNr.Name = "txtFrachtfuehrerKdNr" + Me.txtFrachtfuehrerKdNr.ReadOnly = True + Me.txtFrachtfuehrerKdNr.Size = New System.Drawing.Size(101, 13) + Me.txtFrachtfuehrerKdNr.TabIndex = 70 + Me.txtFrachtfuehrerKdNr.TabStop = False + ' 'Panel8 ' Me.Panel8.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer)) @@ -2662,6 +3887,35 @@ Partial Class frmSendungsdetailsNEU Me.lblEmpfAufschubEustTxt.TabIndex = 8 Me.lblEmpfAufschubEustTxt.Text = "Aufschub:" ' + 'lblEmpfAufschubEust + ' + Me.lblEmpfAufschubEust._DateTimeOnly = False + Me.lblEmpfAufschubEust._numbersOnly = False + Me.lblEmpfAufschubEust._numbersOnlyKommastellen = "" + Me.lblEmpfAufschubEust._numbersOnlyTrennzeichen = True + Me.lblEmpfAufschubEust._Prozent = False + Me.lblEmpfAufschubEust._ShortDateNew = False + Me.lblEmpfAufschubEust._ShortDateOnly = False + Me.lblEmpfAufschubEust._TimeOnly = False + Me.lblEmpfAufschubEust._TimeOnly_Seconds = False + Me.lblEmpfAufschubEust._value = Nothing + Me.lblEmpfAufschubEust._Waehrung = False + Me.lblEmpfAufschubEust._WaehrungZeichen = True + Me.lblEmpfAufschubEust.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.lblEmpfAufschubEust.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lblEmpfAufschubEust.ForeColor = System.Drawing.Color.Black + Me.lblEmpfAufschubEust.Location = New System.Drawing.Point(631, 98) + Me.lblEmpfAufschubEust.MaxLineLength = -1 + Me.lblEmpfAufschubEust.MaxLines_Warning = "" + Me.lblEmpfAufschubEust.MaxLines_Warning_Label = Nothing + Me.lblEmpfAufschubEust.Name = "lblEmpfAufschubEust" + Me.lblEmpfAufschubEust.ReadOnly = True + Me.lblEmpfAufschubEust.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.lblEmpfAufschubEust.Size = New System.Drawing.Size(69, 13) + Me.lblEmpfAufschubEust.TabIndex = 55 + Me.lblEmpfAufschubEust.TabStop = False + Me.lblEmpfAufschubEust.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' 'lblFrachtfuehrer ' Me.lblFrachtfuehrer.AutoSize = True @@ -2681,6 +3935,14 @@ Partial Class frmSendungsdetailsNEU Me.pnlT1.Size = New System.Drawing.Size(549, 118) Me.pnlT1.TabIndex = 86 ' + 'UsrCntlSND_NCTSGestellungsadresse1 + ' + Me.UsrCntlSND_NCTSGestellungsadresse1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlSND_NCTSGestellungsadresse1.Location = New System.Drawing.Point(0, 0) + Me.UsrCntlSND_NCTSGestellungsadresse1.Name = "UsrCntlSND_NCTSGestellungsadresse1" + Me.UsrCntlSND_NCTSGestellungsadresse1.Size = New System.Drawing.Size(549, 118) + Me.UsrCntlSND_NCTSGestellungsadresse1.TabIndex = 0 + ' 'Label43 ' Me.Label43.AutoSize = True @@ -2704,6 +3966,32 @@ Partial Class frmSendungsdetailsNEU Me.lblAbsender.Text = "Absender" Me.lblAbsender.TextAlign = System.Drawing.ContentAlignment.TopRight ' + 'txtAbsenderKdNr + ' + Me.txtAbsenderKdNr._DateTimeOnly = False + Me.txtAbsenderKdNr._numbersOnly = False + Me.txtAbsenderKdNr._numbersOnlyKommastellen = "" + Me.txtAbsenderKdNr._numbersOnlyTrennzeichen = True + Me.txtAbsenderKdNr._Prozent = False + Me.txtAbsenderKdNr._ShortDateNew = False + Me.txtAbsenderKdNr._ShortDateOnly = False + Me.txtAbsenderKdNr._TimeOnly = False + Me.txtAbsenderKdNr._TimeOnly_Seconds = False + Me.txtAbsenderKdNr._value = Nothing + Me.txtAbsenderKdNr._Waehrung = False + Me.txtAbsenderKdNr._WaehrungZeichen = True + Me.txtAbsenderKdNr.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.txtAbsenderKdNr.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtAbsenderKdNr.Location = New System.Drawing.Point(121, 119) + Me.txtAbsenderKdNr.MaxLineLength = -1 + Me.txtAbsenderKdNr.MaxLines_Warning = "" + Me.txtAbsenderKdNr.MaxLines_Warning_Label = Nothing + Me.txtAbsenderKdNr.Name = "txtAbsenderKdNr" + Me.txtAbsenderKdNr.ReadOnly = True + Me.txtAbsenderKdNr.Size = New System.Drawing.Size(101, 13) + Me.txtAbsenderKdNr.TabIndex = 57 + Me.txtAbsenderKdNr.TabStop = False + ' 'Label41 ' Me.Label41.AutoSize = True @@ -2716,6 +4004,33 @@ Partial Class frmSendungsdetailsNEU Me.Label41.Text = "4" Me.Label41.TextAlign = System.Drawing.ContentAlignment.TopRight ' + 'MyTextBox1 + ' + Me.MyTextBox1._DateTimeOnly = False + Me.MyTextBox1._numbersOnly = False + Me.MyTextBox1._numbersOnlyKommastellen = "" + Me.MyTextBox1._numbersOnlyTrennzeichen = True + Me.MyTextBox1._Prozent = False + Me.MyTextBox1._ShortDateNew = False + Me.MyTextBox1._ShortDateOnly = False + Me.MyTextBox1._TimeOnly = False + Me.MyTextBox1._TimeOnly_Seconds = False + Me.MyTextBox1._value = Nothing + Me.MyTextBox1._Waehrung = False + Me.MyTextBox1._WaehrungZeichen = True + Me.MyTextBox1.BackColor = System.Drawing.Color.Gainsboro + Me.MyTextBox1.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.MyTextBox1.Location = New System.Drawing.Point(121, 18) + Me.MyTextBox1.MaxLineLength = -1 + Me.MyTextBox1.MaxLines_Warning = "" + Me.MyTextBox1.MaxLines_Warning_Label = Nothing + Me.MyTextBox1.Name = "MyTextBox1" + Me.MyTextBox1.ReadOnly = True + Me.MyTextBox1.Size = New System.Drawing.Size(100, 13) + Me.MyTextBox1.TabIndex = 11 + Me.MyTextBox1.TabStop = False + Me.MyTextBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' 'lblEmpfaenger ' Me.lblEmpfaenger.AutoSize = True @@ -2739,6 +4054,91 @@ Partial Class frmSendungsdetailsNEU Me.Label39.Text = "3" Me.Label39.TextAlign = System.Drawing.ContentAlignment.TopRight ' + 'txtEmpfaengerKdNr + ' + Me.txtEmpfaengerKdNr._DateTimeOnly = False + Me.txtEmpfaengerKdNr._numbersOnly = False + Me.txtEmpfaengerKdNr._numbersOnlyKommastellen = "" + Me.txtEmpfaengerKdNr._numbersOnlyTrennzeichen = True + Me.txtEmpfaengerKdNr._Prozent = False + Me.txtEmpfaengerKdNr._ShortDateNew = False + Me.txtEmpfaengerKdNr._ShortDateOnly = False + Me.txtEmpfaengerKdNr._TimeOnly = False + Me.txtEmpfaengerKdNr._TimeOnly_Seconds = False + Me.txtEmpfaengerKdNr._value = Nothing + Me.txtEmpfaengerKdNr._Waehrung = False + Me.txtEmpfaengerKdNr._WaehrungZeichen = True + Me.txtEmpfaengerKdNr.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.txtEmpfaengerKdNr.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtEmpfaengerKdNr.Location = New System.Drawing.Point(121, 81) + Me.txtEmpfaengerKdNr.MaxLineLength = -1 + Me.txtEmpfaengerKdNr.MaxLines_Warning = "" + Me.txtEmpfaengerKdNr.MaxLines_Warning_Label = Nothing + Me.txtEmpfaengerKdNr.Name = "txtEmpfaengerKdNr" + Me.txtEmpfaengerKdNr.ReadOnly = True + Me.txtEmpfaengerKdNr.Size = New System.Drawing.Size(99, 13) + Me.txtEmpfaengerKdNr.TabIndex = 41 + Me.txtEmpfaengerKdNr.TabStop = False + ' + 'txtAbsender + ' + Me.txtAbsender._AlleFirmenCLUSTER = False + Me.txtAbsender._AllowSetValue = True + Me.txtAbsender._autoSizeGross = True + Me.txtAbsender._display_Name1 = False + Me.txtAbsender._displayAVISO_Email = False + Me.txtAbsender._displayFullName = False + Me.txtAbsender._displayWoelflKd = False + Me.txtAbsender._hideIfListEmpty = True + Me.txtAbsender._loadKdData = True + Me.txtAbsender._searchName1 = True + Me.txtAbsender._UseFIRMA = "" + Me.txtAbsender._ValueKdAndName = False + Me.txtAbsender.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.txtAbsender.dgvpos = "LEFT" + Me.txtAbsender.KdName = Nothing + Me.txtAbsender.KdNr = "-1" + Me.txtAbsender.kdNrField = Nothing + Me.txtAbsender.KdNrNullInt = Nothing + Me.txtAbsender.Location = New System.Drawing.Point(120, 133) + Me.txtAbsender.MaxLength = 50 + Me.txtAbsender.Name = "txtAbsender" + Me.txtAbsender.nurAktive = False + Me.txtAbsender.searchActive = True + Me.txtAbsender.Size = New System.Drawing.Size(245, 20) + Me.txtAbsender.TabIndex = 61 + Me.txtAbsender.TIMER_SEARCH = True + Me.txtAbsender.usrcntl = Nothing + ' + 'txtEmpfaenger + ' + Me.txtEmpfaenger._AlleFirmenCLUSTER = False + Me.txtEmpfaenger._AllowSetValue = True + Me.txtEmpfaenger._autoSizeGross = True + Me.txtEmpfaenger._display_Name1 = False + Me.txtEmpfaenger._displayAVISO_Email = False + Me.txtEmpfaenger._displayFullName = False + Me.txtEmpfaenger._displayWoelflKd = False + Me.txtEmpfaenger._hideIfListEmpty = True + Me.txtEmpfaenger._loadKdData = True + Me.txtEmpfaenger._searchName1 = True + Me.txtEmpfaenger._UseFIRMA = "" + Me.txtEmpfaenger._ValueKdAndName = False + Me.txtEmpfaenger.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.txtEmpfaenger.dgvpos = "LEFT" + Me.txtEmpfaenger.KdName = Nothing + Me.txtEmpfaenger.KdNr = "-1" + Me.txtEmpfaenger.kdNrField = Nothing + Me.txtEmpfaenger.KdNrNullInt = Nothing + Me.txtEmpfaenger.Location = New System.Drawing.Point(120, 94) + Me.txtEmpfaenger.Name = "txtEmpfaenger" + Me.txtEmpfaenger.nurAktive = False + Me.txtEmpfaenger.searchActive = True + Me.txtEmpfaenger.Size = New System.Drawing.Size(245, 20) + Me.txtEmpfaenger.TabIndex = 45 + Me.txtEmpfaenger.TIMER_SEARCH = True + Me.txtEmpfaenger.usrcntl = Nothing + ' 'lblAuftraggeber ' Me.lblAuftraggeber.AutoSize = True @@ -2762,6 +4162,35 @@ Partial Class frmSendungsdetailsNEU Me.Label37.Text = "2" Me.Label37.TextAlign = System.Drawing.ContentAlignment.TopRight ' + 'lblAtrAufschubEust + ' + Me.lblAtrAufschubEust._DateTimeOnly = False + Me.lblAtrAufschubEust._numbersOnly = False + Me.lblAtrAufschubEust._numbersOnlyKommastellen = "" + Me.lblAtrAufschubEust._numbersOnlyTrennzeichen = True + Me.lblAtrAufschubEust._Prozent = False + Me.lblAtrAufschubEust._ShortDateNew = False + Me.lblAtrAufschubEust._ShortDateOnly = False + Me.lblAtrAufschubEust._TimeOnly = False + Me.lblAtrAufschubEust._TimeOnly_Seconds = False + Me.lblAtrAufschubEust._value = Nothing + Me.lblAtrAufschubEust._Waehrung = False + Me.lblAtrAufschubEust._WaehrungZeichen = True + Me.lblAtrAufschubEust.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.lblAtrAufschubEust.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lblAtrAufschubEust.ForeColor = System.Drawing.Color.Black + Me.lblAtrAufschubEust.Location = New System.Drawing.Point(631, 60) + Me.lblAtrAufschubEust.MaxLineLength = -1 + Me.lblAtrAufschubEust.MaxLines_Warning = "" + Me.lblAtrAufschubEust.MaxLines_Warning_Label = Nothing + Me.lblAtrAufschubEust.Name = "lblAtrAufschubEust" + Me.lblAtrAufschubEust.ReadOnly = True + Me.lblAtrAufschubEust.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.lblAtrAufschubEust.Size = New System.Drawing.Size(69, 13) + Me.lblAtrAufschubEust.TabIndex = 38 + Me.lblAtrAufschubEust.TabStop = False + Me.lblAtrAufschubEust.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' 'lblAvisierer ' Me.lblAvisierer.AutoSize = True @@ -2793,6 +4222,32 @@ Partial Class frmSendungsdetailsNEU Me.lblAbfertigungskost.TabIndex = 5 Me.lblAbfertigungskost.Text = "ABF." ' + 'txtAuftraggeberKdNr + ' + Me.txtAuftraggeberKdNr._DateTimeOnly = False + Me.txtAuftraggeberKdNr._numbersOnly = False + Me.txtAuftraggeberKdNr._numbersOnlyKommastellen = "" + Me.txtAuftraggeberKdNr._numbersOnlyTrennzeichen = True + Me.txtAuftraggeberKdNr._Prozent = False + Me.txtAuftraggeberKdNr._ShortDateNew = False + Me.txtAuftraggeberKdNr._ShortDateOnly = False + Me.txtAuftraggeberKdNr._TimeOnly = False + Me.txtAuftraggeberKdNr._TimeOnly_Seconds = False + Me.txtAuftraggeberKdNr._value = Nothing + Me.txtAuftraggeberKdNr._Waehrung = False + Me.txtAuftraggeberKdNr._WaehrungZeichen = True + Me.txtAuftraggeberKdNr.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.txtAuftraggeberKdNr.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtAuftraggeberKdNr.Location = New System.Drawing.Point(121, 44) + Me.txtAuftraggeberKdNr.MaxLineLength = -1 + Me.txtAuftraggeberKdNr.MaxLines_Warning = "" + Me.txtAuftraggeberKdNr.MaxLines_Warning_Label = Nothing + Me.txtAuftraggeberKdNr.Name = "txtAuftraggeberKdNr" + Me.txtAuftraggeberKdNr.ReadOnly = True + Me.txtAuftraggeberKdNr.Size = New System.Drawing.Size(100, 13) + Me.txtAuftraggeberKdNr.TabIndex = 23 + Me.txtAuftraggeberKdNr.TabStop = False + ' 'lblEUST ' Me.lblEUST.AutoSize = True @@ -2886,6 +4341,56 @@ Partial Class frmSendungsdetailsNEU Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Label8.Visible = False ' + 'txtAvisiererKdNr + ' + Me.txtAvisiererKdNr._DateTimeOnly = False + Me.txtAvisiererKdNr._numbersOnly = False + Me.txtAvisiererKdNr._numbersOnlyKommastellen = "" + Me.txtAvisiererKdNr._numbersOnlyTrennzeichen = True + Me.txtAvisiererKdNr._Prozent = False + Me.txtAvisiererKdNr._ShortDateNew = False + Me.txtAvisiererKdNr._ShortDateOnly = False + Me.txtAvisiererKdNr._TimeOnly = False + Me.txtAvisiererKdNr._TimeOnly_Seconds = False + Me.txtAvisiererKdNr._value = Nothing + Me.txtAvisiererKdNr._Waehrung = False + Me.txtAvisiererKdNr._WaehrungZeichen = True + Me.txtAvisiererKdNr.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.txtAvisiererKdNr.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtAvisiererKdNr.Location = New System.Drawing.Point(121, 5) + Me.txtAvisiererKdNr.MaxLineLength = -1 + Me.txtAvisiererKdNr.MaxLines_Warning = "" + Me.txtAvisiererKdNr.MaxLines_Warning_Label = Nothing + Me.txtAvisiererKdNr.Name = "txtAvisiererKdNr" + Me.txtAvisiererKdNr.ReadOnly = True + Me.txtAvisiererKdNr.Size = New System.Drawing.Size(100, 13) + Me.txtAvisiererKdNr.TabIndex = 9 + Me.txtAvisiererKdNr.TabStop = False + ' + 'txtKdAuftragsNr + ' + Me.txtKdAuftragsNr._DateTimeOnly = False + Me.txtKdAuftragsNr._numbersOnly = False + Me.txtKdAuftragsNr._numbersOnlyKommastellen = "" + Me.txtKdAuftragsNr._numbersOnlyTrennzeichen = True + Me.txtKdAuftragsNr._Prozent = False + Me.txtKdAuftragsNr._ShortDateNew = False + Me.txtKdAuftragsNr._ShortDateOnly = False + Me.txtKdAuftragsNr._TimeOnly = False + Me.txtKdAuftragsNr._TimeOnly_Seconds = False + Me.txtKdAuftragsNr._value = Nothing + Me.txtKdAuftragsNr._Waehrung = False + Me.txtKdAuftragsNr._WaehrungZeichen = True + Me.txtKdAuftragsNr.ForeColor = System.Drawing.Color.Black + Me.txtKdAuftragsNr.Location = New System.Drawing.Point(410, 57) + Me.txtKdAuftragsNr.MaxLength = 50 + Me.txtKdAuftragsNr.MaxLineLength = -1 + Me.txtKdAuftragsNr.MaxLines_Warning = "" + Me.txtKdAuftragsNr.MaxLines_Warning_Label = Nothing + Me.txtKdAuftragsNr.Name = "txtKdAuftragsNr" + Me.txtKdAuftragsNr.Size = New System.Drawing.Size(90, 20) + Me.txtKdAuftragsNr.TabIndex = 31 + ' 'LinkLabel4 ' Me.LinkLabel4.AutoSize = True @@ -2902,6 +4407,7 @@ Partial Class frmSendungsdetailsNEU ' Me.Panel5.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.Panel5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel5.Controls.Add(Me.lblAbfArtLand) Me.Panel5.Controls.Add(Me.pnlValidation) Me.Panel5.Controls.Add(Me.cboAbfertigungsLand) Me.Panel5.Controls.Add(Me.lblSNDChat_MsgCnt) @@ -2924,6 +4430,7 @@ Partial Class frmSendungsdetailsNEU Me.Panel5.Controls.Add(Me.lblUnterNr) Me.Panel5.Controls.Add(Me.cboFiliale) Me.Panel5.Controls.Add(Me.txtAbfertigungsnummer) + Me.Panel5.Controls.Add(Me.lblFilialeAbfNr) Me.Panel5.Dock = System.Windows.Forms.DockStyle.Top Me.Panel5.Location = New System.Drawing.Point(0, 0) Me.Panel5.Name = "Panel5" @@ -2943,6 +4450,22 @@ Partial Class frmSendungsdetailsNEU Me.pnlValidation.TabStop = True Me.pnlValidation.Visible = False ' + 'rtbValidierung + ' + Me.rtbValidierung.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.rtbValidierung.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.rtbValidierung.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.rtbValidierung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.rtbValidierung.Location = New System.Drawing.Point(0, 14) + Me.rtbValidierung.MaxLineLength = -1 + Me.rtbValidierung.MaxLines_Warning = "" + Me.rtbValidierung.MaxLines_Warning_Label = Nothing + Me.rtbValidierung.Name = "rtbValidierung" + Me.rtbValidierung.Size = New System.Drawing.Size(217, 51) + Me.rtbValidierung.TabIndex = 3 + Me.rtbValidierung.Text = "" + ' 'Label15 ' Me.Label15.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ @@ -2955,6 +4478,21 @@ Partial Class frmSendungsdetailsNEU Me.Label15.TabIndex = 2 Me.Label15.Text = "Validierungsfehler:" ' + 'cboAbfertigungsLand + ' + Me.cboAbfertigungsLand._allowedValuesFreiText = Nothing + Me.cboAbfertigungsLand._allowFreiText = False + Me.cboAbfertigungsLand._value = "" + Me.cboAbfertigungsLand.BackColor = System.Drawing.Color.White + Me.cboAbfertigungsLand.DropDownWidth = 80 + Me.cboAbfertigungsLand.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cboAbfertigungsLand.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboAbfertigungsLand.FormattingEnabled = True + Me.cboAbfertigungsLand.Location = New System.Drawing.Point(427, 27) + Me.cboAbfertigungsLand.Name = "cboAbfertigungsLand" + Me.cboAbfertigungsLand.Size = New System.Drawing.Size(50, 24) + Me.cboAbfertigungsLand.TabIndex = 12 + ' 'lblSNDChat_MsgCnt ' Me.lblSNDChat_MsgCnt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) @@ -2982,6 +4520,31 @@ Partial Class frmSendungsdetailsNEU Me.picAVISOMessengerSNDChat.TabStop = False Me.picAVISOMessengerSNDChat.Visible = False ' + 'txtAnzahlPos + ' + Me.txtAnzahlPos._DateTimeOnly = False + Me.txtAnzahlPos._numbersOnly = True + Me.txtAnzahlPos._numbersOnlyKommastellen = "" + Me.txtAnzahlPos._numbersOnlyTrennzeichen = True + Me.txtAnzahlPos._Prozent = False + Me.txtAnzahlPos._ShortDateNew = False + Me.txtAnzahlPos._ShortDateOnly = False + Me.txtAnzahlPos._TimeOnly = False + Me.txtAnzahlPos._TimeOnly_Seconds = False + Me.txtAnzahlPos._value = "" + Me.txtAnzahlPos._Waehrung = False + Me.txtAnzahlPos._WaehrungZeichen = True + Me.txtAnzahlPos.Font = New System.Drawing.Font("Microsoft Tai Le", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtAnzahlPos.Location = New System.Drawing.Point(756, 27) + Me.txtAnzahlPos.MaxLength = 3 + Me.txtAnzahlPos.MaxLineLength = -1 + Me.txtAnzahlPos.MaxLines_Warning = "" + Me.txtAnzahlPos.MaxLines_Warning_Label = Nothing + Me.txtAnzahlPos.Name = "txtAnzahlPos" + Me.txtAnzahlPos.Size = New System.Drawing.Size(41, 24) + Me.txtAnzahlPos.TabIndex = 14 + Me.txtAnzahlPos.Visible = False + ' 'Label4 ' Me.Label4.AutoSize = True @@ -3085,6 +4648,20 @@ Partial Class frmSendungsdetailsNEU Me.Label3.Text = "Sendung Pos." Me.Label3.TextAlign = System.Drawing.ContentAlignment.TopCenter ' + 'cboAbfertigungsart + ' + Me.cboAbfertigungsart._allowedValuesFreiText = Nothing + Me.cboAbfertigungsart._allowFreiText = False + Me.cboAbfertigungsart._value = "" + Me.cboAbfertigungsart.BackColor = System.Drawing.Color.White + Me.cboAbfertigungsart.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cboAbfertigungsart.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboAbfertigungsart.FormattingEnabled = True + Me.cboAbfertigungsart.Location = New System.Drawing.Point(477, 27) + Me.cboAbfertigungsart.Name = "cboAbfertigungsart" + Me.cboAbfertigungsart.Size = New System.Drawing.Size(213, 24) + Me.cboAbfertigungsart.TabIndex = 12 + ' 'lblAbfertigungsart ' Me.lblAbfertigungsart.AutoSize = True @@ -3120,6 +4697,65 @@ Partial Class frmSendungsdetailsNEU Me.Label9.TabIndex = 1 Me.Label9.Text = "Fremdspedition:" ' + 'txtFremdEmpfKdNR + ' + Me.txtFremdEmpfKdNR._DateTimeOnly = False + Me.txtFremdEmpfKdNR._numbersOnly = False + Me.txtFremdEmpfKdNR._numbersOnlyKommastellen = "" + Me.txtFremdEmpfKdNR._numbersOnlyTrennzeichen = True + Me.txtFremdEmpfKdNR._Prozent = False + Me.txtFremdEmpfKdNR._ShortDateNew = False + Me.txtFremdEmpfKdNR._ShortDateOnly = False + Me.txtFremdEmpfKdNR._TimeOnly = False + Me.txtFremdEmpfKdNR._TimeOnly_Seconds = False + Me.txtFremdEmpfKdNR._value = Nothing + Me.txtFremdEmpfKdNR._Waehrung = False + Me.txtFremdEmpfKdNR._WaehrungZeichen = True + Me.txtFremdEmpfKdNR.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.txtFremdEmpfKdNR.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtFremdEmpfKdNR.ForeColor = System.Drawing.Color.White + Me.txtFremdEmpfKdNR.Location = New System.Drawing.Point(307, 8) + Me.txtFremdEmpfKdNR.MaxLineLength = -1 + Me.txtFremdEmpfKdNR.MaxLines_Warning = "" + Me.txtFremdEmpfKdNR.MaxLines_Warning_Label = Nothing + Me.txtFremdEmpfKdNR.Name = "txtFremdEmpfKdNR" + Me.txtFremdEmpfKdNR.ReadOnly = True + Me.txtFremdEmpfKdNR.Size = New System.Drawing.Size(100, 13) + Me.txtFremdEmpfKdNR.TabIndex = 2 + Me.txtFremdEmpfKdNR.TabStop = False + Me.txtFremdEmpfKdNR.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'txtFremdEmpf + ' + Me.txtFremdEmpf._AlleFirmenCLUSTER = False + Me.txtFremdEmpf._AllowSetValue = True + Me.txtFremdEmpf._autoSizeGross = True + Me.txtFremdEmpf._display_Name1 = False + Me.txtFremdEmpf._displayAVISO_Email = False + Me.txtFremdEmpf._displayFullName = False + Me.txtFremdEmpf._displayWoelflKd = False + Me.txtFremdEmpf._hideIfListEmpty = True + Me.txtFremdEmpf._loadKdData = True + Me.txtFremdEmpf._searchName1 = True + Me.txtFremdEmpf._UseFIRMA = "" + Me.txtFremdEmpf._ValueKdAndName = False + Me.txtFremdEmpf.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.txtFremdEmpf.dgvpos = "LEFT" + Me.txtFremdEmpf.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.txtFremdEmpf.KdName = Nothing + Me.txtFremdEmpf.KdNr = "-1" + Me.txtFremdEmpf.kdNrField = Nothing + Me.txtFremdEmpf.KdNrNullInt = Nothing + Me.txtFremdEmpf.Location = New System.Drawing.Point(32, 21) + Me.txtFremdEmpf.MaxLength = 50 + Me.txtFremdEmpf.Name = "txtFremdEmpf" + Me.txtFremdEmpf.nurAktive = False + Me.txtFremdEmpf.searchActive = True + Me.txtFremdEmpf.Size = New System.Drawing.Size(175, 26) + Me.txtFremdEmpf.TabIndex = 3 + Me.txtFremdEmpf.TIMER_SEARCH = True + Me.txtFremdEmpf.usrcntl = Nothing + ' 'Label11 ' Me.Label11.AutoSize = True @@ -3131,6 +4767,43 @@ Partial Class frmSendungsdetailsNEU Me.Label11.TabIndex = 0 Me.Label11.Text = "Empfänger:" ' + 'cboFremdsped + ' + Me.cboFremdsped._allowedValuesFreiText = Nothing + Me.cboFremdsped._allowFreiText = True + Me.cboFremdsped._value = "" + Me.cboFremdsped.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.cboFremdsped.Location = New System.Drawing.Point(213, 20) + Me.cboFremdsped.Name = "cboFremdsped" + Me.cboFremdsped.Size = New System.Drawing.Size(194, 28) + Me.cboFremdsped.TabIndex = 4 + Me.cboFremdsped.Visible = False + ' + 'txtAnzahl + ' + Me.txtAnzahl._DateTimeOnly = False + Me.txtAnzahl._numbersOnly = True + Me.txtAnzahl._numbersOnlyKommastellen = "" + Me.txtAnzahl._numbersOnlyTrennzeichen = True + Me.txtAnzahl._Prozent = False + Me.txtAnzahl._ShortDateNew = False + Me.txtAnzahl._ShortDateOnly = False + Me.txtAnzahl._TimeOnly = False + Me.txtAnzahl._TimeOnly_Seconds = False + Me.txtAnzahl._value = "" + Me.txtAnzahl._Waehrung = False + Me.txtAnzahl._WaehrungZeichen = True + Me.txtAnzahl.Font = New System.Drawing.Font("Microsoft Tai Le", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtAnzahl.Location = New System.Drawing.Point(695, 27) + Me.txtAnzahl.MaxLength = 3 + Me.txtAnzahl.MaxLineLength = -1 + Me.txtAnzahl.MaxLines_Warning = "" + Me.txtAnzahl.MaxLines_Warning_Label = Nothing + Me.txtAnzahl.Name = "txtAnzahl" + Me.txtAnzahl.Size = New System.Drawing.Size(41, 24) + Me.txtAnzahl.TabIndex = 13 + Me.txtAnzahl.Visible = False + ' 'lblAnzahl ' Me.lblAnzahl.AutoSize = True @@ -3166,6 +4839,30 @@ Partial Class frmSendungsdetailsNEU Me.lblFiliale.TabIndex = 1 Me.lblFiliale.Text = "Filiale" ' + 'txtUnterNr + ' + Me.txtUnterNr._DateTimeOnly = False + Me.txtUnterNr._numbersOnly = False + Me.txtUnterNr._numbersOnlyKommastellen = "" + Me.txtUnterNr._numbersOnlyTrennzeichen = True + Me.txtUnterNr._Prozent = False + Me.txtUnterNr._ShortDateNew = False + Me.txtUnterNr._ShortDateOnly = False + Me.txtUnterNr._TimeOnly = False + Me.txtUnterNr._TimeOnly_Seconds = False + Me.txtUnterNr._value = Nothing + Me.txtUnterNr._Waehrung = False + Me.txtUnterNr._WaehrungZeichen = True + Me.txtUnterNr.Font = New System.Drawing.Font("Microsoft Tai Le", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtUnterNr.Location = New System.Drawing.Point(350, 27) + Me.txtUnterNr.MaxLineLength = -1 + Me.txtUnterNr.MaxLines_Warning = "" + Me.txtUnterNr.MaxLines_Warning_Label = Nothing + Me.txtUnterNr.Name = "txtUnterNr" + Me.txtUnterNr.Size = New System.Drawing.Size(39, 24) + Me.txtUnterNr.TabIndex = 11 + Me.txtUnterNr.Visible = False + ' 'lblAbfertigungsnummer ' Me.lblAbfertigungsnummer.AutoSize = True @@ -3189,6 +4886,42 @@ Partial Class frmSendungsdetailsNEU Me.lblUnterNr.Text = "UnterNr" Me.lblUnterNr.Visible = False ' + 'cboFiliale + ' + Me.cboFiliale._allowedValuesFreiText = Nothing + Me.cboFiliale._allowFreiText = False + Me.cboFiliale._value = "" + Me.cboFiliale.DropDownWidth = 280 + Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Tai Le", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboFiliale.FormattingEnabled = True + Me.cboFiliale.Location = New System.Drawing.Point(33, 27) + Me.cboFiliale.Name = "cboFiliale" + Me.cboFiliale.Size = New System.Drawing.Size(80, 24) + Me.cboFiliale.TabIndex = 8 + ' + 'txtAbfertigungsnummer + ' + Me.txtAbfertigungsnummer._DateTimeOnly = False + Me.txtAbfertigungsnummer._numbersOnly = False + Me.txtAbfertigungsnummer._numbersOnlyKommastellen = "" + Me.txtAbfertigungsnummer._numbersOnlyTrennzeichen = True + Me.txtAbfertigungsnummer._Prozent = False + Me.txtAbfertigungsnummer._ShortDateNew = False + Me.txtAbfertigungsnummer._ShortDateOnly = False + Me.txtAbfertigungsnummer._TimeOnly = False + Me.txtAbfertigungsnummer._TimeOnly_Seconds = False + Me.txtAbfertigungsnummer._value = Nothing + Me.txtAbfertigungsnummer._Waehrung = False + Me.txtAbfertigungsnummer._WaehrungZeichen = True + Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Tai Le", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(120, 27) + Me.txtAbfertigungsnummer.MaxLineLength = -1 + Me.txtAbfertigungsnummer.MaxLines_Warning = "" + Me.txtAbfertigungsnummer.MaxLines_Warning_Label = Nothing + Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer" + Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(224, 24) + Me.txtAbfertigungsnummer.TabIndex = 10 + ' 'Panel2 ' Me.Panel2.AutoSize = True @@ -3214,6 +4947,20 @@ Partial Class frmSendungsdetailsNEU Me.FlowLayoutPanel.Size = New System.Drawing.Size(1214, 55) Me.FlowLayoutPanel.TabIndex = 0 ' + 'FlatButton2 + ' + Me.FlatButton2.allowBorder = False + Me.FlatButton2.FlatAppearance.BorderSize = 0 + Me.FlatButton2.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton2.ForeColor = System.Drawing.Color.Black + Me.FlatButton2.Location = New System.Drawing.Point(2, 2) + Me.FlatButton2.Margin = New System.Windows.Forms.Padding(2) + Me.FlatButton2.Name = "FlatButton2" + Me.FlatButton2.Size = New System.Drawing.Size(90, 51) + Me.FlatButton2.TabIndex = 0 + Me.FlatButton2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.FlatButton2.UseVisualStyleBackColor = True + ' 'pnlheader ' Me.pnlheader.Controls.Add(Me.Label2) @@ -3289,6 +5036,30 @@ Partial Class frmSendungsdetailsNEU Me.Button24.TabIndex = 1 Me.Button24.UseVisualStyleBackColor = False ' + 'cboVorpapier3 + ' + Me.cboVorpapier3._allowedValuesFreiText = Nothing + Me.cboVorpapier3._allowFreiText = True + Me.cboVorpapier3._value = "" + Me.cboVorpapier3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.cboVorpapier3.FormattingEnabled = True + Me.cboVorpapier3.Location = New System.Drawing.Point(148, 62) + Me.cboVorpapier3.Name = "cboVorpapier3" + Me.cboVorpapier3.Size = New System.Drawing.Size(209, 24) + Me.cboVorpapier3.TabIndex = 12 + ' + 'cboVorpapier2 + ' + Me.cboVorpapier2._allowedValuesFreiText = Nothing + Me.cboVorpapier2._allowFreiText = True + Me.cboVorpapier2._value = "" + Me.cboVorpapier2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.cboVorpapier2.FormattingEnabled = True + Me.cboVorpapier2.Location = New System.Drawing.Point(148, 39) + Me.cboVorpapier2.Name = "cboVorpapier2" + Me.cboVorpapier2.Size = New System.Drawing.Size(209, 24) + Me.cboVorpapier2.TabIndex = 9 + ' 'txtVorpapier3Pos ' Me.txtVorpapier3Pos.Cursor = System.Windows.Forms.Cursors.IBeam @@ -3337,6 +5108,18 @@ Partial Class frmSendungsdetailsNEU Me.lblZuweisungVP.TabIndex = 0 Me.lblZuweisungVP.Text = "Zuweisung Vorpapier:" ' + 'cboVorpapier + ' + Me.cboVorpapier._allowedValuesFreiText = Nothing + Me.cboVorpapier._allowFreiText = True + Me.cboVorpapier._value = "" + Me.cboVorpapier.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.cboVorpapier.FormattingEnabled = True + Me.cboVorpapier.Location = New System.Drawing.Point(148, 16) + Me.cboVorpapier.Name = "cboVorpapier" + Me.cboVorpapier.Size = New System.Drawing.Size(209, 24) + Me.cboVorpapier.TabIndex = 6 + ' 'lblGrenze ' Me.lblGrenze.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold) @@ -3531,6 +5314,19 @@ Partial Class frmSendungsdetailsNEU Me.btnSpedBuch.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnSpedBuch.UseVisualStyleBackColor = True ' + 'cbxSpedBuch + ' + Me.cbxSpedBuch._value = "" + Me.cbxSpedBuch.AutoSize = True + Me.cbxSpedBuch.Checked_value = False + Me.cbxSpedBuch.CheckedValue = False + Me.cbxSpedBuch.Location = New System.Drawing.Point(6, 46) + Me.cbxSpedBuch.Name = "cbxSpedBuch" + Me.cbxSpedBuch.Size = New System.Drawing.Size(113, 17) + Me.cbxSpedBuch.TabIndex = 8 + Me.cbxSpedBuch.Text = "Eintrag vorhanden" + Me.cbxSpedBuch.UseVisualStyleBackColor = True + ' 'cntxtAnh ' Me.cntxtAnh.ImageScalingSize = New System.Drawing.Size(24, 24) @@ -4174,1795 +5970,41 @@ Partial Class frmSendungsdetailsNEU Me.DataGridViewTextBoxColumn5.ReadOnly = True Me.DataGridViewTextBoxColumn5.Width = 200 ' - 'dgvAnhang - ' - Me.dgvAnhang.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvAnhang.AllowUserToAddRows = False - Me.dgvAnhang.AllowUserToDeleteRows = False - Me.dgvAnhang.AllowUserToResizeColumns = False - Me.dgvAnhang.AllowUserToResizeRows = False - Me.dgvAnhang.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvAnhang.Dock = System.Windows.Forms.DockStyle.Fill - Me.dgvAnhang.Location = New System.Drawing.Point(0, 45) - Me.dgvAnhang.Name = "dgvAnhang" - Me.dgvAnhang.ReadOnly = True - Me.dgvAnhang.RowHeadersVisible = False - Me.dgvAnhang.RowHeadersWidth = 51 - Me.dgvAnhang.RowTemplate.Height = 40 - Me.dgvAnhang.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvAnhang.Size = New System.Drawing.Size(1206, 243) - Me.dgvAnhang.TabIndex = 1 - ' - 'dgvZollAnmeldungen - ' - Me.dgvZollAnmeldungen.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvZollAnmeldungen.AllowUserToAddRows = False - Me.dgvZollAnmeldungen.AllowUserToDeleteRows = False - Me.dgvZollAnmeldungen.AllowUserToResizeColumns = False - Me.dgvZollAnmeldungen.AllowUserToResizeRows = False - Me.dgvZollAnmeldungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvZollAnmeldungen.Dock = System.Windows.Forms.DockStyle.Fill - Me.dgvZollAnmeldungen.Location = New System.Drawing.Point(0, 32) - Me.dgvZollAnmeldungen.Name = "dgvZollAnmeldungen" - Me.dgvZollAnmeldungen.ReadOnly = True - Me.dgvZollAnmeldungen.RowHeadersWidth = 51 - Me.dgvZollAnmeldungen.RowTemplate.Height = 30 - Me.dgvZollAnmeldungen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvZollAnmeldungen.Size = New System.Drawing.Size(1206, 218) - Me.dgvZollAnmeldungen.TabIndex = 1 - ' - 'cboZolltarif - ' - Me.cboZolltarif._allowedValuesFreiText = Nothing - Me.cboZolltarif._allowFreiText = False - Me.cboZolltarif._value = "" - Me.cboZolltarif.FormattingEnabled = True - Me.cboZolltarif.Location = New System.Drawing.Point(59, 8) - Me.cboZolltarif.Name = "cboZolltarif" - Me.cboZolltarif.Size = New System.Drawing.Size(142, 21) - Me.cboZolltarif.TabIndex = 1 - ' - 'DataGridView - ' - Me.DataGridView.AKTUALISIERUNGS_INTERVALL = -1 - Me.DataGridView.AllowUserToAddRows = False - Me.DataGridView.AllowUserToDeleteRows = False - Me.DataGridView.AllowUserToOrderColumns = True - Me.DataGridView.AllowUserToResizeColumns = False - Me.DataGridView.AllowUserToResizeRows = False - Me.DataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.DataGridView.Dock = System.Windows.Forms.DockStyle.Fill - Me.DataGridView.Location = New System.Drawing.Point(3, 94) - Me.DataGridView.Name = "DataGridView" - Me.DataGridView.RowHeadersWidth = 51 - Me.DataGridView.Size = New System.Drawing.Size(1200, 191) - Me.DataGridView.TabIndex = 1 - ' - 'cboSachbearbeiter - ' - Me.cboSachbearbeiter._allowedValuesFreiText = Nothing - Me.cboSachbearbeiter._allowFreiText = False - Me.cboSachbearbeiter._value = "" - Me.cboSachbearbeiter.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend - Me.cboSachbearbeiter.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems - Me.cboSachbearbeiter.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboSachbearbeiter.FormattingEnabled = True - Me.cboSachbearbeiter.Location = New System.Drawing.Point(466, 42) - Me.cboSachbearbeiter.Name = "cboSachbearbeiter" - Me.cboSachbearbeiter.Size = New System.Drawing.Size(171, 24) - Me.cboSachbearbeiter.TabIndex = 14 - ' - 'cboZollsystem2 - ' - Me.cboZollsystem2._allowedValuesFreiText = Nothing - Me.cboZollsystem2._allowFreiText = False - Me.cboZollsystem2._value = "" - Me.cboZollsystem2.Enabled = False - Me.cboZollsystem2.FormattingEnabled = True - Me.cboZollsystem2.Location = New System.Drawing.Point(151, 66) - Me.cboZollsystem2.Name = "cboZollsystem2" - Me.cboZollsystem2.Size = New System.Drawing.Size(97, 21) - Me.cboZollsystem2.TabIndex = 16 - ' - 'txtAtlasBezNrEZA2 - ' - Me.txtAtlasBezNrEZA2._DateTimeOnly = False - Me.txtAtlasBezNrEZA2._numbersOnly = False - Me.txtAtlasBezNrEZA2._numbersOnlyKommastellen = "" - Me.txtAtlasBezNrEZA2._numbersOnlyTrennzeichen = True - Me.txtAtlasBezNrEZA2._Prozent = False - Me.txtAtlasBezNrEZA2._ShortDateNew = False - Me.txtAtlasBezNrEZA2._ShortDateOnly = False - Me.txtAtlasBezNrEZA2._TimeOnly = False - Me.txtAtlasBezNrEZA2._TimeOnly_Seconds = False - Me.txtAtlasBezNrEZA2._value = Nothing - Me.txtAtlasBezNrEZA2._Waehrung = False - Me.txtAtlasBezNrEZA2._WaehrungZeichen = True - Me.txtAtlasBezNrEZA2.Enabled = False - Me.txtAtlasBezNrEZA2.ForeColor = System.Drawing.Color.Black - Me.txtAtlasBezNrEZA2.Location = New System.Drawing.Point(253, 66) - Me.txtAtlasBezNrEZA2.MaxLineLength = -1 - Me.txtAtlasBezNrEZA2.MaxLines_Warning = "" - Me.txtAtlasBezNrEZA2.MaxLines_Warning_Label = Nothing - Me.txtAtlasBezNrEZA2.Name = "txtAtlasBezNrEZA2" - Me.txtAtlasBezNrEZA2.Size = New System.Drawing.Size(101, 20) - Me.txtAtlasBezNrEZA2.TabIndex = 17 - ' - 'txtAtlasBezNrNCTS2 - ' - Me.txtAtlasBezNrNCTS2._DateTimeOnly = False - Me.txtAtlasBezNrNCTS2._numbersOnly = False - Me.txtAtlasBezNrNCTS2._numbersOnlyKommastellen = "" - Me.txtAtlasBezNrNCTS2._numbersOnlyTrennzeichen = True - Me.txtAtlasBezNrNCTS2._Prozent = False - Me.txtAtlasBezNrNCTS2._ShortDateNew = False - Me.txtAtlasBezNrNCTS2._ShortDateOnly = False - Me.txtAtlasBezNrNCTS2._TimeOnly = False - Me.txtAtlasBezNrNCTS2._TimeOnly_Seconds = False - Me.txtAtlasBezNrNCTS2._value = Nothing - Me.txtAtlasBezNrNCTS2._Waehrung = False - Me.txtAtlasBezNrNCTS2._WaehrungZeichen = True - Me.txtAtlasBezNrNCTS2.Enabled = False - Me.txtAtlasBezNrNCTS2.ForeColor = System.Drawing.Color.Black - Me.txtAtlasBezNrNCTS2.Location = New System.Drawing.Point(359, 66) - Me.txtAtlasBezNrNCTS2.MaxLineLength = -1 - Me.txtAtlasBezNrNCTS2.MaxLines_Warning = "" - Me.txtAtlasBezNrNCTS2.MaxLines_Warning_Label = Nothing - Me.txtAtlasBezNrNCTS2.Name = "txtAtlasBezNrNCTS2" - Me.txtAtlasBezNrNCTS2.Size = New System.Drawing.Size(101, 20) - Me.txtAtlasBezNrNCTS2.TabIndex = 18 - ' - 'cboZollsystem - ' - Me.cboZollsystem._allowedValuesFreiText = Nothing - Me.cboZollsystem._allowFreiText = False - Me.cboZollsystem._value = "" - Me.cboZollsystem.FormattingEnabled = True - Me.cboZollsystem.Location = New System.Drawing.Point(151, 42) - Me.cboZollsystem.Name = "cboZollsystem" - Me.cboZollsystem.Size = New System.Drawing.Size(97, 21) - Me.cboZollsystem.TabIndex = 11 - ' - 'txtAtlasBezNrEZA - ' - Me.txtAtlasBezNrEZA._DateTimeOnly = False - Me.txtAtlasBezNrEZA._numbersOnly = False - Me.txtAtlasBezNrEZA._numbersOnlyKommastellen = "" - Me.txtAtlasBezNrEZA._numbersOnlyTrennzeichen = True - Me.txtAtlasBezNrEZA._Prozent = False - Me.txtAtlasBezNrEZA._ShortDateNew = False - Me.txtAtlasBezNrEZA._ShortDateOnly = False - Me.txtAtlasBezNrEZA._TimeOnly = False - Me.txtAtlasBezNrEZA._TimeOnly_Seconds = False - Me.txtAtlasBezNrEZA._value = Nothing - Me.txtAtlasBezNrEZA._Waehrung = False - Me.txtAtlasBezNrEZA._WaehrungZeichen = True - Me.txtAtlasBezNrEZA.ForeColor = System.Drawing.Color.Black - Me.txtAtlasBezNrEZA.Location = New System.Drawing.Point(253, 42) - Me.txtAtlasBezNrEZA.MaxLineLength = -1 - Me.txtAtlasBezNrEZA.MaxLines_Warning = "" - Me.txtAtlasBezNrEZA.MaxLines_Warning_Label = Nothing - Me.txtAtlasBezNrEZA.Name = "txtAtlasBezNrEZA" - Me.txtAtlasBezNrEZA.Size = New System.Drawing.Size(101, 20) - Me.txtAtlasBezNrEZA.TabIndex = 12 - ' - 'txtAtlasBezNrNCTS - ' - Me.txtAtlasBezNrNCTS._DateTimeOnly = False - Me.txtAtlasBezNrNCTS._numbersOnly = False - Me.txtAtlasBezNrNCTS._numbersOnlyKommastellen = "" - Me.txtAtlasBezNrNCTS._numbersOnlyTrennzeichen = True - Me.txtAtlasBezNrNCTS._Prozent = False - Me.txtAtlasBezNrNCTS._ShortDateNew = False - Me.txtAtlasBezNrNCTS._ShortDateOnly = False - Me.txtAtlasBezNrNCTS._TimeOnly = False - Me.txtAtlasBezNrNCTS._TimeOnly_Seconds = False - Me.txtAtlasBezNrNCTS._value = Nothing - Me.txtAtlasBezNrNCTS._Waehrung = False - Me.txtAtlasBezNrNCTS._WaehrungZeichen = True - Me.txtAtlasBezNrNCTS.ForeColor = System.Drawing.Color.Black - Me.txtAtlasBezNrNCTS.Location = New System.Drawing.Point(359, 42) - Me.txtAtlasBezNrNCTS.MaxLineLength = -1 - Me.txtAtlasBezNrNCTS.MaxLines_Warning = "" - Me.txtAtlasBezNrNCTS.MaxLines_Warning_Label = Nothing - Me.txtAtlasBezNrNCTS.Name = "txtAtlasBezNrNCTS" - Me.txtAtlasBezNrNCTS.Size = New System.Drawing.Size(101, 20) - Me.txtAtlasBezNrNCTS.TabIndex = 13 - ' - 'RCntrlVermerke1 - ' - Me.RCntrlVermerke1.Location = New System.Drawing.Point(251, 18) - Me.RCntrlVermerke1.Name = "RCntrlVermerke1" - Me.RCntrlVermerke1.Size = New System.Drawing.Size(575, 208) - Me.RCntrlVermerke1.TabIndex = 1 - ' - 'clmnSender - ' - Me.clmnSender.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill - Me.clmnSender.HeaderText = "Absender" - Me.clmnSender.MinimumWidth = 6 - Me.clmnSender.Name = "clmnSender" - Me.clmnSender.ReadOnly = True - ' - 'clmnRec - ' - Me.clmnRec.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill - Me.clmnRec.HeaderText = "Empfänger" - Me.clmnRec.MinimumWidth = 6 - Me.clmnRec.Name = "clmnRec" - Me.clmnRec.ReadOnly = True - ' - 'clmnSbj - ' - Me.clmnSbj.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill - Me.clmnSbj.HeaderText = "Betreff" - Me.clmnSbj.MinimumWidth = 6 - Me.clmnSbj.Name = "clmnSbj" - Me.clmnSbj.ReadOnly = True - ' - 'clmnAtt - ' - Me.clmnAtt.HeaderText = "Anhänge" - Me.clmnAtt.MinimumWidth = 6 - Me.clmnAtt.Name = "clmnAtt" - Me.clmnAtt.ReadOnly = True - Me.clmnAtt.Width = 70 - ' - 'clmnUIDL - ' - Me.clmnUIDL.HeaderText = "UIDL" - Me.clmnUIDL.MinimumWidth = 6 - Me.clmnUIDL.Name = "clmnUIDL" - Me.clmnUIDL.ReadOnly = True - Me.clmnUIDL.Width = 200 - ' - 'txtBARzuKassieren - ' - Me.txtBARzuKassieren._DateTimeOnly = False - Me.txtBARzuKassieren._numbersOnly = False - Me.txtBARzuKassieren._numbersOnlyKommastellen = "" - Me.txtBARzuKassieren._numbersOnlyTrennzeichen = True - Me.txtBARzuKassieren._Prozent = False - Me.txtBARzuKassieren._ShortDateNew = False - Me.txtBARzuKassieren._ShortDateOnly = False - Me.txtBARzuKassieren._TimeOnly = False - Me.txtBARzuKassieren._TimeOnly_Seconds = False - Me.txtBARzuKassieren._value = "" - Me.txtBARzuKassieren._Waehrung = True - Me.txtBARzuKassieren._WaehrungZeichen = True - Me.txtBARzuKassieren.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.txtBARzuKassieren.ForeColor = System.Drawing.Color.Black - Me.txtBARzuKassieren.Location = New System.Drawing.Point(3, 16) - Me.txtBARzuKassieren.MaxLineLength = -1 - Me.txtBARzuKassieren.MaxLines_Warning = "" - Me.txtBARzuKassieren.MaxLines_Warning_Label = Nothing - Me.txtBARzuKassieren.Name = "txtBARzuKassieren" - Me.txtBARzuKassieren.Size = New System.Drawing.Size(126, 26) - Me.txtBARzuKassieren.TabIndex = 1 - Me.txtBARzuKassieren.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'txtFrachtkostenGesamt - ' - Me.txtFrachtkostenGesamt._DateTimeOnly = False - Me.txtFrachtkostenGesamt._numbersOnly = False - Me.txtFrachtkostenGesamt._numbersOnlyKommastellen = "" - Me.txtFrachtkostenGesamt._numbersOnlyTrennzeichen = True - Me.txtFrachtkostenGesamt._Prozent = False - Me.txtFrachtkostenGesamt._ShortDateNew = False - Me.txtFrachtkostenGesamt._ShortDateOnly = False - Me.txtFrachtkostenGesamt._TimeOnly = False - Me.txtFrachtkostenGesamt._TimeOnly_Seconds = False - Me.txtFrachtkostenGesamt._value = "" - Me.txtFrachtkostenGesamt._Waehrung = True - Me.txtFrachtkostenGesamt._WaehrungZeichen = True - Me.txtFrachtkostenGesamt.ForeColor = System.Drawing.Color.Black - Me.txtFrachtkostenGesamt.Location = New System.Drawing.Point(375, 22) - Me.txtFrachtkostenGesamt.MaxLineLength = -1 - Me.txtFrachtkostenGesamt.MaxLines_Warning = "" - Me.txtFrachtkostenGesamt.MaxLines_Warning_Label = Nothing - Me.txtFrachtkostenGesamt.Name = "txtFrachtkostenGesamt" - Me.txtFrachtkostenGesamt.Size = New System.Drawing.Size(50, 20) - Me.txtFrachtkostenGesamt.TabIndex = 61 - Me.txtFrachtkostenGesamt.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'txtFrachtkostenNichtEU - ' - Me.txtFrachtkostenNichtEU._DateTimeOnly = False - Me.txtFrachtkostenNichtEU._numbersOnly = False - Me.txtFrachtkostenNichtEU._numbersOnlyKommastellen = "" - Me.txtFrachtkostenNichtEU._numbersOnlyTrennzeichen = True - Me.txtFrachtkostenNichtEU._Prozent = False - Me.txtFrachtkostenNichtEU._ShortDateNew = False - Me.txtFrachtkostenNichtEU._ShortDateOnly = False - Me.txtFrachtkostenNichtEU._TimeOnly = False - Me.txtFrachtkostenNichtEU._TimeOnly_Seconds = False - Me.txtFrachtkostenNichtEU._value = "" - Me.txtFrachtkostenNichtEU._Waehrung = True - Me.txtFrachtkostenNichtEU._WaehrungZeichen = True - Me.txtFrachtkostenNichtEU.ForeColor = System.Drawing.Color.Black - Me.txtFrachtkostenNichtEU.Location = New System.Drawing.Point(322, 22) - Me.txtFrachtkostenNichtEU.MaxLineLength = -1 - Me.txtFrachtkostenNichtEU.MaxLines_Warning = "" - Me.txtFrachtkostenNichtEU.MaxLines_Warning_Label = Nothing - Me.txtFrachtkostenNichtEU.Name = "txtFrachtkostenNichtEU" - Me.txtFrachtkostenNichtEU.Size = New System.Drawing.Size(54, 20) - Me.txtFrachtkostenNichtEU.TabIndex = 14 - Me.txtFrachtkostenNichtEU.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'txtFrachtkostenEU - ' - Me.txtFrachtkostenEU._DateTimeOnly = False - Me.txtFrachtkostenEU._numbersOnly = False - Me.txtFrachtkostenEU._numbersOnlyKommastellen = "" - Me.txtFrachtkostenEU._numbersOnlyTrennzeichen = True - Me.txtFrachtkostenEU._Prozent = False - Me.txtFrachtkostenEU._ShortDateNew = False - Me.txtFrachtkostenEU._ShortDateOnly = False - Me.txtFrachtkostenEU._TimeOnly = False - Me.txtFrachtkostenEU._TimeOnly_Seconds = False - Me.txtFrachtkostenEU._value = "" - Me.txtFrachtkostenEU._Waehrung = True - Me.txtFrachtkostenEU._WaehrungZeichen = True - Me.txtFrachtkostenEU.ForeColor = System.Drawing.Color.Black - Me.txtFrachtkostenEU.Location = New System.Drawing.Point(269, 22) - Me.txtFrachtkostenEU.MaxLineLength = -1 - Me.txtFrachtkostenEU.MaxLines_Warning = "" - Me.txtFrachtkostenEU.MaxLines_Warning_Label = Nothing - Me.txtFrachtkostenEU.Name = "txtFrachtkostenEU" - Me.txtFrachtkostenEU.Size = New System.Drawing.Size(54, 20) - Me.txtFrachtkostenEU.TabIndex = 12 - Me.txtFrachtkostenEU.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'txtWarenwertWaehrung - ' - Me.txtWarenwertWaehrung._allowFreitext = False - Me.txtWarenwertWaehrung._AllowSetValue = False - Me.txtWarenwertWaehrung._allowSpaceAsSplitter = False - Me.txtWarenwertWaehrung._autoSizeGross = False - Me.txtWarenwertWaehrung._hideIfListEmpty = True - Me.txtWarenwertWaehrung._value = "" - Me.txtWarenwertWaehrung.conn_art = "FMZOLL" - Me.txtWarenwertWaehrung.dgvpos = "LEFT" - Me.txtWarenwertWaehrung.DISPLAY_PARAM = Nothing - Me.txtWarenwertWaehrung.INVISIBLE_COLUMNS = Nothing - Me.txtWarenwertWaehrung.key_visible = False - Me.txtWarenwertWaehrung.KEYPARAM = Nothing - Me.txtWarenwertWaehrung.Location = New System.Drawing.Point(207, 77) - Me.txtWarenwertWaehrung.Name = "txtWarenwertWaehrung" - Me.txtWarenwertWaehrung.searchActive = True - Me.txtWarenwertWaehrung.Size = New System.Drawing.Size(51, 20) - Me.txtWarenwertWaehrung.SQL_ORDER_BY = Nothing - Me.txtWarenwertWaehrung.SQL_SELECT = Nothing - Me.txtWarenwertWaehrung.SQL_WHERE = Nothing - Me.txtWarenwertWaehrung.SQL_WhereParamList = Nothing - Me.txtWarenwertWaehrung.TabIndex = 11 - Me.txtWarenwertWaehrung.usrcntl = Nothing - ' - 'txtWarenwert - ' - Me.txtWarenwert._DateTimeOnly = False - Me.txtWarenwert._numbersOnly = True - Me.txtWarenwert._numbersOnlyKommastellen = "" - Me.txtWarenwert._numbersOnlyTrennzeichen = True - Me.txtWarenwert._Prozent = False - Me.txtWarenwert._ShortDateNew = False - Me.txtWarenwert._ShortDateOnly = False - Me.txtWarenwert._TimeOnly = False - Me.txtWarenwert._TimeOnly_Seconds = False - Me.txtWarenwert._value = "" - Me.txtWarenwert._Waehrung = False - Me.txtWarenwert._WaehrungZeichen = True - Me.txtWarenwert.ForeColor = System.Drawing.Color.Black - Me.txtWarenwert.Location = New System.Drawing.Point(78, 77) - Me.txtWarenwert.MaxLineLength = -1 - Me.txtWarenwert.MaxLines_Warning = "" - Me.txtWarenwert.MaxLines_Warning_Label = Nothing - Me.txtWarenwert.Name = "txtWarenwert" - Me.txtWarenwert.Size = New System.Drawing.Size(130, 20) - Me.txtWarenwert.TabIndex = 10 - Me.txtWarenwert.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'txtGewicht - ' - Me.txtGewicht._DateTimeOnly = False - Me.txtGewicht._numbersOnly = True - Me.txtGewicht._numbersOnlyKommastellen = "1" - Me.txtGewicht._numbersOnlyTrennzeichen = True - Me.txtGewicht._Prozent = False - Me.txtGewicht._ShortDateNew = False - Me.txtGewicht._ShortDateOnly = False - Me.txtGewicht._TimeOnly = False - Me.txtGewicht._TimeOnly_Seconds = False - Me.txtGewicht._value = "" - Me.txtGewicht._Waehrung = False - Me.txtGewicht._WaehrungZeichen = True - Me.txtGewicht.ForeColor = System.Drawing.Color.Black - Me.txtGewicht.Location = New System.Drawing.Point(81, 22) - Me.txtGewicht.MaxLineLength = -1 - Me.txtGewicht.MaxLines_Warning = "" - Me.txtGewicht.MaxLines_Warning_Label = Nothing - Me.txtGewicht.Name = "txtGewicht" - Me.txtGewicht.Size = New System.Drawing.Size(69, 20) - Me.txtGewicht.TabIndex = 4 - Me.txtGewicht.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'txtColli - ' - Me.txtColli._DateTimeOnly = False - Me.txtColli._numbersOnly = True - Me.txtColli._numbersOnlyKommastellen = "0" - Me.txtColli._numbersOnlyTrennzeichen = True - Me.txtColli._Prozent = False - Me.txtColli._ShortDateNew = False - Me.txtColli._ShortDateOnly = False - Me.txtColli._TimeOnly = False - Me.txtColli._TimeOnly_Seconds = False - Me.txtColli._value = "" - Me.txtColli._Waehrung = False - Me.txtColli._WaehrungZeichen = True - Me.txtColli.ForeColor = System.Drawing.Color.Black - Me.txtColli.Location = New System.Drawing.Point(7, 22) - Me.txtColli.MaxLineLength = -1 - Me.txtColli.MaxLines_Warning = "" - Me.txtColli.MaxLines_Warning_Label = Nothing - Me.txtColli.Name = "txtColli" - Me.txtColli.Size = New System.Drawing.Size(46, 20) - Me.txtColli.TabIndex = 3 - Me.txtColli.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'cboPrinter - ' - Me.cboPrinter._allowedValuesFreiText = Nothing - Me.cboPrinter._allowFreiText = False - Me.cboPrinter._value = "" - Me.cboPrinter.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cboPrinter.DropDownWidth = 300 - Me.cboPrinter.FormattingEnabled = True - Me.cboPrinter.Location = New System.Drawing.Point(296, 139) - Me.cboPrinter.Name = "cboPrinter" - Me.cboPrinter.Size = New System.Drawing.Size(131, 21) - Me.cboPrinter.TabIndex = 24 - ' - 'txtVK_Preis - ' - Me.txtVK_Preis._DateTimeOnly = False - Me.txtVK_Preis._numbersOnly = True - Me.txtVK_Preis._numbersOnlyKommastellen = "" - Me.txtVK_Preis._numbersOnlyTrennzeichen = True - Me.txtVK_Preis._Prozent = False - Me.txtVK_Preis._ShortDateNew = False - Me.txtVK_Preis._ShortDateOnly = False - Me.txtVK_Preis._TimeOnly = False - Me.txtVK_Preis._TimeOnly_Seconds = False - Me.txtVK_Preis._value = "" - Me.txtVK_Preis._Waehrung = True - Me.txtVK_Preis._WaehrungZeichen = True - Me.txtVK_Preis.ForeColor = System.Drawing.Color.Black - Me.txtVK_Preis.Location = New System.Drawing.Point(255, 205) - Me.txtVK_Preis.MaxLength = 15 - Me.txtVK_Preis.MaxLineLength = -1 - Me.txtVK_Preis.MaxLines_Warning = "" - Me.txtVK_Preis.MaxLines_Warning_Label = Nothing - Me.txtVK_Preis.Name = "txtVK_Preis" - Me.txtVK_Preis.Size = New System.Drawing.Size(75, 20) - Me.txtVK_Preis.TabIndex = 4 - ' - 'txtVK_Leistung - ' - Me.txtVK_Leistung._DateTimeOnly = False - Me.txtVK_Leistung._numbersOnly = False - Me.txtVK_Leistung._numbersOnlyKommastellen = "" - Me.txtVK_Leistung._numbersOnlyTrennzeichen = True - Me.txtVK_Leistung._Prozent = False - Me.txtVK_Leistung._ShortDateNew = False - Me.txtVK_Leistung._ShortDateOnly = False - Me.txtVK_Leistung._TimeOnly = False - Me.txtVK_Leistung._TimeOnly_Seconds = False - Me.txtVK_Leistung._value = "" - Me.txtVK_Leistung._Waehrung = False - Me.txtVK_Leistung._WaehrungZeichen = False - Me.txtVK_Leistung.ForeColor = System.Drawing.Color.Black - Me.txtVK_Leistung.Location = New System.Drawing.Point(129, 205) - Me.txtVK_Leistung.MaxLength = 30 - Me.txtVK_Leistung.MaxLineLength = -1 - Me.txtVK_Leistung.MaxLines_Warning = "" - Me.txtVK_Leistung.MaxLines_Warning_Label = Nothing - Me.txtVK_Leistung.Name = "txtVK_Leistung" - Me.txtVK_Leistung.Size = New System.Drawing.Size(127, 20) - Me.txtVK_Leistung.TabIndex = 2 - ' - 'txtVK_Firma - ' - Me.txtVK_Firma._DateTimeOnly = False - Me.txtVK_Firma._numbersOnly = False - Me.txtVK_Firma._numbersOnlyKommastellen = "" - Me.txtVK_Firma._numbersOnlyTrennzeichen = True - Me.txtVK_Firma._Prozent = False - Me.txtVK_Firma._ShortDateNew = False - Me.txtVK_Firma._ShortDateOnly = False - Me.txtVK_Firma._TimeOnly = False - Me.txtVK_Firma._TimeOnly_Seconds = False - Me.txtVK_Firma._value = "" - Me.txtVK_Firma._Waehrung = False - Me.txtVK_Firma._WaehrungZeichen = True - Me.txtVK_Firma.ForeColor = System.Drawing.Color.Black - Me.txtVK_Firma.Location = New System.Drawing.Point(3, 205) - Me.txtVK_Firma.MaxLength = 200 - Me.txtVK_Firma.MaxLineLength = -1 - Me.txtVK_Firma.MaxLines_Warning = "" - Me.txtVK_Firma.MaxLines_Warning_Label = Nothing - Me.txtVK_Firma.Name = "txtVK_Firma" - Me.txtVK_Firma.Size = New System.Drawing.Size(127, 20) - Me.txtVK_Firma.TabIndex = 1 - ' - 'dgvVorkosten - ' - Me.dgvVorkosten.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvVorkosten.AllowUserToAddRows = False - Me.dgvVorkosten.AllowUserToDeleteRows = False - Me.dgvVorkosten.AllowUserToResizeColumns = False - Me.dgvVorkosten.AllowUserToResizeRows = False - Me.dgvVorkosten.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvVorkosten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle13 - Me.dgvVorkosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvVorkosten.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnVK_id, Me.clmnFirma, Me.clmnLeistung, Me.clmnPreis}) - DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvVorkosten.DefaultCellStyle = DataGridViewCellStyle15 - Me.dgvVorkosten.Location = New System.Drawing.Point(3, 4) - Me.dgvVorkosten.MultiSelect = False - Me.dgvVorkosten.Name = "dgvVorkosten" - Me.dgvVorkosten.ReadOnly = True - DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvVorkosten.RowHeadersDefaultCellStyle = DataGridViewCellStyle16 - Me.dgvVorkosten.RowHeadersVisible = False - Me.dgvVorkosten.RowHeadersWidth = 51 - Me.dgvVorkosten.RowTemplate.Height = 18 - Me.dgvVorkosten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvVorkosten.Size = New System.Drawing.Size(360, 194) - Me.dgvVorkosten.TabIndex = 0 - ' - 'clmnVK_id - ' - Me.clmnVK_id.HeaderText = "ID" - Me.clmnVK_id.MinimumWidth = 6 - Me.clmnVK_id.Name = "clmnVK_id" - Me.clmnVK_id.ReadOnly = True - Me.clmnVK_id.Visible = False - Me.clmnVK_id.Width = 125 - ' - 'clmnFirma - ' - Me.clmnFirma.HeaderText = "Firma" - Me.clmnFirma.MaxInputLength = 200 - Me.clmnFirma.MinimumWidth = 6 - Me.clmnFirma.Name = "clmnFirma" - Me.clmnFirma.ReadOnly = True - Me.clmnFirma.Width = 127 - ' - 'clmnLeistung - ' - Me.clmnLeistung.HeaderText = "Leistung" - Me.clmnLeistung.MaxInputLength = 30 - Me.clmnLeistung.MinimumWidth = 6 - Me.clmnLeistung.Name = "clmnLeistung" - Me.clmnLeistung.ReadOnly = True - Me.clmnLeistung.Width = 129 - ' - 'clmnPreis - ' - Me.clmnPreis.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill - DataGridViewCellStyle14.Format = "C2" - Me.clmnPreis.DefaultCellStyle = DataGridViewCellStyle14 - Me.clmnPreis.HeaderText = "Preis" - Me.clmnPreis.MaxInputLength = 15 - Me.clmnPreis.MinimumWidth = 6 - Me.clmnPreis.Name = "clmnPreis" - Me.clmnPreis.ReadOnly = True - ' - 'dgvBelege - ' - Me.dgvBelege.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvBelege.AllowUserToAddRows = False - Me.dgvBelege.AllowUserToDeleteRows = False - Me.dgvBelege.AllowUserToResizeColumns = False - Me.dgvBelege.AllowUserToResizeRows = False - Me.dgvBelege.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle17.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle17.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle17.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle17.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvBelege.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle17 - Me.dgvBelege.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle18.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvBelege.DefaultCellStyle = DataGridViewCellStyle18 - Me.dgvBelege.Location = New System.Drawing.Point(6, 40) - Me.dgvBelege.MultiSelect = False - Me.dgvBelege.Name = "dgvBelege" - Me.dgvBelege.ReadOnly = True - DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle19.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvBelege.RowHeadersDefaultCellStyle = DataGridViewCellStyle19 - Me.dgvBelege.RowHeadersVisible = False - Me.dgvBelege.RowHeadersWidth = 51 - Me.dgvBelege.RowTemplate.Height = 18 - Me.dgvBelege.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvBelege.Size = New System.Drawing.Size(360, 165) - Me.dgvBelege.TabIndex = 3 - ' - 'txtFrachtfuehrer - ' - Me.txtFrachtfuehrer._AlleFirmenCLUSTER = False - Me.txtFrachtfuehrer._AllowSetValue = True - Me.txtFrachtfuehrer._autoSizeGross = True - Me.txtFrachtfuehrer._display_Name1 = False - Me.txtFrachtfuehrer._displayAVISO_Email = False - Me.txtFrachtfuehrer._displayFullName = False - Me.txtFrachtfuehrer._displayWoelflKd = False - Me.txtFrachtfuehrer._hideIfListEmpty = True - Me.txtFrachtfuehrer._loadKdData = True - Me.txtFrachtfuehrer._searchName1 = True - Me.txtFrachtfuehrer._UseFIRMA = "" - Me.txtFrachtfuehrer._ValueKdAndName = False - Me.txtFrachtfuehrer.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper - Me.txtFrachtfuehrer.dgvpos = "LEFT" - Me.txtFrachtfuehrer.KdName = Nothing - Me.txtFrachtfuehrer.KdNr = "-1" - Me.txtFrachtfuehrer.kdNrField = Nothing - Me.txtFrachtfuehrer.KdNrNullInt = Nothing - Me.txtFrachtfuehrer.Location = New System.Drawing.Point(120, 168) - Me.txtFrachtfuehrer.MaxLength = 50 - Me.txtFrachtfuehrer.Name = "txtFrachtfuehrer" - Me.txtFrachtfuehrer.nurAktive = False - Me.txtFrachtfuehrer.searchActive = True - Me.txtFrachtfuehrer.Size = New System.Drawing.Size(245, 20) - Me.txtFrachtfuehrer.TabIndex = 75 - Me.txtFrachtfuehrer.TIMER_SEARCH = True - Me.txtFrachtfuehrer.usrcntl = Nothing - ' - 'txtKdAuftragsNrFrachtfuehrer - ' - Me.txtKdAuftragsNrFrachtfuehrer._DateTimeOnly = False - Me.txtKdAuftragsNrFrachtfuehrer._numbersOnly = False - Me.txtKdAuftragsNrFrachtfuehrer._numbersOnlyKommastellen = "" - Me.txtKdAuftragsNrFrachtfuehrer._numbersOnlyTrennzeichen = True - Me.txtKdAuftragsNrFrachtfuehrer._Prozent = False - Me.txtKdAuftragsNrFrachtfuehrer._ShortDateNew = False - Me.txtKdAuftragsNrFrachtfuehrer._ShortDateOnly = False - Me.txtKdAuftragsNrFrachtfuehrer._TimeOnly = False - Me.txtKdAuftragsNrFrachtfuehrer._TimeOnly_Seconds = False - Me.txtKdAuftragsNrFrachtfuehrer._value = Nothing - Me.txtKdAuftragsNrFrachtfuehrer._Waehrung = False - Me.txtKdAuftragsNrFrachtfuehrer._WaehrungZeichen = True - Me.txtKdAuftragsNrFrachtfuehrer.ForeColor = System.Drawing.Color.Black - Me.txtKdAuftragsNrFrachtfuehrer.Location = New System.Drawing.Point(410, 168) - Me.txtKdAuftragsNrFrachtfuehrer.MaxLength = 50 - Me.txtKdAuftragsNrFrachtfuehrer.MaxLineLength = -1 - Me.txtKdAuftragsNrFrachtfuehrer.MaxLines_Warning = "" - Me.txtKdAuftragsNrFrachtfuehrer.MaxLines_Warning_Label = Nothing - Me.txtKdAuftragsNrFrachtfuehrer.Name = "txtKdAuftragsNrFrachtfuehrer" - Me.txtKdAuftragsNrFrachtfuehrer.Size = New System.Drawing.Size(90, 20) - Me.txtKdAuftragsNrFrachtfuehrer.TabIndex = 77 - ' - 'txtKdAuftragsNrEmpfaenger - ' - Me.txtKdAuftragsNrEmpfaenger._DateTimeOnly = False - Me.txtKdAuftragsNrEmpfaenger._numbersOnly = False - Me.txtKdAuftragsNrEmpfaenger._numbersOnlyKommastellen = "" - Me.txtKdAuftragsNrEmpfaenger._numbersOnlyTrennzeichen = True - Me.txtKdAuftragsNrEmpfaenger._Prozent = False - Me.txtKdAuftragsNrEmpfaenger._ShortDateNew = False - Me.txtKdAuftragsNrEmpfaenger._ShortDateOnly = False - Me.txtKdAuftragsNrEmpfaenger._TimeOnly = False - Me.txtKdAuftragsNrEmpfaenger._TimeOnly_Seconds = False - Me.txtKdAuftragsNrEmpfaenger._value = Nothing - Me.txtKdAuftragsNrEmpfaenger._Waehrung = False - Me.txtKdAuftragsNrEmpfaenger._WaehrungZeichen = True - Me.txtKdAuftragsNrEmpfaenger.ForeColor = System.Drawing.Color.Black - Me.txtKdAuftragsNrEmpfaenger.Location = New System.Drawing.Point(410, 94) - Me.txtKdAuftragsNrEmpfaenger.MaxLength = 50 - Me.txtKdAuftragsNrEmpfaenger.MaxLineLength = -1 - Me.txtKdAuftragsNrEmpfaenger.MaxLines_Warning = "" - Me.txtKdAuftragsNrEmpfaenger.MaxLines_Warning_Label = Nothing - Me.txtKdAuftragsNrEmpfaenger.Name = "txtKdAuftragsNrEmpfaenger" - Me.txtKdAuftragsNrEmpfaenger.Size = New System.Drawing.Size(90, 20) - Me.txtKdAuftragsNrEmpfaenger.TabIndex = 48 - ' - 'txtKdAuftragsNrAvisierer - ' - Me.txtKdAuftragsNrAvisierer._DateTimeOnly = False - Me.txtKdAuftragsNrAvisierer._numbersOnly = False - Me.txtKdAuftragsNrAvisierer._numbersOnlyKommastellen = "" - Me.txtKdAuftragsNrAvisierer._numbersOnlyTrennzeichen = True - Me.txtKdAuftragsNrAvisierer._Prozent = False - Me.txtKdAuftragsNrAvisierer._ShortDateNew = False - Me.txtKdAuftragsNrAvisierer._ShortDateOnly = False - Me.txtKdAuftragsNrAvisierer._TimeOnly = False - Me.txtKdAuftragsNrAvisierer._TimeOnly_Seconds = False - Me.txtKdAuftragsNrAvisierer._value = Nothing - Me.txtKdAuftragsNrAvisierer._Waehrung = False - Me.txtKdAuftragsNrAvisierer._WaehrungZeichen = True - Me.txtKdAuftragsNrAvisierer.BackColor = System.Drawing.Color.White - Me.txtKdAuftragsNrAvisierer.ContextMenuStrip = Me.cntxt - Me.txtKdAuftragsNrAvisierer.ForeColor = System.Drawing.Color.Black - Me.txtKdAuftragsNrAvisierer.Location = New System.Drawing.Point(410, 20) - Me.txtKdAuftragsNrAvisierer.MaxLength = 50 - Me.txtKdAuftragsNrAvisierer.MaxLineLength = -1 - Me.txtKdAuftragsNrAvisierer.MaxLines_Warning = "" - Me.txtKdAuftragsNrAvisierer.MaxLines_Warning_Label = Nothing - Me.txtKdAuftragsNrAvisierer.Name = "txtKdAuftragsNrAvisierer" - Me.txtKdAuftragsNrAvisierer.Size = New System.Drawing.Size(90, 20) - Me.txtKdAuftragsNrAvisierer.TabIndex = 16 - ' - 'FlatButton4 - ' - Me.FlatButton4.allowBorder = False - Me.FlatButton4.BackgroundImage = CType(resources.GetObject("FlatButton4.BackgroundImage"), System.Drawing.Image) - Me.FlatButton4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.FlatButton4.FlatAppearance.BorderSize = 0 - Me.FlatButton4.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.FlatButton4.ForeColor = System.Drawing.Color.Black - Me.FlatButton4.Location = New System.Drawing.Point(365, 132) - Me.FlatButton4.Name = "FlatButton4" - Me.FlatButton4.Size = New System.Drawing.Size(22, 22) - Me.FlatButton4.TabIndex = 62 - Me.FlatButton4.TabStop = False - Me.FlatButton4.UseVisualStyleBackColor = True - ' - 'FlatButton1 - ' - Me.FlatButton1.allowBorder = False - Me.FlatButton1.BackgroundImage = CType(resources.GetObject("FlatButton1.BackgroundImage"), System.Drawing.Image) - Me.FlatButton1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.FlatButton1.FlatAppearance.BorderSize = 0 - Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.FlatButton1.ForeColor = System.Drawing.Color.Black - Me.FlatButton1.Location = New System.Drawing.Point(365, 93) - Me.FlatButton1.Name = "FlatButton1" - Me.FlatButton1.Size = New System.Drawing.Size(22, 22) - Me.FlatButton1.TabIndex = 46 - Me.FlatButton1.TabStop = False - Me.FlatButton1.UseVisualStyleBackColor = True - ' - 'btnFrachtfuehrer - ' - Me.btnFrachtfuehrer.allowBorder = False - Me.btnFrachtfuehrer.BackgroundImage = Global.AVISO.My.Resources.Resources.personInaktiv - Me.btnFrachtfuehrer.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.btnFrachtfuehrer.FlatAppearance.BorderSize = 0 - Me.btnFrachtfuehrer.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnFrachtfuehrer.ForeColor = System.Drawing.Color.Black - Me.btnFrachtfuehrer.Location = New System.Drawing.Point(365, 167) - Me.btnFrachtfuehrer.Name = "btnFrachtfuehrer" - Me.btnFrachtfuehrer.Size = New System.Drawing.Size(22, 22) - Me.btnFrachtfuehrer.TabIndex = 76 - Me.btnFrachtfuehrer.TabStop = False - Me.btnFrachtfuehrer.UseVisualStyleBackColor = True - ' - 'FlatButton3 - ' - Me.FlatButton3.allowBorder = False - Me.FlatButton3.BackgroundImage = Global.AVISO.My.Resources.Resources.personInaktiv - Me.FlatButton3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.FlatButton3.FlatAppearance.BorderSize = 0 - Me.FlatButton3.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.FlatButton3.ForeColor = System.Drawing.Color.Black - Me.FlatButton3.Location = New System.Drawing.Point(365, 56) - Me.FlatButton3.Name = "FlatButton3" - Me.FlatButton3.Size = New System.Drawing.Size(22, 22) - Me.FlatButton3.TabIndex = 29 - Me.FlatButton3.TabStop = False - Me.FlatButton3.UseVisualStyleBackColor = True - ' - 'btnAvisierer - ' - Me.btnAvisierer.allowBorder = False - Me.btnAvisierer.BackgroundImage = Global.AVISO.My.Resources.Resources.personInaktiv - Me.btnAvisierer.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.btnAvisierer.FlatAppearance.BorderSize = 0 - Me.btnAvisierer.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnAvisierer.ForeColor = System.Drawing.Color.Black - Me.btnAvisierer.Location = New System.Drawing.Point(365, 19) - Me.btnAvisierer.Name = "btnAvisierer" - Me.btnAvisierer.Size = New System.Drawing.Size(22, 22) - Me.btnAvisierer.TabIndex = 15 - Me.btnAvisierer.TabStop = False - Me.btnAvisierer.UseVisualStyleBackColor = True - ' - 'cntlFrachtfuehrer_Sonst - ' - Me.cntlFrachtfuehrer_Sonst._abrArt = "SONST" - Me.cntlFrachtfuehrer_Sonst._beteiligter = "FRACHTF" - Me.cntlFrachtfuehrer_Sonst._readOnly = True - Me.cntlFrachtfuehrer_Sonst.Location = New System.Drawing.Point(632, 168) - Me.cntlFrachtfuehrer_Sonst.Name = "cntlFrachtfuehrer_Sonst" - Me.cntlFrachtfuehrer_Sonst.Size = New System.Drawing.Size(21, 20) - Me.cntlFrachtfuehrer_Sonst.TabIndex = 82 - Me.cntlFrachtfuehrer_Sonst.TabStop = False - Me.cntlFrachtfuehrer_Sonst.value = "" - ' - 'cntlAbsender_Sonst - ' - Me.cntlAbsender_Sonst._abrArt = "SONST" - Me.cntlAbsender_Sonst._beteiligter = "ABS" - Me.cntlAbsender_Sonst._readOnly = True - Me.cntlAbsender_Sonst.Location = New System.Drawing.Point(632, 133) - Me.cntlAbsender_Sonst.Name = "cntlAbsender_Sonst" - Me.cntlAbsender_Sonst.Size = New System.Drawing.Size(21, 20) - Me.cntlAbsender_Sonst.TabIndex = 68 - Me.cntlAbsender_Sonst.TabStop = False - Me.cntlAbsender_Sonst.value = "" - ' - 'cntlEmpfaenger_Sonst - ' - Me.cntlEmpfaenger_Sonst._abrArt = "SONST" - Me.cntlEmpfaenger_Sonst._beteiligter = "EMPF" - Me.cntlEmpfaenger_Sonst._readOnly = True - Me.cntlEmpfaenger_Sonst.Location = New System.Drawing.Point(632, 94) - Me.cntlEmpfaenger_Sonst.Name = "cntlEmpfaenger_Sonst" - Me.cntlEmpfaenger_Sonst.Size = New System.Drawing.Size(21, 20) - Me.cntlEmpfaenger_Sonst.TabIndex = 53 - Me.cntlEmpfaenger_Sonst.TabStop = False - Me.cntlEmpfaenger_Sonst.value = "" - ' - 'cntlAuftraggeber_Sonst - ' - Me.cntlAuftraggeber_Sonst._abrArt = "SONST" - Me.cntlAuftraggeber_Sonst._beteiligter = "AUFTR" - Me.cntlAuftraggeber_Sonst._readOnly = True - Me.cntlAuftraggeber_Sonst.Location = New System.Drawing.Point(632, 57) - Me.cntlAuftraggeber_Sonst.Name = "cntlAuftraggeber_Sonst" - Me.cntlAuftraggeber_Sonst.Size = New System.Drawing.Size(21, 20) - Me.cntlAuftraggeber_Sonst.TabIndex = 36 - Me.cntlAuftraggeber_Sonst.TabStop = False - Me.cntlAuftraggeber_Sonst.value = "" - ' - 'cntlAvisierer_Sonst - ' - Me.cntlAvisierer_Sonst._abrArt = "SONST" - Me.cntlAvisierer_Sonst._beteiligter = "AVISIERER" - Me.cntlAvisierer_Sonst._readOnly = True - Me.cntlAvisierer_Sonst.Location = New System.Drawing.Point(632, 20) - Me.cntlAvisierer_Sonst.Name = "cntlAvisierer_Sonst" - Me.cntlAvisierer_Sonst.Size = New System.Drawing.Size(21, 20) - Me.cntlAvisierer_Sonst.TabIndex = 21 - Me.cntlAvisierer_Sonst.TabStop = False - Me.cntlAvisierer_Sonst.value = "" - ' - 'cntlFrachtf_Clear - ' - Me.cntlFrachtf_Clear._abrArt = "CLEARING" - Me.cntlFrachtf_Clear._beteiligter = "FRACHTF" - Me.cntlFrachtf_Clear._readOnly = False - Me.cntlFrachtf_Clear.Location = New System.Drawing.Point(600, 168) - Me.cntlFrachtf_Clear.Name = "cntlFrachtf_Clear" - Me.cntlFrachtf_Clear.Size = New System.Drawing.Size(21, 20) - Me.cntlFrachtf_Clear.TabIndex = 81 - Me.cntlFrachtf_Clear.TabStop = False - Me.cntlFrachtf_Clear.value = "" - ' - 'cntlFrachtf_Abf - ' - Me.cntlFrachtf_Abf._abrArt = "ABFKOST" - Me.cntlFrachtf_Abf._beteiligter = "FRACHTF" - Me.cntlFrachtf_Abf._readOnly = False - Me.cntlFrachtf_Abf.Location = New System.Drawing.Point(569, 168) - Me.cntlFrachtf_Abf.Name = "cntlFrachtf_Abf" - Me.cntlFrachtf_Abf.Size = New System.Drawing.Size(21, 20) - Me.cntlFrachtf_Abf.TabIndex = 80 - Me.cntlFrachtf_Abf.TabStop = False - Me.cntlFrachtf_Abf.value = "" - ' - 'cntlFrachtf_Eust - ' - Me.cntlFrachtf_Eust._abrArt = "EUST" - Me.cntlFrachtf_Eust._beteiligter = "FRACHTF" - Me.cntlFrachtf_Eust._readOnly = False - Me.cntlFrachtf_Eust.Location = New System.Drawing.Point(538, 168) - Me.cntlFrachtf_Eust.Name = "cntlFrachtf_Eust" - Me.cntlFrachtf_Eust.Size = New System.Drawing.Size(21, 20) - Me.cntlFrachtf_Eust.TabIndex = 79 - Me.cntlFrachtf_Eust.TabStop = False - Me.cntlFrachtf_Eust.value = "" - ' - 'cntlFrachtf_Zoll - ' - Me.cntlFrachtf_Zoll._abrArt = "ZOLL" - Me.cntlFrachtf_Zoll._beteiligter = "FRACHTF" - Me.cntlFrachtf_Zoll._readOnly = False - Me.cntlFrachtf_Zoll.Location = New System.Drawing.Point(507, 168) - Me.cntlFrachtf_Zoll.Name = "cntlFrachtf_Zoll" - Me.cntlFrachtf_Zoll.Size = New System.Drawing.Size(21, 20) - Me.cntlFrachtf_Zoll.TabIndex = 78 - Me.cntlFrachtf_Zoll.TabStop = False - Me.cntlFrachtf_Zoll.value = "" - ' - 'cntlAbsender_Clear - ' - Me.cntlAbsender_Clear._abrArt = "CLEARING" - Me.cntlAbsender_Clear._beteiligter = "ABS" - Me.cntlAbsender_Clear._readOnly = False - Me.cntlAbsender_Clear.Location = New System.Drawing.Point(600, 133) - Me.cntlAbsender_Clear.Name = "cntlAbsender_Clear" - Me.cntlAbsender_Clear.Size = New System.Drawing.Size(21, 20) - Me.cntlAbsender_Clear.TabIndex = 67 - Me.cntlAbsender_Clear.TabStop = False - Me.cntlAbsender_Clear.value = "" - ' - 'cntlAbsender_Abf - ' - Me.cntlAbsender_Abf._abrArt = "ABFKOST" - Me.cntlAbsender_Abf._beteiligter = "ABS" - Me.cntlAbsender_Abf._readOnly = False - Me.cntlAbsender_Abf.Location = New System.Drawing.Point(569, 133) - Me.cntlAbsender_Abf.Name = "cntlAbsender_Abf" - Me.cntlAbsender_Abf.Size = New System.Drawing.Size(21, 20) - Me.cntlAbsender_Abf.TabIndex = 66 - Me.cntlAbsender_Abf.TabStop = False - Me.cntlAbsender_Abf.value = "" - ' - 'cntlAbsender_Eust - ' - Me.cntlAbsender_Eust._abrArt = "EUST" - Me.cntlAbsender_Eust._beteiligter = "ABS" - Me.cntlAbsender_Eust._readOnly = False - Me.cntlAbsender_Eust.Location = New System.Drawing.Point(538, 133) - Me.cntlAbsender_Eust.Name = "cntlAbsender_Eust" - Me.cntlAbsender_Eust.Size = New System.Drawing.Size(21, 20) - Me.cntlAbsender_Eust.TabIndex = 65 - Me.cntlAbsender_Eust.TabStop = False - Me.cntlAbsender_Eust.value = "" - ' - 'cntlAbsender_Zoll - ' - Me.cntlAbsender_Zoll._abrArt = "ZOLL" - Me.cntlAbsender_Zoll._beteiligter = "ABS" - Me.cntlAbsender_Zoll._readOnly = False - Me.cntlAbsender_Zoll.Location = New System.Drawing.Point(507, 133) - Me.cntlAbsender_Zoll.Name = "cntlAbsender_Zoll" - Me.cntlAbsender_Zoll.Size = New System.Drawing.Size(21, 20) - Me.cntlAbsender_Zoll.TabIndex = 64 - Me.cntlAbsender_Zoll.TabStop = False - Me.cntlAbsender_Zoll.value = "" - ' - 'cntlEmpf_Clear - ' - Me.cntlEmpf_Clear._abrArt = "CLEARING" - Me.cntlEmpf_Clear._beteiligter = "EMPF" - Me.cntlEmpf_Clear._readOnly = False - Me.cntlEmpf_Clear.Location = New System.Drawing.Point(600, 94) - Me.cntlEmpf_Clear.Name = "cntlEmpf_Clear" - Me.cntlEmpf_Clear.Size = New System.Drawing.Size(21, 20) - Me.cntlEmpf_Clear.TabIndex = 52 - Me.cntlEmpf_Clear.TabStop = False - Me.cntlEmpf_Clear.value = "" - ' - 'cntlEmpf_Abf - ' - Me.cntlEmpf_Abf._abrArt = "ABFKOST" - Me.cntlEmpf_Abf._beteiligter = "EMPF" - Me.cntlEmpf_Abf._readOnly = False - Me.cntlEmpf_Abf.Location = New System.Drawing.Point(569, 94) - Me.cntlEmpf_Abf.Name = "cntlEmpf_Abf" - Me.cntlEmpf_Abf.Size = New System.Drawing.Size(21, 20) - Me.cntlEmpf_Abf.TabIndex = 51 - Me.cntlEmpf_Abf.TabStop = False - Me.cntlEmpf_Abf.value = "" - ' - 'cntlEmpf_Eust - ' - Me.cntlEmpf_Eust._abrArt = "EUST" - Me.cntlEmpf_Eust._beteiligter = "EMPF" - Me.cntlEmpf_Eust._readOnly = False - Me.cntlEmpf_Eust.Location = New System.Drawing.Point(538, 94) - Me.cntlEmpf_Eust.Name = "cntlEmpf_Eust" - Me.cntlEmpf_Eust.Size = New System.Drawing.Size(21, 20) - Me.cntlEmpf_Eust.TabIndex = 50 - Me.cntlEmpf_Eust.TabStop = False - Me.cntlEmpf_Eust.value = "" - ' - 'cntlEmpf_Zoll - ' - Me.cntlEmpf_Zoll._abrArt = "ZOLL" - Me.cntlEmpf_Zoll._beteiligter = "EMPF" - Me.cntlEmpf_Zoll._readOnly = False - Me.cntlEmpf_Zoll.Location = New System.Drawing.Point(507, 94) - Me.cntlEmpf_Zoll.Name = "cntlEmpf_Zoll" - Me.cntlEmpf_Zoll.Size = New System.Drawing.Size(21, 20) - Me.cntlEmpf_Zoll.TabIndex = 49 - Me.cntlEmpf_Zoll.TabStop = False - Me.cntlEmpf_Zoll.value = "" - ' - 'cntlAuftr_Clear - ' - Me.cntlAuftr_Clear._abrArt = "CLEARING" - Me.cntlAuftr_Clear._beteiligter = "AUFTR" - Me.cntlAuftr_Clear._readOnly = False - Me.cntlAuftr_Clear.Location = New System.Drawing.Point(600, 57) - Me.cntlAuftr_Clear.Name = "cntlAuftr_Clear" - Me.cntlAuftr_Clear.Size = New System.Drawing.Size(21, 20) - Me.cntlAuftr_Clear.TabIndex = 35 - Me.cntlAuftr_Clear.TabStop = False - Me.cntlAuftr_Clear.value = "" - ' - 'cntlAuftr_Abf - ' - Me.cntlAuftr_Abf._abrArt = "ABFKOST" - Me.cntlAuftr_Abf._beteiligter = "AUFTR" - Me.cntlAuftr_Abf._readOnly = False - Me.cntlAuftr_Abf.Location = New System.Drawing.Point(569, 57) - Me.cntlAuftr_Abf.Name = "cntlAuftr_Abf" - Me.cntlAuftr_Abf.Size = New System.Drawing.Size(21, 20) - Me.cntlAuftr_Abf.TabIndex = 34 - Me.cntlAuftr_Abf.TabStop = False - Me.cntlAuftr_Abf.value = "" - ' - 'cntlAuftr_Eust - ' - Me.cntlAuftr_Eust._abrArt = "EUST" - Me.cntlAuftr_Eust._beteiligter = "AUFTR" - Me.cntlAuftr_Eust._readOnly = False - Me.cntlAuftr_Eust.Location = New System.Drawing.Point(538, 57) - Me.cntlAuftr_Eust.Name = "cntlAuftr_Eust" - Me.cntlAuftr_Eust.Size = New System.Drawing.Size(21, 20) - Me.cntlAuftr_Eust.TabIndex = 33 - Me.cntlAuftr_Eust.TabStop = False - Me.cntlAuftr_Eust.value = "" - ' - 'cntlAuftr_Zoll - ' - Me.cntlAuftr_Zoll._abrArt = "ZOLL" - Me.cntlAuftr_Zoll._beteiligter = "AUFTR" - Me.cntlAuftr_Zoll._readOnly = False - Me.cntlAuftr_Zoll.Location = New System.Drawing.Point(507, 57) - Me.cntlAuftr_Zoll.Name = "cntlAuftr_Zoll" - Me.cntlAuftr_Zoll.Size = New System.Drawing.Size(21, 20) - Me.cntlAuftr_Zoll.TabIndex = 32 - Me.cntlAuftr_Zoll.TabStop = False - Me.cntlAuftr_Zoll.value = "" - ' - 'cntlAvisierer_Clear - ' - Me.cntlAvisierer_Clear._abrArt = "CLEARING" - Me.cntlAvisierer_Clear._beteiligter = "AVISIERER" - Me.cntlAvisierer_Clear._readOnly = False - Me.cntlAvisierer_Clear.Location = New System.Drawing.Point(600, 20) - Me.cntlAvisierer_Clear.Name = "cntlAvisierer_Clear" - Me.cntlAvisierer_Clear.Size = New System.Drawing.Size(21, 20) - Me.cntlAvisierer_Clear.TabIndex = 20 - Me.cntlAvisierer_Clear.TabStop = False - Me.cntlAvisierer_Clear.value = "" - ' - 'cntlAvisierer_Abf - ' - Me.cntlAvisierer_Abf._abrArt = "ABFKOST" - Me.cntlAvisierer_Abf._beteiligter = "AVISIERER" - Me.cntlAvisierer_Abf._readOnly = False - Me.cntlAvisierer_Abf.Location = New System.Drawing.Point(569, 20) - Me.cntlAvisierer_Abf.Name = "cntlAvisierer_Abf" - Me.cntlAvisierer_Abf.Size = New System.Drawing.Size(21, 20) - Me.cntlAvisierer_Abf.TabIndex = 19 - Me.cntlAvisierer_Abf.TabStop = False - Me.cntlAvisierer_Abf.value = "" - ' - 'cntlAvisierer_Eust - ' - Me.cntlAvisierer_Eust._abrArt = "EUST" - Me.cntlAvisierer_Eust._beteiligter = "AVISIERER" - Me.cntlAvisierer_Eust._readOnly = False - Me.cntlAvisierer_Eust.Location = New System.Drawing.Point(538, 20) - Me.cntlAvisierer_Eust.Name = "cntlAvisierer_Eust" - Me.cntlAvisierer_Eust.Size = New System.Drawing.Size(21, 20) - Me.cntlAvisierer_Eust.TabIndex = 18 - Me.cntlAvisierer_Eust.TabStop = False - Me.cntlAvisierer_Eust.value = "" - ' - 'cntlAvisierer_Zoll - ' - Me.cntlAvisierer_Zoll._abrArt = "ZOLL" - Me.cntlAvisierer_Zoll._beteiligter = "AVISIERER" - Me.cntlAvisierer_Zoll._readOnly = False - Me.cntlAvisierer_Zoll.Location = New System.Drawing.Point(507, 20) - Me.cntlAvisierer_Zoll.Name = "cntlAvisierer_Zoll" - Me.cntlAvisierer_Zoll.Size = New System.Drawing.Size(21, 20) - Me.cntlAvisierer_Zoll.TabIndex = 17 - Me.cntlAvisierer_Zoll.TabStop = False - Me.cntlAvisierer_Zoll.value = "" - ' - 'txtAvisierer - ' - Me.txtAvisierer._AlleFirmenCLUSTER = False - Me.txtAvisierer._AllowSetValue = True - Me.txtAvisierer._autoSizeGross = True - Me.txtAvisierer._display_Name1 = False - Me.txtAvisierer._displayAVISO_Email = False - Me.txtAvisierer._displayFullName = False - Me.txtAvisierer._displayWoelflKd = False - Me.txtAvisierer._hideIfListEmpty = True - Me.txtAvisierer._loadKdData = True - Me.txtAvisierer._searchName1 = True - Me.txtAvisierer._UseFIRMA = "" - Me.txtAvisierer._ValueKdAndName = False - Me.txtAvisierer.BackColor = System.Drawing.SystemColors.Window - Me.txtAvisierer.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper - Me.txtAvisierer.dgvpos = "LEFT" - Me.txtAvisierer.KdName = Nothing - Me.txtAvisierer.KdNr = "-1" - Me.txtAvisierer.kdNrField = Nothing - Me.txtAvisierer.KdNrNullInt = Nothing - Me.txtAvisierer.Location = New System.Drawing.Point(120, 20) - Me.txtAvisierer.MaxLength = 50 - Me.txtAvisierer.Name = "txtAvisierer" - Me.txtAvisierer.nurAktive = False - Me.txtAvisierer.searchActive = True - Me.txtAvisierer.Size = New System.Drawing.Size(245, 20) - Me.txtAvisierer.TabIndex = 14 - Me.txtAvisierer.TIMER_SEARCH = True - Me.txtAvisierer.usrcntl = Nothing - ' - 'txtAuftraggeber - ' - Me.txtAuftraggeber._AlleFirmenCLUSTER = False - Me.txtAuftraggeber._AllowSetValue = True - Me.txtAuftraggeber._autoSizeGross = True - Me.txtAuftraggeber._display_Name1 = False - Me.txtAuftraggeber._displayAVISO_Email = False - Me.txtAuftraggeber._displayFullName = False - Me.txtAuftraggeber._displayWoelflKd = False - Me.txtAuftraggeber._hideIfListEmpty = True - Me.txtAuftraggeber._loadKdData = True - Me.txtAuftraggeber._searchName1 = True - Me.txtAuftraggeber._UseFIRMA = "" - Me.txtAuftraggeber._ValueKdAndName = False - Me.txtAuftraggeber.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper - Me.txtAuftraggeber.dgvpos = "LEFT" - Me.txtAuftraggeber.KdName = Nothing - Me.txtAuftraggeber.KdNr = "-1" - Me.txtAuftraggeber.kdNrField = Nothing - Me.txtAuftraggeber.KdNrNullInt = Nothing - Me.txtAuftraggeber.Location = New System.Drawing.Point(120, 57) - Me.txtAuftraggeber.MaxLength = 50 - Me.txtAuftraggeber.Name = "txtAuftraggeber" - Me.txtAuftraggeber.nurAktive = False - Me.txtAuftraggeber.searchActive = True - Me.txtAuftraggeber.Size = New System.Drawing.Size(245, 20) - Me.txtAuftraggeber.TabIndex = 28 - Me.txtAuftraggeber.TIMER_SEARCH = True - Me.txtAuftraggeber.usrcntl = Nothing - ' - 'txtFrachtfuehrerKdNr - ' - Me.txtFrachtfuehrerKdNr._DateTimeOnly = False - Me.txtFrachtfuehrerKdNr._numbersOnly = False - Me.txtFrachtfuehrerKdNr._numbersOnlyKommastellen = "" - Me.txtFrachtfuehrerKdNr._numbersOnlyTrennzeichen = True - Me.txtFrachtfuehrerKdNr._Prozent = False - Me.txtFrachtfuehrerKdNr._ShortDateNew = False - Me.txtFrachtfuehrerKdNr._ShortDateOnly = False - Me.txtFrachtfuehrerKdNr._TimeOnly = False - Me.txtFrachtfuehrerKdNr._TimeOnly_Seconds = False - Me.txtFrachtfuehrerKdNr._value = Nothing - Me.txtFrachtfuehrerKdNr._Waehrung = False - Me.txtFrachtfuehrerKdNr._WaehrungZeichen = True - Me.txtFrachtfuehrerKdNr.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) - Me.txtFrachtfuehrerKdNr.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtFrachtfuehrerKdNr.Location = New System.Drawing.Point(121, 155) - Me.txtFrachtfuehrerKdNr.MaxLineLength = -1 - Me.txtFrachtfuehrerKdNr.MaxLines_Warning = "" - Me.txtFrachtfuehrerKdNr.MaxLines_Warning_Label = Nothing - Me.txtFrachtfuehrerKdNr.Name = "txtFrachtfuehrerKdNr" - Me.txtFrachtfuehrerKdNr.ReadOnly = True - Me.txtFrachtfuehrerKdNr.Size = New System.Drawing.Size(101, 13) - Me.txtFrachtfuehrerKdNr.TabIndex = 70 - Me.txtFrachtfuehrerKdNr.TabStop = False - ' - 'lblEmpfAufschubEust - ' - Me.lblEmpfAufschubEust._DateTimeOnly = False - Me.lblEmpfAufschubEust._numbersOnly = False - Me.lblEmpfAufschubEust._numbersOnlyKommastellen = "" - Me.lblEmpfAufschubEust._numbersOnlyTrennzeichen = True - Me.lblEmpfAufschubEust._Prozent = False - Me.lblEmpfAufschubEust._ShortDateNew = False - Me.lblEmpfAufschubEust._ShortDateOnly = False - Me.lblEmpfAufschubEust._TimeOnly = False - Me.lblEmpfAufschubEust._TimeOnly_Seconds = False - Me.lblEmpfAufschubEust._value = Nothing - Me.lblEmpfAufschubEust._Waehrung = False - Me.lblEmpfAufschubEust._WaehrungZeichen = True - Me.lblEmpfAufschubEust.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) - Me.lblEmpfAufschubEust.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.lblEmpfAufschubEust.ForeColor = System.Drawing.Color.Black - Me.lblEmpfAufschubEust.Location = New System.Drawing.Point(631, 98) - Me.lblEmpfAufschubEust.MaxLineLength = -1 - Me.lblEmpfAufschubEust.MaxLines_Warning = "" - Me.lblEmpfAufschubEust.MaxLines_Warning_Label = Nothing - Me.lblEmpfAufschubEust.Name = "lblEmpfAufschubEust" - Me.lblEmpfAufschubEust.ReadOnly = True - Me.lblEmpfAufschubEust.RightToLeft = System.Windows.Forms.RightToLeft.No - Me.lblEmpfAufschubEust.Size = New System.Drawing.Size(69, 13) - Me.lblEmpfAufschubEust.TabIndex = 55 - Me.lblEmpfAufschubEust.TabStop = False - Me.lblEmpfAufschubEust.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'UsrCntlSND_NCTSGestellungsadresse1 - ' - Me.UsrCntlSND_NCTSGestellungsadresse1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlSND_NCTSGestellungsadresse1.Location = New System.Drawing.Point(0, 0) - Me.UsrCntlSND_NCTSGestellungsadresse1.Name = "UsrCntlSND_NCTSGestellungsadresse1" - Me.UsrCntlSND_NCTSGestellungsadresse1.Size = New System.Drawing.Size(549, 118) - Me.UsrCntlSND_NCTSGestellungsadresse1.TabIndex = 0 - ' - 'txtAbsenderKdNr - ' - Me.txtAbsenderKdNr._DateTimeOnly = False - Me.txtAbsenderKdNr._numbersOnly = False - Me.txtAbsenderKdNr._numbersOnlyKommastellen = "" - Me.txtAbsenderKdNr._numbersOnlyTrennzeichen = True - Me.txtAbsenderKdNr._Prozent = False - Me.txtAbsenderKdNr._ShortDateNew = False - Me.txtAbsenderKdNr._ShortDateOnly = False - Me.txtAbsenderKdNr._TimeOnly = False - Me.txtAbsenderKdNr._TimeOnly_Seconds = False - Me.txtAbsenderKdNr._value = Nothing - Me.txtAbsenderKdNr._Waehrung = False - Me.txtAbsenderKdNr._WaehrungZeichen = True - Me.txtAbsenderKdNr.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) - Me.txtAbsenderKdNr.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtAbsenderKdNr.Location = New System.Drawing.Point(121, 119) - Me.txtAbsenderKdNr.MaxLineLength = -1 - Me.txtAbsenderKdNr.MaxLines_Warning = "" - Me.txtAbsenderKdNr.MaxLines_Warning_Label = Nothing - Me.txtAbsenderKdNr.Name = "txtAbsenderKdNr" - Me.txtAbsenderKdNr.ReadOnly = True - Me.txtAbsenderKdNr.Size = New System.Drawing.Size(101, 13) - Me.txtAbsenderKdNr.TabIndex = 57 - Me.txtAbsenderKdNr.TabStop = False - ' - 'MyTextBox1 - ' - Me.MyTextBox1._DateTimeOnly = False - Me.MyTextBox1._numbersOnly = False - Me.MyTextBox1._numbersOnlyKommastellen = "" - Me.MyTextBox1._numbersOnlyTrennzeichen = True - Me.MyTextBox1._Prozent = False - Me.MyTextBox1._ShortDateNew = False - Me.MyTextBox1._ShortDateOnly = False - Me.MyTextBox1._TimeOnly = False - Me.MyTextBox1._TimeOnly_Seconds = False - Me.MyTextBox1._value = Nothing - Me.MyTextBox1._Waehrung = False - Me.MyTextBox1._WaehrungZeichen = True - Me.MyTextBox1.BackColor = System.Drawing.Color.Gainsboro - Me.MyTextBox1.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.MyTextBox1.Location = New System.Drawing.Point(121, 18) - Me.MyTextBox1.MaxLineLength = -1 - Me.MyTextBox1.MaxLines_Warning = "" - Me.MyTextBox1.MaxLines_Warning_Label = Nothing - Me.MyTextBox1.Name = "MyTextBox1" - Me.MyTextBox1.ReadOnly = True - Me.MyTextBox1.Size = New System.Drawing.Size(100, 13) - Me.MyTextBox1.TabIndex = 11 - Me.MyTextBox1.TabStop = False - Me.MyTextBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'txtEmpfaengerKdNr - ' - Me.txtEmpfaengerKdNr._DateTimeOnly = False - Me.txtEmpfaengerKdNr._numbersOnly = False - Me.txtEmpfaengerKdNr._numbersOnlyKommastellen = "" - Me.txtEmpfaengerKdNr._numbersOnlyTrennzeichen = True - Me.txtEmpfaengerKdNr._Prozent = False - Me.txtEmpfaengerKdNr._ShortDateNew = False - Me.txtEmpfaengerKdNr._ShortDateOnly = False - Me.txtEmpfaengerKdNr._TimeOnly = False - Me.txtEmpfaengerKdNr._TimeOnly_Seconds = False - Me.txtEmpfaengerKdNr._value = Nothing - Me.txtEmpfaengerKdNr._Waehrung = False - Me.txtEmpfaengerKdNr._WaehrungZeichen = True - Me.txtEmpfaengerKdNr.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) - Me.txtEmpfaengerKdNr.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtEmpfaengerKdNr.Location = New System.Drawing.Point(121, 81) - Me.txtEmpfaengerKdNr.MaxLineLength = -1 - Me.txtEmpfaengerKdNr.MaxLines_Warning = "" - Me.txtEmpfaengerKdNr.MaxLines_Warning_Label = Nothing - Me.txtEmpfaengerKdNr.Name = "txtEmpfaengerKdNr" - Me.txtEmpfaengerKdNr.ReadOnly = True - Me.txtEmpfaengerKdNr.Size = New System.Drawing.Size(99, 13) - Me.txtEmpfaengerKdNr.TabIndex = 41 - Me.txtEmpfaengerKdNr.TabStop = False - ' - 'txtAbsender - ' - Me.txtAbsender._AlleFirmenCLUSTER = False - Me.txtAbsender._AllowSetValue = True - Me.txtAbsender._autoSizeGross = True - Me.txtAbsender._display_Name1 = False - Me.txtAbsender._displayAVISO_Email = False - Me.txtAbsender._displayFullName = False - Me.txtAbsender._displayWoelflKd = False - Me.txtAbsender._hideIfListEmpty = True - Me.txtAbsender._loadKdData = True - Me.txtAbsender._searchName1 = True - Me.txtAbsender._UseFIRMA = "" - Me.txtAbsender._ValueKdAndName = False - Me.txtAbsender.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper - Me.txtAbsender.dgvpos = "LEFT" - Me.txtAbsender.KdName = Nothing - Me.txtAbsender.KdNr = "-1" - Me.txtAbsender.kdNrField = Nothing - Me.txtAbsender.KdNrNullInt = Nothing - Me.txtAbsender.Location = New System.Drawing.Point(120, 133) - Me.txtAbsender.MaxLength = 50 - Me.txtAbsender.Name = "txtAbsender" - Me.txtAbsender.nurAktive = False - Me.txtAbsender.searchActive = True - Me.txtAbsender.Size = New System.Drawing.Size(245, 20) - Me.txtAbsender.TabIndex = 61 - Me.txtAbsender.TIMER_SEARCH = True - Me.txtAbsender.usrcntl = Nothing - ' - 'txtEmpfaenger - ' - Me.txtEmpfaenger._AlleFirmenCLUSTER = False - Me.txtEmpfaenger._AllowSetValue = True - Me.txtEmpfaenger._autoSizeGross = True - Me.txtEmpfaenger._display_Name1 = False - Me.txtEmpfaenger._displayAVISO_Email = False - Me.txtEmpfaenger._displayFullName = False - Me.txtEmpfaenger._displayWoelflKd = False - Me.txtEmpfaenger._hideIfListEmpty = True - Me.txtEmpfaenger._loadKdData = True - Me.txtEmpfaenger._searchName1 = True - Me.txtEmpfaenger._UseFIRMA = "" - Me.txtEmpfaenger._ValueKdAndName = False - Me.txtEmpfaenger.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper - Me.txtEmpfaenger.dgvpos = "LEFT" - Me.txtEmpfaenger.KdName = Nothing - Me.txtEmpfaenger.KdNr = "-1" - Me.txtEmpfaenger.kdNrField = Nothing - Me.txtEmpfaenger.KdNrNullInt = Nothing - Me.txtEmpfaenger.Location = New System.Drawing.Point(120, 94) - Me.txtEmpfaenger.Name = "txtEmpfaenger" - Me.txtEmpfaenger.nurAktive = False - Me.txtEmpfaenger.searchActive = True - Me.txtEmpfaenger.Size = New System.Drawing.Size(245, 20) - Me.txtEmpfaenger.TabIndex = 45 - Me.txtEmpfaenger.TIMER_SEARCH = True - Me.txtEmpfaenger.usrcntl = Nothing - ' - 'lblAtrAufschubEust - ' - Me.lblAtrAufschubEust._DateTimeOnly = False - Me.lblAtrAufschubEust._numbersOnly = False - Me.lblAtrAufschubEust._numbersOnlyKommastellen = "" - Me.lblAtrAufschubEust._numbersOnlyTrennzeichen = True - Me.lblAtrAufschubEust._Prozent = False - Me.lblAtrAufschubEust._ShortDateNew = False - Me.lblAtrAufschubEust._ShortDateOnly = False - Me.lblAtrAufschubEust._TimeOnly = False - Me.lblAtrAufschubEust._TimeOnly_Seconds = False - Me.lblAtrAufschubEust._value = Nothing - Me.lblAtrAufschubEust._Waehrung = False - Me.lblAtrAufschubEust._WaehrungZeichen = True - Me.lblAtrAufschubEust.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) - Me.lblAtrAufschubEust.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.lblAtrAufschubEust.ForeColor = System.Drawing.Color.Black - Me.lblAtrAufschubEust.Location = New System.Drawing.Point(631, 60) - Me.lblAtrAufschubEust.MaxLineLength = -1 - Me.lblAtrAufschubEust.MaxLines_Warning = "" - Me.lblAtrAufschubEust.MaxLines_Warning_Label = Nothing - Me.lblAtrAufschubEust.Name = "lblAtrAufschubEust" - Me.lblAtrAufschubEust.ReadOnly = True - Me.lblAtrAufschubEust.RightToLeft = System.Windows.Forms.RightToLeft.No - Me.lblAtrAufschubEust.Size = New System.Drawing.Size(69, 13) - Me.lblAtrAufschubEust.TabIndex = 38 - Me.lblAtrAufschubEust.TabStop = False - Me.lblAtrAufschubEust.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'txtAuftraggeberKdNr - ' - Me.txtAuftraggeberKdNr._DateTimeOnly = False - Me.txtAuftraggeberKdNr._numbersOnly = False - Me.txtAuftraggeberKdNr._numbersOnlyKommastellen = "" - Me.txtAuftraggeberKdNr._numbersOnlyTrennzeichen = True - Me.txtAuftraggeberKdNr._Prozent = False - Me.txtAuftraggeberKdNr._ShortDateNew = False - Me.txtAuftraggeberKdNr._ShortDateOnly = False - Me.txtAuftraggeberKdNr._TimeOnly = False - Me.txtAuftraggeberKdNr._TimeOnly_Seconds = False - Me.txtAuftraggeberKdNr._value = Nothing - Me.txtAuftraggeberKdNr._Waehrung = False - Me.txtAuftraggeberKdNr._WaehrungZeichen = True - Me.txtAuftraggeberKdNr.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) - Me.txtAuftraggeberKdNr.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtAuftraggeberKdNr.Location = New System.Drawing.Point(121, 44) - Me.txtAuftraggeberKdNr.MaxLineLength = -1 - Me.txtAuftraggeberKdNr.MaxLines_Warning = "" - Me.txtAuftraggeberKdNr.MaxLines_Warning_Label = Nothing - Me.txtAuftraggeberKdNr.Name = "txtAuftraggeberKdNr" - Me.txtAuftraggeberKdNr.ReadOnly = True - Me.txtAuftraggeberKdNr.Size = New System.Drawing.Size(100, 13) - Me.txtAuftraggeberKdNr.TabIndex = 23 - Me.txtAuftraggeberKdNr.TabStop = False - ' - 'txtAvisiererKdNr - ' - Me.txtAvisiererKdNr._DateTimeOnly = False - Me.txtAvisiererKdNr._numbersOnly = False - Me.txtAvisiererKdNr._numbersOnlyKommastellen = "" - Me.txtAvisiererKdNr._numbersOnlyTrennzeichen = True - Me.txtAvisiererKdNr._Prozent = False - Me.txtAvisiererKdNr._ShortDateNew = False - Me.txtAvisiererKdNr._ShortDateOnly = False - Me.txtAvisiererKdNr._TimeOnly = False - Me.txtAvisiererKdNr._TimeOnly_Seconds = False - Me.txtAvisiererKdNr._value = Nothing - Me.txtAvisiererKdNr._Waehrung = False - Me.txtAvisiererKdNr._WaehrungZeichen = True - Me.txtAvisiererKdNr.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) - Me.txtAvisiererKdNr.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtAvisiererKdNr.Location = New System.Drawing.Point(121, 5) - Me.txtAvisiererKdNr.MaxLineLength = -1 - Me.txtAvisiererKdNr.MaxLines_Warning = "" - Me.txtAvisiererKdNr.MaxLines_Warning_Label = Nothing - Me.txtAvisiererKdNr.Name = "txtAvisiererKdNr" - Me.txtAvisiererKdNr.ReadOnly = True - Me.txtAvisiererKdNr.Size = New System.Drawing.Size(100, 13) - Me.txtAvisiererKdNr.TabIndex = 9 - Me.txtAvisiererKdNr.TabStop = False - ' - 'txtKdAuftragsNr - ' - Me.txtKdAuftragsNr._DateTimeOnly = False - Me.txtKdAuftragsNr._numbersOnly = False - Me.txtKdAuftragsNr._numbersOnlyKommastellen = "" - Me.txtKdAuftragsNr._numbersOnlyTrennzeichen = True - Me.txtKdAuftragsNr._Prozent = False - Me.txtKdAuftragsNr._ShortDateNew = False - Me.txtKdAuftragsNr._ShortDateOnly = False - Me.txtKdAuftragsNr._TimeOnly = False - Me.txtKdAuftragsNr._TimeOnly_Seconds = False - Me.txtKdAuftragsNr._value = Nothing - Me.txtKdAuftragsNr._Waehrung = False - Me.txtKdAuftragsNr._WaehrungZeichen = True - Me.txtKdAuftragsNr.ForeColor = System.Drawing.Color.Black - Me.txtKdAuftragsNr.Location = New System.Drawing.Point(410, 57) - Me.txtKdAuftragsNr.MaxLength = 50 - Me.txtKdAuftragsNr.MaxLineLength = -1 - Me.txtKdAuftragsNr.MaxLines_Warning = "" - Me.txtKdAuftragsNr.MaxLines_Warning_Label = Nothing - Me.txtKdAuftragsNr.Name = "txtKdAuftragsNr" - Me.txtKdAuftragsNr.Size = New System.Drawing.Size(90, 20) - Me.txtKdAuftragsNr.TabIndex = 31 - ' - 'rtbValidierung - ' - Me.rtbValidierung.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.rtbValidierung.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.rtbValidierung.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.rtbValidierung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.rtbValidierung.Location = New System.Drawing.Point(0, 14) - Me.rtbValidierung.MaxLineLength = -1 - Me.rtbValidierung.MaxLines_Warning = "" - Me.rtbValidierung.MaxLines_Warning_Label = Nothing - Me.rtbValidierung.Name = "rtbValidierung" - Me.rtbValidierung.Size = New System.Drawing.Size(217, 51) - Me.rtbValidierung.TabIndex = 3 - Me.rtbValidierung.Text = "" - ' - 'cboAbfertigungsLand - ' - Me.cboAbfertigungsLand._allowedValuesFreiText = Nothing - Me.cboAbfertigungsLand._allowFreiText = False - Me.cboAbfertigungsLand._value = "" - Me.cboAbfertigungsLand.BackColor = System.Drawing.Color.White - Me.cboAbfertigungsLand.DropDownWidth = 80 - Me.cboAbfertigungsLand.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.cboAbfertigungsLand.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboAbfertigungsLand.FormattingEnabled = True - Me.cboAbfertigungsLand.Location = New System.Drawing.Point(427, 27) - Me.cboAbfertigungsLand.Name = "cboAbfertigungsLand" - Me.cboAbfertigungsLand.Size = New System.Drawing.Size(50, 24) - Me.cboAbfertigungsLand.TabIndex = 12 - ' - 'txtAnzahlPos - ' - Me.txtAnzahlPos._DateTimeOnly = False - Me.txtAnzahlPos._numbersOnly = True - Me.txtAnzahlPos._numbersOnlyKommastellen = "" - Me.txtAnzahlPos._numbersOnlyTrennzeichen = True - Me.txtAnzahlPos._Prozent = False - Me.txtAnzahlPos._ShortDateNew = False - Me.txtAnzahlPos._ShortDateOnly = False - Me.txtAnzahlPos._TimeOnly = False - Me.txtAnzahlPos._TimeOnly_Seconds = False - Me.txtAnzahlPos._value = "" - Me.txtAnzahlPos._Waehrung = False - Me.txtAnzahlPos._WaehrungZeichen = True - Me.txtAnzahlPos.Font = New System.Drawing.Font("Microsoft Tai Le", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtAnzahlPos.Location = New System.Drawing.Point(756, 27) - Me.txtAnzahlPos.MaxLength = 3 - Me.txtAnzahlPos.MaxLineLength = -1 - Me.txtAnzahlPos.MaxLines_Warning = "" - Me.txtAnzahlPos.MaxLines_Warning_Label = Nothing - Me.txtAnzahlPos.Name = "txtAnzahlPos" - Me.txtAnzahlPos.Size = New System.Drawing.Size(41, 24) - Me.txtAnzahlPos.TabIndex = 14 - Me.txtAnzahlPos.Visible = False - ' - 'cboAbfertigungsart - ' - Me.cboAbfertigungsart._allowedValuesFreiText = Nothing - Me.cboAbfertigungsart._allowFreiText = False - Me.cboAbfertigungsart._value = "" - Me.cboAbfertigungsart.BackColor = System.Drawing.Color.White - Me.cboAbfertigungsart.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.cboAbfertigungsart.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboAbfertigungsart.FormattingEnabled = True - Me.cboAbfertigungsart.Location = New System.Drawing.Point(477, 27) - Me.cboAbfertigungsart.Name = "cboAbfertigungsart" - Me.cboAbfertigungsart.Size = New System.Drawing.Size(213, 24) - Me.cboAbfertigungsart.TabIndex = 12 - ' - 'txtFremdEmpfKdNR - ' - Me.txtFremdEmpfKdNR._DateTimeOnly = False - Me.txtFremdEmpfKdNR._numbersOnly = False - Me.txtFremdEmpfKdNR._numbersOnlyKommastellen = "" - Me.txtFremdEmpfKdNR._numbersOnlyTrennzeichen = True - Me.txtFremdEmpfKdNR._Prozent = False - Me.txtFremdEmpfKdNR._ShortDateNew = False - Me.txtFremdEmpfKdNR._ShortDateOnly = False - Me.txtFremdEmpfKdNR._TimeOnly = False - Me.txtFremdEmpfKdNR._TimeOnly_Seconds = False - Me.txtFremdEmpfKdNR._value = Nothing - Me.txtFremdEmpfKdNR._Waehrung = False - Me.txtFremdEmpfKdNR._WaehrungZeichen = True - Me.txtFremdEmpfKdNR.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.txtFremdEmpfKdNR.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtFremdEmpfKdNR.ForeColor = System.Drawing.Color.White - Me.txtFremdEmpfKdNR.Location = New System.Drawing.Point(307, 8) - Me.txtFremdEmpfKdNR.MaxLineLength = -1 - Me.txtFremdEmpfKdNR.MaxLines_Warning = "" - Me.txtFremdEmpfKdNR.MaxLines_Warning_Label = Nothing - Me.txtFremdEmpfKdNR.Name = "txtFremdEmpfKdNR" - Me.txtFremdEmpfKdNR.ReadOnly = True - Me.txtFremdEmpfKdNR.Size = New System.Drawing.Size(100, 13) - Me.txtFremdEmpfKdNR.TabIndex = 2 - Me.txtFremdEmpfKdNR.TabStop = False - Me.txtFremdEmpfKdNR.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'txtFremdEmpf - ' - Me.txtFremdEmpf._AlleFirmenCLUSTER = False - Me.txtFremdEmpf._AllowSetValue = True - Me.txtFremdEmpf._autoSizeGross = True - Me.txtFremdEmpf._display_Name1 = False - Me.txtFremdEmpf._displayAVISO_Email = False - Me.txtFremdEmpf._displayFullName = False - Me.txtFremdEmpf._displayWoelflKd = False - Me.txtFremdEmpf._hideIfListEmpty = True - Me.txtFremdEmpf._loadKdData = True - Me.txtFremdEmpf._searchName1 = True - Me.txtFremdEmpf._UseFIRMA = "" - Me.txtFremdEmpf._ValueKdAndName = False - Me.txtFremdEmpf.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper - Me.txtFremdEmpf.dgvpos = "LEFT" - Me.txtFremdEmpf.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.txtFremdEmpf.KdName = Nothing - Me.txtFremdEmpf.KdNr = "-1" - Me.txtFremdEmpf.kdNrField = Nothing - Me.txtFremdEmpf.KdNrNullInt = Nothing - Me.txtFremdEmpf.Location = New System.Drawing.Point(32, 21) - Me.txtFremdEmpf.MaxLength = 50 - Me.txtFremdEmpf.Name = "txtFremdEmpf" - Me.txtFremdEmpf.nurAktive = False - Me.txtFremdEmpf.searchActive = True - Me.txtFremdEmpf.Size = New System.Drawing.Size(175, 26) - Me.txtFremdEmpf.TabIndex = 3 - Me.txtFremdEmpf.TIMER_SEARCH = True - Me.txtFremdEmpf.usrcntl = Nothing - ' - 'cboFremdsped - ' - Me.cboFremdsped._allowedValuesFreiText = Nothing - Me.cboFremdsped._allowFreiText = True - Me.cboFremdsped._value = "" - Me.cboFremdsped.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.cboFremdsped.Location = New System.Drawing.Point(213, 20) - Me.cboFremdsped.Name = "cboFremdsped" - Me.cboFremdsped.Size = New System.Drawing.Size(194, 28) - Me.cboFremdsped.TabIndex = 4 - Me.cboFremdsped.Visible = False - ' - 'txtAnzahl - ' - Me.txtAnzahl._DateTimeOnly = False - Me.txtAnzahl._numbersOnly = True - Me.txtAnzahl._numbersOnlyKommastellen = "" - Me.txtAnzahl._numbersOnlyTrennzeichen = True - Me.txtAnzahl._Prozent = False - Me.txtAnzahl._ShortDateNew = False - Me.txtAnzahl._ShortDateOnly = False - Me.txtAnzahl._TimeOnly = False - Me.txtAnzahl._TimeOnly_Seconds = False - Me.txtAnzahl._value = "" - Me.txtAnzahl._Waehrung = False - Me.txtAnzahl._WaehrungZeichen = True - Me.txtAnzahl.Font = New System.Drawing.Font("Microsoft Tai Le", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtAnzahl.Location = New System.Drawing.Point(695, 27) - Me.txtAnzahl.MaxLength = 3 - Me.txtAnzahl.MaxLineLength = -1 - Me.txtAnzahl.MaxLines_Warning = "" - Me.txtAnzahl.MaxLines_Warning_Label = Nothing - Me.txtAnzahl.Name = "txtAnzahl" - Me.txtAnzahl.Size = New System.Drawing.Size(41, 24) - Me.txtAnzahl.TabIndex = 13 - Me.txtAnzahl.Visible = False - ' - 'txtUnterNr - ' - Me.txtUnterNr._DateTimeOnly = False - Me.txtUnterNr._numbersOnly = False - Me.txtUnterNr._numbersOnlyKommastellen = "" - Me.txtUnterNr._numbersOnlyTrennzeichen = True - Me.txtUnterNr._Prozent = False - Me.txtUnterNr._ShortDateNew = False - Me.txtUnterNr._ShortDateOnly = False - Me.txtUnterNr._TimeOnly = False - Me.txtUnterNr._TimeOnly_Seconds = False - Me.txtUnterNr._value = Nothing - Me.txtUnterNr._Waehrung = False - Me.txtUnterNr._WaehrungZeichen = True - Me.txtUnterNr.Font = New System.Drawing.Font("Microsoft Tai Le", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtUnterNr.Location = New System.Drawing.Point(350, 27) - Me.txtUnterNr.MaxLineLength = -1 - Me.txtUnterNr.MaxLines_Warning = "" - Me.txtUnterNr.MaxLines_Warning_Label = Nothing - Me.txtUnterNr.Name = "txtUnterNr" - Me.txtUnterNr.Size = New System.Drawing.Size(39, 24) - Me.txtUnterNr.TabIndex = 11 - Me.txtUnterNr.Visible = False - ' - 'cboFiliale - ' - Me.cboFiliale._allowedValuesFreiText = Nothing - Me.cboFiliale._allowFreiText = False - Me.cboFiliale._value = "" - Me.cboFiliale.DropDownWidth = 280 - Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Tai Le", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboFiliale.FormattingEnabled = True - Me.cboFiliale.Location = New System.Drawing.Point(33, 27) - Me.cboFiliale.Name = "cboFiliale" - Me.cboFiliale.Size = New System.Drawing.Size(80, 24) - Me.cboFiliale.TabIndex = 8 - ' - 'txtAbfertigungsnummer - ' - Me.txtAbfertigungsnummer._DateTimeOnly = False - Me.txtAbfertigungsnummer._numbersOnly = False - Me.txtAbfertigungsnummer._numbersOnlyKommastellen = "" - Me.txtAbfertigungsnummer._numbersOnlyTrennzeichen = True - Me.txtAbfertigungsnummer._Prozent = False - Me.txtAbfertigungsnummer._ShortDateNew = False - Me.txtAbfertigungsnummer._ShortDateOnly = False - Me.txtAbfertigungsnummer._TimeOnly = False - Me.txtAbfertigungsnummer._TimeOnly_Seconds = False - Me.txtAbfertigungsnummer._value = Nothing - Me.txtAbfertigungsnummer._Waehrung = False - Me.txtAbfertigungsnummer._WaehrungZeichen = True - Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Tai Le", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(120, 27) - Me.txtAbfertigungsnummer.MaxLineLength = -1 - Me.txtAbfertigungsnummer.MaxLines_Warning = "" - Me.txtAbfertigungsnummer.MaxLines_Warning_Label = Nothing - Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer" - Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(224, 24) - Me.txtAbfertigungsnummer.TabIndex = 10 - ' - 'FlatButton2 - ' - Me.FlatButton2.allowBorder = False - Me.FlatButton2.FlatAppearance.BorderSize = 0 - Me.FlatButton2.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.FlatButton2.ForeColor = System.Drawing.Color.Black - Me.FlatButton2.Location = New System.Drawing.Point(2, 2) - Me.FlatButton2.Margin = New System.Windows.Forms.Padding(2) - Me.FlatButton2.Name = "FlatButton2" - Me.FlatButton2.Size = New System.Drawing.Size(90, 51) - Me.FlatButton2.TabIndex = 0 - Me.FlatButton2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.FlatButton2.UseVisualStyleBackColor = True - ' - 'cboVorpapier3 - ' - Me.cboVorpapier3._allowedValuesFreiText = Nothing - Me.cboVorpapier3._allowFreiText = True - Me.cboVorpapier3._value = "" - Me.cboVorpapier3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - Me.cboVorpapier3.FormattingEnabled = True - Me.cboVorpapier3.Location = New System.Drawing.Point(148, 62) - Me.cboVorpapier3.Name = "cboVorpapier3" - Me.cboVorpapier3.Size = New System.Drawing.Size(209, 24) - Me.cboVorpapier3.TabIndex = 12 - ' - 'cboVorpapier2 - ' - Me.cboVorpapier2._allowedValuesFreiText = Nothing - Me.cboVorpapier2._allowFreiText = True - Me.cboVorpapier2._value = "" - Me.cboVorpapier2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - Me.cboVorpapier2.FormattingEnabled = True - Me.cboVorpapier2.Location = New System.Drawing.Point(148, 39) - Me.cboVorpapier2.Name = "cboVorpapier2" - Me.cboVorpapier2.Size = New System.Drawing.Size(209, 24) - Me.cboVorpapier2.TabIndex = 9 - ' - 'cboVorpapier - ' - Me.cboVorpapier._allowedValuesFreiText = Nothing - Me.cboVorpapier._allowFreiText = True - Me.cboVorpapier._value = "" - Me.cboVorpapier.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - Me.cboVorpapier.FormattingEnabled = True - Me.cboVorpapier.Location = New System.Drawing.Point(148, 16) - Me.cboVorpapier.Name = "cboVorpapier" - Me.cboVorpapier.Size = New System.Drawing.Size(209, 24) - Me.cboVorpapier.TabIndex = 6 - ' - 'cbxSpedBuch - ' - Me.cbxSpedBuch._value = "" - Me.cbxSpedBuch.AutoSize = True - Me.cbxSpedBuch.Checked_value = False - Me.cbxSpedBuch.CheckedValue = False - Me.cbxSpedBuch.Location = New System.Drawing.Point(6, 46) - Me.cbxSpedBuch.Name = "cbxSpedBuch" - Me.cbxSpedBuch.Size = New System.Drawing.Size(113, 17) - Me.cbxSpedBuch.TabIndex = 8 - Me.cbxSpedBuch.Text = "Eintrag vorhanden" - Me.cbxSpedBuch.UseVisualStyleBackColor = True - ' - 'ToolStripMenuItem33 - ' - Me.ToolStripMenuItem33.Image = Global.AVISO.My.Resources.Resources.plus - Me.ToolStripMenuItem33.Name = "ToolStripMenuItem33" - Me.ToolStripMenuItem33.Size = New System.Drawing.Size(64, 28) - Me.ToolStripMenuItem33.Text = "EXG" + 'lblAbfArtLand + ' + Me.lblAbfArtLand.AutoSize = True + Me.lblAbfArtLand.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold) + Me.lblAbfArtLand.ForeColor = System.Drawing.Color.Red + Me.lblAbfArtLand.Location = New System.Drawing.Point(424, 52) + Me.lblAbfArtLand.Name = "lblAbfArtLand" + Me.lblAbfArtLand.Size = New System.Drawing.Size(184, 13) + Me.lblAbfArtLand.TabIndex = 114 + Me.lblAbfArtLand.Text = "Abfertigungsart/-land angeben!" + Me.lblAbfArtLand.Visible = False + ' + 'lblFilialeAbfNr + ' + Me.lblFilialeAbfNr.AutoSize = True + Me.lblFilialeAbfNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold) + Me.lblFilialeAbfNr.ForeColor = System.Drawing.Color.Red + Me.lblFilialeAbfNr.Location = New System.Drawing.Point(32, 53) + Me.lblFilialeAbfNr.Name = "lblFilialeAbfNr" + Me.lblFilialeAbfNr.Size = New System.Drawing.Size(245, 13) + Me.lblFilialeAbfNr.TabIndex = 115 + Me.lblFilialeAbfNr.Text = "FilialenNr / Abfertigungsnummer angeben!" + Me.lblFilialeAbfNr.Visible = False + ' + 'lblErr_Auftrageber + ' + Me.lblErr_Auftrageber.AutoSize = True + Me.lblErr_Auftrageber.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold) + Me.lblErr_Auftrageber.ForeColor = System.Drawing.Color.Red + Me.lblErr_Auftrageber.Location = New System.Drawing.Point(120, 44) + Me.lblErr_Auftrageber.Name = "lblErr_Auftrageber" + Me.lblErr_Auftrageber.Size = New System.Drawing.Size(137, 13) + Me.lblErr_Auftrageber.TabIndex = 97 + Me.lblErr_Auftrageber.Text = "Auftraggeber angeben!" + Me.lblErr_Auftrageber.Visible = False ' 'frmSendungsdetailsNEU ' @@ -5984,6 +6026,7 @@ Partial Class frmSendungsdetailsNEU Me.TabControl1.ResumeLayout(False) Me.tbKundenInfo.ResumeLayout(False) Me.tbAnhang.ResumeLayout(False) + CType(Me.dgvAnhang, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel19.ResumeLayout(False) Me.Panel19.PerformLayout() Me.Panel21.ResumeLayout(False) @@ -5991,6 +6034,7 @@ Partial Class frmSendungsdetailsNEU Me.tbZollabfertigung.ResumeLayout(False) Me.Panel16.ResumeLayout(False) Me.Panel16.PerformLayout() + CType(Me.dgvZollAnmeldungen, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel17.ResumeLayout(False) Me.MenuStrip.ResumeLayout(False) Me.MenuStrip.PerformLayout() @@ -6001,6 +6045,7 @@ Partial Class frmSendungsdetailsNEU Me.Panel18.ResumeLayout(False) Me.Panel18.PerformLayout() Me.TabPage2.ResumeLayout(False) + CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).EndInit() Me.pnlSpedBuchNacherfassung.ResumeLayout(False) Me.pnlSpedBuchNacherfassung.PerformLayout() Me.TabPage3.ResumeLayout(False) @@ -6022,7 +6067,9 @@ Partial Class frmSendungsdetailsNEU Me.Panel22.PerformLayout() Me.tbVorkosten.ResumeLayout(False) Me.tbVorkosten.PerformLayout() + CType(Me.dgvVorkosten, System.ComponentModel.ISupportInitialize).EndInit() Me.tbBAR.ResumeLayout(False) + CType(Me.dgvBelege, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel6.ResumeLayout(False) Me.Panel6.PerformLayout() CType(Me.picKdAtrNr_Fraechter, System.ComponentModel.ISupportInitialize).EndInit() @@ -6065,11 +6112,6 @@ Partial Class frmSendungsdetailsNEU Me.ContextMenuStrip2.ResumeLayout(False) Me.cntDigicust.ResumeLayout(False) Me.ContextMenuStrip3.ResumeLayout(False) - CType(Me.dgvAnhang, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.dgvZollAnmeldungen, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.dgvVorkosten, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.dgvBelege, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub @@ -6502,4 +6544,7 @@ Partial Class frmSendungsdetailsNEU Friend WithEvents DataGridViewTextBoxColumn3 As DataGridViewTextBoxColumn Friend WithEvents DataGridViewTextBoxColumn4 As DataGridViewTextBoxColumn Friend WithEvents DataGridViewTextBoxColumn5 As DataGridViewTextBoxColumn + Friend WithEvents lblAbfArtLand As Label + Friend WithEvents lblFilialeAbfNr As Label + Friend WithEvents lblErr_Auftrageber As Label End Class diff --git a/Aviso/frmSendungsdetailsNEU.resx b/Aviso/frmSendungsdetailsNEU.resx index 725b4fa..ffdfcb2 100644 --- a/Aviso/frmSendungsdetailsNEU.resx +++ b/Aviso/frmSendungsdetailsNEU.resx @@ -117,7 +117,45 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 404, 17 + + + 765, 17 + + + + /9j/4AAQSkZJRgABAQEAAAAAAAD/7gAOQWRvYmUAZAAAAAAB/9sAQwABAQEBAQEBAQEBAQEBAQEBAQEB + AQECAQEBAQECAgICAgICAgICAgIDAgICAwMDAwMDBQUFBQUFBQUFBQUFBQUF/9sAQwEBAQECAQIDAgID + BAQDBAQFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF/8AAEQgA + GQAZAwERAAIRAQMRAf/EABgAAAMBAQAAAAAAAAAAAAAAAAAICQcK/8QAKRAAAQUAAgIABAcBAAAAAAAA + AQIDBAUGAAcRITESIxVBYSIyEzMIFv/EABQBAQAAAAAAAAAAAAAAAAAAAAD/xAAUEQEAAAAAAAAAAAAA + AAAAAAAA/9oADAMBAAIRAxEAPwDsSKq/7Vudfqtf2Ky3W77t1EhyJ2zp6WBFraLTW8SKwzFh3EeKwhmM + w202htsDwB64CSWH+lrc3ilVadknOB9Pyx5/c+5cunIwP6vrN6dDCVKHw+kQPz4DTyLim0vTGs7ByGt7 + VhTIWM1NlDU73LrX3qq7qoLzqUqQ5dracLLyQfCklJ/EEHxwKNcCflzQva7Adn5eM8iPKtd/3dGjOrHl + CX/+uu1oCvY9FQAPASxnqXraJBDWh1mqq9RFZSzZZtvKOy5ItAAC0w4glhxLi/61FYBHs+OAxOYzVhjv + 8072rtGHIkiXkewbJuHJAEuJGnQZBabeAJSFhAHzAHgVN4Eiu2d5aQqnXZPF6TM12hk9sdyt3a5uzqc/ + ZU0FWpt3EJ+SbMjvIVJS6FIUgeQkefXkHgLI1adyMwzAa7QpUxShaP4h3HSftc+Pv7r54GoZDeaeu697 + KyW71mPsIEnA6z7BMPYFReXTtvJirbbhIRHnPvuh4LUUeR6ICR8QOBcDgHAOAcA4H//Z + + + + + /9j/4AAQSkZJRgABAQEAAAAAAAD/7gAOQWRvYmUAZAAAAAAB/9sAQwABAQEBAQEBAQEBAQEBAQEBAQEB + AQECAQEBAQECAgICAgICAgICAgIDAgICAwMDAwMDBQUFBQUFBQUFBQUFBQUF/9sAQwEBAQECAQIDAgID + BAQDBAQFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF/8AAEQgA + GQAZAwERAAIRAQMRAf/EABgAAAMBAQAAAAAAAAAAAAAAAAAICQcK/8QAKRAAAQUAAgIABAcBAAAAAAAA + AQIDBAUGAAcRITESIxVBYSIyEzMIFv/EABQBAQAAAAAAAAAAAAAAAAAAAAD/xAAUEQEAAAAAAAAAAAAA + AAAAAAAA/9oADAMBAAIRAxEAPwDsSKq/7Vudfqtf2Ky3W77t1EhyJ2zp6WBFraLTW8SKwzFh3EeKwhmM + w202htsDwB64CSWH+lrc3ilVadknOB9Pyx5/c+5cunIwP6vrN6dDCVKHw+kQPz4DTyLim0vTGs7ByGt7 + VhTIWM1NlDU73LrX3qq7qoLzqUqQ5dracLLyQfCklJ/EEHxwKNcCflzQva7Adn5eM8iPKtd/3dGjOrHl + CX/+uu1oCvY9FQAPASxnqXraJBDWh1mqq9RFZSzZZtvKOy5ItAAC0w4glhxLi/61FYBHs+OAxOYzVhjv + 8072rtGHIkiXkewbJuHJAEuJGnQZBabeAJSFhAHzAHgVN4Eiu2d5aQqnXZPF6TM12hk9sdyt3a5uzqc/ + ZU0FWpt3EJ+SbMjvIVJS6FIUgeQkefXkHgLI1adyMwzAa7QpUxShaP4h3HSftc+Pv7r54GoZDeaeu697 + KyW71mPsIEnA6z7BMPYFReXTtvJirbbhIRHnPvuh4LUUeR6ICR8QOBcDgHAOAcA4H//Z + + iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V @@ -1531,6 +1569,9 @@ mVCCPwiVeQBaqAV4Jfq5XQAAAABJRU5ErkJggg== + + 296, 17 + iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V @@ -1762,44 +1803,6 @@ rGp33g/w9ql7NoGnXyWw0LUP726+A48ybH5BknCWWY7Lq2TVaSzNVMvnjcLjoYqrHD5NUxOdyqYOtXoR rY7H4jHYSnSdT2lHL8uwNOUI/FU+hyHGUMfjc2xVDEQxsJvDOOIVCrQdKLqYyNPBKNaFOo4UMPToVZT5 eWpiMRXkm9o//9k= - - - - 404, 17 - - - 765, 17 - - - - /9j/4AAQSkZJRgABAQEAAAAAAAD/7gAOQWRvYmUAZAAAAAAB/9sAQwABAQEBAQEBAQEBAQEBAQEBAQEB - AQECAQEBAQECAgICAgICAgICAgIDAgICAwMDAwMDBQUFBQUFBQUFBQUFBQUF/9sAQwEBAQECAQIDAgID - BAQDBAQFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF/8AAEQgA - GQAZAwERAAIRAQMRAf/EABgAAAMBAQAAAAAAAAAAAAAAAAAICQcK/8QAKRAAAQUAAgIABAcBAAAAAAAA - AQIDBAUGAAcRITESIxVBYSIyEzMIFv/EABQBAQAAAAAAAAAAAAAAAAAAAAD/xAAUEQEAAAAAAAAAAAAA - AAAAAAAA/9oADAMBAAIRAxEAPwDsSKq/7Vudfqtf2Ky3W77t1EhyJ2zp6WBFraLTW8SKwzFh3EeKwhmM - w202htsDwB64CSWH+lrc3ilVadknOB9Pyx5/c+5cunIwP6vrN6dDCVKHw+kQPz4DTyLim0vTGs7ByGt7 - VhTIWM1NlDU73LrX3qq7qoLzqUqQ5dracLLyQfCklJ/EEHxwKNcCflzQva7Adn5eM8iPKtd/3dGjOrHl - CX/+uu1oCvY9FQAPASxnqXraJBDWh1mqq9RFZSzZZtvKOy5ItAAC0w4glhxLi/61FYBHs+OAxOYzVhjv - 8072rtGHIkiXkewbJuHJAEuJGnQZBabeAJSFhAHzAHgVN4Eiu2d5aQqnXZPF6TM12hk9sdyt3a5uzqc/ - ZU0FWpt3EJ+SbMjvIVJS6FIUgeQkefXkHgLI1adyMwzAa7QpUxShaP4h3HSftc+Pv7r54GoZDeaeu697 - KyW71mPsIEnA6z7BMPYFReXTtvJirbbhIRHnPvuh4LUUeR6ICR8QOBcDgHAOAcA4H//Z - - - - - /9j/4AAQSkZJRgABAQEAAAAAAAD/7gAOQWRvYmUAZAAAAAAB/9sAQwABAQEBAQEBAQEBAQEBAQEBAQEB - AQECAQEBAQECAgICAgICAgICAgIDAgICAwMDAwMDBQUFBQUFBQUFBQUFBQUF/9sAQwEBAQECAQIDAgID - BAQDBAQFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF/8AAEQgA - GQAZAwERAAIRAQMRAf/EABgAAAMBAQAAAAAAAAAAAAAAAAAICQcK/8QAKRAAAQUAAgIABAcBAAAAAAAA - AQIDBAUGAAcRITESIxVBYSIyEzMIFv/EABQBAQAAAAAAAAAAAAAAAAAAAAD/xAAUEQEAAAAAAAAAAAAA - AAAAAAAA/9oADAMBAAIRAxEAPwDsSKq/7Vudfqtf2Ky3W77t1EhyJ2zp6WBFraLTW8SKwzFh3EeKwhmM - w202htsDwB64CSWH+lrc3ilVadknOB9Pyx5/c+5cunIwP6vrN6dDCVKHw+kQPz4DTyLim0vTGs7ByGt7 - VhTIWM1NlDU73LrX3qq7qoLzqUqQ5dracLLyQfCklJ/EEHxwKNcCflzQva7Adn5eM8iPKtd/3dGjOrHl - CX/+uu1oCvY9FQAPASxnqXraJBDWh1mqq9RFZSzZZtvKOy5ItAAC0w4glhxLi/61FYBHs+OAxOYzVhjv - 8072rtGHIkiXkewbJuHJAEuJGnQZBabeAJSFhAHzAHgVN4Eiu2d5aQqnXZPF6TM12hk9sdyt3a5uzqc/ - ZU0FWpt3EJ+SbMjvIVJS6FIUgeQkefXkHgLI1adyMwzAa7QpUxShaP4h3HSftc+Pv7r54GoZDeaeu697 - KyW71mPsIEnA6z7BMPYFReXTtvJirbbhIRHnPvuh4LUUeR6ICR8QOBcDgHAOAcA4H//Z @@ -2074,6 +2077,9 @@ 174, 17 + + 404, 17 + 596, 17 diff --git a/Aviso/frmSendungsdetailsNEU.vb b/Aviso/frmSendungsdetailsNEU.vb index 949b503..d586b89 100644 --- a/Aviso/frmSendungsdetailsNEU.vb +++ b/Aviso/frmSendungsdetailsNEU.vb @@ -177,8 +177,42 @@ Public Class frmSendungsdetailsNEU Dim FilialeAktFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(SENDUNG_LIST(CURRENT_INDEX).FilialenNr,, "") lblErr_AvisiererKdNr.Visible = False lblErr_EmpfKdNr.Visible = False + lblErr_Auftrageber.Visible = False lblErr_FraechterKdNr.Visible = False + If showErr Then + + lblFilialeAbfNr.Visible = False + lblAbfArtLand.Visible = False + End If + + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then + + + If cboFiliale._value = "" Then + rtbValidierung.Text &= "Wählen Sie eine FilialenNr!" & vbNewLine : pnlValidation.Visible = True + If showErr Then lblFilialeAbfNr.Visible = True : Return False + End If + + If btnNeueAbfertigungNrVergeben.Visible OrElse txtAbfertigungsnummer.Text = "" Then + rtbValidierung.Text &= "Wählen Sie eine Abfertigungs-Nummer!" & vbNewLine : pnlValidation.Visible = True + If showErr Then lblFilialeAbfNr.Visible = True : Return False + End If + If cboAbfertigungsart._value = "" Then + rtbValidierung.Text &= "Wählen Sie eine Abfertigungs-Art!" & vbNewLine : pnlValidation.Visible = True + If showErr Then lblAbfArtLand.Visible = True : Return False + End If + If cboAbfertigungsLand._value = "" Then + rtbValidierung.Text &= "Wählen Sie eine Abfertigungs-Land!" & vbNewLine : pnlValidation.Visible = True + If showErr Then lblAbfArtLand.Visible = True : Return False + End If + If txtAuftraggeber.Text = "" Then + rtbValidierung.Text &= "Wählen Sie einen Auftraggeber!" & vbNewLine : pnlValidation.Visible = True + If showErr Then lblErr_Auftrageber.Visible = True : Return False + End If + + + End If '-------------------------------------------------- @@ -202,6 +236,7 @@ Public Class frmSendungsdetailsNEU Case Else If CInt(If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisiererKdNr, "0")) <= 0 Then rtbValidierung.Text &= "- Aviserer KdNr fehlt" & vbNewLine : pnlValidation.Visible = True ' lblErr_AvisiererKdNr.Visible = True : Return False If SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr <= 0 Then rtbValidierung.Text &= "- Empfänger KdNr fehlt" & vbNewLine : pnlValidation.Visible = True 'lblErr_EmpfKdNr.Visible = True : Return False + If SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr <= 0 Then rtbValidierung.Text &= "- Auftraggeber KdNr fehlt" & vbNewLine : pnlValidation.Visible = True 'lblErr_EmpfKdNr.Visible = True : Return False If CInt(If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr, "0")) <= 0 Then rtbValidierung.Text &= "- Frächter KdNr fehlt" & vbNewLine : pnlValidation.Visible = True 'lblErr_FraechterKdNr.Visible = True : Return False End Select If Not SENDUNG_LIST(CURRENT_INDEX).tblSnd_Fremdspedition Then @@ -474,6 +509,7 @@ Public Class frmSendungsdetailsNEU 'rtbAnmerkungDispoliste.Visible = False Case "ATILLA" : sbWhere = " AND Niederlassung = 'SUA' " + TabControl1.SelectedTab = tbAnhang Case "VERIMEX" TabControl1.SelectedTab = tbAnhang Case "UNISPED" @@ -1035,7 +1071,7 @@ Public Class frmSendungsdetailsNEU MsgBox("Diese Sendung kann nicht gelöscht werden!") Exit Sub Else - If SAVE_ME() Then ' Änderungen speichern + If True Then 'SAVE_ME() Then ' Änderungen speichern Dim sendBez = SENDUNG_LIST(b.value).tblSnd_PosUnterNr & ". " sendBez &= ADMIN.getValueTxtBySql("SELECT Abfertigungsbezeichnung FROM Abfertigungsarten WHERE [Abfertigungsart]='" & SENDUNG_LIST(b.value).tblSnd_Abfertigungsart_ID & "'", "FMZOLL") @@ -1283,12 +1319,14 @@ Public Class frmSendungsdetailsNEU whereFiliale = " AND FilialenNr IN (4803,4805,4811,5003,5303,5103,4839,5501,5601,5701,5801,7001) " If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then whereFiliale = " AND FilialenNr IN (4803,4805,4811,5003,5303,5103,4839,5501,5601,5801,5701,7001) " + ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then + whereFiliale = " AND FilialenNr IN (4801,4802,4803,4805,4811,5003,5303,5103,4839,5501,5601,5801,5701,7001) " End If Case Else Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "ATILLA" - whereFiliale = " AND FilialenNr IN (4801) " + whereFiliale = " AND FilialenNr IN (4801,4802) " Case "AMBAR" whereFiliale = " AND FilialenNr IN (5701) " Case Else diff --git a/Aviso/usrCntlSND_ATBGestellung.Designer.vb b/Aviso/usrCntlSND_ATBGestellung.Designer.vb index c0bb1b5..bedeb1d 100644 --- a/Aviso/usrCntlSND_ATBGestellung.Designer.vb +++ b/Aviso/usrCntlSND_ATBGestellung.Designer.vb @@ -53,9 +53,10 @@ Partial Class usrCntlSND_ATBGestellung ' 'btnGesSicherheit ' - Me.btnGesSicherheit.Location = New System.Drawing.Point(417, 3) + Me.btnGesSicherheit.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnGesSicherheit.Location = New System.Drawing.Point(397, 3) Me.btnGesSicherheit.Name = "btnGesSicherheit" - Me.btnGesSicherheit.Size = New System.Drawing.Size(113, 49) + Me.btnGesSicherheit.Size = New System.Drawing.Size(149, 49) Me.btnGesSicherheit.TabIndex = 25 Me.btnGesSicherheit.Text = "Gesamtsicherheit (Verwahrung)" Me.btnGesSicherheit.UseVisualStyleBackColor = True diff --git a/Aviso/usrcntlAktDetails.Designer.vb b/Aviso/usrcntlAktDetails.Designer.vb index d516eab..348c5ff 100644 --- a/Aviso/usrcntlAktDetails.Designer.vb +++ b/Aviso/usrcntlAktDetails.Designer.vb @@ -28,12 +28,12 @@ Partial Class usrcntlAktDetails Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrcntlAktDetails)) Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrcntlAktDetails)) Me.pnlDetailsRechts = New System.Windows.Forms.Panel() Me.Panel3 = New System.Windows.Forms.Panel() Me.SplitContainer = New System.Windows.Forms.SplitContainer() @@ -45,22 +45,28 @@ Partial Class usrcntlAktDetails Me.cboGrenzstelle = New System.Windows.Forms.ComboBox() Me.Label11 = New System.Windows.Forms.Label() Me.lnlSendungText = New System.Windows.Forms.Label() + Me.txtSendungen = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.pnlSBG = New System.Windows.Forms.Panel() Me.lblSndFremd = New System.Windows.Forms.Label() Me.Label21 = New System.Windows.Forms.Label() + Me.txtSndFremd = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label20 = New System.Windows.Forms.Label() Me.Label19 = New System.Windows.Forms.Label() Me.lblFiskde = New System.Windows.Forms.Label() + Me.txtSndFiskalDE = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblFiskAT = New System.Windows.Forms.Label() + Me.txtSndFiskalAT = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.cbxSammelakt = New System.Windows.Forms.CheckBox() Me.Button5 = New System.Windows.Forms.Button() Me.Button3 = New System.Windows.Forms.Button() Me.btn = New System.Windows.Forms.Button() Me.dgvSendungen = New System.Windows.Forms.DataGridView() Me.Panel7 = New System.Windows.Forms.Panel() - Me.btnQuckScan = New System.Windows.Forms.Button() Me.picArrowDown = New System.Windows.Forms.PictureBox() Me.Panel4 = New System.Windows.Forms.Panel() + Me.Button9 = New System.Windows.Forms.Button() + Me.cbxLZDeFisk = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components) + Me.cbxLZT1 = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components) Me.Button2 = New System.Windows.Forms.Button() Me.cbxVPSplit = New System.Windows.Forms.CheckBox() Me.btnLZDruckDIGITAL = New System.Windows.Forms.Button() @@ -69,12 +75,13 @@ Partial Class usrcntlAktDetails Me.btnAlleSteuerbescheide = New System.Windows.Forms.Button() Me.btnAlleAkendeckel = New System.Windows.Forms.Button() Me.btnDipoListe = New System.Windows.Forms.Button() + Me.cboFormulareRgAn = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label4 = New System.Windows.Forms.Label() Me.btnSA_Gestellung = New System.Windows.Forms.Button() Me.btnLZDruck = New System.Windows.Forms.Button() Me.btnDipoListeEmail = New System.Windows.Forms.Button() Me.btnDispohaft = New System.Windows.Forms.Button() - Me.Button18 = New System.Windows.Forms.Button() + Me.cbxLZRg = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components) Me.gridVermerke = New System.Windows.Forms.DataGridView() Me.pnlVermerkeTop = New System.Windows.Forms.Panel() Me.Panel1 = New System.Windows.Forms.Panel() @@ -88,16 +95,19 @@ Partial Class usrcntlAktDetails Me.tbAnhang = New System.Windows.Forms.TabPage() Me.addVermerk = New System.Windows.Forms.Button() Me.pnlMAInfo = New System.Windows.Forms.Panel() - Me.lblSNDChat_MsgCnt = New System.Windows.Forms.Label() - Me.picMAinfo_TRVorgeschrieben = New System.Windows.Forms.PictureBox() + Me.pnlMaDetails = New System.Windows.Forms.Panel() Me.txtMAinfo_TRVorgeschrieben = New System.Windows.Forms.TextBox() Me.picMAinfo_AbklaerungTR = New System.Windows.Forms.PictureBox() - Me.picAVISOMessengerSNDChat = New System.Windows.Forms.PictureBox() Me.picMAinfo_Vorgeschrieben = New System.Windows.Forms.PictureBox() Me.picMAinfo_VorbereitetQs = New System.Windows.Forms.PictureBox() Me.txtMAinfo_AbklaerungTR = New System.Windows.Forms.TextBox() Me.txtMAinfo_Vorgeschrieben = New System.Windows.Forms.TextBox() Me.txtMAinfo_VorbereitetQs = New System.Windows.Forms.TextBox() + Me.btnQuckScan = New System.Windows.Forms.Button() + Me.lblSNDChat_MsgCnt = New System.Windows.Forms.Label() + Me.picMAinfo_TRVorgeschrieben = New System.Windows.Forms.PictureBox() + Me.Button18 = New System.Windows.Forms.Button() + Me.picAVISOMessengerSNDChat = New System.Windows.Forms.PictureBox() Me.Panel8 = New System.Windows.Forms.Panel() Me.btnQRVerwahrung = New System.Windows.Forms.Button() Me.lblAktUebernommen = New System.Windows.Forms.Label() @@ -176,15 +186,6 @@ Partial Class usrcntlAktDetails Me.btnÄndern = New System.Windows.Forms.Button() Me.btnTV = New System.Windows.Forms.Button() Me.Button10 = New System.Windows.Forms.Button() - Me.Button9 = New System.Windows.Forms.Button() - Me.txtSendungen = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtSndFremd = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtSndFiskalDE = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtSndFiskalAT = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cbxLZDeFisk = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components) - Me.cbxLZT1 = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components) - Me.cboFormulareRgAn = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cbxLZRg = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components) Me.pnlDetailsRechts.SuspendLayout() Me.Panel3.SuspendLayout() CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit() @@ -202,11 +203,12 @@ Partial Class usrcntlAktDetails Me.Panel1.SuspendLayout() Me.tbcntlVermerke.SuspendLayout() Me.pnlMAInfo.SuspendLayout() - CType(Me.picMAinfo_TRVorgeschrieben, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlMaDetails.SuspendLayout() CType(Me.picMAinfo_AbklaerungTR, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.picAVISOMessengerSNDChat, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.picMAinfo_Vorgeschrieben, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.picMAinfo_VorbereitetQs, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.picMAinfo_TRVorgeschrieben, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.picAVISOMessengerSNDChat, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel8.SuspendLayout() CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).BeginInit() Me.pnlAbgeschlossen.SuspendLayout() @@ -270,10 +272,8 @@ Partial Class usrcntlAktDetails ' 'SplitContainer.Panel2 ' - Me.SplitContainer.Panel2.Controls.Add(Me.btnQuckScan) Me.SplitContainer.Panel2.Controls.Add(Me.picArrowDown) Me.SplitContainer.Panel2.Controls.Add(Me.Panel4) - Me.SplitContainer.Panel2.Controls.Add(Me.Button18) Me.SplitContainer.Panel2.Controls.Add(Me.gridVermerke) Me.SplitContainer.Panel2.Controls.Add(Me.pnlVermerkeTop) Me.SplitContainer.Panel2.Controls.Add(Me.addVermerk) @@ -381,6 +381,32 @@ Partial Class usrcntlAktDetails Me.lnlSendungText.TabIndex = 2 Me.lnlSendungText.Text = "Sendung" ' + 'txtSendungen + ' + Me.txtSendungen._DateTimeOnly = False + Me.txtSendungen._numbersOnly = True + Me.txtSendungen._numbersOnlyKommastellen = "" + Me.txtSendungen._numbersOnlyTrennzeichen = True + Me.txtSendungen._Prozent = False + Me.txtSendungen._ShortDateNew = False + Me.txtSendungen._ShortDateOnly = False + Me.txtSendungen._TimeOnly = False + Me.txtSendungen._TimeOnly_Seconds = False + Me.txtSendungen._value = "" + Me.txtSendungen._Waehrung = False + Me.txtSendungen._WaehrungZeichen = True + Me.txtSendungen.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtSendungen.ForeColor = System.Drawing.Color.Black + Me.txtSendungen.Location = New System.Drawing.Point(22, 17) + Me.txtSendungen.MaxLineLength = -1 + Me.txtSendungen.MaxLines_Warning = "" + Me.txtSendungen.MaxLines_Warning_Label = Nothing + Me.txtSendungen.Name = "txtSendungen" + Me.txtSendungen.Size = New System.Drawing.Size(32, 26) + Me.txtSendungen.TabIndex = 1 + Me.txtSendungen.Text = "1" + Me.txtSendungen.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' 'pnlSBG ' Me.pnlSBG.Controls.Add(Me.lblSndFremd) @@ -417,6 +443,33 @@ Partial Class usrcntlAktDetails Me.Label21.Text = "1" Me.Label21.TextAlign = System.Drawing.ContentAlignment.TopRight ' + 'txtSndFremd + ' + Me.txtSndFremd._DateTimeOnly = False + Me.txtSndFremd._numbersOnly = True + Me.txtSndFremd._numbersOnlyKommastellen = "" + Me.txtSndFremd._numbersOnlyTrennzeichen = True + Me.txtSndFremd._Prozent = False + Me.txtSndFremd._ShortDateNew = False + Me.txtSndFremd._ShortDateOnly = False + Me.txtSndFremd._TimeOnly = False + Me.txtSndFremd._TimeOnly_Seconds = False + Me.txtSndFremd._value = "" + Me.txtSndFremd._Waehrung = False + Me.txtSndFremd._WaehrungZeichen = True + Me.txtSndFremd.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtSndFremd.ForeColor = System.Drawing.Color.Black + Me.txtSndFremd.Location = New System.Drawing.Point(149, 5) + Me.txtSndFremd.MaxLineLength = -1 + Me.txtSndFremd.MaxLines_Warning = "" + Me.txtSndFremd.MaxLines_Warning_Label = Nothing + Me.txtSndFremd.Name = "txtSndFremd" + Me.txtSndFremd.Size = New System.Drawing.Size(32, 26) + Me.txtSndFremd.TabIndex = 83 + Me.txtSndFremd.Text = "0" + Me.txtSndFremd.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.txtSndFremd.Visible = False + ' 'Label20 ' Me.Label20.AutoSize = True @@ -444,6 +497,32 @@ Partial Class usrcntlAktDetails Me.lblFiskde.TabIndex = 6 Me.lblFiskde.Text = "Fiskal DE" ' + 'txtSndFiskalDE + ' + Me.txtSndFiskalDE._DateTimeOnly = False + Me.txtSndFiskalDE._numbersOnly = True + Me.txtSndFiskalDE._numbersOnlyKommastellen = "" + Me.txtSndFiskalDE._numbersOnlyTrennzeichen = True + Me.txtSndFiskalDE._Prozent = False + Me.txtSndFiskalDE._ShortDateNew = False + Me.txtSndFiskalDE._ShortDateOnly = False + Me.txtSndFiskalDE._TimeOnly = False + Me.txtSndFiskalDE._TimeOnly_Seconds = False + Me.txtSndFiskalDE._value = "" + Me.txtSndFiskalDE._Waehrung = False + Me.txtSndFiskalDE._WaehrungZeichen = True + Me.txtSndFiskalDE.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtSndFiskalDE.ForeColor = System.Drawing.Color.Black + Me.txtSndFiskalDE.Location = New System.Drawing.Point(16, 34) + Me.txtSndFiskalDE.MaxLineLength = -1 + Me.txtSndFiskalDE.MaxLines_Warning = "" + Me.txtSndFiskalDE.MaxLines_Warning_Label = Nothing + Me.txtSndFiskalDE.Name = "txtSndFiskalDE" + Me.txtSndFiskalDE.Size = New System.Drawing.Size(32, 26) + Me.txtSndFiskalDE.TabIndex = 5 + Me.txtSndFiskalDE.Text = "0" + Me.txtSndFiskalDE.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' 'lblFiskAT ' Me.lblFiskAT.AutoSize = True @@ -453,6 +532,32 @@ Partial Class usrcntlAktDetails Me.lblFiskAT.TabIndex = 4 Me.lblFiskAT.Text = "Fiskal AT" ' + 'txtSndFiskalAT + ' + Me.txtSndFiskalAT._DateTimeOnly = False + Me.txtSndFiskalAT._numbersOnly = True + Me.txtSndFiskalAT._numbersOnlyKommastellen = "" + Me.txtSndFiskalAT._numbersOnlyTrennzeichen = True + Me.txtSndFiskalAT._Prozent = False + Me.txtSndFiskalAT._ShortDateNew = False + Me.txtSndFiskalAT._ShortDateOnly = False + Me.txtSndFiskalAT._TimeOnly = False + Me.txtSndFiskalAT._TimeOnly_Seconds = False + Me.txtSndFiskalAT._value = "" + Me.txtSndFiskalAT._Waehrung = False + Me.txtSndFiskalAT._WaehrungZeichen = True + Me.txtSndFiskalAT.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtSndFiskalAT.ForeColor = System.Drawing.Color.Black + Me.txtSndFiskalAT.Location = New System.Drawing.Point(16, 5) + Me.txtSndFiskalAT.MaxLineLength = -1 + Me.txtSndFiskalAT.MaxLines_Warning = "" + Me.txtSndFiskalAT.MaxLines_Warning_Label = Nothing + Me.txtSndFiskalAT.Name = "txtSndFiskalAT" + Me.txtSndFiskalAT.Size = New System.Drawing.Size(32, 26) + Me.txtSndFiskalAT.TabIndex = 3 + Me.txtSndFiskalAT.Text = "0" + Me.txtSndFiskalAT.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' 'cbxSammelakt ' Me.cbxSammelakt.AutoSize = True @@ -573,21 +678,6 @@ Partial Class usrcntlAktDetails Me.Panel7.Size = New System.Drawing.Size(1, 65) Me.Panel7.TabIndex = 15 ' - 'btnQuckScan - ' - Me.btnQuckScan.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btnQuckScan.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnQuckScan.Image = CType(resources.GetObject("btnQuckScan.Image"), System.Drawing.Image) - Me.btnQuckScan.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnQuckScan.Location = New System.Drawing.Point(468, 167) - Me.btnQuckScan.Name = "btnQuckScan" - Me.btnQuckScan.Size = New System.Drawing.Size(107, 34) - Me.btnQuckScan.TabIndex = 107 - Me.btnQuckScan.Text = "Quick-Scan" - Me.btnQuckScan.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnQuckScan.UseVisualStyleBackColor = True - Me.btnQuckScan.Visible = False - ' 'picArrowDown ' Me.picArrowDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) @@ -630,6 +720,51 @@ Partial Class usrcntlAktDetails Me.Panel4.TabIndex = 102 Me.Panel4.Visible = False ' + 'Button9 + ' + Me.Button9.BackColor = System.Drawing.Color.White + Me.Button9.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button9.Image = Global.AVISO.My.Resources.Resources.beleg1 + Me.Button9.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button9.Location = New System.Drawing.Point(5, 147) + Me.Button9.Name = "Button9" + Me.Button9.Size = New System.Drawing.Size(123, 36) + Me.Button9.TabIndex = 119 + Me.Button9.Text = "ATILLA" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Aktendeckel" + Me.Button9.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button9.UseVisualStyleBackColor = False + Me.Button9.Visible = False + ' + 'cbxLZDeFisk + ' + Me.cbxLZDeFisk._value = "" + Me.cbxLZDeFisk.AutoSize = True + Me.cbxLZDeFisk.Checked_value = False + Me.cbxLZDeFisk.CheckedValue = False + Me.cbxLZDeFisk.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) + Me.cbxLZDeFisk.Location = New System.Drawing.Point(205, 93) + Me.cbxLZDeFisk.Name = "cbxLZDeFisk" + Me.cbxLZDeFisk.Size = New System.Drawing.Size(62, 17) + Me.cbxLZDeFisk.TabIndex = 118 + Me.cbxLZDeFisk.Text = "DE Fisk" + Me.cbxLZDeFisk.UseVisualStyleBackColor = True + ' + 'cbxLZT1 + ' + Me.cbxLZT1._value = "" + Me.cbxLZT1.AutoSize = True + Me.cbxLZT1.Checked_value = False + Me.cbxLZT1.CheckedValue = False + Me.cbxLZT1.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) + Me.cbxLZT1.Location = New System.Drawing.Point(172, 93) + Me.cbxLZT1.Name = "cbxLZT1" + Me.cbxLZT1.Size = New System.Drawing.Size(37, 17) + Me.cbxLZT1.TabIndex = 114 + Me.cbxLZT1.Text = "T1" + Me.cbxLZT1.UseVisualStyleBackColor = True + Me.cbxLZT1.Visible = False + ' 'Button2 ' Me.Button2.BackColor = System.Drawing.Color.White @@ -755,6 +890,17 @@ Partial Class usrcntlAktDetails Me.btnDipoListe.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnDipoListe.UseVisualStyleBackColor = False ' + 'cboFormulareRgAn + ' + Me.cboFormulareRgAn._allowedValuesFreiText = Nothing + Me.cboFormulareRgAn._allowFreiText = False + Me.cboFormulareRgAn._value = "" + Me.cboFormulareRgAn.FormattingEnabled = True + Me.cboFormulareRgAn.Location = New System.Drawing.Point(40, 2) + Me.cboFormulareRgAn.Name = "cboFormulareRgAn" + Me.cboFormulareRgAn.Size = New System.Drawing.Size(88, 21) + Me.cboFormulareRgAn.TabIndex = 108 + ' 'Label4 ' Me.Label4.AutoSize = True @@ -829,20 +975,21 @@ Partial Class usrcntlAktDetails Me.btnDispohaft.Text = "Dispo.Haft" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(nur T1/T2)" Me.btnDispohaft.UseVisualStyleBackColor = False ' - 'Button18 + 'cbxLZRg ' - Me.Button18.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.Button18.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button18.Image = CType(resources.GetObject("Button18.Image"), System.Drawing.Image) - Me.Button18.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button18.Location = New System.Drawing.Point(447, 200) - Me.Button18.Name = "Button18" - Me.Button18.Size = New System.Drawing.Size(128, 34) - Me.Button18.TabIndex = 103 - Me.Button18.Text = "Import-Assistent ..." - Me.Button18.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.Button18.UseVisualStyleBackColor = True - Me.Button18.Visible = False + Me.cbxLZRg._value = "" + Me.cbxLZRg.AutoSize = True + Me.cbxLZRg.Checked = True + Me.cbxLZRg.Checked_value = False + Me.cbxLZRg.CheckedValue = False + Me.cbxLZRg.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxLZRg.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) + Me.cbxLZRg.Location = New System.Drawing.Point(134, 93) + Me.cbxLZRg.Name = "cbxLZRg" + Me.cbxLZRg.Size = New System.Drawing.Size(41, 17) + Me.cbxLZRg.TabIndex = 115 + Me.cbxLZRg.Text = "RG" + Me.cbxLZRg.UseVisualStyleBackColor = True ' 'gridVermerke ' @@ -895,7 +1042,7 @@ Partial Class usrcntlAktDetails Me.gridVermerke.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.gridVermerke.ShowCellErrors = False Me.gridVermerke.ShowRowErrors = False - Me.gridVermerke.Size = New System.Drawing.Size(575, 185) + Me.gridVermerke.Size = New System.Drawing.Size(575, 163) Me.gridVermerke.TabIndex = 70 Me.gridVermerke.TabStop = False ' @@ -1036,46 +1183,33 @@ Partial Class usrcntlAktDetails ' 'pnlMAInfo ' + Me.pnlMAInfo.Controls.Add(Me.pnlMaDetails) + Me.pnlMAInfo.Controls.Add(Me.btnQuckScan) Me.pnlMAInfo.Controls.Add(Me.lblSNDChat_MsgCnt) Me.pnlMAInfo.Controls.Add(Me.picMAinfo_TRVorgeschrieben) - Me.pnlMAInfo.Controls.Add(Me.txtMAinfo_TRVorgeschrieben) - Me.pnlMAInfo.Controls.Add(Me.picMAinfo_AbklaerungTR) + Me.pnlMAInfo.Controls.Add(Me.Button18) Me.pnlMAInfo.Controls.Add(Me.picAVISOMessengerSNDChat) - Me.pnlMAInfo.Controls.Add(Me.picMAinfo_Vorgeschrieben) - Me.pnlMAInfo.Controls.Add(Me.picMAinfo_VorbereitetQs) - Me.pnlMAInfo.Controls.Add(Me.txtMAinfo_AbklaerungTR) - Me.pnlMAInfo.Controls.Add(Me.txtMAinfo_Vorgeschrieben) - Me.pnlMAInfo.Controls.Add(Me.txtMAinfo_VorbereitetQs) Me.pnlMAInfo.Dock = System.Windows.Forms.DockStyle.Bottom - Me.pnlMAInfo.Location = New System.Drawing.Point(0, 215) + Me.pnlMAInfo.Location = New System.Drawing.Point(0, 193) Me.pnlMAInfo.Name = "pnlMAInfo" - Me.pnlMAInfo.Size = New System.Drawing.Size(575, 34) + Me.pnlMAInfo.Size = New System.Drawing.Size(575, 56) Me.pnlMAInfo.TabIndex = 106 ' - 'lblSNDChat_MsgCnt + 'pnlMaDetails ' - Me.lblSNDChat_MsgCnt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.lblSNDChat_MsgCnt.BackColor = System.Drawing.Color.Red - Me.lblSNDChat_MsgCnt.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Bold) - Me.lblSNDChat_MsgCnt.ForeColor = System.Drawing.Color.White - Me.lblSNDChat_MsgCnt.Location = New System.Drawing.Point(53, 21) - Me.lblSNDChat_MsgCnt.Name = "lblSNDChat_MsgCnt" - Me.lblSNDChat_MsgCnt.Size = New System.Drawing.Size(22, 11) - Me.lblSNDChat_MsgCnt.TabIndex = 111 - Me.lblSNDChat_MsgCnt.Text = "99" - Me.lblSNDChat_MsgCnt.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - Me.lblSNDChat_MsgCnt.Visible = False - ' - 'picMAinfo_TRVorgeschrieben - ' - Me.picMAinfo_TRVorgeschrieben.BackgroundImage = Global.AVISO.My.Resources.Resources.statusBtn_vorgeschrieben_InAktiv - Me.picMAinfo_TRVorgeschrieben.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.picMAinfo_TRVorgeschrieben.Location = New System.Drawing.Point(451, 3) - Me.picMAinfo_TRVorgeschrieben.Name = "picMAinfo_TRVorgeschrieben" - Me.picMAinfo_TRVorgeschrieben.Size = New System.Drawing.Size(26, 21) - Me.picMAinfo_TRVorgeschrieben.TabIndex = 111 - Me.picMAinfo_TRVorgeschrieben.TabStop = False - Me.picMAinfo_TRVorgeschrieben.Visible = False + Me.pnlMaDetails.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.pnlMaDetails.Controls.Add(Me.txtMAinfo_TRVorgeschrieben) + Me.pnlMaDetails.Controls.Add(Me.picMAinfo_AbklaerungTR) + Me.pnlMaDetails.Controls.Add(Me.picMAinfo_Vorgeschrieben) + Me.pnlMaDetails.Controls.Add(Me.picMAinfo_VorbereitetQs) + Me.pnlMaDetails.Controls.Add(Me.txtMAinfo_AbklaerungTR) + Me.pnlMaDetails.Controls.Add(Me.txtMAinfo_Vorgeschrieben) + Me.pnlMaDetails.Controls.Add(Me.txtMAinfo_VorbereitetQs) + Me.pnlMaDetails.Location = New System.Drawing.Point(76, 2) + Me.pnlMaDetails.Name = "pnlMaDetails" + Me.pnlMaDetails.Size = New System.Drawing.Size(497, 24) + Me.pnlMaDetails.TabIndex = 113 ' 'txtMAinfo_TRVorgeschrieben ' @@ -1084,7 +1218,7 @@ Partial Class usrcntlAktDetails Me.txtMAinfo_TRVorgeschrieben.Cursor = System.Windows.Forms.Cursors.Hand Me.txtMAinfo_TRVorgeschrieben.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold) Me.txtMAinfo_TRVorgeschrieben.ForeColor = System.Drawing.Color.Black - Me.txtMAinfo_TRVorgeschrieben.Location = New System.Drawing.Point(481, 5) + Me.txtMAinfo_TRVorgeschrieben.Location = New System.Drawing.Point(404, 1) Me.txtMAinfo_TRVorgeschrieben.MaxLength = 0 Me.txtMAinfo_TRVorgeschrieben.Name = "txtMAinfo_TRVorgeschrieben" Me.txtMAinfo_TRVorgeschrieben.ReadOnly = True @@ -1098,30 +1232,17 @@ Partial Class usrcntlAktDetails ' Me.picMAinfo_AbklaerungTR.BackgroundImage = Global.AVISO.My.Resources.Resources.abklaerungTR_Inaktiv Me.picMAinfo_AbklaerungTR.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.picMAinfo_AbklaerungTR.Location = New System.Drawing.Point(76, 4) + Me.picMAinfo_AbklaerungTR.Location = New System.Drawing.Point(-1, 0) Me.picMAinfo_AbklaerungTR.Name = "picMAinfo_AbklaerungTR" Me.picMAinfo_AbklaerungTR.Size = New System.Drawing.Size(26, 21) Me.picMAinfo_AbklaerungTR.TabIndex = 109 Me.picMAinfo_AbklaerungTR.TabStop = False ' - 'picAVISOMessengerSNDChat - ' - Me.picAVISOMessengerSNDChat.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.picAVISOMessengerSNDChat.BackgroundImage = Global.AVISO.My.Resources.Resources.aviso_messenger - Me.picAVISOMessengerSNDChat.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.picAVISOMessengerSNDChat.Cursor = System.Windows.Forms.Cursors.Hand - Me.picAVISOMessengerSNDChat.Location = New System.Drawing.Point(30, 1) - Me.picAVISOMessengerSNDChat.Name = "picAVISOMessengerSNDChat" - Me.picAVISOMessengerSNDChat.Size = New System.Drawing.Size(32, 30) - Me.picAVISOMessengerSNDChat.TabIndex = 110 - Me.picAVISOMessengerSNDChat.TabStop = False - Me.picAVISOMessengerSNDChat.Visible = False - ' 'picMAinfo_Vorgeschrieben ' Me.picMAinfo_Vorgeschrieben.BackgroundImage = Global.AVISO.My.Resources.Resources.statusBtn_vorgeschrieben_InAktiv Me.picMAinfo_Vorgeschrieben.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.picMAinfo_Vorgeschrieben.Location = New System.Drawing.Point(326, 4) + Me.picMAinfo_Vorgeschrieben.Location = New System.Drawing.Point(249, 0) Me.picMAinfo_Vorgeschrieben.Name = "picMAinfo_Vorgeschrieben" Me.picMAinfo_Vorgeschrieben.Size = New System.Drawing.Size(26, 21) Me.picMAinfo_Vorgeschrieben.TabIndex = 107 @@ -1131,7 +1252,7 @@ Partial Class usrcntlAktDetails ' Me.picMAinfo_VorbereitetQs.BackgroundImage = Global.AVISO.My.Resources.Resources.statusBtn_vorbereitet_InAktiv Me.picMAinfo_VorbereitetQs.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.picMAinfo_VorbereitetQs.Location = New System.Drawing.Point(200, 4) + Me.picMAinfo_VorbereitetQs.Location = New System.Drawing.Point(123, 0) Me.picMAinfo_VorbereitetQs.Name = "picMAinfo_VorbereitetQs" Me.picMAinfo_VorbereitetQs.Size = New System.Drawing.Size(26, 21) Me.picMAinfo_VorbereitetQs.TabIndex = 0 @@ -1144,7 +1265,7 @@ Partial Class usrcntlAktDetails Me.txtMAinfo_AbklaerungTR.Cursor = System.Windows.Forms.Cursors.Hand Me.txtMAinfo_AbklaerungTR.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold) Me.txtMAinfo_AbklaerungTR.ForeColor = System.Drawing.Color.Black - Me.txtMAinfo_AbklaerungTR.Location = New System.Drawing.Point(105, 6) + Me.txtMAinfo_AbklaerungTR.Location = New System.Drawing.Point(28, 2) Me.txtMAinfo_AbklaerungTR.MaxLength = 0 Me.txtMAinfo_AbklaerungTR.Name = "txtMAinfo_AbklaerungTR" Me.txtMAinfo_AbklaerungTR.ReadOnly = True @@ -1160,7 +1281,7 @@ Partial Class usrcntlAktDetails Me.txtMAinfo_Vorgeschrieben.Cursor = System.Windows.Forms.Cursors.Hand Me.txtMAinfo_Vorgeschrieben.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold) Me.txtMAinfo_Vorgeschrieben.ForeColor = System.Drawing.Color.Black - Me.txtMAinfo_Vorgeschrieben.Location = New System.Drawing.Point(355, 6) + Me.txtMAinfo_Vorgeschrieben.Location = New System.Drawing.Point(278, 2) Me.txtMAinfo_Vorgeschrieben.MaxLength = 0 Me.txtMAinfo_Vorgeschrieben.Name = "txtMAinfo_Vorgeschrieben" Me.txtMAinfo_Vorgeschrieben.ReadOnly = True @@ -1176,7 +1297,7 @@ Partial Class usrcntlAktDetails Me.txtMAinfo_VorbereitetQs.Cursor = System.Windows.Forms.Cursors.Hand Me.txtMAinfo_VorbereitetQs.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold) Me.txtMAinfo_VorbereitetQs.ForeColor = System.Drawing.Color.Black - Me.txtMAinfo_VorbereitetQs.Location = New System.Drawing.Point(230, 6) + Me.txtMAinfo_VorbereitetQs.Location = New System.Drawing.Point(153, 2) Me.txtMAinfo_VorbereitetQs.MaxLength = 0 Me.txtMAinfo_VorbereitetQs.Name = "txtMAinfo_VorbereitetQs" Me.txtMAinfo_VorbereitetQs.ReadOnly = True @@ -1185,6 +1306,75 @@ Partial Class usrcntlAktDetails Me.txtMAinfo_VorbereitetQs.TabStop = False Me.txtMAinfo_VorbereitetQs.Text = "-" ' + 'btnQuckScan + ' + Me.btnQuckScan.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnQuckScan.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnQuckScan.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnQuckScan.Image = CType(resources.GetObject("btnQuckScan.Image"), System.Drawing.Image) + Me.btnQuckScan.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnQuckScan.Location = New System.Drawing.Point(313, 26) + Me.btnQuckScan.Name = "btnQuckScan" + Me.btnQuckScan.Size = New System.Drawing.Size(137, 30) + Me.btnQuckScan.TabIndex = 107 + Me.btnQuckScan.Text = "Quick-Scan (LKW)" + Me.btnQuckScan.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnQuckScan.UseVisualStyleBackColor = True + Me.btnQuckScan.Visible = False + ' + 'lblSNDChat_MsgCnt + ' + Me.lblSNDChat_MsgCnt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.lblSNDChat_MsgCnt.BackColor = System.Drawing.Color.Red + Me.lblSNDChat_MsgCnt.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Bold) + Me.lblSNDChat_MsgCnt.ForeColor = System.Drawing.Color.White + Me.lblSNDChat_MsgCnt.Location = New System.Drawing.Point(63, 41) + Me.lblSNDChat_MsgCnt.Name = "lblSNDChat_MsgCnt" + Me.lblSNDChat_MsgCnt.Size = New System.Drawing.Size(35, 15) + Me.lblSNDChat_MsgCnt.TabIndex = 111 + Me.lblSNDChat_MsgCnt.Text = "99" + Me.lblSNDChat_MsgCnt.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + Me.lblSNDChat_MsgCnt.Visible = False + ' + 'picMAinfo_TRVorgeschrieben + ' + Me.picMAinfo_TRVorgeschrieben.BackgroundImage = Global.AVISO.My.Resources.Resources.statusBtn_vorgeschrieben_InAktiv + Me.picMAinfo_TRVorgeschrieben.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.picMAinfo_TRVorgeschrieben.Location = New System.Drawing.Point(451, 1) + Me.picMAinfo_TRVorgeschrieben.Name = "picMAinfo_TRVorgeschrieben" + Me.picMAinfo_TRVorgeschrieben.Size = New System.Drawing.Size(26, 21) + Me.picMAinfo_TRVorgeschrieben.TabIndex = 111 + Me.picMAinfo_TRVorgeschrieben.TabStop = False + Me.picMAinfo_TRVorgeschrieben.Visible = False + ' + 'Button18 + ' + Me.Button18.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Button18.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button18.Image = CType(resources.GetObject("Button18.Image"), System.Drawing.Image) + Me.Button18.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button18.Location = New System.Drawing.Point(447, 26) + Me.Button18.Name = "Button18" + Me.Button18.Size = New System.Drawing.Size(128, 30) + Me.Button18.TabIndex = 103 + Me.Button18.Text = "Import-Assistent ..." + Me.Button18.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button18.UseVisualStyleBackColor = True + Me.Button18.Visible = False + ' + 'picAVISOMessengerSNDChat + ' + Me.picAVISOMessengerSNDChat.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.picAVISOMessengerSNDChat.BackgroundImage = Global.AVISO.My.Resources.Resources.aviso_messenger + Me.picAVISOMessengerSNDChat.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.picAVISOMessengerSNDChat.Cursor = System.Windows.Forms.Cursors.Hand + Me.picAVISOMessengerSNDChat.Location = New System.Drawing.Point(37, 10) + Me.picAVISOMessengerSNDChat.Name = "picAVISOMessengerSNDChat" + Me.picAVISOMessengerSNDChat.Size = New System.Drawing.Size(40, 35) + Me.picAVISOMessengerSNDChat.TabIndex = 110 + Me.picAVISOMessengerSNDChat.TabStop = False + Me.picAVISOMessengerSNDChat.Visible = False + ' 'Panel8 ' Me.Panel8.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle @@ -2246,183 +2436,6 @@ Partial Class usrcntlAktDetails Me.Button10.TextAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button10.UseVisualStyleBackColor = False ' - 'Button9 - ' - Me.Button9.BackColor = System.Drawing.Color.White - Me.Button9.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button9.Image = Global.AVISO.My.Resources.Resources.beleg1 - Me.Button9.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button9.Location = New System.Drawing.Point(5, 147) - Me.Button9.Name = "Button9" - Me.Button9.Size = New System.Drawing.Size(123, 36) - Me.Button9.TabIndex = 119 - Me.Button9.Text = "ATILLA" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Aktendeckel" - Me.Button9.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.Button9.UseVisualStyleBackColor = False - Me.Button9.Visible = False - ' - 'txtSendungen - ' - Me.txtSendungen._DateTimeOnly = False - Me.txtSendungen._numbersOnly = True - Me.txtSendungen._numbersOnlyKommastellen = "" - Me.txtSendungen._numbersOnlyTrennzeichen = True - Me.txtSendungen._Prozent = False - Me.txtSendungen._ShortDateNew = False - Me.txtSendungen._ShortDateOnly = False - Me.txtSendungen._TimeOnly = False - Me.txtSendungen._TimeOnly_Seconds = False - Me.txtSendungen._value = "" - Me.txtSendungen._Waehrung = False - Me.txtSendungen._WaehrungZeichen = True - Me.txtSendungen.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtSendungen.ForeColor = System.Drawing.Color.Black - Me.txtSendungen.Location = New System.Drawing.Point(22, 17) - Me.txtSendungen.MaxLineLength = -1 - Me.txtSendungen.MaxLines_Warning = "" - Me.txtSendungen.MaxLines_Warning_Label = Nothing - Me.txtSendungen.Name = "txtSendungen" - Me.txtSendungen.Size = New System.Drawing.Size(32, 26) - Me.txtSendungen.TabIndex = 1 - Me.txtSendungen.Text = "1" - Me.txtSendungen.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'txtSndFremd - ' - Me.txtSndFremd._DateTimeOnly = False - Me.txtSndFremd._numbersOnly = True - Me.txtSndFremd._numbersOnlyKommastellen = "" - Me.txtSndFremd._numbersOnlyTrennzeichen = True - Me.txtSndFremd._Prozent = False - Me.txtSndFremd._ShortDateNew = False - Me.txtSndFremd._ShortDateOnly = False - Me.txtSndFremd._TimeOnly = False - Me.txtSndFremd._TimeOnly_Seconds = False - Me.txtSndFremd._value = "" - Me.txtSndFremd._Waehrung = False - Me.txtSndFremd._WaehrungZeichen = True - Me.txtSndFremd.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtSndFremd.ForeColor = System.Drawing.Color.Black - Me.txtSndFremd.Location = New System.Drawing.Point(149, 5) - Me.txtSndFremd.MaxLineLength = -1 - Me.txtSndFremd.MaxLines_Warning = "" - Me.txtSndFremd.MaxLines_Warning_Label = Nothing - Me.txtSndFremd.Name = "txtSndFremd" - Me.txtSndFremd.Size = New System.Drawing.Size(32, 26) - Me.txtSndFremd.TabIndex = 83 - Me.txtSndFremd.Text = "0" - Me.txtSndFremd.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - Me.txtSndFremd.Visible = False - ' - 'txtSndFiskalDE - ' - Me.txtSndFiskalDE._DateTimeOnly = False - Me.txtSndFiskalDE._numbersOnly = True - Me.txtSndFiskalDE._numbersOnlyKommastellen = "" - Me.txtSndFiskalDE._numbersOnlyTrennzeichen = True - Me.txtSndFiskalDE._Prozent = False - Me.txtSndFiskalDE._ShortDateNew = False - Me.txtSndFiskalDE._ShortDateOnly = False - Me.txtSndFiskalDE._TimeOnly = False - Me.txtSndFiskalDE._TimeOnly_Seconds = False - Me.txtSndFiskalDE._value = "" - Me.txtSndFiskalDE._Waehrung = False - Me.txtSndFiskalDE._WaehrungZeichen = True - Me.txtSndFiskalDE.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtSndFiskalDE.ForeColor = System.Drawing.Color.Black - Me.txtSndFiskalDE.Location = New System.Drawing.Point(16, 34) - Me.txtSndFiskalDE.MaxLineLength = -1 - Me.txtSndFiskalDE.MaxLines_Warning = "" - Me.txtSndFiskalDE.MaxLines_Warning_Label = Nothing - Me.txtSndFiskalDE.Name = "txtSndFiskalDE" - Me.txtSndFiskalDE.Size = New System.Drawing.Size(32, 26) - Me.txtSndFiskalDE.TabIndex = 5 - Me.txtSndFiskalDE.Text = "0" - Me.txtSndFiskalDE.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'txtSndFiskalAT - ' - Me.txtSndFiskalAT._DateTimeOnly = False - Me.txtSndFiskalAT._numbersOnly = True - Me.txtSndFiskalAT._numbersOnlyKommastellen = "" - Me.txtSndFiskalAT._numbersOnlyTrennzeichen = True - Me.txtSndFiskalAT._Prozent = False - Me.txtSndFiskalAT._ShortDateNew = False - Me.txtSndFiskalAT._ShortDateOnly = False - Me.txtSndFiskalAT._TimeOnly = False - Me.txtSndFiskalAT._TimeOnly_Seconds = False - Me.txtSndFiskalAT._value = "" - Me.txtSndFiskalAT._Waehrung = False - Me.txtSndFiskalAT._WaehrungZeichen = True - Me.txtSndFiskalAT.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtSndFiskalAT.ForeColor = System.Drawing.Color.Black - Me.txtSndFiskalAT.Location = New System.Drawing.Point(16, 5) - Me.txtSndFiskalAT.MaxLineLength = -1 - Me.txtSndFiskalAT.MaxLines_Warning = "" - Me.txtSndFiskalAT.MaxLines_Warning_Label = Nothing - Me.txtSndFiskalAT.Name = "txtSndFiskalAT" - Me.txtSndFiskalAT.Size = New System.Drawing.Size(32, 26) - Me.txtSndFiskalAT.TabIndex = 3 - Me.txtSndFiskalAT.Text = "0" - Me.txtSndFiskalAT.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'cbxLZDeFisk - ' - Me.cbxLZDeFisk._value = "" - Me.cbxLZDeFisk.AutoSize = True - Me.cbxLZDeFisk.Checked_value = False - Me.cbxLZDeFisk.CheckedValue = False - Me.cbxLZDeFisk.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) - Me.cbxLZDeFisk.Location = New System.Drawing.Point(205, 93) - Me.cbxLZDeFisk.Name = "cbxLZDeFisk" - Me.cbxLZDeFisk.Size = New System.Drawing.Size(62, 17) - Me.cbxLZDeFisk.TabIndex = 118 - Me.cbxLZDeFisk.Text = "DE Fisk" - Me.cbxLZDeFisk.UseVisualStyleBackColor = True - ' - 'cbxLZT1 - ' - Me.cbxLZT1._value = "" - Me.cbxLZT1.AutoSize = True - Me.cbxLZT1.Checked_value = False - Me.cbxLZT1.CheckedValue = False - Me.cbxLZT1.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) - Me.cbxLZT1.Location = New System.Drawing.Point(172, 93) - Me.cbxLZT1.Name = "cbxLZT1" - Me.cbxLZT1.Size = New System.Drawing.Size(37, 17) - Me.cbxLZT1.TabIndex = 114 - Me.cbxLZT1.Text = "T1" - Me.cbxLZT1.UseVisualStyleBackColor = True - Me.cbxLZT1.Visible = False - ' - 'cboFormulareRgAn - ' - Me.cboFormulareRgAn._allowedValuesFreiText = Nothing - Me.cboFormulareRgAn._allowFreiText = False - Me.cboFormulareRgAn._value = "" - Me.cboFormulareRgAn.FormattingEnabled = True - Me.cboFormulareRgAn.Location = New System.Drawing.Point(40, 2) - Me.cboFormulareRgAn.Name = "cboFormulareRgAn" - Me.cboFormulareRgAn.Size = New System.Drawing.Size(88, 21) - Me.cboFormulareRgAn.TabIndex = 108 - ' - 'cbxLZRg - ' - Me.cbxLZRg._value = "" - Me.cbxLZRg.AutoSize = True - Me.cbxLZRg.Checked = True - Me.cbxLZRg.Checked_value = False - Me.cbxLZRg.CheckedValue = False - Me.cbxLZRg.CheckState = System.Windows.Forms.CheckState.Checked - Me.cbxLZRg.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) - Me.cbxLZRg.Location = New System.Drawing.Point(134, 93) - Me.cbxLZRg.Name = "cbxLZRg" - Me.cbxLZRg.Size = New System.Drawing.Size(41, 17) - Me.cbxLZRg.TabIndex = 115 - Me.cbxLZRg.Text = "RG" - Me.cbxLZRg.UseVisualStyleBackColor = True - ' 'usrcntlAktDetails ' Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None @@ -2452,12 +2465,13 @@ Partial Class usrcntlAktDetails Me.Panel1.ResumeLayout(False) Me.tbcntlVermerke.ResumeLayout(False) Me.pnlMAInfo.ResumeLayout(False) - Me.pnlMAInfo.PerformLayout() - CType(Me.picMAinfo_TRVorgeschrieben, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlMaDetails.ResumeLayout(False) + Me.pnlMaDetails.PerformLayout() CType(Me.picMAinfo_AbklaerungTR, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.picAVISOMessengerSNDChat, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.picMAinfo_Vorgeschrieben, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.picMAinfo_VorbereitetQs, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.picMAinfo_TRVorgeschrieben, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.picAVISOMessengerSNDChat, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel8.ResumeLayout(False) Me.Panel8.PerformLayout() CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).EndInit() @@ -2641,4 +2655,5 @@ Partial Class usrcntlAktDetails Friend WithEvents btnAnIndonesien As Button Friend WithEvents Label1 As Label Friend WithEvents Button9 As Button + Friend WithEvents pnlMaDetails As Panel End Class diff --git a/Aviso/usrcntlAktDetails.resx b/Aviso/usrcntlAktDetails.resx index b27a51a..c037b7c 100644 --- a/Aviso/usrcntlAktDetails.resx +++ b/Aviso/usrcntlAktDetails.resx @@ -118,6 +118,19 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAZ1JREFUOE+l + kTlLA0EYhvMTtLIyjbHzwsKI2rgeSSF4gUVEPIIgqIiCQSxsRJSYgC6mCBaKF4IW7tqYJsEjaFBEC0nU + WGoniKlMxNfMhFmS7BjdtXiGnW+/9+Fd1gBAN/GuCRDeO0Zv2Uy19FeIKDG/irf2EUSt/Tit60yOdQpD + oWtF9mDpw3FtB3bLGyGazF/cQC6ILBKJIhAI4r65F4GaNuyUCVg2mTFnrOCHfoLKwimZfOjD1vY+tksF + LBVVUZkmYUxuQDj8CL//DJJ8hI2tPTjdHjimZxUZ2eOGsyGy91MHntercSClZAuuFSpjsF1VOBsqO5mk + sidPJe6cJZh3ilwZISOcTXozJruaKcbJhJErI2Rc0onJgqrZJZGNG+EbLIBky0+uqXOqAYH3mbQZk3Xz + ZQTVQGm2pq0ZI+Pya7NfZATl4b/NGPTQ+wN40OPzwhtXNyvULCOkHoJevGwMJ/7TjGHA4dTX684Yzhd7 + sDlu/WDNDmx5yff8UC4MTZYW3IgD2HW0wm0X4LLXJ/Q0Y1AhQRyySLwFbcDwDUJWbE0CgQrjAAAAAElF + TkSuQmCC + + iVBORw0KGgoAAAANSUhEUgAAAB4AAAAeCAYAAAA7MK6iAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m @@ -175,19 +188,6 @@ kEEKgCAQRfVKeaaOEXSL6hbRNrC9dQ3PUd/IxagLGcZFA48PjjyYrzCd1vqWAC7TTog8wFiBTUUR7Igw fK6ZIRVFsGsolKCtEFl7cmneGpBEuIGeyZoJJSBCpAcXE18Sindow4LJngklIELk8j1wmEpC8Q5PMDNx mVCCPwiVeQBaqAV4Jfq5XQAAAABJRU5ErkJggg== - - - - - iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAZ1JREFUOE+l - kTlLA0EYhvMTtLIyjbHzwsKI2rgeSSF4gUVEPIIgqIiCQSxsRJSYgC6mCBaKF4IW7tqYJsEjaFBEC0nU - WGoniKlMxNfMhFmS7BjdtXiGnW+/9+Fd1gBAN/GuCRDeO0Zv2Uy19FeIKDG/irf2EUSt/Tit60yOdQpD - oWtF9mDpw3FtB3bLGyGazF/cQC6ILBKJIhAI4r65F4GaNuyUCVg2mTFnrOCHfoLKwimZfOjD1vY+tksF - LBVVUZkmYUxuQDj8CL//DJJ8hI2tPTjdHjimZxUZ2eOGsyGy91MHntercSClZAuuFSpjsF1VOBsqO5mk - sidPJe6cJZh3ilwZISOcTXozJruaKcbJhJErI2Rc0onJgqrZJZGNG+EbLIBky0+uqXOqAYH3mbQZk3Xz - ZQTVQGm2pq0ZI+Pya7NfZATl4b/NGPTQ+wN40OPzwhtXNyvULCOkHoJevGwMJ/7TjGHA4dTX684Yzhd7 - sDlu/WDNDmx5yff8UC4MTZYW3IgD2HW0wm0X4LLXJ/Q0Y1AhQRyySLwFbcDwDUJWbE0CgQrjAAAAAElF - TkSuQmCC diff --git a/Aviso/usrcntlAktDetails.vb b/Aviso/usrcntlAktDetails.vb index 7bc94da..88e9b65 100644 --- a/Aviso/usrcntlAktDetails.vb +++ b/Aviso/usrcntlAktDetails.vb @@ -157,20 +157,22 @@ Public Class usrcntlAktDetails If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("LKW_CHAT") Then If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("LKW_CHAT", Me.FindForm) Then + If pnlMaDetails.Visible Then - picAVISOMessengerSNDChat.Visible = True - lblSNDChat_MsgCnt.Visible = False - Dim newMsgSnd = VERAG_PROG_ALLGEMEIN.cMessenger.GET_NewMSG_COUNT_SendungsID(SendungsID) - If newMsgSnd > 0 Then - lblSNDChat_MsgCnt.Text = newMsgSnd - lblSNDChat_MsgCnt.Visible = True - lblSNDChat_MsgCnt.BringToFront() + picAVISOMessengerSNDChat.Visible = True + lblSNDChat_MsgCnt.Visible = False + Dim newMsgSnd = VERAG_PROG_ALLGEMEIN.cMessenger.GET_NewMSG_COUNT_SendungsID(SendungsID) + If newMsgSnd > 0 Then + lblSNDChat_MsgCnt.Text = newMsgSnd + lblSNDChat_MsgCnt.Visible = True + lblSNDChat_MsgCnt.BringToFront() + End If + 'If VERAG_PROG_ALLGEMEIN.cMessenger.isACTIVE_SendungsID(SendungsID) Then + ' lblSNDChat_MsgCnt.Text = "!!" + ' lblSNDChat_MsgCnt.Visible = True + ' lblSNDChat_MsgCnt.BringToFront() + 'End If End If - 'If VERAG_PROG_ALLGEMEIN.cMessenger.isACTIVE_SendungsID(SendungsID) Then - ' lblSNDChat_MsgCnt.Text = "!!" - ' lblSNDChat_MsgCnt.Visible = True - ' lblSNDChat_MsgCnt.BringToFront() - 'End If End If End If @@ -264,6 +266,7 @@ Public Class usrcntlAktDetails btnErfasst.Visible = True End If + Button18.Visible = True If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then btnOptionen.Enabled = False @@ -783,11 +786,29 @@ Public Class usrcntlAktDetails lblInfoAviso.Visible = False infotxt = "" + 'If dgvSendungen.SelectedRows.Count > 0 Then + ' btnQuckScan.Text = "Quick-Scan" & vbNewLine & dgvSendungen.SelectedRows(0).Cells("AbfertigungsNr").Value + 'Else + ' btnQuckScan.Text = "Quick-Scan" & vbNewLine & "LKW" + 'End If + If dgvSendungen.SelectedRows.Count > 0 Then + btnQuckScan.Text = "Quick-Scan (SND)" + Else + btnQuckScan.Text = "Quick-Scan (LKW)" + End If + ' If setAkive_AuswahlID() = -1 Then Exit Sub If AvisoID <= 0 Then Exit Sub - pnlMAInfo.Visible = False - Button18.Visible = False - btnQuckScan.Visible = False + pnlMaDetails.Visible = False + picAVISOMessengerSNDChat.Visible = False + lblSNDChat_MsgCnt.Visible = False + 'Button18.Visible = False + btnQuckScan.Visible = True + + 'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then + ' btnQuckScan.Visible = True + 'End If + Select Case tbcntlVermerke.SelectedIndex Case 0, 1, 2 : Vermerke_anzeigen2(rowindex) Case 3 @@ -805,7 +826,7 @@ Public Class usrcntlAktDetails WhereWO = " AND isnull(anh_SendungsId,0) <> 0 " End If - Button18.Visible = True + ' Button18.Visible = True Dim hSQL As String '= " Select [anh_id],[anh_Name],[anh_docId],CASE WHEN (anh_SendungsId is null OR anh_SendungsId <=0) AND anh_Art='' THEN '***' ELSE [anh_Art] END as [anh_Art],[anh_Typ], anh_markiert FROM [tblAvisoAnhaenge] ' WHERE [anh_AvisoId]='" & AvisoID & "' " & AktSndAnhaenge & " " & WhereWO & " ' ORDER BY anh_SendungsId desc, @@ -920,7 +941,7 @@ Public Class usrcntlAktDetails 'Hier werden die passenden Vermerke zum Aviso angezeigt Dim sendwhere = "" - If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "ATILLA" Then + If True Then If gridVermerke.Columns("tblSnd_PosUnterNr") IsNot Nothing Then gridVermerke.Columns("tblSnd_PosUnterNr").Visible = False Select Case tbcntlVermerke.SelectedIndex Case 0 @@ -959,13 +980,12 @@ Public Class usrcntlAktDetails sendwhere = " AND VermerkArt='S' AND SendungID=" & dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value - initSND_CHAT(dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value) '--------------------------------------------------------- 'MA INFO '--------------------------------------------------------- 'AbklaerungTR - pnlMAInfo.Visible = True + pnlMaDetails.Visible = True If dgvSendungen.SelectedRows(0).Cells("tblSnd_AbklaerungTR").Value IsNot DBNull.Value Then picMAinfo_AbklaerungTR.BackgroundImage = My.Resources.abklaerungTR_Aktiv txtMAinfo_AbklaerungTR.Text = SQL.DLookup("mit_username", "tblMitarbeiter", "mit_id='" & dgvSendungen.SelectedRows(0).Cells("tblSnd_AbklaerungTR_MA").Value & "'", "ADMIN", "-") @@ -975,14 +995,14 @@ Public Class usrcntlAktDetails 'AbfertigungTR 'pnlMAInfoXX.Visible = True 'If dgvSendungen.SelectedRows(0).Cells("tblSnd_AbfertigungTR").Value IsNot DBNull.Value Then - ' picMAinfo_AbfertigungTR.BackgroundImage = My.Resources.AbfertigungTR_Aktiv + ' picMAinfo_AbfertigungTR.BackgroundImpicAVISOMessengerSNDChatage = My.Resources.AbfertigungTR_Aktiv ' txtMAinfo_AbfertigungTR.Text = SQL.DLookup("mit_username", "tblMitarbeiter", "mit_id='" & dgvSendungen.SelectedRows(0).Cells("tblSnd_AbfertigungTR_MA").Value & "'", "ADMIN", "-") ' txtMAinfo_AbfertigungTR.Tag = dgvSendungen.SelectedRows(0).Cells("tblSnd_AbfertigungTR_MA").Value 'End If 'Vorbereitet - pnlMAInfo.Visible = True + pnlMaDetails.Visible = True If dgvSendungen.SelectedRows(0).Cells("tblSnd_Vorbereitet").Value IsNot DBNull.Value Then picMAinfo_VorbereitetQs.BackgroundImage = My.Resources.statusBtn_vorbereitet_Aktiv txtMAinfo_VorbereitetQs.Text = SQL.DLookup("mit_username", "tblMitarbeiter", "mit_id='" & dgvSendungen.SelectedRows(0).Cells("tblSnd_QS_MA").Value & "'", "ADMIN", "-") @@ -990,7 +1010,7 @@ Public Class usrcntlAktDetails End If '--------------------------------------------------------- 'Vorgeschrieben - pnlMAInfo.Visible = True + pnlMaDetails.Visible = True If dgvSendungen.SelectedRows(0).Cells("tblSnd_Vorgeschrieben").Value IsNot DBNull.Value Then picMAinfo_Vorgeschrieben.BackgroundImage = My.Resources.statusBtn_vorgeschrieben_Aktiv txtMAinfo_Vorgeschrieben.Text = SQL.DLookup("mit_username", "tblMitarbeiter", "mit_id='" & dgvSendungen.SelectedRows(0).Cells("tblSnd_VG_MA").Value & "'", "ADMIN", "-") @@ -1032,6 +1052,12 @@ Public Class usrcntlAktDetails ' Dim hSQL As String = "SELECT [VermerkID],[AvisoID],[Datum],[Mitarbeiter],[Hinweis_Vermerk],[VermerkeCode],[MitarbeiterId] FROM Vermerke WHERE AvisoID = " & AvisoID & " " & sendwhere & " ORDER BY Datum DESC" + picAVISOMessengerSNDChat.Visible = pnlMaDetails.Visible + ' lblSNDChat_MsgCnt.Visible = pnlMaDetails.Visibl + If dgvSendungen.SelectedRows.Count > 0 Then + + initSND_CHAT(dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value) + End If Dim hSQL = usrcntlAktDetails.vermerkehSQL hSQL = hSQL.Replace("[[AvisoId]]", AvisoID) @@ -3758,9 +3784,17 @@ Public Class usrcntlAktDetails Private Sub btnQuckScan_Click(sender As Object, e As EventArgs) Handles btnQuckScan.Click Try Me.Cursor = Cursors.WaitCursor - If frmSendungAnhangImport.quickScan(AvisoID) Then - Vermerke_anzeigen() + If gridVermerke.SelectedRows.Count > 0 Then + If frmSendungAnhangImport.quickScan(AvisoID, gridVermerke.SelectedRows(0).Cells("SendungID").Value) Then + Vermerke_anzeigen() + End If + Else + If frmSendungAnhangImport.quickScan(AvisoID) Then + Vermerke_anzeigen() + End If End If + + Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler QuickScan") End Try