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

Revert "cbam"

Browse Source 
This reverts commit dff516b9df.
This commit is contained in:
d.breimaier
2026-01-15 11:15:59 +01:00
parent ad6a34f9c3
commit 0e3299e219
12 changed files with 396 additions and 788 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
SDL/SDL.vbproj
View File

@@ -1023,12 +1023,6 @@
<Compile Include="kunden\Teams\frmKundeAnsprechpartnerTeams.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="kunden\usCntlCBAM_Status.Designer.vb">
<DependentUpon>usCntlCBAM_Status.vb</DependentUpon>
</Compile>
<Compile Include="kunden\usCntlCBAM_Status.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="kunden\usrcntlFiskaluebersicht.Designer.vb">
<DependentUpon>usrcntlFiskaluebersicht.vb</DependentUpon>
</Compile>
@@ -3667,9 +3661,6 @@
<EmbeddedResource Include="kunden\Teams\frmKundeAnsprechpartnerTeams.resx">
<DependentUpon>frmKundeAnsprechpartnerTeams.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="kunden\usCntlCBAM_Status.resx">
<DependentUpon>usCntlCBAM_Status.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="kunden\usrcntlFiskaluebersicht.resx">
<DependentUpon>usrcntlFiskaluebersicht.vb</DependentUpon>
</EmbeddedResource>

2
SDL/cProgramFunctions.vb
View File

@@ -588,7 +588,7 @@ Public Class cProgramFunctions
End Function
Public Shared Function isLeerNothing(o) As Object
Return If(o = "", Nothing, o)
Return IIf(o = "", Nothing, o)
End Function
Public Shared Function isLeerNothingDbl(o, Optional returnVal = Nothing) As Object
Try

12
SDL/kunden/frmKundenUebersichtZOLL.Designer.vb generated
View File

@@ -228,7 +228,7 @@ Partial Class frmKundenUebersichtZOLL
Me.tabKundendaten.Location = New System.Drawing.Point(4, 25)
Me.tabKundendaten.Name = "tabKundendaten"
Me.tabKundendaten.Padding = New System.Windows.Forms.Padding(3)
Me.tabKundendaten.Size = New System.Drawing.Size(1182, 750)
Me.tabKundendaten.Size = New System.Drawing.Size(1182, 697)
Me.tabKundendaten.TabIndex = 0
Me.tabKundendaten.Text = "Kundendaten"
'
@@ -268,7 +268,7 @@ Partial Class frmKundenUebersichtZOLL
Me.usrcntlKundenuebersicht.Location = New System.Drawing.Point(3, 3)
Me.usrcntlKundenuebersicht.Margin = New System.Windows.Forms.Padding(2)
Me.usrcntlKundenuebersicht.Name = "usrcntlKundenuebersicht"
Me.usrcntlKundenuebersicht.Size = New System.Drawing.Size(1176, 744)
Me.usrcntlKundenuebersicht.Size = New System.Drawing.Size(1176, 691)
Me.usrcntlKundenuebersicht.TabIndex = 0
'
'ContextMenuStrip2
@@ -301,7 +301,7 @@ Partial Class frmKundenUebersichtZOLL
Me.tbcntrKundenDaten.Location = New System.Drawing.Point(0, 0)
Me.tbcntrKundenDaten.Name = "tbcntrKundenDaten"
Me.tbcntrKundenDaten.SelectedIndex = 0
Me.tbcntrKundenDaten.Size = New System.Drawing.Size(1190, 779)
Me.tbcntrKundenDaten.Size = New System.Drawing.Size(1190, 726)
Me.tbcntrKundenDaten.SizeMode = System.Windows.Forms.TabSizeMode.Fixed
Me.tbcntrKundenDaten.TabIndex = 191
'
@@ -1080,7 +1080,7 @@ Partial Class frmKundenUebersichtZOLL
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel1.Location = New System.Drawing.Point(114, 32)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(1190, 779)
Me.Panel1.Size = New System.Drawing.Size(1190, 726)
Me.Panel1.TabIndex = 201
'
'MenuStripKunden
@@ -1095,7 +1095,7 @@ Partial Class frmKundenUebersichtZOLL
Me.MenuStripKunden.LayoutStyle = System.Windows.Forms.ToolStripLayoutStyle.VerticalStackWithOverflow
Me.MenuStripKunden.Location = New System.Drawing.Point(0, 0)
Me.MenuStripKunden.Name = "MenuStripKunden"
Me.MenuStripKunden.Size = New System.Drawing.Size(114, 811)
Me.MenuStripKunden.Size = New System.Drawing.Size(114, 758)
Me.MenuStripKunden.TabIndex = 208
Me.MenuStripKunden.Text = "test"
'
@@ -1582,7 +1582,7 @@ Partial Class frmKundenUebersichtZOLL
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.AutoScroll = True
Me.ClientSize = New System.Drawing.Size(1304, 811)
Me.ClientSize = New System.Drawing.Size(1304, 758)
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.pnlTop)
Me.Controls.Add(Me.MenuStripKunden)

278
SDL/kunden/usCntlCBAM_Status.Designer.vb generated
View File

@@ -1,278 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class usCntlCBAM_Status
Inherits System.Windows.Forms.UserControl
'UserControl ü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.Panel3 = New System.Windows.Forms.Panel()
Me.cboCBAM_KdSett_Status = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label25 = New System.Windows.Forms.Label()
Me.Label24 = New System.Windows.Forms.Label()
Me.txtCBAM_KdSett_ApplNo = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label14 = New System.Windows.Forms.Label()
Me.txtCBAM_KdSett_Warn2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Button9 = New System.Windows.Forms.Button()
Me.txtCBAM_KdSett_CBAMNo = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label20 = New System.Windows.Forms.Label()
Me.Label21 = New System.Windows.Forms.Label()
Me.txtCBAM_KdSett_Warn1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label22 = New System.Windows.Forms.Label()
Me.Label23 = New System.Windows.Forms.Label()
Me.Panel3.SuspendLayout()
Me.SuspendLayout()
'
'Panel3
'
Me.Panel3.BackColor = System.Drawing.Color.FloralWhite
Me.Panel3.Controls.Add(Me.cboCBAM_KdSett_Status)
Me.Panel3.Controls.Add(Me.Label25)
Me.Panel3.Controls.Add(Me.Label24)
Me.Panel3.Controls.Add(Me.txtCBAM_KdSett_ApplNo)
Me.Panel3.Controls.Add(Me.Label14)
Me.Panel3.Controls.Add(Me.txtCBAM_KdSett_Warn2)
Me.Panel3.Controls.Add(Me.Button9)
Me.Panel3.Controls.Add(Me.txtCBAM_KdSett_CBAMNo)
Me.Panel3.Controls.Add(Me.Label20)
Me.Panel3.Controls.Add(Me.Label21)
Me.Panel3.Controls.Add(Me.txtCBAM_KdSett_Warn1)
Me.Panel3.Controls.Add(Me.Label22)
Me.Panel3.Controls.Add(Me.Label23)
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel3.Location = New System.Drawing.Point(0, 0)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(380, 180)
Me.Panel3.TabIndex = 74
'
'cboCBAM_KdSett_Status
'
Me.cboCBAM_KdSett_Status._allowedValuesFreiText = Nothing
Me.cboCBAM_KdSett_Status._allowFreiText = False
Me.cboCBAM_KdSett_Status._value = ""
Me.cboCBAM_KdSett_Status.FormattingEnabled = True
Me.cboCBAM_KdSett_Status.Location = New System.Drawing.Point(110, 22)
Me.cboCBAM_KdSett_Status.Name = "cboCBAM_KdSett_Status"
Me.cboCBAM_KdSett_Status.Size = New System.Drawing.Size(256, 21)
Me.cboCBAM_KdSett_Status.TabIndex = 74
'
'Label25
'
Me.Label25.AutoSize = True
Me.Label25.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
Me.Label25.Location = New System.Drawing.Point(182, 52)
Me.Label25.Name = "Label25"
Me.Label25.Size = New System.Drawing.Size(40, 13)
Me.Label25.TabIndex = 80
Me.Label25.Text = "Warn 2"
'
'Label24
'
Me.Label24.AutoSize = True
Me.Label24.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
Me.Label24.Location = New System.Drawing.Point(118, 52)
Me.Label24.Name = "Label24"
Me.Label24.Size = New System.Drawing.Size(43, 13)
Me.Label24.TabIndex = 79
Me.Label24.Text = "Warn 1 "
'
'txtCBAM_KdSett_ApplNo
'
Me.txtCBAM_KdSett_ApplNo._DateTimeOnly = False
Me.txtCBAM_KdSett_ApplNo._numbersOnly = False
Me.txtCBAM_KdSett_ApplNo._numbersOnlyKommastellen = ""
Me.txtCBAM_KdSett_ApplNo._numbersOnlyTrennzeichen = False
Me.txtCBAM_KdSett_ApplNo._Prozent = False
Me.txtCBAM_KdSett_ApplNo._ShortDateNew = False
Me.txtCBAM_KdSett_ApplNo._ShortDateOnly = False
Me.txtCBAM_KdSett_ApplNo._TimeOnly = False
Me.txtCBAM_KdSett_ApplNo._TimeOnly_Seconds = False
Me.txtCBAM_KdSett_ApplNo._value = ""
Me.txtCBAM_KdSett_ApplNo._Waehrung = False
Me.txtCBAM_KdSett_ApplNo._WaehrungZeichen = True
Me.txtCBAM_KdSett_ApplNo.Enabled = False
Me.txtCBAM_KdSett_ApplNo.ForeColor = System.Drawing.Color.Red
Me.txtCBAM_KdSett_ApplNo.Location = New System.Drawing.Point(110, 95)
Me.txtCBAM_KdSett_ApplNo.MaxLength = 250
Me.txtCBAM_KdSett_ApplNo.MaxLineLength = -1
Me.txtCBAM_KdSett_ApplNo.MaxLines_Warning = ""
Me.txtCBAM_KdSett_ApplNo.MaxLines_Warning_Label = Nothing
Me.txtCBAM_KdSett_ApplNo.Name = "txtCBAM_KdSett_ApplNo"
Me.txtCBAM_KdSett_ApplNo.Size = New System.Drawing.Size(256, 20)
Me.txtCBAM_KdSett_ApplNo.TabIndex = 77
'
'Label14
'
Me.Label14.AutoSize = True
Me.Label14.Location = New System.Drawing.Point(3, 98)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(79, 13)
Me.Label14.TabIndex = 78
Me.Label14.Text = "Application-Nr.:"
'
'txtCBAM_KdSett_Warn2
'
Me.txtCBAM_KdSett_Warn2._DateTimeOnly = False
Me.txtCBAM_KdSett_Warn2._numbersOnly = True
Me.txtCBAM_KdSett_Warn2._numbersOnlyKommastellen = ""
Me.txtCBAM_KdSett_Warn2._numbersOnlyTrennzeichen = True
Me.txtCBAM_KdSett_Warn2._Prozent = False
Me.txtCBAM_KdSett_Warn2._ShortDateNew = False
Me.txtCBAM_KdSett_Warn2._ShortDateOnly = False
Me.txtCBAM_KdSett_Warn2._TimeOnly = False
Me.txtCBAM_KdSett_Warn2._TimeOnly_Seconds = False
Me.txtCBAM_KdSett_Warn2._value = "40"
Me.txtCBAM_KdSett_Warn2._Waehrung = False
Me.txtCBAM_KdSett_Warn2._WaehrungZeichen = True
Me.txtCBAM_KdSett_Warn2.ForeColor = System.Drawing.Color.Black
Me.txtCBAM_KdSett_Warn2.Location = New System.Drawing.Point(174, 66)
Me.txtCBAM_KdSett_Warn2.MaxLength = 10
Me.txtCBAM_KdSett_Warn2.MaxLineLength = -1
Me.txtCBAM_KdSett_Warn2.MaxLines_Warning = ""
Me.txtCBAM_KdSett_Warn2.MaxLines_Warning_Label = Nothing
Me.txtCBAM_KdSett_Warn2.Name = "txtCBAM_KdSett_Warn2"
Me.txtCBAM_KdSett_Warn2.Size = New System.Drawing.Size(58, 20)
Me.txtCBAM_KdSett_Warn2.TabIndex = 75
Me.txtCBAM_KdSett_Warn2.Text = "40"
'
'Button9
'
Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button9.Location = New System.Drawing.Point(149, 147)
Me.Button9.Name = "Button9"
Me.Button9.Size = New System.Drawing.Size(217, 28)
Me.Button9.TabIndex = 53
Me.Button9.Text = "Speichern"
Me.Button9.UseVisualStyleBackColor = True
'
'txtCBAM_KdSett_CBAMNo
'
Me.txtCBAM_KdSett_CBAMNo._DateTimeOnly = False
Me.txtCBAM_KdSett_CBAMNo._numbersOnly = False
Me.txtCBAM_KdSett_CBAMNo._numbersOnlyKommastellen = ""
Me.txtCBAM_KdSett_CBAMNo._numbersOnlyTrennzeichen = False
Me.txtCBAM_KdSett_CBAMNo._Prozent = False
Me.txtCBAM_KdSett_CBAMNo._ShortDateNew = False
Me.txtCBAM_KdSett_CBAMNo._ShortDateOnly = False
Me.txtCBAM_KdSett_CBAMNo._TimeOnly = False
Me.txtCBAM_KdSett_CBAMNo._TimeOnly_Seconds = False
Me.txtCBAM_KdSett_CBAMNo._value = ""
Me.txtCBAM_KdSett_CBAMNo._Waehrung = False
Me.txtCBAM_KdSett_CBAMNo._WaehrungZeichen = True
Me.txtCBAM_KdSett_CBAMNo.Enabled = False
Me.txtCBAM_KdSett_CBAMNo.ForeColor = System.Drawing.Color.Red
Me.txtCBAM_KdSett_CBAMNo.Location = New System.Drawing.Point(110, 118)
Me.txtCBAM_KdSett_CBAMNo.MaxLength = 250
Me.txtCBAM_KdSett_CBAMNo.MaxLineLength = -1
Me.txtCBAM_KdSett_CBAMNo.MaxLines_Warning = ""
Me.txtCBAM_KdSett_CBAMNo.MaxLines_Warning_Label = Nothing
Me.txtCBAM_KdSett_CBAMNo.Name = "txtCBAM_KdSett_CBAMNo"
Me.txtCBAM_KdSett_CBAMNo.Size = New System.Drawing.Size(256, 20)
Me.txtCBAM_KdSett_CBAMNo.TabIndex = 58
'
'Label20
'
Me.Label20.AutoSize = True
Me.Label20.Location = New System.Drawing.Point(3, 121)
Me.Label20.Name = "Label20"
Me.Label20.Size = New System.Drawing.Size(88, 13)
Me.Label20.TabIndex = 59
Me.Label20.Text = "CBAM Konto-Nr.:"
'
'Label21
'
Me.Label21.AutoSize = True
Me.Label21.Location = New System.Drawing.Point(2, 69)
Me.Label21.Name = "Label21"
Me.Label21.Size = New System.Drawing.Size(102, 13)
Me.Label21.TabIndex = 57
Me.Label21.Text = "Warnschwelle/Jahr:"
'
'txtCBAM_KdSett_Warn1
'
Me.txtCBAM_KdSett_Warn1._DateTimeOnly = False
Me.txtCBAM_KdSett_Warn1._numbersOnly = True
Me.txtCBAM_KdSett_Warn1._numbersOnlyKommastellen = ""
Me.txtCBAM_KdSett_Warn1._numbersOnlyTrennzeichen = True
Me.txtCBAM_KdSett_Warn1._Prozent = False
Me.txtCBAM_KdSett_Warn1._ShortDateNew = False
Me.txtCBAM_KdSett_Warn1._ShortDateOnly = False
Me.txtCBAM_KdSett_Warn1._TimeOnly = False
Me.txtCBAM_KdSett_Warn1._TimeOnly_Seconds = False
Me.txtCBAM_KdSett_Warn1._value = "30"
Me.txtCBAM_KdSett_Warn1._Waehrung = False
Me.txtCBAM_KdSett_Warn1._WaehrungZeichen = True
Me.txtCBAM_KdSett_Warn1.ForeColor = System.Drawing.Color.Black
Me.txtCBAM_KdSett_Warn1.Location = New System.Drawing.Point(110, 66)
Me.txtCBAM_KdSett_Warn1.MaxLength = 10
Me.txtCBAM_KdSett_Warn1.MaxLineLength = -1
Me.txtCBAM_KdSett_Warn1.MaxLines_Warning = ""
Me.txtCBAM_KdSett_Warn1.MaxLines_Warning_Label = Nothing
Me.txtCBAM_KdSett_Warn1.Name = "txtCBAM_KdSett_Warn1"
Me.txtCBAM_KdSett_Warn1.Size = New System.Drawing.Size(58, 20)
Me.txtCBAM_KdSett_Warn1.TabIndex = 56
Me.txtCBAM_KdSett_Warn1.Text = "30"
'
'Label22
'
Me.Label22.AutoSize = True
Me.Label22.Location = New System.Drawing.Point(3, 25)
Me.Label22.Name = "Label22"
Me.Label22.Size = New System.Drawing.Size(73, 13)
Me.Label22.TabIndex = 55
Me.Label22.Text = "CBAM-Status:"
'
'Label23
'
Me.Label23.AutoSize = True
Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label23.Location = New System.Drawing.Point(3, 3)
Me.Label23.Name = "Label23"
Me.Label23.Size = New System.Drawing.Size(142, 13)
Me.Label23.TabIndex = 53
Me.Label23.Text = "CBAM-Kundeneinstellungen:"
'
'usCntlCBAM_Status
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.Panel3)
Me.Name = "usCntlCBAM_Status"
Me.Size = New System.Drawing.Size(380, 180)
Me.Panel3.ResumeLayout(False)
Me.Panel3.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents Panel3 As Panel
Friend WithEvents cboCBAM_KdSett_Status As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label25 As Label
Friend WithEvents Label24 As Label
Friend WithEvents txtCBAM_KdSett_ApplNo As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label14 As Label
Friend WithEvents txtCBAM_KdSett_Warn2 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Button9 As Button
Friend WithEvents txtCBAM_KdSett_CBAMNo As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label20 As Label
Friend WithEvents Label21 As Label
Friend WithEvents txtCBAM_KdSett_Warn1 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label22 As Label
Friend WithEvents Label23 As Label
End Class

120
SDL/kunden/usCntlCBAM_Status.resx
View File

@@ -1,120 +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>
</root>

92
SDL/kunden/usCntlCBAM_Status.vb
View File

@@ -1,92 +0,0 @@
Imports VERAG_PROG_ALLGEMEIN
Public Class usCntlCBAM_Status
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Public kdnr As Integer = -1
Dim AD As VERAG_PROG_ALLGEMEIN.cAdressen = Nothing
Dim KD As VERAG_PROG_ALLGEMEIN.cKunde = Nothing
Dim ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert = Nothing
Sub New()
InitializeComponent()
End Sub
Sub New(kdNr)
InitializeComponent()
Me.kdnr = kdNr
End Sub
Private Sub usrCntlCBAM_Load(sender As Object, e As EventArgs) Handles Me.Load
Init(kdnr)
End Sub
Sub Init(kdnr)
If kdnr > 0 Then
AD = New VERAG_PROG_ALLGEMEIN.cAdressen(kdnr)
KD = New VERAG_PROG_ALLGEMEIN.cKunde(kdnr)
ERW = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdnr)
End If
If KD IsNot Nothing Then
' Me.Text = KD.EORITIN
End If
cboCBAM_KdSett_Status.Items.Clear()
cboCBAM_KdSett_Status.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("unbestimmt", ""))
cboCBAM_KdSett_Status.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("[Y137] < 50 to (de minis)", "50to"))
cboCBAM_KdSett_Status.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("[Y238] Antrag abgegeben", "APPL"))
cboCBAM_KdSett_Status.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("[Y128] CBAM Konto vorhanden", "CBAM"))
cboCBAM_KdSett_Status.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Kein Interesse/Fremdkunde", "NO"))
cboCBAM_KdSett_Status.changeItem("undefined")
If ERW IsNot Nothing Then
cboCBAM_KdSett_Status.changeItem(If(ERW.kde_CBAM_Status, ""))
txtCBAM_KdSett_Warn1._value = If(ERW.kde_CBAM_Warn1, "30")
txtCBAM_KdSett_Warn2._value = If(ERW.kde_CBAM_Warn2, "40")
txtCBAM_KdSett_ApplNo._value = If(ERW.kde_CBAM_ApplicationNo, "")
txtCBAM_KdSett_CBAMNo.Text = If(ERW.kde_CBAM_CBAMAccountNo, "")
End If
End Sub
Private Sub MyComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboCBAM_KdSett_Status.SelectedIndexChanged
txtCBAM_KdSett_ApplNo.Enabled = False
txtCBAM_KdSett_CBAMNo.Enabled = False
txtCBAM_KdSett_Warn1.Enabled = False
txtCBAM_KdSett_Warn2.Enabled = False
Select Case cboCBAM_KdSett_Status._value
Case ""
txtCBAM_KdSett_Warn1.Enabled = True
txtCBAM_KdSett_Warn2.Enabled = True
Case "50to"
txtCBAM_KdSett_Warn1.Enabled = True
txtCBAM_KdSett_Warn2.Enabled = True
Case "APPL"
txtCBAM_KdSett_ApplNo.Enabled = True
Case "CBAM"
txtCBAM_KdSett_ApplNo.Enabled = True
txtCBAM_KdSett_CBAMNo.Enabled = True
Case "NO" 'nix
End Select
End Sub
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
If ERW Is Nothing Then ERW = New cKundenErweitert(kdnr)
ERW.kde_CBAM_Status = cboCBAM_KdSett_Status._value
ERW.kde_CBAM_Warn1 = CDec(If(txtCBAM_KdSett_Warn1._value = "", 30, txtCBAM_KdSett_Warn1._value))
ERW.kde_CBAM_Warn2 = CDec(If(txtCBAM_KdSett_Warn2._value = "", 40, txtCBAM_KdSett_Warn2._value))
ERW.kde_CBAM_ApplicationNo = If(txtCBAM_KdSett_ApplNo._value <> "", txtCBAM_KdSett_ApplNo._value, Nothing)
ERW.kde_CBAM_CBAMAccountNo = If(txtCBAM_KdSett_CBAMNo._value <> "", txtCBAM_KdSett_CBAMNo._value, Nothing)
If ERW.SAVE() Then
If Me.FindForm.Name = "frmCBAMStatus" Then Me.FindForm.DialogResult = DialogResult.OK
End If
End Sub
End Class

241
SDL/kunden/usrCntlCBAM.Designer.vb generated
View File

@@ -22,8 +22,9 @@ Partial Class usrCntlCBAM
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.lblOffert = New System.Windows.Forms.TextBox()
Me.cntxtAddSdl = New System.Windows.Forms.ContextMenuStrip()
Me.cntxtAddSdl = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.DToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Label1 = New System.Windows.Forms.Label()
Me.btnCBAMPruef_DAKOSY = New System.Windows.Forms.Button()
@@ -116,9 +117,21 @@ Partial Class usrCntlCBAM
Me.cbxIndirekt = New System.Windows.Forms.CheckBox()
Me.Button8 = New System.Windows.Forms.Button()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.Label25 = New System.Windows.Forms.Label()
Me.Label24 = New System.Windows.Forms.Label()
Me.txtCBAM_KdSett_ApplNo = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label14 = New System.Windows.Forms.Label()
Me.txtCBAM_KdSett_Warn2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Button9 = New System.Windows.Forms.Button()
Me.txtCBAM_KdSett_CBAMNo = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label20 = New System.Windows.Forms.Label()
Me.Label21 = New System.Windows.Forms.Label()
Me.txtCBAM_KdSett_Warn1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label22 = New System.Windows.Forms.Label()
Me.Label23 = New System.Windows.Forms.Label()
Me.cboIndirekt = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cbo_VERAG_ImpLand = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel()
Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
Me.cbxUNISPED = New System.Windows.Forms.CheckBox()
Me.cbxIMEX = New System.Windows.Forms.CheckBox()
Me.cbxVERAG = New System.Windows.Forms.CheckBox()
@@ -127,7 +140,7 @@ Partial Class usrCntlCBAM
Me.txtVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtEori = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.UsCntlCBAM_Status1 = New SDL.usCntlCBAM_Status()
Me.cboCBAM_KdSett_Status = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cntxtAddSdl.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.Panel2.SuspendLayout()
@@ -1392,12 +1405,200 @@ Partial Class usrCntlCBAM
'
Me.Panel3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Panel3.BackColor = System.Drawing.Color.FloralWhite
Me.Panel3.Controls.Add(Me.UsCntlCBAM_Status1)
Me.Panel3.Controls.Add(Me.cboCBAM_KdSett_Status)
Me.Panel3.Controls.Add(Me.Label25)
Me.Panel3.Controls.Add(Me.Label24)
Me.Panel3.Controls.Add(Me.txtCBAM_KdSett_ApplNo)
Me.Panel3.Controls.Add(Me.Label14)
Me.Panel3.Controls.Add(Me.txtCBAM_KdSett_Warn2)
Me.Panel3.Controls.Add(Me.Button9)
Me.Panel3.Controls.Add(Me.txtCBAM_KdSett_CBAMNo)
Me.Panel3.Controls.Add(Me.Label20)
Me.Panel3.Controls.Add(Me.Label21)
Me.Panel3.Controls.Add(Me.txtCBAM_KdSett_Warn1)
Me.Panel3.Controls.Add(Me.Label22)
Me.Panel3.Controls.Add(Me.Label23)
Me.Panel3.Location = New System.Drawing.Point(491, 511)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(380, 180)
Me.Panel3.Size = New System.Drawing.Size(382, 182)
Me.Panel3.TabIndex = 73
'
'Label25
'
Me.Label25.AutoSize = True
Me.Label25.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
Me.Label25.Location = New System.Drawing.Point(182, 52)
Me.Label25.Name = "Label25"
Me.Label25.Size = New System.Drawing.Size(40, 13)
Me.Label25.TabIndex = 80
Me.Label25.Text = "Warn 2"
'
'Label24
'
Me.Label24.AutoSize = True
Me.Label24.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
Me.Label24.Location = New System.Drawing.Point(118, 52)
Me.Label24.Name = "Label24"
Me.Label24.Size = New System.Drawing.Size(43, 13)
Me.Label24.TabIndex = 79
Me.Label24.Text = "Warn 1 "
'
'txtCBAM_KdSett_ApplNo
'
Me.txtCBAM_KdSett_ApplNo._DateTimeOnly = False
Me.txtCBAM_KdSett_ApplNo._numbersOnly = False
Me.txtCBAM_KdSett_ApplNo._numbersOnlyKommastellen = ""
Me.txtCBAM_KdSett_ApplNo._numbersOnlyTrennzeichen = False
Me.txtCBAM_KdSett_ApplNo._Prozent = False
Me.txtCBAM_KdSett_ApplNo._ShortDateNew = False
Me.txtCBAM_KdSett_ApplNo._ShortDateOnly = False
Me.txtCBAM_KdSett_ApplNo._TimeOnly = False
Me.txtCBAM_KdSett_ApplNo._TimeOnly_Seconds = False
Me.txtCBAM_KdSett_ApplNo._value = ""
Me.txtCBAM_KdSett_ApplNo._Waehrung = False
Me.txtCBAM_KdSett_ApplNo._WaehrungZeichen = True
Me.txtCBAM_KdSett_ApplNo.Enabled = False
Me.txtCBAM_KdSett_ApplNo.ForeColor = System.Drawing.Color.Red
Me.txtCBAM_KdSett_ApplNo.Location = New System.Drawing.Point(110, 95)
Me.txtCBAM_KdSett_ApplNo.MaxLength = 250
Me.txtCBAM_KdSett_ApplNo.MaxLineLength = -1
Me.txtCBAM_KdSett_ApplNo.MaxLines_Warning = ""
Me.txtCBAM_KdSett_ApplNo.MaxLines_Warning_Label = Nothing
Me.txtCBAM_KdSett_ApplNo.Name = "txtCBAM_KdSett_ApplNo"
Me.txtCBAM_KdSett_ApplNo.Size = New System.Drawing.Size(256, 20)
Me.txtCBAM_KdSett_ApplNo.TabIndex = 77
'
'Label14
'
Me.Label14.AutoSize = True
Me.Label14.Location = New System.Drawing.Point(3, 98)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(79, 13)
Me.Label14.TabIndex = 78
Me.Label14.Text = "Application-Nr.:"
'
'txtCBAM_KdSett_Warn2
'
Me.txtCBAM_KdSett_Warn2._DateTimeOnly = False
Me.txtCBAM_KdSett_Warn2._numbersOnly = True
Me.txtCBAM_KdSett_Warn2._numbersOnlyKommastellen = ""
Me.txtCBAM_KdSett_Warn2._numbersOnlyTrennzeichen = True
Me.txtCBAM_KdSett_Warn2._Prozent = False
Me.txtCBAM_KdSett_Warn2._ShortDateNew = False
Me.txtCBAM_KdSett_Warn2._ShortDateOnly = False
Me.txtCBAM_KdSett_Warn2._TimeOnly = False
Me.txtCBAM_KdSett_Warn2._TimeOnly_Seconds = False
Me.txtCBAM_KdSett_Warn2._value = "40"
Me.txtCBAM_KdSett_Warn2._Waehrung = False
Me.txtCBAM_KdSett_Warn2._WaehrungZeichen = True
Me.txtCBAM_KdSett_Warn2.ForeColor = System.Drawing.Color.Black
Me.txtCBAM_KdSett_Warn2.Location = New System.Drawing.Point(174, 66)
Me.txtCBAM_KdSett_Warn2.MaxLength = 10
Me.txtCBAM_KdSett_Warn2.MaxLineLength = -1
Me.txtCBAM_KdSett_Warn2.MaxLines_Warning = ""
Me.txtCBAM_KdSett_Warn2.MaxLines_Warning_Label = Nothing
Me.txtCBAM_KdSett_Warn2.Name = "txtCBAM_KdSett_Warn2"
Me.txtCBAM_KdSett_Warn2.Size = New System.Drawing.Size(58, 20)
Me.txtCBAM_KdSett_Warn2.TabIndex = 75
Me.txtCBAM_KdSett_Warn2.Text = "40"
'
'Button9
'
Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button9.Location = New System.Drawing.Point(149, 147)
Me.Button9.Name = "Button9"
Me.Button9.Size = New System.Drawing.Size(217, 28)
Me.Button9.TabIndex = 53
Me.Button9.Text = "Speichern"
Me.Button9.UseVisualStyleBackColor = True
'
'txtCBAM_KdSett_CBAMNo
'
Me.txtCBAM_KdSett_CBAMNo._DateTimeOnly = False
Me.txtCBAM_KdSett_CBAMNo._numbersOnly = False
Me.txtCBAM_KdSett_CBAMNo._numbersOnlyKommastellen = ""
Me.txtCBAM_KdSett_CBAMNo._numbersOnlyTrennzeichen = False
Me.txtCBAM_KdSett_CBAMNo._Prozent = False
Me.txtCBAM_KdSett_CBAMNo._ShortDateNew = False
Me.txtCBAM_KdSett_CBAMNo._ShortDateOnly = False
Me.txtCBAM_KdSett_CBAMNo._TimeOnly = False
Me.txtCBAM_KdSett_CBAMNo._TimeOnly_Seconds = False
Me.txtCBAM_KdSett_CBAMNo._value = ""
Me.txtCBAM_KdSett_CBAMNo._Waehrung = False
Me.txtCBAM_KdSett_CBAMNo._WaehrungZeichen = True
Me.txtCBAM_KdSett_CBAMNo.Enabled = False
Me.txtCBAM_KdSett_CBAMNo.ForeColor = System.Drawing.Color.Red
Me.txtCBAM_KdSett_CBAMNo.Location = New System.Drawing.Point(110, 118)
Me.txtCBAM_KdSett_CBAMNo.MaxLength = 250
Me.txtCBAM_KdSett_CBAMNo.MaxLineLength = -1
Me.txtCBAM_KdSett_CBAMNo.MaxLines_Warning = ""
Me.txtCBAM_KdSett_CBAMNo.MaxLines_Warning_Label = Nothing
Me.txtCBAM_KdSett_CBAMNo.Name = "txtCBAM_KdSett_CBAMNo"
Me.txtCBAM_KdSett_CBAMNo.Size = New System.Drawing.Size(256, 20)
Me.txtCBAM_KdSett_CBAMNo.TabIndex = 58
'
'Label20
'
Me.Label20.AutoSize = True
Me.Label20.Location = New System.Drawing.Point(3, 121)
Me.Label20.Name = "Label20"
Me.Label20.Size = New System.Drawing.Size(88, 13)
Me.Label20.TabIndex = 59
Me.Label20.Text = "CBAM Konto-Nr.:"
'
'Label21
'
Me.Label21.AutoSize = True
Me.Label21.Location = New System.Drawing.Point(2, 69)
Me.Label21.Name = "Label21"
Me.Label21.Size = New System.Drawing.Size(102, 13)
Me.Label21.TabIndex = 57
Me.Label21.Text = "Warnschwelle/Jahr:"
'
'txtCBAM_KdSett_Warn1
'
Me.txtCBAM_KdSett_Warn1._DateTimeOnly = False
Me.txtCBAM_KdSett_Warn1._numbersOnly = True
Me.txtCBAM_KdSett_Warn1._numbersOnlyKommastellen = ""
Me.txtCBAM_KdSett_Warn1._numbersOnlyTrennzeichen = True
Me.txtCBAM_KdSett_Warn1._Prozent = False
Me.txtCBAM_KdSett_Warn1._ShortDateNew = False
Me.txtCBAM_KdSett_Warn1._ShortDateOnly = False
Me.txtCBAM_KdSett_Warn1._TimeOnly = False
Me.txtCBAM_KdSett_Warn1._TimeOnly_Seconds = False
Me.txtCBAM_KdSett_Warn1._value = "30"
Me.txtCBAM_KdSett_Warn1._Waehrung = False
Me.txtCBAM_KdSett_Warn1._WaehrungZeichen = True
Me.txtCBAM_KdSett_Warn1.ForeColor = System.Drawing.Color.Black
Me.txtCBAM_KdSett_Warn1.Location = New System.Drawing.Point(110, 66)
Me.txtCBAM_KdSett_Warn1.MaxLength = 10
Me.txtCBAM_KdSett_Warn1.MaxLineLength = -1
Me.txtCBAM_KdSett_Warn1.MaxLines_Warning = ""
Me.txtCBAM_KdSett_Warn1.MaxLines_Warning_Label = Nothing
Me.txtCBAM_KdSett_Warn1.Name = "txtCBAM_KdSett_Warn1"
Me.txtCBAM_KdSett_Warn1.Size = New System.Drawing.Size(58, 20)
Me.txtCBAM_KdSett_Warn1.TabIndex = 56
Me.txtCBAM_KdSett_Warn1.Text = "30"
'
'Label22
'
Me.Label22.AutoSize = True
Me.Label22.Location = New System.Drawing.Point(3, 25)
Me.Label22.Name = "Label22"
Me.Label22.Size = New System.Drawing.Size(73, 13)
Me.Label22.TabIndex = 55
Me.Label22.Text = "CBAM-Status:"
'
'Label23
'
Me.Label23.AutoSize = True
Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label23.Location = New System.Drawing.Point(3, 3)
Me.Label23.Name = "Label23"
Me.Label23.Size = New System.Drawing.Size(142, 13)
Me.Label23.TabIndex = 53
Me.Label23.Text = "CBAM-Kundeneinstellungen:"
'
'cboIndirekt
'
Me.cboIndirekt._allowedValuesFreiText = Nothing
@@ -1567,13 +1768,16 @@ Partial Class usrCntlCBAM
Me.txtEori.Size = New System.Drawing.Size(341, 20)
Me.txtEori.TabIndex = 1
'
'UsCntlCBAM_Status1
'cboCBAM_KdSett_Status
'
Me.UsCntlCBAM_Status1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsCntlCBAM_Status1.Location = New System.Drawing.Point(0, 0)
Me.UsCntlCBAM_Status1.Name = "UsCntlCBAM_Status1"
Me.UsCntlCBAM_Status1.Size = New System.Drawing.Size(380, 180)
Me.UsCntlCBAM_Status1.TabIndex = 0
Me.cboCBAM_KdSett_Status._allowedValuesFreiText = Nothing
Me.cboCBAM_KdSett_Status._allowFreiText = False
Me.cboCBAM_KdSett_Status._value = ""
Me.cboCBAM_KdSett_Status.FormattingEnabled = True
Me.cboCBAM_KdSett_Status.Location = New System.Drawing.Point(110, 22)
Me.cboCBAM_KdSett_Status.Name = "cboCBAM_KdSett_Status"
Me.cboCBAM_KdSett_Status.Size = New System.Drawing.Size(256, 21)
Me.cboCBAM_KdSett_Status.TabIndex = 74
'
'usrCntlCBAM
'
@@ -1663,6 +1867,7 @@ Partial Class usrCntlCBAM
Me.Panel2.ResumeLayout(False)
Me.Panel2.PerformLayout()
Me.Panel3.ResumeLayout(False)
Me.Panel3.PerformLayout()
Me.MyPanel1.ResumeLayout(False)
Me.MyPanel1.PerformLayout()
Me.ResumeLayout(False)
@@ -1774,5 +1979,17 @@ Partial Class usrCntlCBAM
Friend WithEvents cbxIndirekt As CheckBox
Friend WithEvents Button8 As Button
Friend WithEvents Panel3 As Panel
Friend WithEvents UsCntlCBAM_Status1 As usCntlCBAM_Status
Friend WithEvents txtCBAM_KdSett_ApplNo As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label14 As Label
Friend WithEvents txtCBAM_KdSett_Warn2 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Button9 As Button
Friend WithEvents txtCBAM_KdSett_CBAMNo As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label20 As Label
Friend WithEvents Label21 As Label
Friend WithEvents txtCBAM_KdSett_Warn1 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label22 As Label
Friend WithEvents Label23 As Label
Friend WithEvents Label25 As Label
Friend WithEvents Label24 As Label
Friend WithEvents cboCBAM_KdSett_Status As VERAG_PROG_ALLGEMEIN.MyComboBox
End Class

69
SDL/kunden/usrCntlCBAM.vb
View File

@@ -2,7 +2,6 @@
Imports DocumentFormat.OpenXml.Spreadsheet
Imports Org.BouncyCastle.Crypto.Agreement
Imports VERAG_PROG_ALLGEMEIN
Imports VERAG_PROG_ALLGEMEIN.agsCustomsExchange
Public Class usrCntlCBAM
@@ -424,6 +423,15 @@ Public Class usrCntlCBAM
txtEori.Text = KD.EORITIN
End If
cboCBAM_KdSett_Status.Items.Clear()
cboCBAM_KdSett_Status.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("unbestimmt", ""))
cboCBAM_KdSett_Status.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("< 50 to (de minis)", "50to"))
cboCBAM_KdSett_Status.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Antrag abgegeben", "APPL"))
cboCBAM_KdSett_Status.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CBAM Konto vorhanden", "CBAM"))
cboCBAM_KdSett_Status.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Kein Interesse/Fremdkunde", "NO"))
cboCBAM_KdSett_Status.changeItem("undefined")
cboIndirekt.Items.Clear()
cboIndirekt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Spedition GmbH - DE4824105", "DE4824105"))
cboIndirekt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Customs Service GmbH - ATEOS1000059121", "DE4ATEOS1000059121824105"))
@@ -434,8 +442,14 @@ Public Class usrCntlCBAM
cboIndirekt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED Zollservice GmbH - ATEOS1000040508", "ATEOS1000040508"))
cboIndirekt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED Deutschland GmbH - DE7467540", "DE7467540"))
If ERW IsNot Nothing Then
cboCBAM_KdSett_Status.changeItem(If(ERW.kde_CBAM_Status, ""))
txtCBAM_KdSett_Warn1._value = If(ERW.kde_CBAM_Warn1, "")
txtCBAM_KdSett_Warn2._value = If(ERW.kde_CBAM_Warn2, "")
txtCBAM_KdSett_ApplNo._value = If(ERW.kde_CBAM_ApplicationNo, "")
txtCBAM_KdSett_CBAMNo.Text = If(ERW.kde_CBAM_CBAMAccountNo, "")
End If
UsCntlCBAM_Status1.Init(kdnr)
End Sub
@@ -2329,9 +2343,9 @@ Public Class usrCntlCBAM
From za In LIST
From it In za.Items
Let importer = za.Parties.
FirstOrDefault(Function(p) cVERAG_CustomsDeclarations.IMPORTER_ROLES.Contains(p.zaParty_Role))
FirstOrDefault(Function(p) {"CN", "IM", "IMP", "IMPORTER"}.Contains(p.zaParty_Role))
Let exporter = za.Parties.
FirstOrDefault(Function(p) cVERAG_CustomsDeclarations.EXPORTER_ROLES.Contains(p.zaParty_Role))
FirstOrDefault(Function(p) {"CZ", "EX", "EXP", "EXPORTER"}.Contains(p.zaParty_Role))
Let invoice =
it.Documents.FirstOrDefault(Function(d) d.zaDoc_Code = "N380" OrElse d.zaDoc_Code = "N325")
Let Anmeldedatum = (Function(x) If(x.za_releaseDate, x.za_DeclarationDate))
@@ -2440,6 +2454,12 @@ Public Class usrCntlCBAM
btnCBAM_DS_VERAG_GP.Tag = ""
Try
' ------------------------------------------------------------
' Rollen
' ------------------------------------------------------------
Dim ImporterRoles = {"CN", "IM", "IMP", "IMPORTER"}
Dim ExporterRoles = {"CZ", "EX", "EXP", "EXPORTER"}
' ------------------------------------------------------------
' LINQ: Greenpulse-Logik (MRN-aggregiert)
' ------------------------------------------------------------
@@ -2448,10 +2468,10 @@ Public Class usrCntlCBAM
Group By MRN = za.za_MRN Into grp = Group
Let importer = grp.
SelectMany(Function(x) x.Parties).
FirstOrDefault(Function(p) cVERAG_CustomsDeclarations.IMPORTER_ROLES.Contains(p.zaParty_Role))
FirstOrDefault(Function(p) ImporterRoles.Contains(p.zaParty_Role))
Let exporter = grp.
SelectMany(Function(x) x.Parties).
FirstOrDefault(Function(p) cVERAG_CustomsDeclarations.EXPORTER_ROLES.Contains(p.zaParty_Role))
FirstOrDefault(Function(p) ExporterRoles.Contains(p.zaParty_Role))
Let invoice = grp.
SelectMany(Function(x) x.Documents).
FirstOrDefault(Function(d) d.zaDoc_Code = "N380" OrElse d.zaDoc_Code = "N325")
@@ -2629,7 +2649,7 @@ Public Class usrCntlCBAM
Me.Cursor = Cursors.WaitCursor
' summary
Dim ImporterRoles = cVERAG_CustomsDeclarations.IMPORTER_ROLES
Dim ImporterRoles = {"CN", "IM", "IMP", "IMPORTER"}
Dim summary =
From za In LIST
Let importer = za.Parties.FirstOrDefault(Function(p) ImporterRoles.Contains(p.zaParty_Role))
@@ -2825,6 +2845,41 @@ Public Class usrCntlCBAM
Where(Function(x) Not String.IsNullOrWhiteSpace(x.za_LRN))))
End Sub
Private Sub MyComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboCBAM_KdSett_Status.SelectedIndexChanged
txtCBAM_KdSett_ApplNo.Enabled = False
txtCBAM_KdSett_CBAMNo.Enabled = False
txtCBAM_KdSett_Warn1.Enabled = False
txtCBAM_KdSett_Warn2.Enabled = False
Select Case cboCBAM_KdSett_Status._value
Case ""
txtCBAM_KdSett_Warn1.Enabled = True
txtCBAM_KdSett_Warn2.Enabled = True
Case "50to"
txtCBAM_KdSett_Warn1.Enabled = True
txtCBAM_KdSett_Warn2.Enabled = True
Case "APPL"
txtCBAM_KdSett_ApplNo.Enabled = True
Case "CBAM"
txtCBAM_KdSett_ApplNo.Enabled = True
txtCBAM_KdSett_CBAMNo.Enabled = True
Case "NO" 'nix
End Select
End Sub
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
If ERW Is Nothing Then ERW = New cKundenErweitert(kdnr)
ERW.kde_CBAM_Status = cboCBAM_KdSett_Status._value
ERW.kde_CBAM_Warn1 = cProgramFunctions.isLeerNothing(txtCBAM_KdSett_Warn1._value)
ERW.kde_CBAM_Warn2 = cProgramFunctions.isLeerNothing(txtCBAM_KdSett_Warn2._value)
ERW.kde_CBAM_ApplicationNo = If(txtCBAM_KdSett_ApplNo._value <> "", txtCBAM_KdSett_ApplNo._value, Nothing)
ERW.kde_CBAM_CBAMAccountNo = If(txtCBAM_KdSett_CBAMNo._value <> "", txtCBAM_KdSett_CBAMNo._value, Nothing)
ERW.SAVE()
End Sub
End Class

206
SDL/kunden/usrCntlKundenuebersicht.Designer.vb generated
View File

@@ -23,19 +23,19 @@ Partial Class usrCntlKundenuebersicht
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle25 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle26 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle27 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle28 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle29 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle30 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlKundenuebersicht))
Dim DataGridViewCellStyle34 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle35 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle36 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle31 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle33 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle32 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.cntxtAddVM = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.DToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.btnExcel = New System.Windows.Forms.Button()
@@ -188,7 +188,6 @@ Partial Class usrCntlKundenuebersicht
Me.tbVertraege = New System.Windows.Forms.TabPage()
Me.dgvVertraege = New System.Windows.Forms.DataGridView()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.datVertragBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Button11 = New System.Windows.Forms.Button()
Me.Button12 = New System.Windows.Forms.Button()
Me.txtVertragVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -268,9 +267,7 @@ Partial Class usrCntlKundenuebersicht
Me.ToolStripMenuItem12 = New System.Windows.Forms.ToolStripMenuItem()
Me.cboFirmaFMZOLL = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.SessionService1 = New VERAG_PROG_ALLGEMEIN.at.gv.bmf.finanzonline.session.sessionService()
Me.Label20 = New System.Windows.Forms.Label()
Me.txtCBAM_Status = New System.Windows.Forms.TextBox()
Me.Button15 = New System.Windows.Forms.Button()
Me.datVertragBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cntxtAddVM.SuspendLayout()
Me.tbWeitereKundenDetails.SuspendLayout()
Me.tbOfferten.SuspendLayout()
@@ -387,7 +384,7 @@ Partial Class usrCntlKundenuebersicht
Me.tbWeitereKundenDetails.Location = New System.Drawing.Point(509, 368)
Me.tbWeitereKundenDetails.Name = "tbWeitereKundenDetails"
Me.tbWeitereKundenDetails.SelectedIndex = 0
Me.tbWeitereKundenDetails.Size = New System.Drawing.Size(669, 379)
Me.tbWeitereKundenDetails.Size = New System.Drawing.Size(669, 326)
Me.tbWeitereKundenDetails.TabIndex = 7
'
'tbOfferten
@@ -403,7 +400,7 @@ Partial Class usrCntlKundenuebersicht
Me.tbOfferten.Location = New System.Drawing.Point(4, 22)
Me.tbOfferten.Name = "tbOfferten"
Me.tbOfferten.Padding = New System.Windows.Forms.Padding(3)
Me.tbOfferten.Size = New System.Drawing.Size(661, 353)
Me.tbOfferten.Size = New System.Drawing.Size(661, 300)
Me.tbOfferten.TabIndex = 4
Me.tbOfferten.Text = "Offerte/Sperrliste"
'
@@ -434,8 +431,8 @@ Partial Class usrCntlKundenuebersicht
Me.dgvOfferteDetailsUebersicht.AllowUserToDeleteRows = False
Me.dgvOfferteDetailsUebersicht.AllowUserToOrderColumns = True
Me.dgvOfferteDetailsUebersicht.AllowUserToResizeRows = False
DataGridViewCellStyle25.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvOfferteDetailsUebersicht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle25
DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvOfferteDetailsUebersicht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
Me.dgvOfferteDetailsUebersicht.BackgroundColor = System.Drawing.Color.White
Me.dgvOfferteDetailsUebersicht.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.dgvOfferteDetailsUebersicht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
@@ -446,7 +443,7 @@ Partial Class usrCntlKundenuebersicht
Me.dgvOfferteDetailsUebersicht.ReadOnly = True
Me.dgvOfferteDetailsUebersicht.RowHeadersVisible = False
Me.dgvOfferteDetailsUebersicht.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvOfferteDetailsUebersicht.Size = New System.Drawing.Size(477, 310)
Me.dgvOfferteDetailsUebersicht.Size = New System.Drawing.Size(477, 257)
Me.dgvOfferteDetailsUebersicht.TabIndex = 2
'
'dgvOffertenSperrliste
@@ -455,8 +452,8 @@ Partial Class usrCntlKundenuebersicht
Me.dgvOffertenSperrliste.AllowUserToDeleteRows = False
Me.dgvOffertenSperrliste.AllowUserToOrderColumns = True
Me.dgvOffertenSperrliste.AllowUserToResizeRows = False
DataGridViewCellStyle26.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvOffertenSperrliste.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle26
DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvOffertenSperrliste.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
Me.dgvOffertenSperrliste.BackgroundColor = System.Drawing.Color.White
Me.dgvOffertenSperrliste.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.dgvOffertenSperrliste.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
@@ -466,12 +463,12 @@ Partial Class usrCntlKundenuebersicht
Me.dgvOffertenSperrliste.Name = "dgvOffertenSperrliste"
Me.dgvOffertenSperrliste.ReadOnly = True
Me.dgvOffertenSperrliste.RowHeadersVisible = False
DataGridViewCellStyle27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle27.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer))
DataGridViewCellStyle27.SelectionForeColor = System.Drawing.Color.Black
Me.dgvOffertenSperrliste.RowsDefaultCellStyle = DataGridViewCellStyle27
DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle3.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer))
DataGridViewCellStyle3.SelectionForeColor = System.Drawing.Color.Black
Me.dgvOffertenSperrliste.RowsDefaultCellStyle = DataGridViewCellStyle3
Me.dgvOffertenSperrliste.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvOffertenSperrliste.Size = New System.Drawing.Size(173, 310)
Me.dgvOffertenSperrliste.Size = New System.Drawing.Size(173, 257)
Me.dgvOffertenSperrliste.TabIndex = 0
'
'lblKeineSperren
@@ -493,7 +490,7 @@ Partial Class usrCntlKundenuebersicht
Me.pnlSperre.Controls.Add(Me.Label36)
Me.pnlSperre.Controls.Add(Me.Label67)
Me.pnlSperre.Dock = System.Windows.Forms.DockStyle.Bottom
Me.pnlSperre.Location = New System.Drawing.Point(3, 313)
Me.pnlSperre.Location = New System.Drawing.Point(3, 260)
Me.pnlSperre.Name = "pnlSperre"
Me.pnlSperre.Size = New System.Drawing.Size(653, 35)
Me.pnlSperre.TabIndex = 3
@@ -607,8 +604,8 @@ Partial Class usrCntlKundenuebersicht
Me.dgvOffenePosten.AllowUserToAddRows = False
Me.dgvOffenePosten.AllowUserToDeleteRows = False
Me.dgvOffenePosten.AllowUserToResizeRows = False
DataGridViewCellStyle28.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle28
DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White
Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvOffenePosten.Dock = System.Windows.Forms.DockStyle.Fill
@@ -688,8 +685,8 @@ Partial Class usrCntlKundenuebersicht
Me.dgvUmsatzbericht.AllowUserToDeleteRows = False
Me.dgvUmsatzbericht.AllowUserToOrderColumns = True
Me.dgvUmsatzbericht.AllowUserToResizeRows = False
DataGridViewCellStyle29.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle29
DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
Me.dgvUmsatzbericht.BackgroundColor = System.Drawing.Color.White
Me.dgvUmsatzbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvUmsatzbericht.Dock = System.Windows.Forms.DockStyle.Fill
@@ -2364,9 +2361,6 @@ Partial Class usrCntlKundenuebersicht
'grpSonstiges
'
Me.grpSonstiges.BackColor = System.Drawing.Color.White
Me.grpSonstiges.Controls.Add(Me.Button15)
Me.grpSonstiges.Controls.Add(Me.Label20)
Me.grpSonstiges.Controls.Add(Me.txtCBAM_Status)
Me.grpSonstiges.Controls.Add(Me.Button14)
Me.grpSonstiges.Controls.Add(Me.Button13)
Me.grpSonstiges.Controls.Add(Me.Button2)
@@ -2383,7 +2377,7 @@ Partial Class usrCntlKundenuebersicht
Me.grpSonstiges.Controls.Add(Me.dgvAufschub)
Me.grpSonstiges.Location = New System.Drawing.Point(3, 362)
Me.grpSonstiges.Name = "grpSonstiges"
Me.grpSonstiges.Size = New System.Drawing.Size(499, 381)
Me.grpSonstiges.Size = New System.Drawing.Size(499, 328)
Me.grpSonstiges.TabIndex = 6
Me.grpSonstiges.TabStop = False
'
@@ -2495,10 +2489,10 @@ Partial Class usrCntlKundenuebersicht
Me.tbcntrAllg.Controls.Add(Me.tbAvisoMail)
Me.tbcntrAllg.Controls.Add(Me.tbKdSpez)
Me.tbcntrAllg.Controls.Add(Me.tbSonstiges)
Me.tbcntrAllg.Location = New System.Drawing.Point(6, 172)
Me.tbcntrAllg.Location = New System.Drawing.Point(6, 142)
Me.tbcntrAllg.Name = "tbcntrAllg"
Me.tbcntrAllg.SelectedIndex = 0
Me.tbcntrAllg.Size = New System.Drawing.Size(487, 203)
Me.tbcntrAllg.Size = New System.Drawing.Size(487, 190)
Me.tbcntrAllg.TabIndex = 12
'
'tbVollmachten
@@ -2508,7 +2502,7 @@ Partial Class usrCntlKundenuebersicht
Me.tbVollmachten.Location = New System.Drawing.Point(4, 22)
Me.tbVollmachten.Name = "tbVollmachten"
Me.tbVollmachten.Padding = New System.Windows.Forms.Padding(3)
Me.tbVollmachten.Size = New System.Drawing.Size(479, 177)
Me.tbVollmachten.Size = New System.Drawing.Size(479, 164)
Me.tbVollmachten.TabIndex = 0
Me.tbVollmachten.Text = "Vollmachten"
Me.tbVollmachten.UseVisualStyleBackColor = True
@@ -2519,8 +2513,8 @@ Partial Class usrCntlKundenuebersicht
Me.dgvVollmachten.AllowUserToDeleteRows = False
Me.dgvVollmachten.AllowUserToOrderColumns = True
Me.dgvVollmachten.AllowUserToResizeRows = False
DataGridViewCellStyle34.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvVollmachten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle34
DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvVollmachten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
Me.dgvVollmachten.BackgroundColor = System.Drawing.Color.White
Me.dgvVollmachten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvVollmachten.Dock = System.Windows.Forms.DockStyle.Fill
@@ -2530,7 +2524,7 @@ Partial Class usrCntlKundenuebersicht
Me.dgvVollmachten.ReadOnly = True
Me.dgvVollmachten.RowHeadersVisible = False
Me.dgvVollmachten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvVollmachten.Size = New System.Drawing.Size(473, 135)
Me.dgvVollmachten.Size = New System.Drawing.Size(473, 122)
Me.dgvVollmachten.TabIndex = 0
'
'Panel8
@@ -2538,7 +2532,7 @@ Partial Class usrCntlKundenuebersicht
Me.Panel8.BackColor = System.Drawing.Color.White
Me.Panel8.Controls.Add(Me.btnVMhinzufuegen)
Me.Panel8.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel8.Location = New System.Drawing.Point(3, 138)
Me.Panel8.Location = New System.Drawing.Point(3, 125)
Me.Panel8.Name = "Panel8"
Me.Panel8.Size = New System.Drawing.Size(473, 36)
Me.Panel8.TabIndex = 2
@@ -2573,8 +2567,8 @@ Partial Class usrCntlKundenuebersicht
Me.dgvVertraege.AllowUserToDeleteRows = False
Me.dgvVertraege.AllowUserToOrderColumns = True
Me.dgvVertraege.AllowUserToResizeRows = False
DataGridViewCellStyle35.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvVertraege.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle35
DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvVertraege.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
Me.dgvVertraege.BackgroundColor = System.Drawing.Color.White
Me.dgvVertraege.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvVertraege.Dock = System.Windows.Forms.DockStyle.Fill
@@ -2606,30 +2600,6 @@ Partial Class usrCntlKundenuebersicht
Me.Panel1.Size = New System.Drawing.Size(473, 46)
Me.Panel1.TabIndex = 1
'
'datVertragBis
'
Me.datVertragBis._DateTimeOnly = False
Me.datVertragBis._numbersOnly = False
Me.datVertragBis._numbersOnlyKommastellen = ""
Me.datVertragBis._numbersOnlyTrennzeichen = True
Me.datVertragBis._Prozent = False
Me.datVertragBis._ShortDateNew = True
Me.datVertragBis._ShortDateOnly = False
Me.datVertragBis._TimeOnly = False
Me.datVertragBis._TimeOnly_Seconds = False
Me.datVertragBis._value = ""
Me.datVertragBis._Waehrung = False
Me.datVertragBis._WaehrungZeichen = True
Me.datVertragBis.ForeColor = System.Drawing.Color.Black
Me.datVertragBis.Location = New System.Drawing.Point(321, 23)
Me.datVertragBis.MaxLength = 10
Me.datVertragBis.MaxLineLength = -1
Me.datVertragBis.MaxLines_Warning = ""
Me.datVertragBis.MaxLines_Warning_Label = Nothing
Me.datVertragBis.Name = "datVertragBis"
Me.datVertragBis.Size = New System.Drawing.Size(65, 20)
Me.datVertragBis.TabIndex = 10
'
'Button11
'
Me.Button11.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -2774,8 +2744,8 @@ Partial Class usrCntlKundenuebersicht
Me.dgvGestGarantie.AllowUserToDeleteRows = False
Me.dgvGestGarantie.AllowUserToOrderColumns = True
Me.dgvGestGarantie.AllowUserToResizeRows = False
DataGridViewCellStyle36.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvGestGarantie.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle36
DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvGestGarantie.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
Me.dgvGestGarantie.BackgroundColor = System.Drawing.Color.White
Me.dgvGestGarantie.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvGestGarantie.Dock = System.Windows.Forms.DockStyle.Fill
@@ -3265,24 +3235,24 @@ Partial Class usrCntlKundenuebersicht
Me.dgvAufschub.AllowUserToResizeColumns = False
Me.dgvAufschub.AllowUserToResizeRows = False
Me.dgvAufschub.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle31.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle31.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle31.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle31.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle31.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle31.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle31.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvAufschub.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle31
DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle10.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvAufschub.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle10
Me.dgvAufschub.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvAufschub.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.KtoId, Me.Art, Me.HZA, Me.KontoNr, Me.EORI, Me.NL, Me.BIN})
DataGridViewCellStyle33.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle33.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle33.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle33.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle33.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle33.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle33.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvAufschub.DefaultCellStyle = DataGridViewCellStyle33
DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvAufschub.DefaultCellStyle = DataGridViewCellStyle12
Me.dgvAufschub.Location = New System.Drawing.Point(13, 61)
Me.dgvAufschub.MultiSelect = False
Me.dgvAufschub.Name = "dgvAufschub"
@@ -3309,8 +3279,8 @@ Partial Class usrCntlKundenuebersicht
'
'HZA
'
DataGridViewCellStyle32.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
Me.HZA.DefaultCellStyle = DataGridViewCellStyle32
DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
Me.HZA.DefaultCellStyle = DataGridViewCellStyle11
Me.HZA.HeaderText = "HZA"
Me.HZA.Name = "HZA"
Me.HZA.ReadOnly = True
@@ -3535,39 +3505,29 @@ Partial Class usrCntlKundenuebersicht
Me.SessionService1.Url = "https://finanzonline.bmf.gv.at/fonws/ws/session"
Me.SessionService1.UseDefaultCredentials = False
'
'Label20
'datVertragBis
'
Me.Label20.AutoSize = True
Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label20.Location = New System.Drawing.Point(10, 139)
Me.Label20.Name = "Label20"
Me.Label20.Size = New System.Drawing.Size(95, 17)
Me.Label20.TabIndex = 15
Me.Label20.Text = "CBAM-Status:"
'
'txtCBAM_Status
'
Me.txtCBAM_Status.BackColor = System.Drawing.Color.White
Me.txtCBAM_Status.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.txtCBAM_Status.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtCBAM_Status.Location = New System.Drawing.Point(110, 140)
Me.txtCBAM_Status.Name = "txtCBAM_Status"
Me.txtCBAM_Status.ReadOnly = True
Me.txtCBAM_Status.Size = New System.Drawing.Size(345, 16)
Me.txtCBAM_Status.TabIndex = 16
Me.txtCBAM_Status.Text = "DE 000000000 , geprüft am: 01.01.2000"
'
'Button15
'
Me.Button15.BackgroundImage = Global.SDL.My.Resources.Resources.stift1
Me.Button15.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button15.FlatAppearance.BorderSize = 0
Me.Button15.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button15.Location = New System.Drawing.Point(461, 139)
Me.Button15.Name = "Button15"
Me.Button15.Size = New System.Drawing.Size(25, 20)
Me.Button15.TabIndex = 17
Me.Button15.UseVisualStyleBackColor = True
Me.datVertragBis._DateTimeOnly = False
Me.datVertragBis._numbersOnly = False
Me.datVertragBis._numbersOnlyKommastellen = ""
Me.datVertragBis._numbersOnlyTrennzeichen = True
Me.datVertragBis._Prozent = False
Me.datVertragBis._ShortDateNew = True
Me.datVertragBis._ShortDateOnly = False
Me.datVertragBis._TimeOnly = False
Me.datVertragBis._TimeOnly_Seconds = False
Me.datVertragBis._value = ""
Me.datVertragBis._Waehrung = False
Me.datVertragBis._WaehrungZeichen = True
Me.datVertragBis.ForeColor = System.Drawing.Color.Black
Me.datVertragBis.Location = New System.Drawing.Point(321, 23)
Me.datVertragBis.MaxLength = 10
Me.datVertragBis.MaxLineLength = -1
Me.datVertragBis.MaxLines_Warning = ""
Me.datVertragBis.MaxLines_Warning_Label = Nothing
Me.datVertragBis.Name = "datVertragBis"
Me.datVertragBis.Size = New System.Drawing.Size(65, 20)
Me.datVertragBis.TabIndex = 10
'
'usrCntlKundenuebersicht
'
@@ -3590,7 +3550,7 @@ Partial Class usrCntlKundenuebersicht
Me.Controls.Add(Me.grpSonstiges)
Me.Margin = New System.Windows.Forms.Padding(2)
Me.Name = "usrCntlKundenuebersicht"
Me.Size = New System.Drawing.Size(1182, 750)
Me.Size = New System.Drawing.Size(1182, 697)
Me.cntxtAddVM.ResumeLayout(False)
Me.tbWeitereKundenDetails.ResumeLayout(False)
Me.tbOfferten.ResumeLayout(False)

34
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -677,9 +677,6 @@ Public Class usrCntlKundenuebersicht
End If
rtbAbf_Besonderheiten.Visible = Not UsrCntlKundenBesonderheiten1.Visible
initCbam()
initAufschub()
Button1.BackgroundImage = My.Resources.fragezeichen
@@ -694,20 +691,6 @@ Public Class usrCntlKundenuebersicht
End Try
End Sub
Sub initCbam()
txtCBAM_Status.Text = ""
If KUNDE_ERW IsNot Nothing Then
If KUNDE_ERW.kde_CBAM_Status IsNot Nothing Then
Select Case KUNDE_ERW.kde_CBAM_Status
Case "" : txtCBAM_Status.Text = "unbekannt"
Case "50to" : txtCBAM_Status.Text = "[Y137] < 50 to (de-minimis Regel)"
Case "APPL" : txtCBAM_Status.Text = "[Y238] " & If(KUNDE_ERW.kde_CBAM_ApplicationNo, "")
Case "CBAM" : txtCBAM_Status.Text = "[Y128] " & If(KUNDE_ERW.kde_CBAM_CBAMAccountNo, "")
Case "NO" : txtCBAM_Status.Text = "Kein Interesse/Fremdkunde"
End Select
End If
End If
End Sub
Private Sub FlatButton4_Click(sender As Object, e As EventArgs) Handles FlatButton4.Click
Try
Dim kdTmp As New VERAG_PROG_ALLGEMEIN.cKunde(kdNr)
@@ -3503,21 +3486,4 @@ Public Class usrCntlKundenuebersicht
Private Sub cbxBelegMail_FixBetreff_CheckedChanged(sender As Object, e As EventArgs) Handles cbxBelegMail_FixBetreff.CheckedChanged
txtBelegMail_FixBetreffText.Enabled = cbxBelegMail_FixBetreff.Checked
End Sub
Private Sub Button15_Click_3(sender As Object, e As EventArgs) Handles Button15.Click
Dim f As New Form
Dim cbam As New usCntlCBAM_Status(kdNr)
cbam.Dock = DockStyle.Fill
f.Controls.Add(cbam)
f.Size = New Size(420, 250)
f.Icon = My.Resources.sdl_ico
f.StartPosition = FormStartPosition.CenterParent
f.Text = "CBAM - " & ADRESSE.Ordnungsbegriff
f.Name = "frmCBAMStatus"
If f.ShowDialog(Me) = DialogResult.OK Then
KUNDE_ERW = New cKundenErweitert(kdNr)
initCbam()
End If
End Sub
End Class

32
VERAG_PROG_ALLGEMEIN/Classes/cKundenVertraege.vb
View File

@@ -52,38 +52,6 @@ Public Class cKundenVertraege
Public Shared Function LOAD_LIST(KundenNr As Integer) As DataTable
Return (New SQL).loadDgvBySql("SELECT [kv_Id],[kv_KundenNr],[kv_erhalten_Datum],[kv_vertragArtId],kva_Bezeichnung,[kv_Info],[kv_datenarchivId],[kv_datenarchivId_mail],[kv_gueltig],kv_gueltigBis_Datum FROM tblKundenVertraege INNER JOIN tblKundenVertraegeArten ON kv_vertragArtId=kva_id WHERE kv_KundenNr=" & KundenNr, "FMZOLL")
End Function
Public Shared Function LOAD_LISTOF(KundenNr As Integer) As List(Of cKundenVertraege)
Dim LIST As New List(Of cKundenVertraege)
Try
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("Select * FROM tblKundenVertraege WHERE kv_KundenNr=@KundenNr ", conn)
cmd.Parameters.AddWithValue("@KundenNr", KundenNr)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
Dim VERTR As New cKundenVertraege
For Each li In VERTR.getParameterList()
Dim propInfo As PropertyInfo = VERTR.GetType.GetProperty(li.Scalarvariable)
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(VERTR, Nothing)
Else
propInfo.SetValue(VERTR, dr.Item(li.Text))
End If
Next
VERTR.hasEntry = True
LIST.Add(VERTR)
End If
dr.Close()
End Using
End Using
Catch ex As Exception
MsgBox("Fehler In der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return List
End Function
Public Shared Function ENTRY_Exists(KundenNr As Integer, kv_vertragArtId As Integer) As Boolean
Return (CInt((New SQL).getValueTxtBySql("SELECT count(*) FROM tblKundenVertraege WHERE kv_KundenNr=" & KundenNr & " AND kv_vertragArtId='" & kv_vertragArtId & "'", "FMZOLL")) > 0)

89
VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_Zollanmeldung.vb
View File

@@ -84,9 +84,6 @@ Public Class cVERAG_CustomsDeclarations
Public Property hasEntry As Boolean = False
Public Shared IMPORTER_ROLES As String() = {"CN", "IM", "IMP", "IMPORTER", "CONSIGNEE"}
Public Shared EXPORTER_ROLES As String() = {"CZ", "EX", "EXP", "EXPORTER", "CONSIGNOR"}
Public Shared DECLARANT_ROLES As String() = {"CB", "DT", "ANM", "DEC", "VERTRETER", "DEKLARANT", "DECLARANT"}
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
@@ -371,12 +368,12 @@ Public Class cVERAG_CustomsDeclarations
If hasCBAM(CBAM_ITEMS) Then
Dim vertreterEORI As String = Me.Parties.Where(Function(p) DECLARANT_ROLES.Contains(p.zaParty_Role)).Select(Function(p) p.zaParty_EORI).FirstOrDefault()
Dim vertreterString As String = Me.Parties.Where(Function(p) DECLARANT_ROLES.Contains(p.zaParty_Role)).Select(Function(p) p.zaParty_Name).FirstOrDefault()
Dim importerEORI As String = Me.Parties.Where(Function(p) IMPORTER_ROLES.Contains(p.zaParty_Role)).Select(Function(p) p.zaParty_EORI).FirstOrDefault()
Dim ImporterString As String = Me.Parties.Where(Function(p) IMPORTER_ROLES.Contains(p.zaParty_Role)).Select(Function(p) p.zaParty_Name).FirstOrDefault()
Dim ExporterEORI As String = Me.Parties.Where(Function(p) EXPORTER_ROLES.Contains(p.zaParty_Role)).Select(Function(p) p.zaParty_EORI).FirstOrDefault()
Dim ExporterString As String = Me.Parties.Where(Function(p) EXPORTER_ROLES.Contains(p.zaParty_Role)).Select(Function(p) p.zaParty_Name).FirstOrDefault()
Dim vertreterEORI As String = Me.Parties.Where(Function(p) {"CB", "DT", "VERTRETER", "DEKLARANT", "DECLARANT"}.Contains(p.zaParty_Role)).Select(Function(p) p.zaParty_EORI).FirstOrDefault()
Dim vertretenerEORI As String = Nothing 'Me.Parties.Where(Function(p) {"CN", "IM", "IMP", "IMPORTER"}.Contains(p.zaParty_Role)).Select(Function(p) p.zaParty_EORI).FirstOrDefault()
Dim importerEORI As String = Me.Parties.Where(Function(p) {"CN", "IM", "IMP", "IMPORTER", "CONSIGNEE"}.Contains(p.zaParty_Role)).Select(Function(p) p.zaParty_EORI).FirstOrDefault()
Dim ImporterString As String = Me.Parties.Where(Function(p) {"CN", "IM", "IMP", "IMPORTER", "CONSIGNEE"}.Contains(p.zaParty_Role)).Select(Function(p) p.zaParty_Name).FirstOrDefault()
Dim ExporterEORI As String = Me.Parties.Where(Function(p) {"CZ", "EX", "EXP", "EXPORTER", "CONSIGNOR"}.Contains(p.zaParty_Role)).Select(Function(p) p.zaParty_EORI).FirstOrDefault()
Dim ExporterString As String = Me.Parties.Where(Function(p) {"CZ", "EX", "EXP", "EXPORTER", "CONSIGNOR"}.Contains(p.zaParty_Role)).Select(Function(p) p.zaParty_Name).FirstOrDefault()
Dim KD As cKunde = Nothing
Dim AD As cAdressen = Nothing
@@ -406,32 +403,7 @@ Public Class cVERAG_CustomsDeclarations
If isIndirect() Then
Dim vertretenerEORI = ""
Dim vertretenerString = ""
If importerEORI IsNot Nothing Then
vertretenerEORI = importerEORI
vertretenerString = ImporterString
Else
vertretenerEORI = ExporterEORI
vertretenerString = ExporterString
End If
Dim KD_IND As cKunde = Nothing
Dim AD_IND As cAdressen = Nothing
Dim ERW_IND As cKundenErweitert = Nothing
Dim VERTR_IND As List(Of cKundenVertraege) = Nothing
If If(ExporterEORI, "") <> "" Then
KD_IND = cKunde.LOAD_ByEORI(ExporterEORI, If(za_Firma, ""))
If KD_IND Is Nothing Then KD_IND = cKunde.LOAD_ByEORI(ExporterEORI) 'Wenn kein Kunde mit Firma gefunden wurde, nur nach EORI suchen (default VERAG)
AD_IND = New cAdressen(KD_IND.KundenNr)
End If
If AD_IND IsNot Nothing Then
vertretenerString = AD_IND.Name_1 & " " & If(AD_IND.Name_2, "") & "<br/>" & If(AD_IND.LandKz, "") & " " & If(AD_IND.PLZ, "") & " " & If(AD_IND.Ort, "")
ERW_IND = New cKundenErweitert(AD.AdressenNr)
VERTR_IND = cKundenVertraege.LOAD_LISTOF(AD.AdressenNr)
End If
Dim EORI_IND = If(vertretenerEORI IsNot Nothing, vertretenerEORI, If(importerEORI IsNot Nothing, importerEORI, ExporterEORI))
'==================>> INDIRECT <<=========================
Dim itemsHtml As String =
@@ -442,27 +414,6 @@ Public Class cVERAG_CustomsDeclarations
"</tr>"
))
Dim dateCBAM = If(If(za_ReleaseDate, za_DeclarationDate), Now)
Dim eigenmasseSumme_YEAR As Decimal = getCBAM_KG(vertretenerEORI, CDate("01.01." & dateCBAM.Year), CDate("31.12." & dateCBAM.Year), za_MRN) / 1000
'Prüft, ob Vertrag vorliegt:
Dim hasValidVertrag_CBAM As Boolean =
VERTR_IND.Any(Function(v) _
v.kv_vertragArtId = 8 AndAlso
v.kv_gueltig AndAlso
(Not v.kv_gueltigBis_Datum.HasValue OrElse
v.kv_gueltigBis_Datum.Value.Date <= dateCBAM)
)
Dim vertragHinweisHtml As String =
If(Not hasValidVertrag_CBAM,
"<div style='margin:15px 0; padding:12px; border:2px solid #b00020; " &
"background-color:#fdeaea; color:#b00020; font-weight:bold; font-size:13pt'>" &
"⚠️ ACHTUNG: Es liegt kein gültiger CBAM-Vertrag vor!" &
"</div>",
"")
Dim bodyHtml As String =
"<html><body style='font-family:Segoe UI, Arial, sans-serif; font-size:12pt; color:#222'>" &
"<h2 style='color:#b00020'>CBAM-Warnmeldung bei Zollanmeldung " & Me.za_MRN & "</h2>" &
@@ -470,7 +421,6 @@ Public Class cVERAG_CustomsDeclarations
"Bei der Zollanmeldung mit der MRN <b>" & Me.za_MRN & "</b> wurden CBAM-relevante Warenpositionen erkannt.<br/>" &
"Bitte prüfen Sie diese Anmeldung im Hinblick auf die CBAM-Meldepflicht." &
"</p>" &
vertragHinweisHtml & ' <<< HIER die Einblendung abhängig von vertrag99
"<h3>Erkannte CBAM-Positionen</h3>" &
"<table cellpadding='6' cellspacing='0' border='1' style='border-collapse:collapse; width:100%'>" &
"<tr style='background-color:#f0f0f0'>" &
@@ -480,21 +430,15 @@ Public Class cVERAG_CustomsDeclarations
"</tr>" &
itemsHtml &
"</table>" &
"<p>" &
"<b>Ind.Vertreter:</b><br/>" &
If(vertreterEORI, "") & "<br>" & If(vertreterString, "") &
"</p>" &
"<p>" &
"<b>Kunde:</b><br/>" &
If(vertretenerEORI, "") & "<br>" & If(vertretenerString, "") &
"</p>" &
"<p>" &
"<p>" &
"<b>Importeur:</b><br/>" &
If(importerEORI, "") & "<br>" & If(ImporterString, "") &
"</p>" &
"<p>" &
"<p>" &
"<b>Exporteur:</b><br/>" &
If(ExporterEORI, "") & "<br>" & If(ExporterString, "") &
If(ExporterEORI, "") & " – " & vbNewLine &
If(AD_EX Is Nothing, ExporterString, AD_EX.Name_1 & " " & If(AD_EX.Name_2, "") & "<br/>" &
If(AD_EX.LandKz, "") & " " & If(AD_EX.PLZ, "") & " " & If(AD_EX.Ort, "")) &
"</p>" &
"<br/><p><b>VERAG – CBAM Compliance Services</b></p>" &
"</body></html>"
@@ -522,7 +466,7 @@ Public Class cVERAG_CustomsDeclarations
Dim dateCBAM = If(If(za_ReleaseDate, za_DeclarationDate), Now)
Dim eigenmasseSumme_Shipment As Decimal = CBAM_ITEMS.Sum(Function(i) If(i.zaItem_NetMass, 0D)) / 1000
Dim eigenmasseSumme_YEAR As Decimal = getCBAM_KG(importerEORI, CDate("01.01." & dateCBAM.Year), CDate("31.12." & dateCBAM.Year)) / 1000
Dim eigenmasseSumme_YEAR As Decimal = getCBAM_KG(importerEORI, CDate("01.01." & dateCBAM.Year), CDate("31.12." & dateCBAM.Year), za_MRN) / 1000
Dim WarnLevel As String = ""
Dim Schwellenwert As Decimal = 0
@@ -628,9 +572,8 @@ Public Class cVERAG_CustomsDeclarations
End Sub
Public Function getCBAM_KG(EORI As String, von As Date, bis As Date, Optional without_MRN As String = "", Optional isDeclarant As Boolean = False) As Decimal
Public Function getCBAM_KG(EORI As String, von As Date, bis As Date, Optional without_MRN As String = "") As Decimal
Try
If EORI = "" Then Return 0
Dim sqlstr = "SELECT SUM(i.zaItem_NetMass) AS CBAM_Eigenmasse_kg
FROM VERAG.dbo.tblVERAG_CustomsDeclarations_Items i
JOIN VERAG.dbo.tblVERAG_CustomsDeclarations z
@@ -639,9 +582,7 @@ Public Class cVERAG_CustomsDeclarations
JOIN VERAG.dbo.tblVERAG_CustomsDeclarations_Parties p
ON p.zaParty_zaId = z.za_Id
AND p.zaParty_EORI = '" & EORI & "'
" & If(isDeclarant, "AND (p.zaParty_Role IN ('CB','DT','DEKLARANT','DECLARANT') ",
" AND (p.zaParty_Role IN ('CN','IM','IMP','IMPORTER','CONSIGNEE') OR
p.zaParty_Role IN ('CZ','EX','EXP','EXPORTER','CONSIGNOR'))") & "
AND p.zaParty_Role IN ('CN','IM','IMP','IMPORTER')
WHERE z.za_ReleaseDate BETWEEN '" & von.ToShortDateString & "' AND '" & bis.ToShortDateString & "'
AND EXISTS (