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

ATEZ NCTS

Browse Source
This commit is contained in:
d.breimaier
2023-07-17 17:36:43 +02:00
parent 003ac6494d
commit 0d7a9fd476
7 changed files with 2112 additions and 716 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Aviso/Aviso.vbproj
View File

@@ -108,7 +108,7 @@
<PlatformTarget>x64</PlatformTarget> <PlatformTarget>x64</PlatformTarget>
</PropertyGroup> </PropertyGroup>
<PropertyGroup> <PropertyGroup>
<AssemblyOriginatorKeyFile>Aviso_TemporaryKey.pfx</AssemblyOriginatorKeyFile> <AssemblyOriginatorKeyFile>LME.pfx</AssemblyOriginatorKeyFile>
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>
<Reference Include="Accessibility" /> <Reference Include="Accessibility" />
@@ -540,10 +540,10 @@
<Compile Include="Benachrichtigung\frmAvisoBenachrichtigungReminderBestaetigen.vb"> <Compile Include="Benachrichtigung\frmAvisoBenachrichtigungReminderBestaetigen.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="frmATEZNCTS.Designer.vb"> <Compile Include="frmATEZ_NCTS.Designer.vb">
<DependentUpon>frmATEZNCTS.vb</DependentUpon> <DependentUpon>frmATEZ_NCTS.vb</DependentUpon>
</Compile> </Compile>
<Compile Include="frmATEZNCTS.vb"> <Compile Include="frmATEZ_NCTS.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="frmATZollEingereichtSetzen.Designer.vb"> <Compile Include="frmATZollEingereichtSetzen.Designer.vb">
@@ -1128,8 +1128,8 @@
<EmbeddedResource Include="Benachrichtigung\frmAvisoBenachrichtigungReminderBestaetigen.resx"> <EmbeddedResource Include="Benachrichtigung\frmAvisoBenachrichtigungReminderBestaetigen.resx">
<DependentUpon>frmAvisoBenachrichtigungReminderBestaetigen.vb</DependentUpon> <DependentUpon>frmAvisoBenachrichtigungReminderBestaetigen.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmATEZNCTS.resx"> <EmbeddedResource Include="frmATEZ_NCTS.resx">
<DependentUpon>frmATEZNCTS.vb</DependentUpon> <DependentUpon>frmATEZ_NCTS.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmATZollEingereichtSetzen.resx"> <EmbeddedResource Include="frmATZollEingereichtSetzen.resx">
<DependentUpon>frmATZollEingereichtSetzen.vb</DependentUpon> <DependentUpon>frmATZollEingereichtSetzen.vb</DependentUpon>

123
Aviso/frmATEZNCTS.resx
View File

@@ -1,123 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="columnName.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
</root>

962
Aviso/frmATEZNCTS.Designer.vb → Aviso/frmATEZ_NCTS.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

1256
Aviso/frmATEZ_NCTS.resx Normal file
View File

File diff suppressed because it is too large Load Diff

233
Aviso/frmATEZNCTS.vb → Aviso/frmATEZ_NCTS.vb
View File

@@ -1,8 +1,8 @@
Imports DocumentFormat.OpenXml.Drawing.Charts Imports SDL
Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN
Imports VERAG_PROG_ALLGEMEIN.TESTJSON
Public Class frmATEZNCTS
Public Class frmATEZ_NCTS
Dim ART As String = "" Dim ART As String = ""
Dim FilialenNr As Integer Dim FilialenNr As Integer
@@ -18,32 +18,12 @@ Public Class frmATEZNCTS
Dim AVISO As New cAviso Dim AVISO As New cAviso
Dim zusatz As String Dim zusatz As String
Dim cDy_ART As String = If(FIRMA_DY = "ATILLA", "T2", "T1") Dim cDy_ART As String = If(FIRMA_DY = "ATILLA", "T2", "T1")
Dim VermerkeDAL As New cVermerkeDAL
Dim NCTS As DAKOSY_Worker.cDakosyNCTSOut = Nothing
Property BezugsNr As String = "" Property BezugsNr As String = ""
Property SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen Property SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen
Sub New(ART As String, DY As DAKOSY_Worker.cDakosy_Zollanmeldungen, AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, JAHR As Integer, Optional ZOLL_SYSTEM As String = "DAKOSY")
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.DY = DY
Me.AVISO = AVISO
Me.ART = ART
Me.SENDUNG = SENDUNG
Me.JAHR = JAHR
Me.ZOLL_SYSTEM = ZOLL_SYSTEM
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(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, JAHR As Integer) Sub New(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, JAHR As Integer)
' Dieser Aufruf ist für den Designer erforderlich. ' Dieser Aufruf ist für den Designer erforderlich.
@@ -63,56 +43,91 @@ Public Class frmATEZNCTS
End Sub End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
lblInfo.Text = ""
Dim failreDesc As String Dim failreDesc As String
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
Exit Sub
End If
Dim atezData As New cATEZ_NCTS_DATA Dim atezData As New cATEZ_NCTS_DATA
Dim atez As New cATEZ_NCTS_IN Dim atez As New cATEZ_NCTS_IN
With atezData With atezData
.AvisoId = AVISO.AvisoID
.SendungsId = SENDUNG.tblSnd_SendungID
.VERAG_LRN = lblBezugsnummer.Text .VERAG_LRN = lblBezugsnummer.Text
.LicensePlateContainerNo = txtLKWId.Text .LicensePlateContainerNo = txtLKWId.Text
.DAKOSY_TemplateCode = cboStammreferenz._value
.DAKOSY_IOPartner = txtDyNiederlassung.Text & txtDyNiederlassung.Text .DAKOSY_IOPartner = txtDyNiederlassung.Text & txtDyNiederlassung.Text
.DAKOSY_Division1 = "" .DAKOSY_Division1 = ""
.DepartureCustomsOffice = "" .DepartureCustomsOffice = sbAbgangZollstelle._value
.DestinationCustomsOffice = sbBestimmungsZollstelle._value
.DatDeterminationLimit = txtDat.Text .DatDeterminationLimit = txtDat.Text
.CoolingTemperature = IIf(cbxTemperatur.Checked, txtTransporttemp.Text, "") .CoolingTemperature = IIf(cbxTemperatur.Checked, txtTransporttemp.Text, "")
.Carrier_Name = usrCntl_Carrier.kdFirma.Text
.Carrier_Name = "" .Carrier_Adress_City = usrCntl_Carrier.txtOrt.Text
.Carrier_Adress_City = "" .Carrier_Adress_Country = usrCntl_Carrier.sbLand._value
.Carrier_Adress_Country = "" .Carrier_Adress_Postcode = usrCntl_Carrier.txtPlz.Text
.Carrier_Adress_Postcode = "" .Carrier_Adress_Street = usrCntl_Carrier.txtStrasse.Text
.Carrier_Adress_Street = "" .Carrier_EORI = usrCntl_Carrier.txtEORI.Text
.Carrier_EORI = "" .Guarantee_GRN = "" 'leer
.Guarantee_GRN = "" 'leer lassen
'Datenzuweisung machen!
.SAVE() .SAVE()
End With End With
Dim test = atez.authenticate() If sbDurchgangszollstelle1._value <> "" Then Dim TCO As New cATEZ_NCTS_TransitCustomsOffice(atezData.Id, sbDurchgangszollstelle1._value)
If test <> "200" Then If sbDurchgangszollstelle2._value <> "" Then Dim TCO As New cATEZ_NCTS_TransitCustomsOffice(atezData.Id, sbDurchgangszollstelle2._value)
failreDesc = "Authentifizierung fehlgeschlagen" & vbNewLine & "Vorgang abgebrochen!" If sbDurchgangszollstelle3._value <> "" Then Dim TCO As New cATEZ_NCTS_TransitCustomsOffice(atezData.Id, sbDurchgangszollstelle3._value)
MsgBox(failreDesc) If sbDurchgangszollstelle4._value <> "" Then Dim TCO As New cATEZ_NCTS_TransitCustomsOffice(atezData.Id, sbDurchgangszollstelle4._value)
If sbDurchgangszollstelle5._value <> "" Then Dim TCO As New cATEZ_NCTS_TransitCustomsOffice(atezData.Id, sbDurchgangszollstelle5._value)
If sbDurchgangszollstelle6._value <> "" Then Dim TCO As New cATEZ_NCTS_TransitCustomsOffice(atezData.Id, sbDurchgangszollstelle6._value)
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)
Dim authResp = atez.authenticate()
If authResp <> "200" Then
failreDesc = "Authentifizierung fehlgeschlagen - " & authResp & vbNewLine & "Vorgang abgebrochen!"
lblInfo.Text = failreDesc
Exit Sub Exit Sub
End If End If
If Not atez.setJson(atezData, dgvAnhaenge) Then MsgBox("Fehler beim Erstellen der Daten") If Not atez.setJson(atezData, dgvAnhaenge) Then MsgBox("Fehler beim Erstellen der Daten")
atez.SendRequestWithAuthHeader("application/json", failreDesc) Dim azetId = atez.SendRequestWithAuthHeader("application/json", failreDesc)
If failreDesc <> "" Then If failreDesc <> "" Then
atezData.status = failreDesc atezData.status = failreDesc
atezData.SAVE() atezData.SAVE()
MsgBox(failreDesc) lblInfo.Text = failreDesc
Else Else
atezData.status = "Sent" atezData.status = "Sent"
atezData.atezId = IIf(azetId IsNot Nothing, azetId, "")
atezData.SAVE() atezData.SAVE()
Me.Close()
End If End If
End Sub End Sub
@@ -157,25 +172,102 @@ Public Class frmATEZNCTS
getBezugsnr(BezugsNr) getBezugsnr(BezugsNr)
txtLKWId.Text = AVISO.LKW_Nr txtLKWId.Text = AVISO.LKW_Nr
sbAbgangZollstelle._value = SENDUNG.NCTS_Bestimmungszollstelle cbxTemperatur.Checked = IIf(AVISO.TransportTemperatur <> "", True, False)
sbBestimmungsZollstelle._value = SENDUNG.NCTS_Bestimmungszollstelle txtTransporttemp.Text = AVISO.TransportTemperatur
usrCntl_Carrier.KundenNr = SENDUNG.tblSnd_FrachtfuehrerKdNr
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
sbDurchgangszollstelle1.SET_VALUE(If(AVISO.Durchgangszollstelle1, ""))
sbDurchgangszollstelle2.SET_VALUE(If(AVISO.Durchgangszollstelle2, ""))
sbDurchgangszollstelle3.SET_VALUE(If(AVISO.Durchgangszollstelle3, ""))
sbDurchgangszollstelle4.SET_VALUE(If(AVISO.Durchgangszollstelle4, ""))
sbDurchgangszollstelle5.SET_VALUE(If(AVISO.Durchgangszollstelle5, ""))
sbDurchgangszollstelle6.SET_VALUE(If(AVISO.Durchgangszollstelle6, ""))
End Sub End Sub
Sub initAttachment() Sub initAttachment()
dgvAnhaenge.Rows.Clear() Dim hSQL As String = " SELECT [anh_id],anh_Datum,[anh_Name],[anh_docId],
If ATT Is Nothing Then CASE WHEN [anh_Art] = 'ATR-EUR1' then 'EUR'
Exit Sub when [anh_Art] = 'Rechnung' then 'INVOICE'
End If 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
dgvAnhaenge.ClearSelection()
End Sub End Sub
@@ -205,4 +297,35 @@ Public Class frmATEZNCTS
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) 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) 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 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("")
If frmRoutenauswahl.ZOLLAEMTER.Count > 0 Then sbDurchgangszollstelle1.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(0)) Else sbDurchgangszollstelle1.SET_VALUE("")
If frmRoutenauswahl.ZOLLAEMTER.Count > 1 Then sbDurchgangszollstelle2.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(1)) Else sbDurchgangszollstelle2.SET_VALUE("")
If frmRoutenauswahl.ZOLLAEMTER.Count > 2 Then sbDurchgangszollstelle3.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(2)) Else sbDurchgangszollstelle3.SET_VALUE("")
If frmRoutenauswahl.ZOLLAEMTER.Count > 3 Then sbDurchgangszollstelle4.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(3)) Else sbDurchgangszollstelle4.SET_VALUE("")
If frmRoutenauswahl.ZOLLAEMTER.Count > 4 Then sbDurchgangszollstelle5.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(4)) Else sbDurchgangszollstelle5.SET_VALUE("")
If frmRoutenauswahl.ZOLLAEMTER.Count > 5 Then sbDurchgangszollstelle6.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(5)) Else sbDurchgangszollstelle6.SET_VALUE("")
If frmRoutenauswahl.ZOLLAEMTER.Count > 6 Then sbDurchgangszollstelle7.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(6)) Else sbDurchgangszollstelle7.SET_VALUE("")
If frmRoutenauswahl.ZOLLAEMTER.Count > 7 Then sbDurchgangszollstelle8.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(7)) Else sbDurchgangszollstelle8.SET_VALUE("")
If frmRoutenauswahl.ZOLLAEMTER.Count > 8 Then sbDurchgangszollstelle9.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(8)) Else sbDurchgangszollstelle9.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
End Class End Class

178
Aviso/usrcntlAktDetailsATILLANeu.Designer.vb generated
View File

@@ -44,6 +44,11 @@ Partial Class usrcntlAktDetailsATILLANeu
Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle25 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.pnlDetailsRechts = New System.Windows.Forms.Panel() Me.pnlDetailsRechts = New System.Windows.Forms.Panel()
Me.Panel3 = New System.Windows.Forms.Panel() Me.Panel3 = New System.Windows.Forms.Panel()
Me.SplitContainer = New System.Windows.Forms.SplitContainer() Me.SplitContainer = New System.Windows.Forms.SplitContainer()
@@ -67,6 +72,10 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.Button11 = New System.Windows.Forms.Button() Me.Button11 = New System.Windows.Forms.Button()
Me.Button4 = New System.Windows.Forms.Button() Me.Button4 = New System.Windows.Forms.Button()
Me.Button10 = New System.Windows.Forms.Button() Me.Button10 = New System.Windows.Forms.Button()
Me.tbATEZ = New System.Windows.Forms.TabPage()
Me.dgvATEZNCTS = New System.Windows.Forms.DataGridView()
Me.Panel10 = New System.Windows.Forms.Panel()
Me.Label12 = New System.Windows.Forms.Label()
Me.Panel7 = New System.Windows.Forms.Panel() Me.Panel7 = New System.Windows.Forms.Panel()
Me.gridVermerke = New System.Windows.Forms.DataGridView() Me.gridVermerke = New System.Windows.Forms.DataGridView()
Me.pnlVermerkeTop = New System.Windows.Forms.Panel() Me.pnlVermerkeTop = New System.Windows.Forms.Panel()
@@ -165,6 +174,9 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.tbAnhaenge.SuspendLayout() Me.tbAnhaenge.SuspendLayout()
CType(Me.dgvanhaenge, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvanhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel5.SuspendLayout() Me.Panel5.SuspendLayout()
Me.tbATEZ.SuspendLayout()
CType(Me.dgvATEZNCTS, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel10.SuspendLayout()
CType(Me.gridVermerke, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.gridVermerke, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlVermerkeTop.SuspendLayout() Me.pnlVermerkeTop.SuspendLayout()
Me.Panel8.SuspendLayout() Me.Panel8.SuspendLayout()
@@ -244,6 +256,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.tbcntr.Controls.Add(Me.tbZollanmeldungen) Me.tbcntr.Controls.Add(Me.tbZollanmeldungen)
Me.tbcntr.Controls.Add(Me.tbSpedBuch) Me.tbcntr.Controls.Add(Me.tbSpedBuch)
Me.tbcntr.Controls.Add(Me.tbAnhaenge) Me.tbcntr.Controls.Add(Me.tbAnhaenge)
Me.tbcntr.Controls.Add(Me.tbATEZ)
Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Fill Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Fill
Me.tbcntr.Location = New System.Drawing.Point(0, 0) Me.tbcntr.Location = New System.Drawing.Point(0, 0)
Me.tbcntr.Name = "tbcntr" Me.tbcntr.Name = "tbcntr"
@@ -601,6 +614,90 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.Button10.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.Button10.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button10.UseVisualStyleBackColor = True Me.Button10.UseVisualStyleBackColor = True
' '
'tbATEZ
'
Me.tbATEZ.Controls.Add(Me.dgvATEZNCTS)
Me.tbATEZ.Controls.Add(Me.Panel10)
Me.tbATEZ.Location = New System.Drawing.Point(4, 22)
Me.tbATEZ.Name = "tbATEZ"
Me.tbATEZ.Size = New System.Drawing.Size(567, 157)
Me.tbATEZ.TabIndex = 4
Me.tbATEZ.Text = "ATEZ NCTS"
Me.tbATEZ.UseVisualStyleBackColor = True
'
'dgvATEZNCTS
'
Me.dgvATEZNCTS.AllowUserToAddRows = False
Me.dgvATEZNCTS.AllowUserToDeleteRows = False
Me.dgvATEZNCTS.AllowUserToResizeRows = False
DataGridViewCellStyle16.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvATEZNCTS.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle16
Me.dgvATEZNCTS.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle17.BackColor = System.Drawing.Color.LightBlue
DataGridViewCellStyle17.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle17.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle17.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle17.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvATEZNCTS.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle17
Me.dgvATEZNCTS.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle18.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvATEZNCTS.DefaultCellStyle = DataGridViewCellStyle18
Me.dgvATEZNCTS.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvATEZNCTS.Location = New System.Drawing.Point(0, 31)
Me.dgvATEZNCTS.MultiSelect = False
Me.dgvATEZNCTS.Name = "dgvATEZNCTS"
Me.dgvATEZNCTS.ReadOnly = True
DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle19.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvATEZNCTS.RowHeadersDefaultCellStyle = DataGridViewCellStyle19
Me.dgvATEZNCTS.RowHeadersVisible = False
Me.dgvATEZNCTS.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
DataGridViewCellStyle20.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvATEZNCTS.RowsDefaultCellStyle = DataGridViewCellStyle20
Me.dgvATEZNCTS.RowTemplate.Height = 20
Me.dgvATEZNCTS.RowTemplate.ReadOnly = True
Me.dgvATEZNCTS.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvATEZNCTS.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvATEZNCTS.ShowCellErrors = False
Me.dgvATEZNCTS.ShowRowErrors = False
Me.dgvATEZNCTS.Size = New System.Drawing.Size(567, 126)
Me.dgvATEZNCTS.TabIndex = 104
Me.dgvATEZNCTS.TabStop = False
'
'Panel10
'
Me.Panel10.Controls.Add(Me.Label12)
Me.Panel10.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel10.Location = New System.Drawing.Point(0, 0)
Me.Panel10.Name = "Panel10"
Me.Panel10.Size = New System.Drawing.Size(567, 31)
Me.Panel10.TabIndex = 105
'
'Label12
'
Me.Label12.AutoSize = True
Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label12.ForeColor = System.Drawing.SystemColors.WindowText
Me.Label12.Location = New System.Drawing.Point(3, 15)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(76, 13)
Me.Label12.TabIndex = 98
Me.Label12.Text = "ATEZ NCTS"
'
'Panel7 'Panel7
' '
Me.Panel7.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Me.Panel7.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
@@ -617,44 +714,44 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.gridVermerke.AllowUserToAddRows = False Me.gridVermerke.AllowUserToAddRows = False
Me.gridVermerke.AllowUserToDeleteRows = False Me.gridVermerke.AllowUserToDeleteRows = False
Me.gridVermerke.AllowUserToResizeRows = False Me.gridVermerke.AllowUserToResizeRows = False
DataGridViewCellStyle16.BackColor = System.Drawing.Color.Azure DataGridViewCellStyle21.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle21.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle16 Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle21
Me.gridVermerke.BackgroundColor = System.Drawing.Color.White Me.gridVermerke.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle22.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle17.BackColor = System.Drawing.Color.LightBlue DataGridViewCellStyle22.BackColor = System.Drawing.Color.LightBlue
DataGridViewCellStyle17.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle22.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle17.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle22.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle17.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle22.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle17.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle22.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle22.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle17 Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle22
Me.gridVermerke.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing Me.gridVermerke.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle23.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle23.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle18.ForeColor = System.Drawing.SystemColors.ControlText DataGridViewCellStyle23.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle23.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle23.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle23.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridVermerke.DefaultCellStyle = DataGridViewCellStyle18 Me.gridVermerke.DefaultCellStyle = DataGridViewCellStyle23
Me.gridVermerke.Dock = System.Windows.Forms.DockStyle.Fill Me.gridVermerke.Dock = System.Windows.Forms.DockStyle.Fill
Me.gridVermerke.Location = New System.Drawing.Point(0, 29) Me.gridVermerke.Location = New System.Drawing.Point(0, 29)
Me.gridVermerke.MultiSelect = False Me.gridVermerke.MultiSelect = False
Me.gridVermerke.Name = "gridVermerke" Me.gridVermerke.Name = "gridVermerke"
Me.gridVermerke.ReadOnly = True Me.gridVermerke.ReadOnly = True
DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle24.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle24.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle19.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle24.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle24.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle24.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle24.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.RowHeadersDefaultCellStyle = DataGridViewCellStyle19 Me.gridVermerke.RowHeadersDefaultCellStyle = DataGridViewCellStyle24
Me.gridVermerke.RowHeadersVisible = False Me.gridVermerke.RowHeadersVisible = False
Me.gridVermerke.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing Me.gridVermerke.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
DataGridViewCellStyle20.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle25.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle20 Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle25
Me.gridVermerke.RowTemplate.Height = 20 Me.gridVermerke.RowTemplate.Height = 20
Me.gridVermerke.RowTemplate.ReadOnly = True Me.gridVermerke.RowTemplate.ReadOnly = True
Me.gridVermerke.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False] Me.gridVermerke.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
@@ -1544,29 +1641,29 @@ Partial Class usrcntlAktDetailsATILLANeu
'ToolStripSeparator2 'ToolStripSeparator2
' '
Me.ToolStripSeparator2.Name = "ToolStripSeparator2" Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
Me.ToolStripSeparator2.Size = New System.Drawing.Size(177, 6) Me.ToolStripSeparator2.Size = New System.Drawing.Size(152, 6)
' '
'NCTST2ToolStripMenuItem 'NCTST2ToolStripMenuItem
' '
Me.NCTST2ToolStripMenuItem.Name = "NCTST2ToolStripMenuItem" Me.NCTST2ToolStripMenuItem.Name = "NCTST2ToolStripMenuItem"
Me.NCTST2ToolStripMenuItem.Size = New System.Drawing.Size(180, 22) Me.NCTST2ToolStripMenuItem.Size = New System.Drawing.Size(155, 22)
Me.NCTST2ToolStripMenuItem.Text = "NCTS - Versand" Me.NCTST2ToolStripMenuItem.Text = "NCTS - Versand"
' '
'AESToolStripMenuItem 'AESToolStripMenuItem
' '
Me.AESToolStripMenuItem.Name = "AESToolStripMenuItem" Me.AESToolStripMenuItem.Name = "AESToolStripMenuItem"
Me.AESToolStripMenuItem.Size = New System.Drawing.Size(180, 22) Me.AESToolStripMenuItem.Size = New System.Drawing.Size(155, 22)
Me.AESToolStripMenuItem.Text = "AES - Ausfuhr" Me.AESToolStripMenuItem.Text = "AES - Ausfuhr"
' '
'ToolStripSeparator1 'ToolStripSeparator1
' '
Me.ToolStripSeparator1.Name = "ToolStripSeparator1" Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(177, 6) Me.ToolStripSeparator1.Size = New System.Drawing.Size(152, 6)
' '
'SGSNCTSToolStripMenuItem 'SGSNCTSToolStripMenuItem
' '
Me.SGSNCTSToolStripMenuItem.Name = "SGSNCTSToolStripMenuItem" Me.SGSNCTSToolStripMenuItem.Name = "SGSNCTSToolStripMenuItem"
Me.SGSNCTSToolStripMenuItem.Size = New System.Drawing.Size(180, 22) Me.SGSNCTSToolStripMenuItem.Size = New System.Drawing.Size(155, 22)
Me.SGSNCTSToolStripMenuItem.Text = "SGS - NCTS" Me.SGSNCTSToolStripMenuItem.Text = "SGS - NCTS"
Me.SGSNCTSToolStripMenuItem.Visible = False Me.SGSNCTSToolStripMenuItem.Visible = False
' '
@@ -1575,14 +1672,15 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.cntxtZollantrag.ImageScalingSize = New System.Drawing.Size(24, 24) Me.cntxtZollantrag.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.cntxtZollantrag.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripSeparator2, Me.NCTST2ToolStripMenuItem, Me.AESToolStripMenuItem, Me.ToolStripSeparator1, Me.SGSNCTSToolStripMenuItem, Me.NCTSATEZToolStripMenuItem}) Me.cntxtZollantrag.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripSeparator2, Me.NCTST2ToolStripMenuItem, Me.AESToolStripMenuItem, Me.ToolStripSeparator1, Me.SGSNCTSToolStripMenuItem, Me.NCTSATEZToolStripMenuItem})
Me.cntxtZollantrag.Name = "cntxtZollantrag" Me.cntxtZollantrag.Name = "cntxtZollantrag"
Me.cntxtZollantrag.Size = New System.Drawing.Size(181, 126) Me.cntxtZollantrag.Size = New System.Drawing.Size(156, 104)
Me.cntxtZollantrag.Text = "Zollantrag" Me.cntxtZollantrag.Text = "Zollantrag"
' '
'NCTSATEZToolStripMenuItem 'NCTSATEZToolStripMenuItem
' '
Me.NCTSATEZToolStripMenuItem.Name = "NCTSATEZToolStripMenuItem" Me.NCTSATEZToolStripMenuItem.Name = "NCTSATEZToolStripMenuItem"
Me.NCTSATEZToolStripMenuItem.Size = New System.Drawing.Size(180, 22) Me.NCTSATEZToolStripMenuItem.Size = New System.Drawing.Size(155, 22)
Me.NCTSATEZToolStripMenuItem.Text = "NCTS - ATEZ" Me.NCTSATEZToolStripMenuItem.Text = "NCTS - ATEZ"
Me.NCTSATEZToolStripMenuItem.Visible = False
' '
'cntxt 'cntxt
' '
@@ -1656,6 +1754,10 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.tbAnhaenge.ResumeLayout(False) Me.tbAnhaenge.ResumeLayout(False)
CType(Me.dgvanhaenge, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.dgvanhaenge, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel5.ResumeLayout(False) Me.Panel5.ResumeLayout(False)
Me.tbATEZ.ResumeLayout(False)
CType(Me.dgvATEZNCTS, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel10.ResumeLayout(False)
Me.Panel10.PerformLayout()
CType(Me.gridVermerke, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.gridVermerke, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnlVermerkeTop.ResumeLayout(False) Me.pnlVermerkeTop.ResumeLayout(False)
Me.pnlVermerkeTop.PerformLayout() Me.pnlVermerkeTop.PerformLayout()
@@ -1797,4 +1899,8 @@ Partial Class usrcntlAktDetailsATILLANeu
Friend WithEvents btnAnIndonesien As Button Friend WithEvents btnAnIndonesien As Button
Friend WithEvents Label11 As Label Friend WithEvents Label11 As Label
Friend WithEvents NCTSATEZToolStripMenuItem As ToolStripMenuItem Friend WithEvents NCTSATEZToolStripMenuItem As ToolStripMenuItem
Friend WithEvents tbATEZ As TabPage
Friend WithEvents dgvATEZNCTS As DataGridView
Friend WithEvents Panel10 As Panel
Friend WithEvents Label12 As Label
End Class End Class

64
Aviso/usrcntlAktDetailsATILLANeu.vb
View File

@@ -144,11 +144,39 @@ Public Class usrcntlAktDetailsATILLANeu
End Sub End Sub
Sub initdgvATEZ()
With dgvATEZNCTS
.Columns.Clear()
.ReadOnly = False
.DataSource = SQL.loadDgvBySql("select [Id],'ATEZ' as Art ,[VERAG_LRN] as BezugsNr,[erstellung] as Erstellung,[Status] as Status FROM [tblATEZ_NCTS] WHERE AvisoId='" & AvisoID & "'", "FMZOLL")
If .Columns.Count <= 0 Then Exit Sub
'Ä.Columns("txtStatus").ReadOnly = False
.Columns("Id").Visible = False
.Columns("Art").HeaderText = "Art"
.Columns("Art").Width = 80
.Columns("Status").HeaderText = "Art"
.Columns("Status").Width = 80
.Columns("BezugsNr").HeaderText = "BezugsNr"
.Columns("BezugsNr").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("Erstellung").HeaderText = "Erstellt"
.Columns("Erstellung").Width = 100
.Columns("Erstellung").DefaultCellStyle.Format = "dd.MM.yy HH:mm"
.Columns("Erstellung").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.ReadOnly = False
End With
End Sub
Sub initdgvZollAnmeldungen() Sub initdgvZollAnmeldungen()
With dgvZollAnmeldungen With dgvZollAnmeldungen
.Columns.Clear() .Columns.Clear()
.ReadOnly = False .ReadOnly = False
.DataSource = SQL.loadDgvBySql("SELECT [dy_Id],[dy_ART],[dy_BezugsNr],[dy_Erstellung],[dy_Status] FROM [tblDakosy_Zollanmeldungen] WHERE dy_AvisoId='" & AvisoID & "'", "FMZOLL") .DataSource = SQL.loadDgvBySql("SELECT [dy_Id],[dy_ART],[dy_BezugsNr],[dy_Erstellung],[dy_Status] FROM [tblDakosy_Zollanmeldungen] WHERE dy_AvisoId='" & AvisoID & "'", "FMZOLL")
If .Columns.Count <= 0 Then Exit Sub If .Columns.Count <= 0 Then Exit Sub
'Ä.Columns("txtStatus").ReadOnly = False 'Ä.Columns("txtStatus").ReadOnly = False
.Columns("dy_Id").Visible = False .Columns("dy_Id").Visible = False
@@ -176,6 +204,7 @@ Public Class usrcntlAktDetailsATILLANeu
End With End With
End Sub End Sub
Private Sub dgvZollAnmeldungen_CellFormatting(sender As Object, e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles dgvZollAnmeldungen.CellFormatting Private Sub dgvZollAnmeldungen_CellFormatting(sender As Object, e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles dgvZollAnmeldungen.CellFormatting
Select Case dgvZollAnmeldungen.Columns(e.ColumnIndex).Name Select Case dgvZollAnmeldungen.Columns(e.ColumnIndex).Name
Case "txtStatus" 'Dauer Case "txtStatus" 'Dauer
@@ -229,6 +258,13 @@ Public Class usrcntlAktDetailsATILLANeu
SGSNCTSToolStripMenuItem.Visible = True SGSNCTSToolStripMenuItem.Visible = True
End If End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ATEZ_NCTS", Me.FindForm) Then
NCTSATEZToolStripMenuItem.Visible = True
tbATEZ.Visible = True
Else
tbATEZ.Visible = False
End If
timer.Interval = 100 timer.Interval = 100
reload(AvisoID) reload(AvisoID)
@@ -1472,6 +1508,8 @@ Public Class usrcntlAktDetailsATILLANeu
initdgvZollAnmeldungen() initdgvZollAnmeldungen()
ElseIf tbcntr.SelectedTab Is tbVermerke Then ElseIf tbcntr.SelectedTab Is tbVermerke Then
If loaded Then Vermerke_anzeigen() If loaded Then Vermerke_anzeigen()
ElseIf tbcntr.SelectedTab Is tbATEZ Then
initdgvATEZ()
End If End If
End Sub End Sub
@@ -1609,32 +1647,14 @@ Public Class usrcntlAktDetailsATILLANeu
End Sub End Sub
Private Sub NCTSATEZToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NCTSATEZToolStripMenuItem.Click Private Sub NCTSATEZToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NCTSATEZToolStripMenuItem.Click
Dim ATTACHMENTS_LIST As New List(Of String)
Try Try
If dgvanhaenge.SelectedRows.Count = 0 Then
MsgBox("Bitte zu schickenden Anhänge markieren!")
Exit Sub
Else
For Each row As DataGridViewRow In dgvanhaenge.SelectedRows
Dim anh_id = row.Cells("anh_id").Value
ATTACHMENTS_LIST.Add(anh_id)
Next
End If
If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(0) Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(0)
Dim frmAttilaATEZNCTS = New frmATEZ_NCTS(AVISO, SND, Now.ToString("yy"))
Dim frmAttilaATEZNCTS = New frmATEZNCTS(AVISO, SND, Now.ToString("yy"))
frmAttilaATEZNCTS.ATT = ATTACHMENTS_LIST
AddHandler frmAttilaATEZNCTS.FormClosed, Sub()
'initdgvZollAnmeldungen()
End Sub
frmAttilaATEZNCTS.Show(Me) frmAttilaATEZNCTS.Show(Me)
End If End If
@@ -1645,4 +1665,6 @@ Public Class usrcntlAktDetailsATILLANeu
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
End Sub End Sub
End Class End Class