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

mergekonfl.

Browse Source
This commit is contained in:
d.breimaier
2023-09-08 13:29:54 +02:00
parent 3698fa827b
commit 71e140a23f
13 changed files with 3079 additions and 502 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Aviso/Aviso.vbproj
View File

@@ -540,6 +540,12 @@
<Compile Include="Benachrichtigung\frmAvisoBenachrichtigungReminderBestaetigen.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmDigicust.Designer.vb">
<DependentUpon>frmDigicust.vb</DependentUpon>
</Compile>
<Compile Include="frmDigicust.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmATEZ_NCTS.Designer.vb">
<DependentUpon>frmATEZ_NCTS.vb</DependentUpon>
</Compile>
@@ -1134,6 +1140,9 @@
<EmbeddedResource Include="Benachrichtigung\frmAvisoBenachrichtigungReminderBestaetigen.resx">
<DependentUpon>frmAvisoBenachrichtigungReminderBestaetigen.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmDigicust.resx">
<DependentUpon>frmDigicust.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmATEZ_NCTS.resx">
<DependentUpon>frmATEZ_NCTS.vb</DependentUpon>
</EmbeddedResource>

2
Aviso/My Project/Application.Designer.vb generated
View File

@@ -27,7 +27,7 @@ Namespace My
Me.IsSingleInstance = false
Me.EnableVisualStyles = true
Me.SaveMySettingsOnExit = true
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterAllFormsClose
End Sub
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _

3
Aviso/My Project/Application.myapp
View File

@@ -3,8 +3,9 @@
<MySubMain>true</MySubMain>
<MainForm>frmLogin</MainForm>
<SingleInstance>false</SingleInstance>
<ShutdownMode>0</ShutdownMode>
<ShutdownMode>1</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode>
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
<HighDpiMpde>false</HighDpiMpde>
</MyApplicationData>

4
Aviso/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.9.1.3")>
<Assembly: AssemblyFileVersion("3.9.1.3")>
<Assembly: AssemblyVersion("3.9.1.4")>
<Assembly: AssemblyFileVersion("3.9.1.4")>

44
Aviso/frmATEZ_NCTS.vb
View File

@@ -118,20 +118,25 @@ Public Class frmATEZ_NCTS
.Carrier_EORI = usrCntl_Carrier.txtEORI.Text
.Guarantee_GRN = "" 'leer
For Each doc As DataGridViewRow In dgvAnhaenge.Rows
Dim isSelected = IIf(DBNull.Value Is doc.Cells("anh_selekt").Value, False, doc.Cells("anh_selekt").Value)
If isSelected Then
.selectedDocuments &= doc.Cells("anh_docId").Value & ", "
End If
Next
'For Each doc As DataGridViewRow In dgvAnhaenge.Rows
' Dim isSelected = IIf(DBNull.Value Is doc.Cells("anh_selekt").Value, False, doc.Cells("anh_selekt").Value)
' If isSelected Then
' .selectedDocuments &= doc.Cells("anh_docId").Value & ", "
' End If
'Next
.SAVE()
End With
saveDurchgangszollstelle(atez_data)
saveRoute(atez_data)
setDurchgangszolstellen()
setRoute()
sendAtezData(atez_data, atez)
If sendAtezData(atez_data, atez) Then
Me.Close()
End If
Me.Cursor = Cursors.Default
@@ -142,7 +147,7 @@ Public Class frmATEZ_NCTS
End Sub
Private Sub sendAtezData(atezData As cATEZ_NCTS_DATA, atez As cATEZ_NCTS_IN)
Private Function sendAtezData(atezData As cATEZ_NCTS_DATA, atez As cATEZ_NCTS_IN) As Boolean
Dim failreDesc As String
@@ -150,7 +155,7 @@ Public Class frmATEZ_NCTS
If authResp <> "200" Then
failreDesc = "Authentifizierung fehlgeschlagen - " & authResp & vbNewLine & "Vorgang abgebrochen!"
lblInfo.Text = failreDesc
Exit Sub
Return False
End If
@@ -165,14 +170,18 @@ Public Class frmATEZ_NCTS
If atezData.status = "Draft" Then
MsgBox("Fehler beim Senden" & vbNewLine & failreDesc)
atezData.fehlerbeschreibung = failreDesc
atezData.SAVE()
Exit Sub
Return atezData.SAVE()
End If
Dim result As MsgBoxResult = MsgBox("Fehler beim Senden" & vbNewLine & failreDesc & vbNewLine & "Soll NCTS als Entwurf gespeichert werden?", vbYesNoCancel)
If result = vbYes Then
atezData.status = "Draft"
atezData.fehlerbeschreibung = failreDesc
atezData.SAVE()
Return atezData.SAVE()
Else
atezData.status = "Failure"
atezData.fehlerbeschreibung = failreDesc
Return atezData.SAVE()
End If
lblInfo.Text = "Fehler in der API "
@@ -180,11 +189,11 @@ Public Class frmATEZ_NCTS
Else
atezData.status = "Sent"
atezData.atezId = IIf(azetId IsNot Nothing, azetId, "")
atezData.SAVE()
Return atezData.SAVE()
Me.Close()
End If
End Sub
End Function
Function getBezugsnr(ByRef BezugsNr)
Dim BezugsNrTmp = ""
@@ -372,7 +381,7 @@ Public Class frmATEZ_NCTS
when [anh_Art] = 'Sonstiges' then 'OTHER'
when [anh_Art] ='' then 'OTHER' End
[anh_Art],[anh_Typ] FROM [tblAvisoAnhaenge]
WHERE [anh_AvisoId]='" & AVISO.AvisoID & "' AND isnull(anh_SendungsId,0) <=0 And anh_Typ = 'PDF'
WHERE [anh_AvisoId]='" & AVISO.AvisoID & "' AND isnull(anh_SendungsId,0) <= 0 And anh_Typ = 'PDF'
Order BY [anh_Reihenfolge], anh_Datum desc, [anh_id]"
Dim dt = VermerkeDAL.Anzeigen_Vermerke(hSQL)
@@ -554,6 +563,8 @@ Public Class frmATEZ_NCTS
Public Sub saveDurchgangszollstelle(atezData As cATEZ_NCTS_DATA)
Dim atezTransitOffice As New cATEZ_NCTS_TransitCustomsOffice()
atezTransitOffice.delete(atezData.Id)
If sbDurchgangszollstelle1._value <> "" Then Dim TCO As New cATEZ_NCTS_TransitCustomsOffice(atezData.Id, sbDurchgangszollstelle1._value)
If sbDurchgangszollstelle2._value <> "" Then Dim TCO As New cATEZ_NCTS_TransitCustomsOffice(atezData.Id, sbDurchgangszollstelle2._value)
@@ -569,6 +580,9 @@ Public Class frmATEZ_NCTS
Public Sub saveRoute(atezData As cATEZ_NCTS_DATA)
Dim atezRouten As New cATEZ_NCTS_Routen()
atezRouten.delete(atezData.Id)
If sbRoute1._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute1._value)
If sbRoute2._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute2._value)

777
Aviso/frmDigicust.Designer.vb generated Normal file
View File

@@ -0,0 +1,777 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmDigicust
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDigicust))
Me.Button1 = New System.Windows.Forms.Button()
Me.pnlHead = New System.Windows.Forms.Panel()
Me.lblInfo = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label8 = New System.Windows.Forms.Label()
Me.cboStammreferenz = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtLKWId = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.usrCntl_Carrier = New SDL.usrCntlAdresse()
Me.txtDat = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.dtpDat = New System.Windows.Forms.DateTimePicker()
Me.Label7 = New System.Windows.Forms.Label()
Me.lblC = New System.Windows.Forms.Label()
Me.txtTransporttemp = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cbxTemperatur = New System.Windows.Forms.CheckBox()
Me.lklRoutenauswahl = New System.Windows.Forms.LinkLabel()
Me.sbRoute5 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.sbRoute9 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.sbRoute8 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.sbRoute7 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.sbRoute6 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.sbRoute4 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.sbRoute3 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.sbRoute2 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.sbRoute1 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.Label14 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.sbBestimmungsZollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.columnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.Label9 = New System.Windows.Forms.Label()
Me.sbAbgangZollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.txtDyMandant = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.txtDyNiederlassung = New System.Windows.Forms.Label()
Me.lblBezugsnummer = New System.Windows.Forms.Label()
Me.Button2 = New System.Windows.Forms.Button()
Me.btnCreateToken = New System.Windows.Forms.Button()
Me.Label2 = New System.Windows.Forms.Label()
Me.rtfToken = New System.Windows.Forms.RichTextBox()
Me.pnlHead.SuspendLayout()
CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Button1
'
Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button1.BackColor = System.Drawing.Color.White
Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.Button1.Location = New System.Drawing.Point(154, 716)
Me.Button1.Margin = New System.Windows.Forms.Padding(2)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(159, 42)
Me.Button1.TabIndex = 26
Me.Button1.Text = "An DC senden -->"
Me.Button1.UseVisualStyleBackColor = False
'
'pnlHead
'
Me.pnlHead.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.pnlHead.BackColor = System.Drawing.Color.White
Me.pnlHead.Controls.Add(Me.Button2)
Me.pnlHead.Controls.Add(Me.btnCreateToken)
Me.pnlHead.Controls.Add(Me.Label2)
Me.pnlHead.Controls.Add(Me.rtfToken)
Me.pnlHead.Controls.Add(Me.lblInfo)
Me.pnlHead.Controls.Add(Me.Label6)
Me.pnlHead.Controls.Add(Me.Label8)
Me.pnlHead.Controls.Add(Me.cboStammreferenz)
Me.pnlHead.Controls.Add(Me.txtLKWId)
Me.pnlHead.Controls.Add(Me.usrCntl_Carrier)
Me.pnlHead.Controls.Add(Me.txtDat)
Me.pnlHead.Controls.Add(Me.dtpDat)
Me.pnlHead.Controls.Add(Me.Label7)
Me.pnlHead.Controls.Add(Me.lblC)
Me.pnlHead.Controls.Add(Me.txtTransporttemp)
Me.pnlHead.Controls.Add(Me.cbxTemperatur)
Me.pnlHead.Controls.Add(Me.lklRoutenauswahl)
Me.pnlHead.Controls.Add(Me.sbRoute5)
Me.pnlHead.Controls.Add(Me.sbRoute9)
Me.pnlHead.Controls.Add(Me.sbRoute8)
Me.pnlHead.Controls.Add(Me.sbRoute7)
Me.pnlHead.Controls.Add(Me.sbRoute6)
Me.pnlHead.Controls.Add(Me.sbRoute4)
Me.pnlHead.Controls.Add(Me.sbRoute3)
Me.pnlHead.Controls.Add(Me.sbRoute2)
Me.pnlHead.Controls.Add(Me.sbRoute1)
Me.pnlHead.Controls.Add(Me.Label14)
Me.pnlHead.Controls.Add(Me.Label4)
Me.pnlHead.Controls.Add(Me.sbBestimmungsZollstelle)
Me.pnlHead.Controls.Add(Me.Label3)
Me.pnlHead.Controls.Add(Me.dgvAnhaenge)
Me.pnlHead.Controls.Add(Me.Label9)
Me.pnlHead.Controls.Add(Me.sbAbgangZollstelle)
Me.pnlHead.Controls.Add(Me.txtDyMandant)
Me.pnlHead.Controls.Add(Me.Label1)
Me.pnlHead.Controls.Add(Me.txtDyNiederlassung)
Me.pnlHead.Controls.Add(Me.lblBezugsnummer)
Me.pnlHead.Location = New System.Drawing.Point(3, 2)
Me.pnlHead.Name = "pnlHead"
Me.pnlHead.Size = New System.Drawing.Size(478, 706)
Me.pnlHead.TabIndex = 112
'
'lblInfo
'
Me.lblInfo.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblInfo.ForeColor = System.Drawing.Color.Red
Me.lblInfo.Location = New System.Drawing.Point(10, 27)
Me.lblInfo.Name = "lblInfo"
Me.lblInfo.Size = New System.Drawing.Size(460, 27)
Me.lblInfo.TabIndex = 148
'
'Label6
'
Me.Label6.Location = New System.Drawing.Point(10, 562)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(135, 13)
Me.Label6.TabIndex = 147
Me.Label6.Text = "Dokumente:"
'
'Label8
'
Me.Label8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(283, 179)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(57, 13)
Me.Label8.TabIndex = 146
Me.Label8.Text = "Stammref.:"
Me.Label8.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'cboStammreferenz
'
Me.cboStammreferenz._allowedValuesFreiText = Nothing
Me.cboStammreferenz._allowFreiText = False
Me.cboStammreferenz._value = ""
Me.cboStammreferenz.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.cboStammreferenz.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboStammreferenz.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboStammreferenz.FormattingEnabled = True
Me.cboStammreferenz.Location = New System.Drawing.Point(341, 176)
Me.cboStammreferenz.Name = "cboStammreferenz"
Me.cboStammreferenz.Size = New System.Drawing.Size(129, 21)
Me.cboStammreferenz.TabIndex = 145
'
'txtLKWId
'
Me.txtLKWId._DateTimeOnly = False
Me.txtLKWId._numbersOnly = False
Me.txtLKWId._numbersOnlyKommastellen = ""
Me.txtLKWId._numbersOnlyTrennzeichen = True
Me.txtLKWId._Prozent = False
Me.txtLKWId._ShortDateNew = False
Me.txtLKWId._ShortDateOnly = False
Me.txtLKWId._TimeOnly = False
Me.txtLKWId._TimeOnly_Seconds = False
Me.txtLKWId._value = ""
Me.txtLKWId._Waehrung = False
Me.txtLKWId._WaehrungZeichen = True
Me.txtLKWId.ForeColor = System.Drawing.Color.Black
Me.txtLKWId.Location = New System.Drawing.Point(151, 177)
Me.txtLKWId.MaxLineLength = -1
Me.txtLKWId.MaxLines_Warning = ""
Me.txtLKWId.MaxLines_Warning_Label = Nothing
Me.txtLKWId.Name = "txtLKWId"
Me.txtLKWId.Size = New System.Drawing.Size(100, 20)
Me.txtLKWId.TabIndex = 144
'
'usrCntl_Carrier
'
Me.usrCntl_Carrier._Titel = "Frächter:"
Me.usrCntl_Carrier.BackColor = System.Drawing.Color.White
Me.usrCntl_Carrier.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.usrCntl_Carrier.Location = New System.Drawing.Point(13, 332)
Me.usrCntl_Carrier.Name = "usrCntl_Carrier"
Me.usrCntl_Carrier.Size = New System.Drawing.Size(408, 132)
Me.usrCntl_Carrier.TabIndex = 143
'
'txtDat
'
Me.txtDat._DateTimeOnly = False
Me.txtDat._numbersOnly = False
Me.txtDat._numbersOnlyKommastellen = ""
Me.txtDat._numbersOnlyTrennzeichen = True
Me.txtDat._Prozent = False
Me.txtDat._ShortDateNew = False
Me.txtDat._ShortDateOnly = True
Me.txtDat._TimeOnly = False
Me.txtDat._TimeOnly_Seconds = False
Me.txtDat._value = ""
Me.txtDat._Waehrung = False
Me.txtDat._WaehrungZeichen = True
Me.txtDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.txtDat.ForeColor = System.Drawing.Color.Black
Me.txtDat.Location = New System.Drawing.Point(151, 251)
Me.txtDat.MaxLength = 10
Me.txtDat.MaxLineLength = -1
Me.txtDat.MaxLines_Warning = ""
Me.txtDat.MaxLines_Warning_Label = Nothing
Me.txtDat.Multiline = True
Me.txtDat.Name = "txtDat"
Me.txtDat.Size = New System.Drawing.Size(78, 24)
Me.txtDat.TabIndex = 141
'
'dtpDat
'
Me.dtpDat.CustomFormat = "''"
Me.dtpDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.dtpDat.Format = System.Windows.Forms.DateTimePickerFormat.Custom
Me.dtpDat.Location = New System.Drawing.Point(151, 251)
Me.dtpDat.Margin = New System.Windows.Forms.Padding(0)
Me.dtpDat.Name = "dtpDat"
Me.dtpDat.Size = New System.Drawing.Size(110, 24)
Me.dtpDat.TabIndex = 142
'
'Label7
'
Me.Label7.Location = New System.Drawing.Point(10, 251)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(103, 17)
Me.Label7.TabIndex = 140
Me.Label7.Text = "Datumgrenze:"
'
'lblC
'
Me.lblC.AutoSize = True
Me.lblC.Location = New System.Drawing.Point(251, 282)
Me.lblC.Name = "lblC"
Me.lblC.Size = New System.Drawing.Size(18, 13)
Me.lblC.TabIndex = 139
Me.lblC.Text = "°C"
'
'txtTransporttemp
'
Me.txtTransporttemp._DateTimeOnly = False
Me.txtTransporttemp._numbersOnly = False
Me.txtTransporttemp._numbersOnlyKommastellen = ""
Me.txtTransporttemp._numbersOnlyTrennzeichen = True
Me.txtTransporttemp._Prozent = False
Me.txtTransporttemp._ShortDateNew = False
Me.txtTransporttemp._ShortDateOnly = False
Me.txtTransporttemp._TimeOnly = False
Me.txtTransporttemp._TimeOnly_Seconds = False
Me.txtTransporttemp._value = ""
Me.txtTransporttemp._Waehrung = False
Me.txtTransporttemp._WaehrungZeichen = True
Me.txtTransporttemp.ForeColor = System.Drawing.Color.Black
Me.txtTransporttemp.Location = New System.Drawing.Point(151, 278)
Me.txtTransporttemp.MaxLineLength = -1
Me.txtTransporttemp.MaxLines_Warning = ""
Me.txtTransporttemp.MaxLines_Warning_Label = Nothing
Me.txtTransporttemp.Name = "txtTransporttemp"
Me.txtTransporttemp.Size = New System.Drawing.Size(100, 20)
Me.txtTransporttemp.TabIndex = 138
'
'cbxTemperatur
'
Me.cbxTemperatur.AutoSize = True
Me.cbxTemperatur.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxTemperatur.Location = New System.Drawing.Point(13, 278)
Me.cbxTemperatur.Name = "cbxTemperatur"
Me.cbxTemperatur.Size = New System.Drawing.Size(131, 17)
Me.cbxTemperatur.TabIndex = 137
Me.cbxTemperatur.TabStop = False
Me.cbxTemperatur.Text = "Transport-Temperatur:"
Me.cbxTemperatur.UseVisualStyleBackColor = True
'
'lklRoutenauswahl
'
Me.lklRoutenauswahl.AutoSize = True
Me.lklRoutenauswahl.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.lklRoutenauswahl.Location = New System.Drawing.Point(392, 478)
Me.lklRoutenauswahl.Name = "lklRoutenauswahl"
Me.lklRoutenauswahl.Size = New System.Drawing.Size(81, 13)
Me.lklRoutenauswahl.TabIndex = 117
Me.lklRoutenauswahl.TabStop = True
Me.lklRoutenauswahl.Text = "Routenauswahl"
'
'sbRoute5
'
Me.sbRoute5._allowFreitext = False
Me.sbRoute5._AllowSetValue = False
Me.sbRoute5._allowSpaceAsSplitter = False
Me.sbRoute5._autoSizeGross = False
Me.sbRoute5._hideIfListEmpty = True
Me.sbRoute5._value = ""
Me.sbRoute5.conn_art = "FMZOLL"
Me.sbRoute5.dgvpos = "LEFT"
Me.sbRoute5.DISPLAY_PARAM = Nothing
Me.sbRoute5.INVISIBLE_COLUMNS = Nothing
Me.sbRoute5.key_visible = False
Me.sbRoute5.KEYPARAM = Nothing
Me.sbRoute5.Location = New System.Drawing.Point(166, 513)
Me.sbRoute5.Name = "sbRoute5"
Me.sbRoute5.searchActive = True
Me.sbRoute5.Size = New System.Drawing.Size(154, 20)
Me.sbRoute5.SQL_ORDER_BY = Nothing
Me.sbRoute5.SQL_SELECT = Nothing
Me.sbRoute5.SQL_WHERE = Nothing
Me.sbRoute5.SQL_WhereParamList = Nothing
Me.sbRoute5.TabIndex = 122
Me.sbRoute5.usrcntl = Nothing
'
'sbRoute9
'
Me.sbRoute9._allowFreitext = False
Me.sbRoute9._AllowSetValue = False
Me.sbRoute9._allowSpaceAsSplitter = False
Me.sbRoute9._autoSizeGross = False
Me.sbRoute9._hideIfListEmpty = True
Me.sbRoute9._value = ""
Me.sbRoute9.conn_art = "FMZOLL"
Me.sbRoute9.dgvpos = "LEFT"
Me.sbRoute9.DISPLAY_PARAM = Nothing
Me.sbRoute9.INVISIBLE_COLUMNS = Nothing
Me.sbRoute9.key_visible = False
Me.sbRoute9.KEYPARAM = Nothing
Me.sbRoute9.Location = New System.Drawing.Point(319, 532)
Me.sbRoute9.Name = "sbRoute9"
Me.sbRoute9.searchActive = True
Me.sbRoute9.Size = New System.Drawing.Size(154, 20)
Me.sbRoute9.SQL_ORDER_BY = Nothing
Me.sbRoute9.SQL_SELECT = Nothing
Me.sbRoute9.SQL_WHERE = Nothing
Me.sbRoute9.SQL_WhereParamList = Nothing
Me.sbRoute9.TabIndex = 126
Me.sbRoute9.usrcntl = Nothing
'
'sbRoute8
'
Me.sbRoute8._allowFreitext = False
Me.sbRoute8._AllowSetValue = False
Me.sbRoute8._allowSpaceAsSplitter = False
Me.sbRoute8._autoSizeGross = False
Me.sbRoute8._hideIfListEmpty = True
Me.sbRoute8._value = ""
Me.sbRoute8.conn_art = "FMZOLL"
Me.sbRoute8.dgvpos = "LEFT"
Me.sbRoute8.DISPLAY_PARAM = Nothing
Me.sbRoute8.INVISIBLE_COLUMNS = Nothing
Me.sbRoute8.key_visible = False
Me.sbRoute8.KEYPARAM = Nothing
Me.sbRoute8.Location = New System.Drawing.Point(166, 532)
Me.sbRoute8.Name = "sbRoute8"
Me.sbRoute8.searchActive = True
Me.sbRoute8.Size = New System.Drawing.Size(154, 20)
Me.sbRoute8.SQL_ORDER_BY = Nothing
Me.sbRoute8.SQL_SELECT = Nothing
Me.sbRoute8.SQL_WHERE = Nothing
Me.sbRoute8.SQL_WhereParamList = Nothing
Me.sbRoute8.TabIndex = 125
Me.sbRoute8.usrcntl = Nothing
'
'sbRoute7
'
Me.sbRoute7._allowFreitext = False
Me.sbRoute7._AllowSetValue = False
Me.sbRoute7._allowSpaceAsSplitter = False
Me.sbRoute7._autoSizeGross = False
Me.sbRoute7._hideIfListEmpty = True
Me.sbRoute7._value = ""
Me.sbRoute7.conn_art = "FMZOLL"
Me.sbRoute7.dgvpos = "LEFT"
Me.sbRoute7.DISPLAY_PARAM = Nothing
Me.sbRoute7.INVISIBLE_COLUMNS = Nothing
Me.sbRoute7.key_visible = False
Me.sbRoute7.KEYPARAM = Nothing
Me.sbRoute7.Location = New System.Drawing.Point(13, 532)
Me.sbRoute7.Name = "sbRoute7"
Me.sbRoute7.searchActive = True
Me.sbRoute7.Size = New System.Drawing.Size(154, 20)
Me.sbRoute7.SQL_ORDER_BY = Nothing
Me.sbRoute7.SQL_SELECT = Nothing
Me.sbRoute7.SQL_WHERE = Nothing
Me.sbRoute7.SQL_WhereParamList = Nothing
Me.sbRoute7.TabIndex = 124
Me.sbRoute7.usrcntl = Nothing
'
'sbRoute6
'
Me.sbRoute6._allowFreitext = False
Me.sbRoute6._AllowSetValue = False
Me.sbRoute6._allowSpaceAsSplitter = False
Me.sbRoute6._autoSizeGross = False
Me.sbRoute6._hideIfListEmpty = True
Me.sbRoute6._value = ""
Me.sbRoute6.conn_art = "FMZOLL"
Me.sbRoute6.dgvpos = "LEFT"
Me.sbRoute6.DISPLAY_PARAM = Nothing
Me.sbRoute6.INVISIBLE_COLUMNS = Nothing
Me.sbRoute6.key_visible = False
Me.sbRoute6.KEYPARAM = Nothing
Me.sbRoute6.Location = New System.Drawing.Point(319, 513)
Me.sbRoute6.Name = "sbRoute6"
Me.sbRoute6.searchActive = True
Me.sbRoute6.Size = New System.Drawing.Size(154, 20)
Me.sbRoute6.SQL_ORDER_BY = Nothing
Me.sbRoute6.SQL_SELECT = Nothing
Me.sbRoute6.SQL_WHERE = Nothing
Me.sbRoute6.SQL_WhereParamList = Nothing
Me.sbRoute6.TabIndex = 123
Me.sbRoute6.usrcntl = Nothing
'
'sbRoute4
'
Me.sbRoute4._allowFreitext = False
Me.sbRoute4._AllowSetValue = False
Me.sbRoute4._allowSpaceAsSplitter = False
Me.sbRoute4._autoSizeGross = False
Me.sbRoute4._hideIfListEmpty = True
Me.sbRoute4._value = ""
Me.sbRoute4.conn_art = "FMZOLL"
Me.sbRoute4.dgvpos = "LEFT"
Me.sbRoute4.DISPLAY_PARAM = Nothing
Me.sbRoute4.INVISIBLE_COLUMNS = Nothing
Me.sbRoute4.key_visible = False
Me.sbRoute4.KEYPARAM = Nothing
Me.sbRoute4.Location = New System.Drawing.Point(13, 513)
Me.sbRoute4.Name = "sbRoute4"
Me.sbRoute4.searchActive = True
Me.sbRoute4.Size = New System.Drawing.Size(154, 20)
Me.sbRoute4.SQL_ORDER_BY = Nothing
Me.sbRoute4.SQL_SELECT = Nothing
Me.sbRoute4.SQL_WHERE = Nothing
Me.sbRoute4.SQL_WhereParamList = Nothing
Me.sbRoute4.TabIndex = 121
Me.sbRoute4.usrcntl = Nothing
'
'sbRoute3
'
Me.sbRoute3._allowFreitext = False
Me.sbRoute3._AllowSetValue = False
Me.sbRoute3._allowSpaceAsSplitter = False
Me.sbRoute3._autoSizeGross = False
Me.sbRoute3._hideIfListEmpty = True
Me.sbRoute3._value = ""
Me.sbRoute3.conn_art = "FMZOLL"
Me.sbRoute3.dgvpos = "LEFT"
Me.sbRoute3.DISPLAY_PARAM = Nothing
Me.sbRoute3.INVISIBLE_COLUMNS = Nothing
Me.sbRoute3.key_visible = False
Me.sbRoute3.KEYPARAM = Nothing
Me.sbRoute3.Location = New System.Drawing.Point(319, 494)
Me.sbRoute3.Name = "sbRoute3"
Me.sbRoute3.searchActive = True
Me.sbRoute3.Size = New System.Drawing.Size(154, 20)
Me.sbRoute3.SQL_ORDER_BY = Nothing
Me.sbRoute3.SQL_SELECT = Nothing
Me.sbRoute3.SQL_WHERE = Nothing
Me.sbRoute3.SQL_WhereParamList = Nothing
Me.sbRoute3.TabIndex = 120
Me.sbRoute3.usrcntl = Nothing
'
'sbRoute2
'
Me.sbRoute2._allowFreitext = False
Me.sbRoute2._AllowSetValue = False
Me.sbRoute2._allowSpaceAsSplitter = False
Me.sbRoute2._autoSizeGross = False
Me.sbRoute2._hideIfListEmpty = True
Me.sbRoute2._value = ""
Me.sbRoute2.conn_art = "FMZOLL"
Me.sbRoute2.dgvpos = "LEFT"
Me.sbRoute2.DISPLAY_PARAM = Nothing
Me.sbRoute2.INVISIBLE_COLUMNS = Nothing
Me.sbRoute2.key_visible = False
Me.sbRoute2.KEYPARAM = Nothing
Me.sbRoute2.Location = New System.Drawing.Point(166, 494)
Me.sbRoute2.Name = "sbRoute2"
Me.sbRoute2.searchActive = True
Me.sbRoute2.Size = New System.Drawing.Size(154, 20)
Me.sbRoute2.SQL_ORDER_BY = Nothing
Me.sbRoute2.SQL_SELECT = Nothing
Me.sbRoute2.SQL_WHERE = Nothing
Me.sbRoute2.SQL_WhereParamList = Nothing
Me.sbRoute2.TabIndex = 119
Me.sbRoute2.usrcntl = Nothing
'
'sbRoute1
'
Me.sbRoute1._allowFreitext = False
Me.sbRoute1._AllowSetValue = False
Me.sbRoute1._allowSpaceAsSplitter = False
Me.sbRoute1._autoSizeGross = False
Me.sbRoute1._hideIfListEmpty = True
Me.sbRoute1._value = ""
Me.sbRoute1.conn_art = "FMZOLL"
Me.sbRoute1.dgvpos = "LEFT"
Me.sbRoute1.DISPLAY_PARAM = Nothing
Me.sbRoute1.INVISIBLE_COLUMNS = Nothing
Me.sbRoute1.key_visible = False
Me.sbRoute1.KEYPARAM = Nothing
Me.sbRoute1.Location = New System.Drawing.Point(13, 494)
Me.sbRoute1.Name = "sbRoute1"
Me.sbRoute1.searchActive = True
Me.sbRoute1.Size = New System.Drawing.Size(154, 20)
Me.sbRoute1.SQL_ORDER_BY = Nothing
Me.sbRoute1.SQL_SELECT = Nothing
Me.sbRoute1.SQL_WHERE = Nothing
Me.sbRoute1.SQL_WhereParamList = Nothing
Me.sbRoute1.TabIndex = 118
Me.sbRoute1.usrcntl = Nothing
'
'Label14
'
Me.Label14.Location = New System.Drawing.Point(10, 478)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(135, 13)
Me.Label14.TabIndex = 116
Me.Label14.Text = "Route:"
'
'Label4
'
Me.Label4.Location = New System.Drawing.Point(10, 229)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(121, 17)
Me.Label4.TabIndex = 114
Me.Label4.Text = "Bestimmungs-Zollstelle:"
'
'sbBestimmungsZollstelle
'
Me.sbBestimmungsZollstelle._allowFreitext = False
Me.sbBestimmungsZollstelle._AllowSetValue = False
Me.sbBestimmungsZollstelle._allowSpaceAsSplitter = False
Me.sbBestimmungsZollstelle._autoSizeGross = False
Me.sbBestimmungsZollstelle._hideIfListEmpty = True
Me.sbBestimmungsZollstelle._value = ""
Me.sbBestimmungsZollstelle.conn_art = "FMZOLL"
Me.sbBestimmungsZollstelle.dgvpos = "LEFT"
Me.sbBestimmungsZollstelle.DISPLAY_PARAM = Nothing
Me.sbBestimmungsZollstelle.INVISIBLE_COLUMNS = Nothing
Me.sbBestimmungsZollstelle.key_visible = False
Me.sbBestimmungsZollstelle.KEYPARAM = Nothing
Me.sbBestimmungsZollstelle.Location = New System.Drawing.Point(151, 229)
Me.sbBestimmungsZollstelle.Name = "sbBestimmungsZollstelle"
Me.sbBestimmungsZollstelle.searchActive = True
Me.sbBestimmungsZollstelle.Size = New System.Drawing.Size(196, 20)
Me.sbBestimmungsZollstelle.SQL_ORDER_BY = Nothing
Me.sbBestimmungsZollstelle.SQL_SELECT = Nothing
Me.sbBestimmungsZollstelle.SQL_WHERE = Nothing
Me.sbBestimmungsZollstelle.SQL_WhereParamList = Nothing
Me.sbBestimmungsZollstelle.TabIndex = 115
Me.sbBestimmungsZollstelle.usrcntl = Nothing
'
'Label3
'
Me.Label3.Location = New System.Drawing.Point(10, 180)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(103, 17)
Me.Label3.TabIndex = 113
Me.Label3.Text = "LKW-KZ:"
'
'dgvAnhaenge
'
Me.dgvAnhaenge.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvAnhaenge.AllowUserToAddRows = False
Me.dgvAnhaenge.AllowUserToDeleteRows = False
Me.dgvAnhaenge.AllowUserToResizeColumns = False
Me.dgvAnhaenge.AllowUserToResizeRows = False
Me.dgvAnhaenge.BackgroundColor = System.Drawing.Color.White
Me.dgvAnhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvAnhaenge.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.columnName})
Me.dgvAnhaenge.Location = New System.Drawing.Point(13, 578)
Me.dgvAnhaenge.Name = "dgvAnhaenge"
Me.dgvAnhaenge.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvAnhaenge.Size = New System.Drawing.Size(463, 122)
Me.dgvAnhaenge.TabIndex = 112
'
'columnName
'
Me.columnName.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.columnName.HeaderText = "Name"
Me.columnName.Name = "columnName"
Me.columnName.ReadOnly = True
'
'Label9
'
Me.Label9.Location = New System.Drawing.Point(10, 206)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(103, 17)
Me.Label9.TabIndex = 110
Me.Label9.Text = "Abgangs-Zollstelle:"
'
'sbAbgangZollstelle
'
Me.sbAbgangZollstelle._allowFreitext = False
Me.sbAbgangZollstelle._AllowSetValue = False
Me.sbAbgangZollstelle._allowSpaceAsSplitter = False
Me.sbAbgangZollstelle._autoSizeGross = False
Me.sbAbgangZollstelle._hideIfListEmpty = True
Me.sbAbgangZollstelle._value = ""
Me.sbAbgangZollstelle.conn_art = "FMZOLL"
Me.sbAbgangZollstelle.dgvpos = "LEFT"
Me.sbAbgangZollstelle.DISPLAY_PARAM = Nothing
Me.sbAbgangZollstelle.INVISIBLE_COLUMNS = Nothing
Me.sbAbgangZollstelle.key_visible = False
Me.sbAbgangZollstelle.KEYPARAM = Nothing
Me.sbAbgangZollstelle.Location = New System.Drawing.Point(151, 203)
Me.sbAbgangZollstelle.Name = "sbAbgangZollstelle"
Me.sbAbgangZollstelle.searchActive = True
Me.sbAbgangZollstelle.Size = New System.Drawing.Size(196, 20)
Me.sbAbgangZollstelle.SQL_ORDER_BY = Nothing
Me.sbAbgangZollstelle.SQL_SELECT = Nothing
Me.sbAbgangZollstelle.SQL_WHERE = Nothing
Me.sbAbgangZollstelle.SQL_WhereParamList = Nothing
Me.sbAbgangZollstelle.TabIndex = 111
Me.sbAbgangZollstelle.usrcntl = Nothing
'
'txtDyMandant
'
Me.txtDyMandant.BackColor = System.Drawing.Color.White
Me.txtDyMandant.Location = New System.Drawing.Point(2, 2)
Me.txtDyMandant.Name = "txtDyMandant"
Me.txtDyMandant.Size = New System.Drawing.Size(44, 13)
Me.txtDyMandant.TabIndex = 109
Me.txtDyMandant.Text = "VERG"
Me.txtDyMandant.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Label1
'
Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label1.AutoSize = True
Me.Label1.BackColor = System.Drawing.Color.White
Me.Label1.Location = New System.Drawing.Point(190, 2)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(82, 13)
Me.Label1.TabIndex = 106
Me.Label1.Text = "Bezugsnummer:"
'
'txtDyNiederlassung
'
Me.txtDyNiederlassung.BackColor = System.Drawing.Color.White
Me.txtDyNiederlassung.Location = New System.Drawing.Point(52, 3)
Me.txtDyNiederlassung.Name = "txtDyNiederlassung"
Me.txtDyNiederlassung.Size = New System.Drawing.Size(45, 12)
Me.txtDyNiederlassung.TabIndex = 108
Me.txtDyNiederlassung.Text = "SUB"
'
'lblBezugsnummer
'
Me.lblBezugsnummer.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblBezugsnummer.BackColor = System.Drawing.Color.White
Me.lblBezugsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblBezugsnummer.Location = New System.Drawing.Point(278, 2)
Me.lblBezugsnummer.Name = "lblBezugsnummer"
Me.lblBezugsnummer.Size = New System.Drawing.Size(193, 23)
Me.lblBezugsnummer.TabIndex = 107
Me.lblBezugsnummer.Text = "4800/000000/17 AAA"
Me.lblBezugsnummer.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Button2
'
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.Location = New System.Drawing.Point(70, 105)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(115, 25)
Me.Button2.TabIndex = 152
Me.Button2.Text = "Clear Token"
Me.Button2.UseVisualStyleBackColor = True
'
'btnCreateToken
'
Me.btnCreateToken.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCreateToken.Location = New System.Drawing.Point(274, 105)
Me.btnCreateToken.Name = "btnCreateToken"
Me.btnCreateToken.Size = New System.Drawing.Size(115, 25)
Me.btnCreateToken.TabIndex = 151
Me.btnCreateToken.Text = "Create Token"
Me.btnCreateToken.UseVisualStyleBackColor = True
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.Label2.Location = New System.Drawing.Point(68, 41)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(98, 13)
Me.Label2.TabIndex = 150
Me.Label2.Text = "Token (valid 24hrs)"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'rtfToken
'
Me.rtfToken.Location = New System.Drawing.Point(70, 57)
Me.rtfToken.Name = "rtfToken"
Me.rtfToken.Size = New System.Drawing.Size(319, 42)
Me.rtfToken.TabIndex = 149
Me.rtfToken.Text = ""
'
'frmDigicust
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.ClientSize = New System.Drawing.Size(484, 769)
Me.Controls.Add(Me.pnlHead)
Me.Controls.Add(Me.Button1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmDigicust"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Digicust"
Me.pnlHead.ResumeLayout(False)
Me.pnlHead.PerformLayout()
CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents Button1 As Button
Friend WithEvents pnlHead As Panel
Friend WithEvents lblInfo As Label
Friend WithEvents Label6 As Label
Friend WithEvents Label8 As Label
Friend WithEvents cboStammreferenz As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents txtLKWId As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents usrCntl_Carrier As SDL.usrCntlAdresse
Friend WithEvents txtDat As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents dtpDat As DateTimePicker
Friend WithEvents Label7 As Label
Friend WithEvents lblC As Label
Friend WithEvents txtTransporttemp As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents cbxTemperatur As CheckBox
Friend WithEvents lklRoutenauswahl As LinkLabel
Friend WithEvents sbRoute5 As VERAG_PROG_ALLGEMEIN.MySearchBox
Friend WithEvents sbRoute9 As VERAG_PROG_ALLGEMEIN.MySearchBox
Friend WithEvents sbRoute8 As VERAG_PROG_ALLGEMEIN.MySearchBox
Friend WithEvents sbRoute7 As VERAG_PROG_ALLGEMEIN.MySearchBox
Friend WithEvents sbRoute6 As VERAG_PROG_ALLGEMEIN.MySearchBox
Friend WithEvents sbRoute4 As VERAG_PROG_ALLGEMEIN.MySearchBox
Friend WithEvents sbRoute3 As VERAG_PROG_ALLGEMEIN.MySearchBox
Friend WithEvents sbRoute2 As VERAG_PROG_ALLGEMEIN.MySearchBox
Friend WithEvents sbRoute1 As VERAG_PROG_ALLGEMEIN.MySearchBox
Friend WithEvents Label14 As Label
Friend WithEvents Label4 As Label
Friend WithEvents sbBestimmungsZollstelle As VERAG_PROG_ALLGEMEIN.MySearchBox
Friend WithEvents Label3 As Label
Friend WithEvents dgvAnhaenge As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents columnName As DataGridViewTextBoxColumn
Friend WithEvents Label9 As Label
Friend WithEvents sbAbgangZollstelle As VERAG_PROG_ALLGEMEIN.MySearchBox
Friend WithEvents txtDyMandant As Label
Friend WithEvents Label1 As Label
Friend WithEvents txtDyNiederlassung As Label
Friend WithEvents lblBezugsnummer As Label
Friend WithEvents Button2 As Button
Friend WithEvents btnCreateToken As Button
Friend WithEvents Label2 As Label
Friend WithEvents rtfToken As RichTextBox
End Class

1256
Aviso/frmDigicust.resx Normal file
View File

File diff suppressed because it is too large Load Diff

524
Aviso/frmDigicust.vb Normal file
View File

@@ -0,0 +1,524 @@
Imports DocumentFormat.OpenXml.Vml.Presentation
Imports GrapeCity.ActiveReports.Design.DdrDesigner.Designers
Imports GrapeCity.ActiveReports.ReportsCore.Tools
Imports Newtonsoft.Json.Linq
Imports SDL
Imports VERAG_PROG_ALLGEMEIN
Public Class frmDigicust
Dim api As cDigicustAPI
Dim ART As String = ""
Dim FilialenNr As Integer
Dim AbfertigungsNr As Integer
Dim JAHR As Integer = Now.ToString("yy")
Public isSTAMMREF As Boolean = False
Public STAMMREF As String = ""
Public CopyFromZA_Id As Integer = -1
Dim FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Dim ZOLL_SYSTEM = "DAKOSY"
Dim DY As DAKOSY_Worker.cDakosy_Zollanmeldungen = Nothing
Public ATT As List(Of String)
Dim AVISO As New cAviso
Dim zusatz As String
Dim cDy_ART As String = If(FIRMA_DY = "ATILLA", "T2", "T1")
Dim VermerkeDAL As New cVermerkeDAL
Dim NCTS As DAKOSY_Worker.cDakosyNCTSOut = Nothing
Dim openExisting As Boolean = False
Dim id As Integer = -1
Dim dgv As DataGridView = Nothing
Dim atez_data As cATEZ_NCTS_DATA
Dim atez = New cATEZ_NCTS_IN
Property BezugsNr As String = ""
Property SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen
Sub New(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, JAHR As Integer, Optional _dgv As DataGridView = Nothing)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
If _dgv IsNot Nothing Then Me.dgv = _dgv
Me.AVISO = AVISO
Me.SENDUNG = SENDUNG
Me.JAHR = JAHR
If SENDUNG IsNot Nothing Then
Me.FilialenNr = SENDUNG.FilialenNr
Me.AbfertigungsNr = SENDUNG.AbfertigungsNr
End If
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub New(_id As Integer, AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, JAHR As Integer)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
openExisting = True
id = _id
Me.AVISO = AVISO
Me.SENDUNG = SENDUNG
Me.JAHR = JAHR
If SENDUNG IsNot Nothing Then
Me.FilialenNr = SENDUNG.FilialenNr
Me.AbfertigungsNr = SENDUNG.AbfertigungsNr
End If
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
If atez_data.status = "Sent" Then
MsgBox(IIf(atez_data.json <> "", atez_data.json, ""))
Exit Sub
End If
If Not checkAttachment() Then
Exit Sub
End If
If Not checkMandatoryField() Then
Exit Sub
End If
Me.Cursor = Cursors.WaitCursor
lblInfo.Text = ""
With atez_data
.AvisoId = AVISO.AvisoID
.SendungsId = SENDUNG.tblSnd_SendungID
.VERAG_LRN = lblBezugsnummer.Text
.LicensePlateContainerNo = txtLKWId.Text
.DAKOSY_TemplateCode = cboStammreferenz._value
.DAKOSY_IOPartner = txtDyMandant.Text
.DAKOSY_Division3 = txtDyNiederlassung.Text
.DepartureCustomsOffice = sbAbgangZollstelle._value
.DestinationCustomsOffice = sbBestimmungsZollstelle._value
.DatDeterminationLimit = txtDat.Text
.CoolingTemperature = IIf(cbxTemperatur.Checked, txtTransporttemp.Text, "")
.Carrier_Name = usrCntl_Carrier.kdFirma.Text
.Carrier_Adress_City = usrCntl_Carrier.txtOrt.Text
.Carrier_Adress_Country = usrCntl_Carrier.sbLand._value
.Carrier_Adress_Postcode = usrCntl_Carrier.txtPlz.Text
.Carrier_Adress_Street = usrCntl_Carrier.txtStrasse.Text
.Carrier_EORI = usrCntl_Carrier.txtEORI.Text
.Guarantee_GRN = "" 'leer
For Each doc As DataGridViewRow In dgvAnhaenge.Rows
Dim isSelected = IIf(DBNull.Value Is doc.Cells("anh_selekt").Value, False, doc.Cells("anh_selekt").Value)
If isSelected Then
.selectedDocuments &= doc.Cells("anh_docId").Value & ", "
End If
Next
.SAVE()
End With
saveRoute(atez_data)
sendAtezData(atez_data, atez)
Me.Cursor = Cursors.Default
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Me.Cursor = Cursors.Default
End Try
End Sub
Private Sub sendAtezData(atezData As cATEZ_NCTS_DATA, atez As cATEZ_NCTS_IN)
Dim failreDesc As String
Dim authResp = atez.authenticate()
If authResp <> "200" Then
failreDesc = "Authentifizierung fehlgeschlagen - " & authResp & vbNewLine & "Vorgang abgebrochen!"
lblInfo.Text = failreDesc
Exit Sub
End If
If Not atez.setJson(atezData) Then MsgBox("Fehler beim Erstellen der Daten" & vbNewLine & "Vorgang abgebrochen!")
If Not atez.setJsonPDF(atezData, dgvAnhaenge) Then MsgBox("Fehler beim Erstellen der PDF-Daten, kein Anhang ausgewählt!" & vbNewLine & "Vorgang abgebrochen!")
Dim azetId = atez.SendRequestWithAuthHeader("application/json", failreDesc)
If failreDesc <> "" Then
If atezData.status = "Draft" Then
MsgBox("Fehler beim Senden" & vbNewLine & failreDesc)
atezData.fehlerbeschreibung = failreDesc
atezData.SAVE()
Exit Sub
End If
Dim result As MsgBoxResult = MsgBox("Fehler beim Senden" & vbNewLine & failreDesc & vbNewLine & "Soll NCTS als Entwurf gespeichert werden?", vbYesNoCancel)
If result = vbYes Then
atezData.status = "Draft"
atezData.fehlerbeschreibung = failreDesc
atezData.SAVE()
End If
lblInfo.Text = "Fehler in der API "
Else
atezData.status = "Sent"
atezData.atezId = IIf(azetId IsNot Nothing, azetId, "")
atezData.SAVE()
Me.Close()
End If
End Sub
Function getBezugsnr(ByRef BezugsNr)
Dim BezugsNrTmp = ""
BezugsNrTmp = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr
BezugsNr = BezugsNrTmp
zusatz = "A"
If dgv IsNot Nothing AndAlso dgv.Rows.Count > 0 Then
BezugsNr = BezugsNrTmp & "/" & zusatz
For Each r As DataGridViewRow In dgv.Rows
If r.Cells("BezugsNr").Value = BezugsNr Then
If zusatz.Length = 1 Then
zusatz = Chr(Asc(zusatz.ToString) + 1)
Else
zusatz = zusatz.Substring(0, 1) & Chr(Asc(zusatz.Substring(0, 2).ToString) + 1)
End If
If zusatz = "Z" Then zusatz = "AA"
End If
BezugsNr = BezugsNrTmp & "/" & zusatz
Next
End If
While DAKOSY_Worker.cDakosy_Zollanmeldungen.ExistsBezugsNr(BezugsNr) 'IsNot Nothing
BezugsNr = BezugsNrTmp & "/" & zusatz
If zusatz.Length = 1 Then
zusatz = Chr(Asc(zusatz.ToString) + 1)
Else
zusatz = zusatz.Substring(0, 1) & Chr(Asc(zusatz.Substring(0, 2).ToString) + 1)
End If
If zusatz = "Z" Then zusatz = "AA"
End While
lblBezugsnummer.Text = BezugsNr
Return BezugsNr
End Function
Private Sub frmATEZNCTS_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Select Case FIRMA_DY
Case "VERAG" : txtDyMandant.Text = "VERG"
txtDyNiederlassung.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
Case "ATILLA" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "SUW"
Case "UNISPED" : txtDyMandant.Text = "UNAT" : txtDyNiederlassung.Text = "ATSPED"
Case "IMEX" : txtDyMandant.Text = "IMEX" : txtDyNiederlassung.Text = "IME"
Case "AMBAR" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "AMBWO"
End Select
initSeachboxes()
initAttachment()
'If openExisting Then
' If id > 0 Then
' atez_data = New cATEZ_NCTS_DATA(id)
' If atez_data.atezId <> "" Then
' lblInfo.Text = "Atez-ID " & atez_data.atezId
' Else
' lblInfo.Text = "Status: " & atez_data.status
' End If
' lblBezugsnummer.Text = atez_data.VERAG_LRN
' cboStammreferenz.fillWithSQL("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung] FROM [tblDakosy_Stammreferenzen] WHERE dySr_Land='DE' AND dySr_Verfahren='NCTS' and dySr_dy_Mandant='" & txtDyMandant.Text & "' and dySr_dy_Niederlassung IN ('','" & txtDyNiederlassung.Text & "') and dySr_visible=1", False, "FMZOLL", True)
' cboStammreferenz.changeItem(atez_data.DAKOSY_TemplateCode)
' txtLKWId.Text = atez_data.LicensePlateContainerNo
' sbBestimmungsZollstelle.SET_VALUE(atez_data.DestinationCustomsOffice)
' sbAbgangZollstelle.SET_VALUE(atez_data.DepartureCustomsOffice)
' cbxTemperatur.Checked = IIf(atez_data.CoolingTemperature <> "", True, False)
' txtTransporttemp.Text = atez_data.CoolingTemperature
' txtDat.Text = IIf(atez_data.DatDeterminationLimit IsNot DBNull.Value, atez_data.DatDeterminationLimit, "")
' usrCntl_Carrier.kdFirma.Text = atez_data.Carrier_Name
' usrCntl_Carrier.txtStrasse.Text = atez_data.Carrier_Adress_Street
' usrCntl_Carrier.txtPlz.Text = atez_data.Carrier_Adress_Postcode
' usrCntl_Carrier.txtOrt.Text = atez_data.Carrier_Adress_City
' usrCntl_Carrier.sbLand._value = atez_data.Carrier_Adress_Country
' usrCntl_Carrier.txtEORI.Text = atez_data.Carrier_EORI
' setRoute()
' If atez_data.status = "Draft" Then
' Button1.Text = "An ATEZ senden -->"
' pnlHead.Enabled = True
' Button1.Enabled = True
' initAttachment()
' Else
' Button1.Text = "JSON"
' pnlHead.Enabled = False
' Button1.Enabled = True
' End If
' Else
' Button1.Enabled = False
' End If
'Else
' atez_data = New cATEZ_NCTS_DATA()
' Button1.Text = "An ATEZ senden -->"
' pnlHead.Enabled = True
' cboStammreferenz.fillWithSQL("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung] FROM [tblDakosy_Stammreferenzen] WHERE dySr_Land='DE' AND dySr_Verfahren='NCTS' and dySr_dy_Mandant='" & txtDyMandant.Text & "' and dySr_dy_Niederlassung IN ('','" & txtDyNiederlassung.Text & "') and dySr_visible=1", False, "FMZOLL", True)
' cboStammreferenz.changeItem("")
' getBezugsnr(BezugsNr)
' txtLKWId.Text = AVISO.LKW_Nr
' cbxTemperatur.Checked = IIf(AVISO.TransportTemperatur <> "", True, False)
' txtTransporttemp.Text = AVISO.TransportTemperatur
' If AVISO.Frächter_KdNr IsNot Nothing AndAlso IsNumeric(AVISO.Frächter_KdNr) AndAlso AVISO.Frächter_KdNr > 0 Then
' usrCntl_Carrier.kdFirma.initKdBox(Me)
' usrCntl_Carrier.kdFirma.KdNr = AVISO.Frächter_KdNr
' End If
' If AVISO.Grenzstelle.Replace("???", "") = "" Then
' sbAbgangZollstelle.SET_VALUE(AVISO.Zollstelle)
' Else
' Dim GRZ As New VERAG_PROG_ALLGEMEIN.cGrenzstelle(AVISO.Grenzstelle)
' If GRZ IsNot Nothing AndAlso GRZ.hasEntry Then
' If GRZ.grz_ZollamtDST IsNot Nothing Then
' sbAbgangZollstelle.SET_VALUE(GRZ.grz_ZollamtDST)
' End If
' End If
' End If
'End If
End Sub
Sub initAttachment()
Dim hSQL As String = " SELECT [anh_id],anh_Datum,[anh_Name],[anh_docId],
CASE WHEN [anh_Art] = 'ATR-EUR1' then 'EUR'
when [anh_Art] = 'Rechnung' then 'INVOICE'
when [anh_Art] = 'eFatura' then 'INVOICE'
when [anh_Art] = 'CMR' then 'CMR'
when [anh_Art] = 'Ausfuhr' then 'OTHER'
when [anh_Art] = 'Vorpapier' then 'OTHER'
when [anh_Art] = 'Packliste' then 'PACK'
when [anh_Art] = 'Auftrag' then 'OTHER'
when [anh_Art] = 'Auftrag' then 'OTHER'
when [anh_Art] = 'Dispoliste' then 'OTHER'
when [anh_Art] = 'Vorkasse' then 'OTHER'
when [anh_Art] = 'Überweisungsbeleg' then 'OTHER'
when [anh_Art] = 'Vollmacht' then 'OTHER'
when [anh_Art] = 'ATB' then 'OTHER'
when [anh_Art] = 'ATA' then 'CarnetATA'
when [anh_Art] = 'Sonstiges' then 'OTHER'
when [anh_Art] ='' then 'OTHER' End
[anh_Art],[anh_Typ] FROM [tblAvisoAnhaenge]
WHERE [anh_AvisoId]='" & AVISO.AvisoID & "' AND isnull(anh_SendungsId,0) <= 0 And anh_Typ = 'PDF'
Order BY [anh_Reihenfolge], anh_Datum desc, [anh_id]"
Dim dt = VermerkeDAL.Anzeigen_Vermerke(hSQL)
Dim col As DataColumn
col = dt.Columns.Add("anh_selekt", GetType(Boolean))
col.SetOrdinal(0)
dgvAnhaenge.DataSource = dt
If dgvAnhaenge.RowCount = 0 Then dgvAnhaenge.Columns.Clear() : Exit Sub
With dgvAnhaenge
.Enabled = True
.ReadOnly = False
.RowTemplate.MinimumHeight = 30
.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
.Columns("anh_id").Visible = False 'VermerkID nicht anzeigenconMenuVermerke
.Columns("anh_docId").Visible = False 'AvisoID nicht anzeigen
.Columns("anh_selekt").MinimumWidth = 50
.Columns("anh_selekt").HeaderText = "ausgewählt"
.Columns("anh_selekt").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns("anh_Datum").MinimumWidth = 50
.Columns("anh_Datum").HeaderText = "Datum"
.Columns("anh_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns("anh_Name").MinimumWidth = 150
.Columns("anh_Name").HeaderText = "Name"
.Columns("anh_Name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("anh_Art").MinimumWidth = 50
.Columns("anh_Art").HeaderText = "Art"
.Columns("anh_Art").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns("anh_Typ").Width = 60
.Columns("anh_Typ").HeaderText = "Typ"
.Columns("anh_Typ").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
End With
End Sub
Sub initSeachboxes()
sbAbgangZollstelle.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
sbBestimmungsZollstelle.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
sbRoute1.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
sbRoute2.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
sbRoute3.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
sbRoute4.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
sbRoute5.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
sbRoute6.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
sbRoute7.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
sbRoute8.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
sbRoute9.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
End Sub
Private Sub lklRoutenauswahl_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lklRoutenauswahl.LinkClicked
Dim frmRoutenauswahl As New frmRoutenauswahl
If frmRoutenauswahl.ShowDialog(Me) = DialogResult.OK Then
If frmRoutenauswahl.ROUTE.Count > 0 Then sbRoute1.SET_VALUE(frmRoutenauswahl.ROUTE(0)) Else sbRoute1.SET_VALUE("")
If frmRoutenauswahl.ROUTE.Count > 1 Then sbRoute2.SET_VALUE(frmRoutenauswahl.ROUTE(1)) Else sbRoute2.SET_VALUE("")
If frmRoutenauswahl.ROUTE.Count > 2 Then sbRoute3.SET_VALUE(frmRoutenauswahl.ROUTE(2)) Else sbRoute3.SET_VALUE("")
If frmRoutenauswahl.ROUTE.Count > 3 Then sbRoute4.SET_VALUE(frmRoutenauswahl.ROUTE(3)) Else sbRoute4.SET_VALUE("")
If frmRoutenauswahl.ROUTE.Count > 4 Then sbRoute5.SET_VALUE(frmRoutenauswahl.ROUTE(4)) Else sbRoute5.SET_VALUE("")
If frmRoutenauswahl.ROUTE.Count > 5 Then sbRoute6.SET_VALUE(frmRoutenauswahl.ROUTE(5)) Else sbRoute6.SET_VALUE("")
If frmRoutenauswahl.ROUTE.Count > 6 Then sbRoute7.SET_VALUE(frmRoutenauswahl.ROUTE(6)) Else sbRoute7.SET_VALUE("")
If frmRoutenauswahl.ROUTE.Count > 7 Then sbRoute8.SET_VALUE(frmRoutenauswahl.ROUTE(7)) Else sbRoute8.SET_VALUE("")
If frmRoutenauswahl.ROUTE.Count > 8 Then sbRoute9.SET_VALUE(frmRoutenauswahl.ROUTE(8)) Else sbRoute9.SET_VALUE("")
End If
End Sub
Private Sub dtpDat_ValueChanged(sender As Object, e As EventArgs) Handles dtpDat.ValueChanged
txtDat._value = CDate(sender.value).ToShortDateString
End Sub
Public Function checkAttachment() As Boolean
Dim selectedDocuments As Boolean = False
For Each Row In dgvAnhaenge.Rows
selectedDocuments = IIf(DBNull.Value Is Row.Cells("anh_selekt").Value, False, Row.Cells("anh_selekt").Value)
If selectedDocuments Then Exit For
Next
If Not selectedDocuments Then
lblInfo.Text = "kein Anhang selektiert"
Cursor = Cursors.Default
Return selectedDocuments
End If
Return selectedDocuments
End Function
Public Function checkMandatoryField() As Boolean
'TODO
Return True
End Function
Public Sub setRoute()
Dim Route_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cATEZ_NCTS_Routen)
VERAG_PROG_ALLGEMEIN.cATEZ_NCTS_Routen.LOAD_LIST_ByNCTS(Route_LIST, id)
Dim i = 0
For Each route In Route_LIST
If i = 0 Then sbRoute1.SET_VALUE(route.Route_Country)
If i = 1 Then sbRoute2.SET_VALUE(route.Route_Country)
If i = 2 Then sbRoute3.SET_VALUE(route.Route_Country)
If i = 3 Then sbRoute4.SET_VALUE(route.Route_Country)
If i = 4 Then sbRoute5.SET_VALUE(route.Route_Country)
If i = 5 Then sbRoute6.SET_VALUE(route.Route_Country)
If i = 6 Then sbRoute7.SET_VALUE(route.Route_Country)
If i = 7 Then sbRoute8.SET_VALUE(route.Route_Country)
If i = 8 Then sbRoute9.SET_VALUE(route.Route_Country)
i = i + 1
Next
End Sub
Public Sub saveRoute(atezData As cATEZ_NCTS_DATA)
If sbRoute1._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute1._value)
If sbRoute2._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute2._value)
If sbRoute3._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute3._value)
If sbRoute4._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute4._value)
If sbRoute5._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute5._value)
If sbRoute6._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute6._value)
If sbRoute7._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute7._value)
If sbRoute8._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute8._value)
If sbRoute9._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute9._value)
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
rtfToken.Text = ""
End Sub
Private Sub btnCreateToken_Click(sender As Object, e As EventArgs) Handles btnCreateToken.Click
Label2.Text = "Status: " & api.authenticate(rtfToken.Text)
If rtfToken.Text <> "" Then
Label1.Text = "Token (valid 24hrs) until: " & Now().AddHours(24)
Else
Label1.Text = "Token (valid 24hrs)"
End If
End Sub
End Class

868
Aviso/frmSendungsdetailsNEU.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

21
Aviso/frmSendungsdetailsNEU.resx
View File

@@ -1531,6 +1531,9 @@
mVCCPwiVeQBaqAV4Jfq5XQAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="MenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>296, 17</value>
</metadata>
<data name="Button6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V
@@ -1651,6 +1654,18 @@
<metadata name="clmnPreis.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnVK_id.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnFirma.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnLeistung.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnPreis.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<data name="Button9.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAAHtJREFUSEvt
@@ -2059,6 +2074,9 @@
<metadata name="cntxtOptions.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>174, 17</value>
</metadata>
<metadata name="ToolTip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>404, 17</value>
</metadata>
<metadata name="ctxtWeitereFormulare.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>596, 17</value>
</metadata>
@@ -2508,6 +2526,9 @@
fjuTNv9i/tQzLEixxaJZiCHx/5vo8E9z4BWUwHZVTQAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="cntxAPI.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>49, 41</value>
</metadata>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAgIAAAAEAIAAoCAEAFgAAACgAAACAAAAAAAEAAAEAIAAAAAAAAAgBABMLAAATCwAAAAAAAAAA

71
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -6278,11 +6278,20 @@ Public Class frmSendungsdetailsNEU
Me.Cursor = Cursors.Default
End Sub
Private Sub Button20_Click_1(sender As Object, e As EventArgs) Handles Button20.Click
SAVE_ME()
Try
If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(CURRENT_INDEX)
Dim frmAttilaATEZNCTS = New frmATEZ_NCTS(AVISO, SND, Now.ToString("yy"))
frmAttilaATEZNCTS.Show(Me)
End If
Private Sub ToolStripMenuItem31_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem31.Click
'MsgBox("Funktion noch nicht implementiert!")
'Exit Sub
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
Me.Cursor = Cursors.Default
SAVE_ME()
If Not IsNumeric(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) OrElse CInt(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) < 100000 Then MsgBox("Abfertigungsnummer angeben!") : Exit Sub
@@ -6293,7 +6302,41 @@ Public Class frmSendungsdetailsNEU
End Sub
End Sub
Sub initdgvATEZ()
Private Sub ATEZToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATEZToolStripMenuItem.Click
Try
If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(CURRENT_INDEX)
Dim frmAttilaATEZNCTS = New frmATEZ_NCTS(AVISO, SND, Now.ToString("yy"))
frmAttilaATEZNCTS.Show(Me)
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
Me.Cursor = Cursors.Default
End Sub
Private Sub DigicustToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DigicustToolStripMenuItem.Click
Try
If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
If AVISO.ImEx.ToLower() <> "import" Then
MsgBox("API unterstützt nur Importe!" & vbNewLine & "Aktenübersicht-Einstellungen kontrollieren")
Exit Sub
End If
Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(CURRENT_INDEX)
Dim frm = New frmDigicust(AVISO, SND, Now.ToString("yy"))
frm.Show(Me)
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
Me.Cursor = Cursors.Default
End Sub
Sub initdgvATEZ()
With dgvATEZNCTS
.Columns.Clear()
.ReadOnly = False
@@ -6340,24 +6383,4 @@ Public Class frmSendungsdetailsNEU
End Try
End Sub
Private Sub Button20_Click_1(sender As Object, e As EventArgs) Handles Button20.Click
SAVE_ME()
Try
If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(CURRENT_INDEX)
Dim frmAttilaATEZNCTS = New frmATEZ_NCTS(AVISO, SND, Now.ToString("yy"))
frmAttilaATEZNCTS.Show(Me)
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
Me.Cursor = Cursors.Default
initTab()
End Sub
End Class