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

Merge

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-09-11 14:40:35 +02:00
parent 0a0c1c5f10 b48531626d
commit 45b9ae243c
14 changed files with 2771 additions and 493 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>

142
Aviso/frmATEZ_NCTS.Designer.vb generated
View File

@@ -26,6 +26,8 @@ Partial Class frmATEZ_NCTS
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmATEZ_NCTS))
Me.Button1 = New System.Windows.Forms.Button()
Me.pnlHead = New System.Windows.Forms.Panel()
Me.Label2 = New System.Windows.Forms.Label()
Me.cboProzedur = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.lblInfo = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label8 = New System.Windows.Forms.Label()
@@ -70,8 +72,6 @@ Partial Class frmATEZ_NCTS
Me.Label1 = New System.Windows.Forms.Label()
Me.txtDyNiederlassung = New System.Windows.Forms.Label()
Me.lblBezugsnummer = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.cboProzedur = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.pnlHead.SuspendLayout()
CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
@@ -84,7 +84,7 @@ Partial Class frmATEZ_NCTS
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.Location = New System.Drawing.Point(154, 757)
Me.Button1.Margin = New System.Windows.Forms.Padding(2)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(159, 42)
@@ -143,21 +143,46 @@ Partial Class frmATEZ_NCTS
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.Size = New System.Drawing.Size(478, 750)
Me.pnlHead.TabIndex = 112
'
'Label2
'
Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(10, 47)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(52, 13)
Me.Label2.TabIndex = 150
Me.Label2.Text = "Prozedur:"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'cboProzedur
'
Me.cboProzedur._allowedValuesFreiText = Nothing
Me.cboProzedur._allowFreiText = False
Me.cboProzedur._value = ""
Me.cboProzedur.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.cboProzedur.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboProzedur.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboProzedur.FormattingEnabled = True
Me.cboProzedur.Location = New System.Drawing.Point(151, 44)
Me.cboProzedur.Name = "cboProzedur"
Me.cboProzedur.Size = New System.Drawing.Size(100, 21)
Me.cboProzedur.TabIndex = 149
'
'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.Location = New System.Drawing.Point(3, 20)
Me.lblInfo.Name = "lblInfo"
Me.lblInfo.Size = New System.Drawing.Size(460, 27)
Me.lblInfo.Size = New System.Drawing.Size(460, 21)
Me.lblInfo.TabIndex = 148
'
'Label6
'
Me.Label6.Location = New System.Drawing.Point(10, 562)
Me.Label6.Location = New System.Drawing.Point(10, 573)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(135, 13)
Me.Label6.TabIndex = 147
@@ -167,7 +192,7 @@ Partial Class frmATEZ_NCTS
'
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, 65)
Me.Label8.Location = New System.Drawing.Point(283, 76)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(57, 13)
Me.Label8.TabIndex = 146
@@ -183,7 +208,7 @@ Partial Class frmATEZ_NCTS
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, 62)
Me.cboStammreferenz.Location = New System.Drawing.Point(341, 73)
Me.cboStammreferenz.Name = "cboStammreferenz"
Me.cboStammreferenz.Size = New System.Drawing.Size(129, 21)
Me.cboStammreferenz.TabIndex = 145
@@ -203,7 +228,7 @@ Partial Class frmATEZ_NCTS
Me.txtLKWId._Waehrung = False
Me.txtLKWId._WaehrungZeichen = True
Me.txtLKWId.ForeColor = System.Drawing.Color.Black
Me.txtLKWId.Location = New System.Drawing.Point(151, 63)
Me.txtLKWId.Location = New System.Drawing.Point(151, 74)
Me.txtLKWId.MaxLineLength = -1
Me.txtLKWId.MaxLines_Warning = ""
Me.txtLKWId.MaxLines_Warning_Label = Nothing
@@ -216,7 +241,7 @@ Partial Class frmATEZ_NCTS
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, 218)
Me.usrCntl_Carrier.Location = New System.Drawing.Point(13, 229)
Me.usrCntl_Carrier.Name = "usrCntl_Carrier"
Me.usrCntl_Carrier.Size = New System.Drawing.Size(408, 132)
Me.usrCntl_Carrier.TabIndex = 143
@@ -237,7 +262,7 @@ Partial Class frmATEZ_NCTS
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, 137)
Me.txtDat.Location = New System.Drawing.Point(151, 148)
Me.txtDat.MaxLength = 10
Me.txtDat.MaxLineLength = -1
Me.txtDat.MaxLines_Warning = ""
@@ -252,7 +277,7 @@ Partial Class frmATEZ_NCTS
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, 137)
Me.dtpDat.Location = New System.Drawing.Point(151, 148)
Me.dtpDat.Margin = New System.Windows.Forms.Padding(0)
Me.dtpDat.Name = "dtpDat"
Me.dtpDat.Size = New System.Drawing.Size(110, 24)
@@ -260,7 +285,7 @@ Partial Class frmATEZ_NCTS
'
'Label7
'
Me.Label7.Location = New System.Drawing.Point(10, 137)
Me.Label7.Location = New System.Drawing.Point(10, 148)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(103, 17)
Me.Label7.TabIndex = 140
@@ -269,7 +294,7 @@ Partial Class frmATEZ_NCTS
'lblC
'
Me.lblC.AutoSize = True
Me.lblC.Location = New System.Drawing.Point(251, 168)
Me.lblC.Location = New System.Drawing.Point(251, 179)
Me.lblC.Name = "lblC"
Me.lblC.Size = New System.Drawing.Size(18, 13)
Me.lblC.TabIndex = 139
@@ -290,7 +315,7 @@ Partial Class frmATEZ_NCTS
Me.txtTransporttemp._Waehrung = False
Me.txtTransporttemp._WaehrungZeichen = True
Me.txtTransporttemp.ForeColor = System.Drawing.Color.Black
Me.txtTransporttemp.Location = New System.Drawing.Point(151, 164)
Me.txtTransporttemp.Location = New System.Drawing.Point(151, 175)
Me.txtTransporttemp.MaxLineLength = -1
Me.txtTransporttemp.MaxLines_Warning = ""
Me.txtTransporttemp.MaxLines_Warning_Label = Nothing
@@ -302,7 +327,7 @@ Partial Class frmATEZ_NCTS
'
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, 164)
Me.cbxTemperatur.Location = New System.Drawing.Point(13, 175)
Me.cbxTemperatur.Name = "cbxTemperatur"
Me.cbxTemperatur.Size = New System.Drawing.Size(131, 17)
Me.cbxTemperatur.TabIndex = 137
@@ -324,7 +349,7 @@ Partial Class frmATEZ_NCTS
Me.sbDurchgangszollstelle5.INVISIBLE_COLUMNS = Nothing
Me.sbDurchgangszollstelle5.key_visible = False
Me.sbDurchgangszollstelle5.KEYPARAM = Nothing
Me.sbDurchgangszollstelle5.Location = New System.Drawing.Point(166, 418)
Me.sbDurchgangszollstelle5.Location = New System.Drawing.Point(166, 429)
Me.sbDurchgangszollstelle5.Name = "sbDurchgangszollstelle5"
Me.sbDurchgangszollstelle5.searchActive = True
Me.sbDurchgangszollstelle5.Size = New System.Drawing.Size(154, 20)
@@ -349,7 +374,7 @@ Partial Class frmATEZ_NCTS
Me.sbDurchgangszollstelle9.INVISIBLE_COLUMNS = Nothing
Me.sbDurchgangszollstelle9.key_visible = False
Me.sbDurchgangszollstelle9.KEYPARAM = Nothing
Me.sbDurchgangszollstelle9.Location = New System.Drawing.Point(319, 437)
Me.sbDurchgangszollstelle9.Location = New System.Drawing.Point(319, 448)
Me.sbDurchgangszollstelle9.Name = "sbDurchgangszollstelle9"
Me.sbDurchgangszollstelle9.searchActive = True
Me.sbDurchgangszollstelle9.Size = New System.Drawing.Size(154, 20)
@@ -374,7 +399,7 @@ Partial Class frmATEZ_NCTS
Me.sbDurchgangszollstelle8.INVISIBLE_COLUMNS = Nothing
Me.sbDurchgangszollstelle8.key_visible = False
Me.sbDurchgangszollstelle8.KEYPARAM = Nothing
Me.sbDurchgangszollstelle8.Location = New System.Drawing.Point(166, 437)
Me.sbDurchgangszollstelle8.Location = New System.Drawing.Point(166, 448)
Me.sbDurchgangszollstelle8.Name = "sbDurchgangszollstelle8"
Me.sbDurchgangszollstelle8.searchActive = True
Me.sbDurchgangszollstelle8.Size = New System.Drawing.Size(154, 20)
@@ -399,7 +424,7 @@ Partial Class frmATEZ_NCTS
Me.sbDurchgangszollstelle7.INVISIBLE_COLUMNS = Nothing
Me.sbDurchgangszollstelle7.key_visible = False
Me.sbDurchgangszollstelle7.KEYPARAM = Nothing
Me.sbDurchgangszollstelle7.Location = New System.Drawing.Point(13, 437)
Me.sbDurchgangszollstelle7.Location = New System.Drawing.Point(13, 448)
Me.sbDurchgangszollstelle7.Name = "sbDurchgangszollstelle7"
Me.sbDurchgangszollstelle7.searchActive = True
Me.sbDurchgangszollstelle7.Size = New System.Drawing.Size(154, 20)
@@ -424,7 +449,7 @@ Partial Class frmATEZ_NCTS
Me.sbDurchgangszollstelle6.INVISIBLE_COLUMNS = Nothing
Me.sbDurchgangszollstelle6.key_visible = False
Me.sbDurchgangszollstelle6.KEYPARAM = Nothing
Me.sbDurchgangszollstelle6.Location = New System.Drawing.Point(319, 418)
Me.sbDurchgangszollstelle6.Location = New System.Drawing.Point(319, 429)
Me.sbDurchgangszollstelle6.Name = "sbDurchgangszollstelle6"
Me.sbDurchgangszollstelle6.searchActive = True
Me.sbDurchgangszollstelle6.Size = New System.Drawing.Size(154, 20)
@@ -449,7 +474,7 @@ Partial Class frmATEZ_NCTS
Me.sbDurchgangszollstelle4.INVISIBLE_COLUMNS = Nothing
Me.sbDurchgangszollstelle4.key_visible = False
Me.sbDurchgangszollstelle4.KEYPARAM = Nothing
Me.sbDurchgangszollstelle4.Location = New System.Drawing.Point(13, 418)
Me.sbDurchgangszollstelle4.Location = New System.Drawing.Point(13, 429)
Me.sbDurchgangszollstelle4.Name = "sbDurchgangszollstelle4"
Me.sbDurchgangszollstelle4.searchActive = True
Me.sbDurchgangszollstelle4.Size = New System.Drawing.Size(154, 20)
@@ -474,7 +499,7 @@ Partial Class frmATEZ_NCTS
Me.sbDurchgangszollstelle3.INVISIBLE_COLUMNS = Nothing
Me.sbDurchgangszollstelle3.key_visible = False
Me.sbDurchgangszollstelle3.KEYPARAM = Nothing
Me.sbDurchgangszollstelle3.Location = New System.Drawing.Point(319, 399)
Me.sbDurchgangszollstelle3.Location = New System.Drawing.Point(319, 410)
Me.sbDurchgangszollstelle3.Name = "sbDurchgangszollstelle3"
Me.sbDurchgangszollstelle3.searchActive = True
Me.sbDurchgangszollstelle3.Size = New System.Drawing.Size(154, 20)
@@ -499,7 +524,7 @@ Partial Class frmATEZ_NCTS
Me.sbDurchgangszollstelle2.INVISIBLE_COLUMNS = Nothing
Me.sbDurchgangszollstelle2.key_visible = False
Me.sbDurchgangszollstelle2.KEYPARAM = Nothing
Me.sbDurchgangszollstelle2.Location = New System.Drawing.Point(166, 399)
Me.sbDurchgangszollstelle2.Location = New System.Drawing.Point(166, 410)
Me.sbDurchgangszollstelle2.Name = "sbDurchgangszollstelle2"
Me.sbDurchgangszollstelle2.searchActive = True
Me.sbDurchgangszollstelle2.Size = New System.Drawing.Size(154, 20)
@@ -524,7 +549,7 @@ Partial Class frmATEZ_NCTS
Me.sbDurchgangszollstelle1.INVISIBLE_COLUMNS = Nothing
Me.sbDurchgangszollstelle1.key_visible = False
Me.sbDurchgangszollstelle1.KEYPARAM = Nothing
Me.sbDurchgangszollstelle1.Location = New System.Drawing.Point(13, 399)
Me.sbDurchgangszollstelle1.Location = New System.Drawing.Point(13, 410)
Me.sbDurchgangszollstelle1.Name = "sbDurchgangszollstelle1"
Me.sbDurchgangszollstelle1.searchActive = True
Me.sbDurchgangszollstelle1.Size = New System.Drawing.Size(154, 20)
@@ -537,7 +562,7 @@ Partial Class frmATEZ_NCTS
'
'Label5
'
Me.Label5.Location = New System.Drawing.Point(10, 383)
Me.Label5.Location = New System.Drawing.Point(10, 394)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(135, 13)
Me.Label5.TabIndex = 127
@@ -547,7 +572,7 @@ Partial Class frmATEZ_NCTS
'
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.Location = New System.Drawing.Point(392, 489)
Me.lklRoutenauswahl.Name = "lklRoutenauswahl"
Me.lklRoutenauswahl.Size = New System.Drawing.Size(81, 13)
Me.lklRoutenauswahl.TabIndex = 117
@@ -568,7 +593,7 @@ Partial Class frmATEZ_NCTS
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.Location = New System.Drawing.Point(166, 524)
Me.sbRoute5.Name = "sbRoute5"
Me.sbRoute5.searchActive = True
Me.sbRoute5.Size = New System.Drawing.Size(154, 20)
@@ -593,7 +618,7 @@ Partial Class frmATEZ_NCTS
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.Location = New System.Drawing.Point(319, 543)
Me.sbRoute9.Name = "sbRoute9"
Me.sbRoute9.searchActive = True
Me.sbRoute9.Size = New System.Drawing.Size(154, 20)
@@ -618,7 +643,7 @@ Partial Class frmATEZ_NCTS
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.Location = New System.Drawing.Point(166, 543)
Me.sbRoute8.Name = "sbRoute8"
Me.sbRoute8.searchActive = True
Me.sbRoute8.Size = New System.Drawing.Size(154, 20)
@@ -643,7 +668,7 @@ Partial Class frmATEZ_NCTS
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.Location = New System.Drawing.Point(13, 543)
Me.sbRoute7.Name = "sbRoute7"
Me.sbRoute7.searchActive = True
Me.sbRoute7.Size = New System.Drawing.Size(154, 20)
@@ -668,7 +693,7 @@ Partial Class frmATEZ_NCTS
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.Location = New System.Drawing.Point(319, 524)
Me.sbRoute6.Name = "sbRoute6"
Me.sbRoute6.searchActive = True
Me.sbRoute6.Size = New System.Drawing.Size(154, 20)
@@ -693,7 +718,7 @@ Partial Class frmATEZ_NCTS
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.Location = New System.Drawing.Point(13, 524)
Me.sbRoute4.Name = "sbRoute4"
Me.sbRoute4.searchActive = True
Me.sbRoute4.Size = New System.Drawing.Size(154, 20)
@@ -718,7 +743,7 @@ Partial Class frmATEZ_NCTS
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.Location = New System.Drawing.Point(319, 505)
Me.sbRoute3.Name = "sbRoute3"
Me.sbRoute3.searchActive = True
Me.sbRoute3.Size = New System.Drawing.Size(154, 20)
@@ -743,7 +768,7 @@ Partial Class frmATEZ_NCTS
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.Location = New System.Drawing.Point(166, 505)
Me.sbRoute2.Name = "sbRoute2"
Me.sbRoute2.searchActive = True
Me.sbRoute2.Size = New System.Drawing.Size(154, 20)
@@ -768,7 +793,7 @@ Partial Class frmATEZ_NCTS
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.Location = New System.Drawing.Point(13, 505)
Me.sbRoute1.Name = "sbRoute1"
Me.sbRoute1.searchActive = True
Me.sbRoute1.Size = New System.Drawing.Size(154, 20)
@@ -781,7 +806,7 @@ Partial Class frmATEZ_NCTS
'
'Label14
'
Me.Label14.Location = New System.Drawing.Point(10, 478)
Me.Label14.Location = New System.Drawing.Point(10, 489)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(135, 13)
Me.Label14.TabIndex = 116
@@ -789,7 +814,7 @@ Partial Class frmATEZ_NCTS
'
'Label4
'
Me.Label4.Location = New System.Drawing.Point(10, 115)
Me.Label4.Location = New System.Drawing.Point(10, 126)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(121, 17)
Me.Label4.TabIndex = 114
@@ -809,7 +834,7 @@ Partial Class frmATEZ_NCTS
Me.sbBestimmungsZollstelle.INVISIBLE_COLUMNS = Nothing
Me.sbBestimmungsZollstelle.key_visible = False
Me.sbBestimmungsZollstelle.KEYPARAM = Nothing
Me.sbBestimmungsZollstelle.Location = New System.Drawing.Point(151, 115)
Me.sbBestimmungsZollstelle.Location = New System.Drawing.Point(151, 126)
Me.sbBestimmungsZollstelle.Name = "sbBestimmungsZollstelle"
Me.sbBestimmungsZollstelle.searchActive = True
Me.sbBestimmungsZollstelle.Size = New System.Drawing.Size(196, 20)
@@ -822,7 +847,7 @@ Partial Class frmATEZ_NCTS
'
'Label3
'
Me.Label3.Location = New System.Drawing.Point(10, 66)
Me.Label3.Location = New System.Drawing.Point(10, 77)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(103, 17)
Me.Label3.TabIndex = 113
@@ -838,10 +863,10 @@ Partial Class frmATEZ_NCTS
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.Location = New System.Drawing.Point(13, 589)
Me.dgvAnhaenge.Name = "dgvAnhaenge"
Me.dgvAnhaenge.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvAnhaenge.Size = New System.Drawing.Size(463, 122)
Me.dgvAnhaenge.Size = New System.Drawing.Size(463, 158)
Me.dgvAnhaenge.TabIndex = 112
'
'columnName
@@ -853,7 +878,7 @@ Partial Class frmATEZ_NCTS
'
'Label9
'
Me.Label9.Location = New System.Drawing.Point(10, 92)
Me.Label9.Location = New System.Drawing.Point(10, 103)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(103, 17)
Me.Label9.TabIndex = 110
@@ -873,7 +898,7 @@ Partial Class frmATEZ_NCTS
Me.sbAbgangZollstelle.INVISIBLE_COLUMNS = Nothing
Me.sbAbgangZollstelle.key_visible = False
Me.sbAbgangZollstelle.KEYPARAM = Nothing
Me.sbAbgangZollstelle.Location = New System.Drawing.Point(151, 89)
Me.sbAbgangZollstelle.Location = New System.Drawing.Point(151, 100)
Me.sbAbgangZollstelle.Name = "sbAbgangZollstelle"
Me.sbAbgangZollstelle.searchActive = True
Me.sbAbgangZollstelle.Size = New System.Drawing.Size(196, 20)
@@ -926,37 +951,12 @@ Partial Class frmATEZ_NCTS
Me.lblBezugsnummer.Text = "4800/000000/17 AAA"
Me.lblBezugsnummer.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label2
'
Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(10, 36)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(52, 13)
Me.Label2.TabIndex = 150
Me.Label2.Text = "Prozedur:"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'cboProzedur
'
Me.cboProzedur._allowedValuesFreiText = Nothing
Me.cboProzedur._allowFreiText = False
Me.cboProzedur._value = ""
Me.cboProzedur.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.cboProzedur.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboProzedur.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboProzedur.FormattingEnabled = True
Me.cboProzedur.Location = New System.Drawing.Point(151, 33)
Me.cboProzedur.Name = "cboProzedur"
Me.cboProzedur.Size = New System.Drawing.Size(100, 21)
Me.cboProzedur.TabIndex = 149
'
'frmATEZ_NCTS
'
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.ClientSize = New System.Drawing.Size(484, 810)
Me.Controls.Add(Me.pnlHead)
Me.Controls.Add(Me.Button1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)

47
Aviso/frmATEZ_NCTS.vb
View File

@@ -78,7 +78,6 @@ Public Class frmATEZ_NCTS
Try
If atez_data.status = "Sent" Then
MsgBox(IIf(atez_data.json <> "", atez_data.json, ""))
Exit Sub
End If
@@ -118,20 +117,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 +146,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 +154,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 +169,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 +188,10 @@ Public Class frmATEZ_NCTS
Else
atezData.status = "Sent"
atezData.atezId = IIf(azetId IsNot Nothing, azetId, "")
atezData.SAVE()
Me.Close()
Return atezData.SAVE()
End If
End Sub
End Function
Function getBezugsnr(ByRef BezugsNr)
Dim BezugsNrTmp = ""
@@ -348,7 +355,6 @@ Public Class frmATEZ_NCTS
End If
End Sub
Sub initAttachment()
@@ -372,7 +378,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 +560,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 +577,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)

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

@@ -0,0 +1,354 @@
<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.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.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.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.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.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.Label4)
Me.pnlHead.Controls.Add(Me.sbBestimmungsZollstelle)
Me.pnlHead.Controls.Add(Me.Label3)
Me.pnlHead.Controls.Add(Me.dgvAnhaenge)
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
'
'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 = ""
'
'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, 373)
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, 156)
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, 153)
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, 154)
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, 217)
Me.usrCntl_Carrier.Name = "usrCntl_Carrier"
Me.usrCntl_Carrier.Size = New System.Drawing.Size(408, 132)
Me.usrCntl_Carrier.TabIndex = 143
'
'Label4
'
Me.Label4.Location = New System.Drawing.Point(10, 180)
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, 180)
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, 157)
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, 401)
Me.dgvAnhaenge.Name = "dgvAnhaenge"
Me.dgvAnhaenge.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvAnhaenge.Size = New System.Drawing.Size(463, 299)
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
'
'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
'
'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 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 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

447
Aviso/frmDigicust.vb Normal file
View File

@@ -0,0 +1,447 @@
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
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
' .DestinationCustomsOffice = sbBestimmungsZollstelle._value
' .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
'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
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
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
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

831
Aviso/frmSendungsdetailsNEU.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

136
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -411,6 +411,10 @@ Public Class frmSendungsdetailsNEU
Button20.Visible = True
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DIGICUST", Me) Then
Button19.Visible = True
End If
cboFiliale._allowFreiText = Nothing
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER
@@ -3069,6 +3073,8 @@ Public Class frmSendungsdetailsNEU
initAnhang()
ElseIf TabControl1.SelectedTab Is tbKundenInfo Then
initdgvATEZ()
ElseIf TabControl1.SelectedTab Is tbDigicust Then
initdgvDigicust()
ElseIf TabControl1.SelectedTab Is tbKundenInfo Then
Dim kdSrc As VERAG_PROG_ALLGEMEIN.KdSearchBox = txtAuftraggeber
If kdSrc.KdNr_value <= 0 Then kdSrc = txtEmpfaenger
@@ -3973,9 +3979,9 @@ Public Class frmSendungsdetailsNEU
Next
End Sub
Private Sub Button20_Click(sender As Object, e As EventArgs) Handles btnOptionen.Click
cntxtAnh.Show(Cursor.Position)
End Sub
'Private Sub Button20_Click(sender As Object, e As EventArgs) Handles btnOptionen.Click
' cntxtAnh.Show(Cursor.Position)
'End Sub
Private Sub KopierenZwischenablageToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KopierenZwischenablageToolStripMenuItem.Click
If dgvAnhang.SelectedRows.Count >= 1 Then
@@ -5916,7 +5922,7 @@ Public Class frmSendungsdetailsNEU
Dim f As New frmAvisoWeiterleiten("S", AvisoId, VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID) '--> Weitereliten
If f.ShowDialog(Me) = DialogResult.OK Then
If f.ShowDialog(Me) = DialogResult.OK Then
Me.Close()
End If
@@ -6278,21 +6284,84 @@ Public Class frmSendungsdetailsNEU
Me.Cursor = Cursors.Default
End Sub
'Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click
' SAVE_ME()
' cntxAPI.Show(Cursor.Position)
' 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
Private Sub ToolStripMenuItem31_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem31.Click
'MsgBox("Funktion noch nicht implementiert!")
'Exit Sub
'End Sub
Private Sub Button20_Click_1(sender As Object, e As EventArgs) Handles Button20.Click
SAVE_ME()
If Not IsNumeric(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) OrElse CInt(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) < 100000 Then MsgBox("Abfertigungsnummer angeben!") : Exit Sub
Dim frMZA As New SDL.frmZollanmeldung("T1", Nothing, AVISO, SENDUNG_LIST(CURRENT_INDEX), Now.ToString("yy"), "MODALTRANS")
frMZA.Show()
AddHandler frMZA.FormClosed, Sub()
initdgvZollAnmeldungen()
End Sub
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"), dgvATEZNCTS)
frmAttilaATEZNCTS.Show(Me)
initdgvATEZ()
End If
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
'Dim frMZA As New SDL.frmZollanmeldung("T1", Nothing, AVISO, SENDUNG_LIST(CURRENT_INDEX), Now.ToString("yy"), "MODALTRANS")
'frMZA.Show()
'AddHandler frMZA.FormClosed, Sub()
' initdgvZollAnmeldungen()
' End Sub
End Sub
'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()
@@ -6335,29 +6404,60 @@ Public Class frmSendungsdetailsNEU
End If
Cursor = Cursors.Default
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End Sub
Private Sub Button20_Click_1(sender As Object, e As EventArgs) Handles Button20.Click
SAVE_ME()
Private Sub dgvATEZNCTS_KeyUp(sender As Object, e As KeyEventArgs) Handles dgvATEZNCTS.KeyUp
If e.KeyCode = Keys.Delete Then
If dgvATEZNCTS.SelectedRows.Count > 0 AndAlso dgvATEZNCTS.SelectedRows(0).Cells("Status").Value <> "Sent" Then
If vbYes = MsgBox("Möchten Sie diesen Request wirklich löschen?", vbYesNoCancel) Then
Dim atez As New cATEZ_NCTS_DATA(dgvATEZNCTS.SelectedRows(0).Cells("Id").Value)
atez.delete()
initdgvATEZ()
End If
End If
End If
End Sub
Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.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)
Dim frm = New frmDigicust(AVISO, SND, Now.ToString("yy"), dgvATEZNCTS)
frm.Show(Me)
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
Me.Cursor = Cursors.Default
End Sub
initTab()
Sub initdgvDigicust()
With dgvDigicust
.Columns.Clear()
.ReadOnly = False
.DataSource = SQL.loadDgvBySql("select * FROM [tblDigicust_Sessions]", "FMZOLL")
If .Columns.Count <= 0 Then Exit Sub
'Ä.Columns("txtStatus").ReadOnly = False
.Columns("session_Id").Visible = True
.Columns("token").HeaderText = "Token"
.Columns("token").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("datetime").HeaderText = "Erstellt"
.Columns("datetime").Width = 100
.Columns("datetime").DefaultCellStyle.Format = "dd.MM.yy HH:mm"
.Columns("datetime").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.ReadOnly = False
End With
End Sub
End Class

24
Aviso/usrcntlAktDetailsATILLANeu.Designer.vb generated
View File

@@ -54,7 +54,6 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.SplitContainer = New System.Windows.Forms.SplitContainer()
Me.tbcntr = New System.Windows.Forms.TabControl()
Me.tbVermerke = New System.Windows.Forms.TabPage()
Me.UsrCntlVermerkeATilla1 = New AVISO.usrCntlVermerkeATilla()
Me.tbZollanmeldungen = New System.Windows.Forms.TabPage()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.dgvZollAnmeldungen = New System.Windows.Forms.DataGridView()
@@ -157,6 +156,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.UmbenennenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.LöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AusZwischenablageEinfügenPasteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.UsrCntlVermerkeATilla1 = New AVISO.usrCntlVermerkeATilla()
Me.pnlDetailsRechts.SuspendLayout()
Me.Panel3.SuspendLayout()
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -276,17 +276,6 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.tbVermerke.Text = "Vermerk eintragen"
Me.tbVermerke.UseVisualStyleBackColor = True
'
'UsrCntlVermerkeATilla1
'
Me.UsrCntlVermerkeATilla1.AutoScroll = True
Me.UsrCntlVermerkeATilla1.BackColor = System.Drawing.SystemColors.Control
Me.UsrCntlVermerkeATilla1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlVermerkeATilla1.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlVermerkeATilla1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.UsrCntlVermerkeATilla1.Name = "UsrCntlVermerkeATilla1"
Me.UsrCntlVermerkeATilla1.Size = New System.Drawing.Size(561, 151)
Me.UsrCntlVermerkeATilla1.TabIndex = 0
'
'tbZollanmeldungen
'
Me.tbZollanmeldungen.Controls.Add(Me.Panel1)
@@ -1736,6 +1725,17 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.AusZwischenablageEinfügenPasteToolStripMenuItem.Size = New System.Drawing.Size(279, 30)
Me.AusZwischenablageEinfügenPasteToolStripMenuItem.Text = "Aus Zwischenablage einfügen (Paste)"
'
'UsrCntlVermerkeATilla1
'
Me.UsrCntlVermerkeATilla1.AutoScroll = True
Me.UsrCntlVermerkeATilla1.BackColor = System.Drawing.SystemColors.Control
Me.UsrCntlVermerkeATilla1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlVermerkeATilla1.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlVermerkeATilla1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.UsrCntlVermerkeATilla1.Name = "UsrCntlVermerkeATilla1"
Me.UsrCntlVermerkeATilla1.Size = New System.Drawing.Size(561, 151)
Me.UsrCntlVermerkeATilla1.TabIndex = 0
'
'usrcntlAktDetailsATILLANeu
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

11
Aviso/usrcntlAktDetailsATILLANeu.vb
View File

@@ -1687,4 +1687,15 @@ Public Class usrcntlAktDetailsATILLANeu
End Sub
Private Sub dgvATEZNCTS_KeyUp(sender As Object, e As KeyEventArgs) Handles dgvATEZNCTS.KeyUp
If e.KeyCode = Keys.Delete Then
If dgvATEZNCTS.SelectedRows.Count > 0 AndAlso dgvATEZNCTS.SelectedRows(0).Cells("Status").Value <> "Sent" Then
If vbYes = MsgBox("Möchten Sie diesen Request wirklich löschen?", vbYesNoCancel) Then
Dim atez As New cATEZ_NCTS_DATA(dgvATEZNCTS.SelectedRows(0).Cells("Id").Value)
atez.delete()
initdgvATEZ()
End If
End If
End If
End Sub
End Class