API Modaltrans
This commit is contained in:
@@ -964,6 +964,36 @@
|
||||
<Compile Include="ZOLLSYSTEM\DAKOSY\ATLAS\NCTS\frmRoutenAuswahlDetails.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="ZOLLSYSTEM\MODALTRANS\usrCntlModaltrans_EXIM_Allg.Designer.vb">
|
||||
<DependentUpon>usrCntlModaltrans_EXIM_Allg.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="ZOLLSYSTEM\MODALTRANS\usrCntlModaltrans_EXIM_Allg.vb">
|
||||
<SubType>UserControl</SubType>
|
||||
</Compile>
|
||||
<Compile Include="ZOLLSYSTEM\MODALTRANS\usrCntlModaltrans_NCTS_Position.Designer.vb">
|
||||
<DependentUpon>usrCntlModaltrans_NCTS_Position.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="ZOLLSYSTEM\MODALTRANS\usrCntlModaltrans_NCTS_Position.vb">
|
||||
<SubType>UserControl</SubType>
|
||||
</Compile>
|
||||
<Compile Include="ZOLLSYSTEM\MODALTRANS\usrCntlModaltrans_NCTS_Positionen.Designer.vb">
|
||||
<DependentUpon>usrCntlModaltrans_NCTS_Positionen.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="ZOLLSYSTEM\MODALTRANS\usrCntlModaltrans_NCTS_Positionen.vb">
|
||||
<SubType>UserControl</SubType>
|
||||
</Compile>
|
||||
<Compile Include="ZOLLSYSTEM\MODALTRANS\usrCntlModaltrans_NCTS_Allg.Designer.vb">
|
||||
<DependentUpon>usrCntlModaltrans_NCTS_Allg.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="ZOLLSYSTEM\MODALTRANS\usrCntlModaltrans_NCTS_Allg.vb">
|
||||
<SubType>UserControl</SubType>
|
||||
</Compile>
|
||||
<Compile Include="ZOLLSYSTEM\MODALTRANS\usrCntlModaltrans_NCTS_Adressen.Designer.vb">
|
||||
<DependentUpon>usrCntlModaltrans_NCTS_Adressen.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="ZOLLSYSTEM\MODALTRANS\usrCntlModaltrans_NCTS_Adressen.vb">
|
||||
<SubType>UserControl</SubType>
|
||||
</Compile>
|
||||
<Compile Include="ZOLLSYSTEM\DAKOSY\ATLAS\NCTS\usrCntlATLAS_NCTS_Verschluesse.Designer.vb">
|
||||
<DependentUpon>usrCntlATLAS_NCTS_Verschluesse.vb</DependentUpon>
|
||||
</Compile>
|
||||
@@ -1018,6 +1048,12 @@
|
||||
<Compile Include="ZOLLSYSTEM\DAKOSY\frmDakosy_SelFirma.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="ZOLLSYSTEM\DAKOSY\Stammreferenz\frmModaltransStammreferenz.Designer.vb">
|
||||
<DependentUpon>frmModaltransStammreferenz.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="ZOLLSYSTEM\DAKOSY\Stammreferenz\frmModaltransStammreferenz.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="ZOLLSYSTEM\DAKOSY\Stammreferenz\frmStammreferenzPopup.Designer.vb">
|
||||
<DependentUpon>frmStammreferenzPopup.vb</DependentUpon>
|
||||
</Compile>
|
||||
@@ -3127,6 +3163,21 @@
|
||||
<EmbeddedResource Include="ZOLLSYSTEM\DAKOSY\ATLAS\NCTS\frmRoutenAuswahlDetails.resx">
|
||||
<DependentUpon>frmRoutenAuswahlDetails.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="ZOLLSYSTEM\MODALTRANS\usrCntlModaltrans_EXIM_Allg.resx">
|
||||
<DependentUpon>usrCntlModaltrans_EXIM_Allg.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="ZOLLSYSTEM\MODALTRANS\usrCntlModaltrans_NCTS_Position.resx">
|
||||
<DependentUpon>usrCntlModaltrans_NCTS_Position.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="ZOLLSYSTEM\MODALTRANS\usrCntlModaltrans_NCTS_Positionen.resx">
|
||||
<DependentUpon>usrCntlModaltrans_NCTS_Positionen.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="ZOLLSYSTEM\MODALTRANS\usrCntlModaltrans_NCTS_Allg.resx">
|
||||
<DependentUpon>usrCntlModaltrans_NCTS_Allg.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="ZOLLSYSTEM\MODALTRANS\usrCntlModaltrans_NCTS_Adressen.resx">
|
||||
<DependentUpon>usrCntlModaltrans_NCTS_Adressen.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="ZOLLSYSTEM\DAKOSY\ATLAS\NCTS\usrCntlATLAS_NCTS_Verschluesse.resx">
|
||||
<DependentUpon>usrCntlATLAS_NCTS_Verschluesse.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
@@ -3154,6 +3205,9 @@
|
||||
<EmbeddedResource Include="ZOLLSYSTEM\DAKOSY\frmDakosy_SelFirma.resx">
|
||||
<DependentUpon>frmDakosy_SelFirma.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="ZOLLSYSTEM\DAKOSY\Stammreferenz\frmModaltransStammreferenz.resx">
|
||||
<DependentUpon>frmModaltransStammreferenz.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="ZOLLSYSTEM\DAKOSY\Stammreferenz\frmStammreferenzPopup.resx">
|
||||
<DependentUpon>frmStammreferenzPopup.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
|
||||
271
SDL/ZOLLSYSTEM/DAKOSY/Stammreferenz/frmModaltransStammreferenz.Designer.vb
generated
Normal file
271
SDL/ZOLLSYSTEM/DAKOSY/Stammreferenz/frmModaltransStammreferenz.Designer.vb
generated
Normal file
@@ -0,0 +1,271 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class frmModaltransStammreferenz
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()>
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Wird vom Windows Form-Designer benötigt.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmModaltransStammreferenz))
|
||||
Me.btnOK = New System.Windows.Forms.Button()
|
||||
Me.cboVerfahren = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.lblVerfahren = New System.Windows.Forms.Label()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.cboLand = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.dgvStammref = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.txtDyNiederlassung = New System.Windows.Forms.Label()
|
||||
Me.txtDyMandant = New System.Windows.Forms.Label()
|
||||
Me.Label5 = New System.Windows.Forms.Label()
|
||||
Me.txtSearch = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||
CType(Me.dgvStammref, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'btnOK
|
||||
'
|
||||
Me.btnOK.DialogResult = System.Windows.Forms.DialogResult.OK
|
||||
Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnOK.Image = Global.SDL.My.Resources.Resources.android_note12
|
||||
Me.btnOK.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.btnOK.Location = New System.Drawing.Point(386, 581)
|
||||
Me.btnOK.Name = "btnOK"
|
||||
Me.btnOK.Padding = New System.Windows.Forms.Padding(0, 8, 0, 0)
|
||||
Me.btnOK.Size = New System.Drawing.Size(197, 61)
|
||||
Me.btnOK.TabIndex = 0
|
||||
Me.btnOK.Text = "Antrag bearbeiten..."
|
||||
Me.btnOK.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.btnOK.UseVisualStyleBackColor = True
|
||||
'
|
||||
'cboVerfahren
|
||||
'
|
||||
Me.cboVerfahren._allowedValuesFreiText = Nothing
|
||||
Me.cboVerfahren._allowFreiText = False
|
||||
Me.cboVerfahren._value = ""
|
||||
Me.cboVerfahren.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
|
||||
Me.cboVerfahren.FormattingEnabled = True
|
||||
Me.cboVerfahren.Location = New System.Drawing.Point(67, 31)
|
||||
Me.cboVerfahren.Name = "cboVerfahren"
|
||||
Me.cboVerfahren.Size = New System.Drawing.Size(718, 28)
|
||||
Me.cboVerfahren.TabIndex = 2
|
||||
'
|
||||
'lblVerfahren
|
||||
'
|
||||
Me.lblVerfahren.AutoSize = True
|
||||
Me.lblVerfahren.Location = New System.Drawing.Point(64, 15)
|
||||
Me.lblVerfahren.Name = "lblVerfahren"
|
||||
Me.lblVerfahren.Size = New System.Drawing.Size(56, 13)
|
||||
Me.lblVerfahren.TabIndex = 3
|
||||
Me.lblVerfahren.Text = "Verfahren:"
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Location = New System.Drawing.Point(12, 62)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(158, 13)
|
||||
Me.Label1.TabIndex = 3
|
||||
Me.Label1.Text = "Modal-Stammreferenz (optional):"
|
||||
'
|
||||
'cboLand
|
||||
'
|
||||
Me.cboLand._allowedValuesFreiText = Nothing
|
||||
Me.cboLand._allowFreiText = False
|
||||
Me.cboLand._value = ""
|
||||
Me.cboLand.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
|
||||
Me.cboLand.FormattingEnabled = True
|
||||
Me.cboLand.Location = New System.Drawing.Point(15, 31)
|
||||
Me.cboLand.Name = "cboLand"
|
||||
Me.cboLand.Size = New System.Drawing.Size(53, 28)
|
||||
Me.cboLand.TabIndex = 4
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Location = New System.Drawing.Point(12, 15)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(34, 13)
|
||||
Me.Label2.TabIndex = 3
|
||||
Me.Label2.Text = "Land:"
|
||||
'
|
||||
'dgvStammref
|
||||
'
|
||||
Me.dgvStammref.AKTUALISIERUNGS_INTERVALL = -1
|
||||
Me.dgvStammref.AllowUserToAddRows = False
|
||||
Me.dgvStammref.AllowUserToDeleteRows = False
|
||||
Me.dgvStammref.AllowUserToOrderColumns = True
|
||||
Me.dgvStammref.AllowUserToResizeColumns = False
|
||||
Me.dgvStammref.AllowUserToResizeRows = False
|
||||
Me.dgvStammref.BackgroundColor = System.Drawing.Color.White
|
||||
Me.dgvStammref.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvStammref.Location = New System.Drawing.Point(12, 78)
|
||||
Me.dgvStammref.MultiSelect = False
|
||||
Me.dgvStammref.Name = "dgvStammref"
|
||||
Me.dgvStammref.ReadOnly = True
|
||||
Me.dgvStammref.RowHeadersVisible = False
|
||||
Me.dgvStammref.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
|
||||
Me.dgvStammref.Size = New System.Drawing.Size(773, 263)
|
||||
Me.dgvStammref.TabIndex = 13
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.Location = New System.Drawing.Point(9, 624)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(226, 13)
|
||||
Me.Label3.TabIndex = 14
|
||||
Me.Label3.Text = "-"
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.BackgroundImage = Global.SDL.My.Resources.Resources.modaltrans_original
|
||||
Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.Button1.DialogResult = System.Windows.Forms.DialogResult.OK
|
||||
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.Button1.Location = New System.Drawing.Point(588, 581)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Padding = New System.Windows.Forms.Padding(0, 8, 0, 0)
|
||||
Me.Button1.Size = New System.Drawing.Size(197, 61)
|
||||
Me.Button1.TabIndex = 15
|
||||
Me.Button1.Text = "Sofort senden -->"
|
||||
Me.Button1.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.Button1.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'txtDyNiederlassung
|
||||
'
|
||||
Me.txtDyNiederlassung.Location = New System.Drawing.Point(743, 9)
|
||||
Me.txtDyNiederlassung.Name = "txtDyNiederlassung"
|
||||
Me.txtDyNiederlassung.Size = New System.Drawing.Size(42, 13)
|
||||
Me.txtDyNiederlassung.TabIndex = 16
|
||||
Me.txtDyNiederlassung.Text = "SUB"
|
||||
'
|
||||
'txtDyMandant
|
||||
'
|
||||
Me.txtDyMandant.Location = New System.Drawing.Point(689, 9)
|
||||
Me.txtDyMandant.Name = "txtDyMandant"
|
||||
Me.txtDyMandant.Size = New System.Drawing.Size(48, 13)
|
||||
Me.txtDyMandant.TabIndex = 17
|
||||
Me.txtDyMandant.Text = "VERG"
|
||||
Me.txtDyMandant.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Me.Label5.AutoSize = True
|
||||
Me.Label5.Location = New System.Drawing.Point(12, 356)
|
||||
Me.Label5.Name = "Label5"
|
||||
Me.Label5.Size = New System.Drawing.Size(158, 13)
|
||||
Me.Label5.TabIndex = 26
|
||||
Me.Label5.Text = "Modal-Stammreferenz (optional):"
|
||||
'
|
||||
'txtSearch
|
||||
'
|
||||
Me.txtSearch._DateTimeOnly = False
|
||||
Me.txtSearch._numbersOnly = False
|
||||
Me.txtSearch._numbersOnlyKommastellen = ""
|
||||
Me.txtSearch._numbersOnlyTrennzeichen = True
|
||||
Me.txtSearch._Prozent = False
|
||||
Me.txtSearch._ShortDateNew = False
|
||||
Me.txtSearch._ShortDateOnly = False
|
||||
Me.txtSearch._TimeOnly = False
|
||||
Me.txtSearch._TimeOnly_Seconds = False
|
||||
Me.txtSearch._value = ""
|
||||
Me.txtSearch._Waehrung = False
|
||||
Me.txtSearch._WaehrungZeichen = True
|
||||
Me.txtSearch.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.txtSearch.BackColor = System.Drawing.SystemColors.Info
|
||||
Me.txtSearch.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.txtSearch.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtSearch.Location = New System.Drawing.Point(211, 347)
|
||||
Me.txtSearch.MaxLineLength = -1
|
||||
Me.txtSearch.MaxLines_Warning = ""
|
||||
Me.txtSearch.MaxLines_Warning_Label = Nothing
|
||||
Me.txtSearch.Name = "txtSearch"
|
||||
Me.txtSearch.Size = New System.Drawing.Size(574, 26)
|
||||
Me.txtSearch.TabIndex = 25
|
||||
'
|
||||
'MyDatagridview1
|
||||
'
|
||||
Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1
|
||||
Me.MyDatagridview1.AllowUserToAddRows = False
|
||||
Me.MyDatagridview1.AllowUserToDeleteRows = False
|
||||
Me.MyDatagridview1.AllowUserToOrderColumns = True
|
||||
Me.MyDatagridview1.AllowUserToResizeColumns = False
|
||||
Me.MyDatagridview1.AllowUserToResizeRows = False
|
||||
Me.MyDatagridview1.BackgroundColor = System.Drawing.Color.White
|
||||
Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.MyDatagridview1.Location = New System.Drawing.Point(12, 379)
|
||||
Me.MyDatagridview1.MultiSelect = False
|
||||
Me.MyDatagridview1.Name = "MyDatagridview1"
|
||||
Me.MyDatagridview1.ReadOnly = True
|
||||
Me.MyDatagridview1.RowHeadersVisible = False
|
||||
Me.MyDatagridview1.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
|
||||
Me.MyDatagridview1.Size = New System.Drawing.Size(773, 196)
|
||||
Me.MyDatagridview1.TabIndex = 27
|
||||
'
|
||||
'frmModaltransStammreferenz
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.BackColor = System.Drawing.Color.White
|
||||
Me.ClientSize = New System.Drawing.Size(797, 654)
|
||||
Me.Controls.Add(Me.Label5)
|
||||
Me.Controls.Add(Me.MyDatagridview1)
|
||||
Me.Controls.Add(Me.txtSearch)
|
||||
Me.Controls.Add(Me.txtDyMandant)
|
||||
Me.Controls.Add(Me.txtDyNiederlassung)
|
||||
Me.Controls.Add(Me.Button1)
|
||||
Me.Controls.Add(Me.Label3)
|
||||
Me.Controls.Add(Me.cboLand)
|
||||
Me.Controls.Add(Me.Label1)
|
||||
Me.Controls.Add(Me.Label2)
|
||||
Me.Controls.Add(Me.lblVerfahren)
|
||||
Me.Controls.Add(Me.cboVerfahren)
|
||||
Me.Controls.Add(Me.btnOK)
|
||||
Me.Controls.Add(Me.dgvStammref)
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Name = "frmModaltransStammreferenz"
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
|
||||
Me.Text = "Stammreferenz"
|
||||
CType(Me.dgvStammref, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents btnOK As System.Windows.Forms.Button
|
||||
Friend WithEvents cboVerfahren As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents lblVerfahren As System.Windows.Forms.Label
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents cboLand As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
Friend WithEvents dgvStammref As VERAG_PROG_ALLGEMEIN.MyDatagridview
|
||||
Friend WithEvents Label3 As System.Windows.Forms.Label
|
||||
Friend WithEvents Button1 As System.Windows.Forms.Button
|
||||
Friend WithEvents txtDyNiederlassung As System.Windows.Forms.Label
|
||||
Friend WithEvents txtDyMandant As System.Windows.Forms.Label
|
||||
Friend WithEvents Label5 As Label
|
||||
Friend WithEvents txtSearch As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents MyDatagridview1 As VERAG_PROG_ALLGEMEIN.MyDatagridview
|
||||
End Class
|
||||
@@ -0,0 +1,980 @@
|
||||
<?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>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA
|
||||
AACRbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
|
||||
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
|
||||
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
|
||||
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
|
||||
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
|
||||
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
|
||||
USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEd4Sx5mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB4Sx5/VClmMwBuPg5r
|
||||
OglrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
|
||||
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
|
||||
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
|
||||
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
|
||||
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
|
||||
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
|
||||
OQhrOgluPg5mMwB/VCl0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
|
||||
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
|
||||
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
|
||||
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
|
||||
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
|
||||
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
|
||||
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0RhhzRBVmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz
|
||||
RBV3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh18UCRmMwBqOQdnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFqOQdmMwB8UCR9USZmMwBrOQhn
|
||||
NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
|
||||
USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwDm4N3/////////
|
||||
///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////////////////
|
||||
//////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwB0SSb39fT/
|
||||
//////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+YfWtmMwBmMwBm
|
||||
MwBmMwB0SSbu6+n////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////
|
||||
///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5zUy8X////////////////L
|
||||
v7itmo1mMwBmMwCYfWv///////90SSZmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
|
||||
NAFmMwBmMwBmMwB0SSb////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////////////+j
|
||||
jH1mMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwC3p5z/
|
||||
///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwCYfWv////////////////Bs6pmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwB0SSb///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCt
|
||||
mo3////////////////////////////////////m4N2Mbli3p5z///////+jjH1mMwBmMwBmMwBmMwBm
|
||||
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwCMblj///////////////////////////+M
|
||||
blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////
|
||||
///////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////+3
|
||||
p5xmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDU
|
||||
y8X///////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////90SSZm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////////////////////////////////39fTm
|
||||
4N3///////+3p5xmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwC3
|
||||
p5z////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3
|
||||
p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwCjjH3////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXUL///////////////////90
|
||||
SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwC3p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////U
|
||||
y8WAXUJmMwBmMwC3p5z39fT////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
|
||||
USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDBs6r////////////////u6+n///////////+tmo1mMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////m4N1mMwBmMwBmMwBm
|
||||
MwBmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
|
||||
///////////////////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwD39fT////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXULu6+n////////////////39fRm
|
||||
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDm4N3/////////////
|
||||
//+jjH3////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////
|
||||
//////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD3
|
||||
9fT///////////////90SSZmMwBmMwBmMwBmMwDm4N3///////////////+jjH1mMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwDu6+n/////////////////////////////////////////////////////
|
||||
//////+3p5xmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////+MblhmMwBmMwBmMwBmMwBm
|
||||
MwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
|
||||
NAFmMwBmMwBmMwD39fT///////////////9mMwDLv7j///////////+3p5xmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwDm4N3////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwCAXUL/////////
|
||||
///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////
|
||||
//////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
|
||||
//////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+jjH1mMwBmMwBmMwBm
|
||||
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCMblj////////////////m4N1mMwCAXUL39fT/
|
||||
///////39fSAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////Uy8VmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////
|
||||
///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwDUy8X////////////u6+lmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBm
|
||||
MwBmMwBmMwBmMwBmMwC3p5z///////////////////9mMwBmMwBmMwB0SSb/////////////////////
|
||||
//////////////+3p5xmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCjjH3/
|
||||
///////////////Uy8VmMwBmMwC3p5z////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwC3p5z////////////////////////////////////////////////////m4N1mMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwCjjH3////////////////////////////////////////////////////////////d
|
||||
1tGMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo1mMwBmMwBmMwCt
|
||||
mo3////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////90SSZm
|
||||
MwBmMwBmMwDm4N3////////////////////////////////Uy8VmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
|
||||
USZ9USZmMwBrOQhnNAFmMwBmMwC3p5z///////////////+3p5xmMwBmMwB0SSb39fT///////////+Y
|
||||
fWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////////////////
|
||||
//////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////////
|
||||
//////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3
|
||||
p5z////////////39fR0SSZmMwBmMwDBs6r////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwCjjH3///////////////////+jjH1mMwBmMwBmMwDBs6r////////////////////////////////3
|
||||
9fRmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwDUy8X///////////////+t
|
||||
mo1mMwBmMwBmMwCtmo3////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////
|
||||
//////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwDu6+n///////////////90SSZmMwBmMwBmMwBmMwBmMwCjjH3m4N3////////////////39fR0SSZm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////+3p5xmMwBmMwDUy8X/////////////
|
||||
//+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Bs6pmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
|
||||
NAFmMwBmMwDu6+n///////////////+MblhmMwBmMwBmMwBmMwDu6+n///////////+tmo1mMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwBmMwBmMwBm
|
||||
MwB0SSbu6+n///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////
|
||||
///39fSAXUJmMwD39fT///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////
|
||||
///////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////Uy8W3p5y3p5yYfWtmMwBmMwBm
|
||||
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwB0SSb///////////////////90SSZmMwBmMwBmMwBm
|
||||
MwCtmo3////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////m4N1m
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
|
||||
//////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////Bs6pmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwDUy8X////////////Lv7h0SSb///////////////////90SSZmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDu
|
||||
6+n///////////////+jjH1mMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwCYfWv/////
|
||||
///////////u6+lmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////+3p5xmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwCjjH3///////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwCYfWv////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////
|
||||
//////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo3/
|
||||
///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////
|
||||
//+YfWtmMwBmMwBmMwBmMwBmMwCtmo3////////////////u6+lmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
|
||||
USZ9USZmMwBrOQhnNAFmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////
|
||||
//////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+MblhmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////u6+lmMwBm
|
||||
MwBmMwBmMwBmMwCAXULLv7j///////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwC3p5z////////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwDd1tH///////////////////+3p5x0SSZmMwBmMwC3p5z///////////////////+t
|
||||
mo1mMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwDLv7j////////////////Bs6pm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/
|
||||
//////////////////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBm
|
||||
MwBmMwDm4N3////////////////////////////////////////////////////////////Bs6pmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////+3
|
||||
p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////
|
||||
///////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
|
||||
NAFmMwDm4N3///////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+Y
|
||||
fWtmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////////////////////////
|
||||
//////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////////////////////////////
|
||||
///////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCj
|
||||
jH3///////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwCtmo339fT///////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBm
|
||||
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAF0SSb///////////////////+MblhmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwDLv7j////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwC3p5z/////////////////
|
||||
//////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////
|
||||
///////////////////////////////////////m4N23p5yMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////9mMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH23p5z39fT////////////////Uy8W3
|
||||
p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
|
||||
USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
|
||||
NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
|
||||
USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ8UCRmMwBqOQdn
|
||||
NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBnNAFqOQdmMwB8UCR3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh1zRBVmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz
|
||||
RBV0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
|
||||
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
|
||||
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
|
||||
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
|
||||
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
|
||||
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
|
||||
NAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0Rhh/VClmMwBuPg5rOglrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
|
||||
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
|
||||
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
|
||||
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
|
||||
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
|
||||
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
|
||||
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOgluPg5mMwB/VCl4Sx5mMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwB4Sx6RbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
|
||||
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
|
||||
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
|
||||
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
|
||||
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
|
||||
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
|
||||
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEf/////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////Bs6rBs6qYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6rBs6r/////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////Uy8WYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvUy8X////////////////////////////////////////B
|
||||
s6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwCjjH3Bs6rBs6r39fT/////////////////////////////////////////////////////////
|
||||
///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////////////////////////////////////
|
||||
///////////////////////////////////////////////////////////////d1tGMblhmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvm4N3/
|
||||
///////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljLv7j/////////////////
|
||||
///////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X////////////////////////////d1tFmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwCMbljm4N3////////////////////////////////////////////m4N1mMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwC3p5z/////////////////////////////////////////////////////////////
|
||||
//////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////
|
||||
///////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////
|
||||
///////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////////
|
||||
///////////////////////////////////////////////////////////////////Bs6pmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwCtmo3///////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCA
|
||||
XUL/////////////////////////////////////////////////////////////////////////////
|
||||
///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT/////////////////
|
||||
//+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////////////////////
|
||||
//////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////////////////////////////////////////
|
||||
//////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwDBs6r///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwDBs6r////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////
|
||||
///////////////////////////////////////////////////////////////////////////d1tFm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6rd1tH////////39fTBs6qAXUJm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Lv7hmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////////Uy8VmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwDLv7j/////////////////////////////////////////////////////////
|
||||
//////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/
|
||||
//////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd
|
||||
1tH////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////
|
||||
///////Uy8XBs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////
|
||||
///////////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//////////////////////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////////////////+AXUJmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwC3p5z////////////////////////////////d1tGMblhmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////9mMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwB0SSb/////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT/////////////////////
|
||||
///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////
|
||||
//////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////
|
||||
//////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT/////////////
|
||||
//////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwDBs6r////////////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwCYfWv///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0
|
||||
SSb///////////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwDBs6r///////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwDUy8X/////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///u6+nBs6rBs6rBs6qYfWtmMwBmMwBmMwDu6+n/////////////////////////////////////////
|
||||
///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n////////////////////////////////////////u
|
||||
6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////////////Bs6pm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCY
|
||||
fWv////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////
|
||||
//////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwDm4N3////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////////////////////u6+m3p5xmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////m4N1mMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwDBs6r////////////////////////////////////////////d1tFmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////////u6+lmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////////////////////////////////////////Uy8XB
|
||||
s6p0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////
|
||||
//////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////////////////
|
||||
//////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////
|
||||
//////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////m4N3Bs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwDUy8X///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwCMblj///////////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwB0SSb///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwDm4N3/////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////Bs6qAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////////////////+jjH1m
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////////////////////
|
||||
///////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////+t
|
||||
mo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/
|
||||
///////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////
|
||||
///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwDm4N3////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////////////////////Uy8VmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////90SSZm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////Uy8VmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbm4N3/////////////////////
|
||||
///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////
|
||||
//////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////
|
||||
///////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM
|
||||
bljm4N3///////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwCjjH3///////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwD39fT/////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////////////////+M
|
||||
blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////////////
|
||||
//////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////////////
|
||||
//+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6r/////////////////////////
|
||||
//////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////
|
||||
//////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwDd1tH///////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDL
|
||||
v7j/////////////////////////////////////////////////////////////////////////////
|
||||
//////////////////////////////////////////////////////////////////////////+Mblhm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6r/////
|
||||
///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////+AXUJm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////Bs6pmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//////////////////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwCtmo3Bs6r39fT/////////////////////////////////////////////////////////////////
|
||||
///////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////
|
||||
///////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n/////
|
||||
///////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwB0SSbLv7j/////////////////////////////////////////////////
|
||||
///////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwC3p5z////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwB0SSb////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwCAXUL/////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////////////
|
||||
//////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////
|
||||
//////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwC3p5z////////////////////////////////////39fRmMwBmMwB0SSbBs6rBs6r39fT/////////
|
||||
//////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/
|
||||
///////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwDBs6r///////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwDm4N3/////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////////////////////////////////////39fRmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////////////////////Bs6pm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6rBs6r///////////////////////////+3p5xmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT////////////////////////////39fSMblhmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////+3p5xmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////////
|
||||
///////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////
|
||||
///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////
|
||||
///////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////
|
||||
///////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////////u6+mAXUJmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwCYfWv////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwDLv7j////////////////Uy8W3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwDd1tH////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwCYfWv/////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljBs6r////////d1tG3
|
||||
p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH/////////////////////////
|
||||
///39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////////////////
|
||||
///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM
|
||||
blj///////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/
|
||||
//////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwD39fT/////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////////////////////////////////////////////L
|
||||
v7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////+YfWtmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////+jjH1m
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH/////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////////
|
||||
//////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////////
|
||||
//////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////////////////////////////////39fSAXUJmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwCYfWv////////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDB
|
||||
s6r////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////////////////////////
|
||||
///////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwB0SSbUy8X/////////////////////////////////////////////////
|
||||
///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//////////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////
|
||||
///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbBs6r/////////////////////////
|
||||
///////////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwB0SSb/////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////d1tGYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwDBs6r39fT///////////////////////////////////////////////////////////+AXUJm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXULBs6rBs6rm4N3/
|
||||
//////////////////////////////////////////////////////////////////////////////+A
|
||||
XUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////////////////////////39fTBs6rBs6pmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwCjjH3Bs6rUy8X/////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,224 @@
|
||||
Public Class frmModaltransStammreferenz
|
||||
|
||||
Property STAMMREF = Nothing
|
||||
Property STAMMREF_DYID As Integer = -1
|
||||
Dim verfahren As String
|
||||
Dim land As String
|
||||
Public nl As String
|
||||
Dim Kdnr As Object = Nothing
|
||||
Property sentToDakosy As Boolean = False
|
||||
Dim freetoselect = False
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Dim SelectNL = False
|
||||
Dim FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
|
||||
Sub New(land, verfahren, freetoselect, Optional Kdnr = Nothing, Optional nl = Nothing, Optional FIRMA_DY = "")
|
||||
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
Me.verfahren = verfahren
|
||||
Me.land = land
|
||||
Me.freetoselect = freetoselect
|
||||
Me.Kdnr = Kdnr
|
||||
Me.nl = nl
|
||||
|
||||
If FIRMA_DY <> "" Then Me.FIRMA_DY = FIRMA_DY
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub frmDakosyStammreferenz_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
SelectNL = False
|
||||
Select Case FIRMA_DY
|
||||
Case "VERAG" : txtDyMandant.Text = "VERG"
|
||||
txtDyNiederlassung.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
|
||||
Case "ATILLA" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "SUW"
|
||||
Case "IMEX" : txtDyMandant.Text = "IMEX" : txtDyNiederlassung.Text = If(nl <> "", nl, "IME")
|
||||
Case "UNISPED" : txtDyMandant.Text = "UNAT" : txtDyNiederlassung.Text = "ATSP"
|
||||
Case "AMBAR" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "AMBWO" : SelectNL = True
|
||||
End Select
|
||||
|
||||
cboVerfahren.Items.Clear()
|
||||
cboVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NCTS - Declaration", "ncts"))
|
||||
cboVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EXPORT - Declaration", "export"))
|
||||
cboVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMPORT - Declaration", "import"))
|
||||
cboVerfahren.changeItem(verfahren)
|
||||
|
||||
cboLand.Items.Clear()
|
||||
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UK", "UK"))
|
||||
cboLand.changeItem(land)
|
||||
|
||||
|
||||
'If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_ModaltransZA_Senden", "AVISO") Then
|
||||
' Button1.Enabled = False
|
||||
'End If
|
||||
'If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_Modaltrans_AVISO_Edit", "AVISO") Then
|
||||
' btnOK.Enabled = False
|
||||
'End If
|
||||
|
||||
If Not freetoselect Then
|
||||
cboVerfahren.Enabled = False
|
||||
cboLand.Enabled = False
|
||||
End If
|
||||
|
||||
If Kdnr IsNot Nothing AndAlso IsNumeric(Kdnr) Then
|
||||
txtSearch.Text = Kdnr
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub cboVerfahren_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboVerfahren.SelectedIndexChanged, cboLand.SelectedIndexChanged
|
||||
initDGV()
|
||||
End Sub
|
||||
|
||||
Sub initDGV()
|
||||
With dgvStammref
|
||||
.Columns.Clear()
|
||||
If cboLand._value <> "" And cboVerfahren._value <> "" Then
|
||||
|
||||
Dim where = " AND kdNr is null"
|
||||
|
||||
.RowTemplate.Height = 30
|
||||
.RowTemplate.DefaultCellStyle.Font = New Font(Me.Font.FontFamily, 10)
|
||||
.DataSource = SQL.loadDgvBySql("SELECT * FROM [tblOregonNCTS_ReferenceTemplate] LEFT JOIN Adressen ON AdressenNr=kdNr WHERE country='" & cboLand._value & "' AND declaration='" & cboVerfahren._value & "' and mandant='" & txtDyMandant.Text & "' " & If(SelectNL, " AND niederlassung='" & txtDyNiederlassung.Text & "' ", "") & " and visible=1 " & where & " order by descr ", "FMZOLL")
|
||||
.Columns("Id").Visible = False
|
||||
.Columns("reference").Visible = False
|
||||
.Columns("standard").Visible = False
|
||||
.Columns("niederlassung").Visible = False
|
||||
.Columns("mandant").Visible = False
|
||||
.Columns("reference").HeaderText = "Stammreferenz"
|
||||
.Columns("reference").Width = 200
|
||||
.Columns("descr").HeaderText = "Bezeichnung"
|
||||
.Columns("descr").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
.ClearSelection()
|
||||
|
||||
|
||||
End If
|
||||
End With
|
||||
With MyDatagridview1
|
||||
.Columns.Clear()
|
||||
If cboLand._value <> "" And cboVerfahren._value <> "" Then
|
||||
|
||||
Dim where = " AND kdNr is not null "
|
||||
If txtSearch.Text <> "" Then
|
||||
where &= " and (kdNr LIKE '" & txtSearch.Text & "%' OR Ordnungsbegriff LIKE '" & txtSearch.Text & "%') "
|
||||
End If
|
||||
|
||||
.RowTemplate.Height = 30
|
||||
.RowTemplate.DefaultCellStyle.Font = New Font(Me.Font.FontFamily, 10)
|
||||
.DataSource = SQL.loadDgvBySql("SELECT * FROM [tblOregonNCTS_ReferenceTemplate] LEFT JOIN Adressen ON AdressenNr=KdNr WHERE country='" & cboLand._value & "' AND declaration='" & cboVerfahren._value & "' and mandant='" & txtDyMandant.Text & "' " & If(SelectNL, " AND niederlassung='" & txtDyNiederlassung.Text & "' ", "") & " and visible=1 " & where & " order by KdNr,descr ", "FMZOLL")
|
||||
.Columns("Id").Visible = False
|
||||
.Columns("reference").Visible = False
|
||||
.Columns("standard").Visible = False
|
||||
.Columns("reference").HeaderText = "Stammreferenz"
|
||||
.Columns("reference").Width = 200
|
||||
.Columns("descr").HeaderText = "Bezeichnung"
|
||||
.Columns("descr").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
|
||||
.Columns("kdNr").HeaderText = "KundenNr"
|
||||
.Columns("kdNr").Width = 60
|
||||
.Columns("Ordnungsbegriff").HeaderText = "Firma"
|
||||
.Columns("Ordnungsbegriff").Width = 200
|
||||
.Columns("niederlassung").HeaderText = "NL"
|
||||
.Columns("niederlassung").Width = 50
|
||||
.ClearSelection()
|
||||
|
||||
|
||||
End If
|
||||
End With
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Sub openDY(sentToModaltrans As Boolean)
|
||||
|
||||
If dgvStammref.SelectedRows.Count > 0 Or MyDatagridview1.SelectedRows.Count > 0 Then
|
||||
Dim dgv As DataGridView = Nothing
|
||||
If dgvStammref.SelectedRows.Count > 0 Then dgv = dgvStammref
|
||||
If MyDatagridview1.SelectedRows.Count > 0 Then dgv = MyDatagridview1
|
||||
|
||||
If dgv.SelectedRows(0).Cells("reference").Value <> "" Then
|
||||
STAMMREF = dgv.SelectedRows(0).Cells("reference").Value
|
||||
STAMMREF_DYID = dgv.SelectedRows(0).Cells("Id").Value
|
||||
Me.sentToDakosy = sentToDakosy
|
||||
Me.nl = dgv.SelectedRows(0).Cells("niederlassung").Value
|
||||
' Me.txtDyMandant = dgv.SelectedRows(0).Cells("dySr_dy_Mandant").Value
|
||||
'STAMMREF_DYID = (New VERAG_PROG_ALLGEMEIN.SQL).getValueTxtBySql("SELECT isnull([dySr_dyId],-1) FROM [tblDakosy_Stammreferenzen] WHERE dySr_Stammreferenz='" & MyDatagridview1.SelectedRows(0).Cells("dySr_Stammreferenz").Value & "' ", "FMZOLL")
|
||||
Exit Sub
|
||||
End If
|
||||
Else
|
||||
For Each r As DataGridViewRow In dgvStammref.Rows
|
||||
If r.Cells("standard").Value = True Then
|
||||
STAMMREF = r.Cells("reference").Value
|
||||
STAMMREF_DYID = r.Cells("Id").Value
|
||||
Me.sentToDakosy = sentToDakosy
|
||||
Exit Sub
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
Me.sentToDakosy = sentToDakosy 'Falls keine STAMMREF
|
||||
End Sub
|
||||
|
||||
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
|
||||
openDY(False)
|
||||
End Sub
|
||||
|
||||
Private Sub btnOK_Click2(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
|
||||
If vbYes = MsgBox("Sollen die Daten abgeschickt werden?", vbYesNoCancel) Then
|
||||
openDY(True)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub dgvStammref_SelectionChanged(sender As Object, e As EventArgs) Handles dgvStammref.SelectionChanged
|
||||
If dgvStammref.SelectedRows.Count > 0 Then
|
||||
Label3.Text = dgvStammref.SelectedRows(0).Cells("reference").Value
|
||||
Else
|
||||
Label3.Text = ""
|
||||
End If
|
||||
MyDatagridview1.ClearSelection()
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub MyDatagridview1_SelectionChanged(sender As Object, e As EventArgs) Handles MyDatagridview1.SelectionChanged
|
||||
If MyDatagridview1.SelectedRows.Count > 0 Then
|
||||
Label3.Text = MyDatagridview1.SelectedRows(0).Cells("reference").Value
|
||||
Else
|
||||
Label3.Text = ""
|
||||
End If
|
||||
dgvStammref.ClearSelection()
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub dgvStammref_DoubleClick(sender As Object, e As Object) Handles dgvStammref.CellDoubleClick, dgvStammref.CellContentDoubleClick
|
||||
If btnOK.Enabled Then
|
||||
btnOK.PerformClick()
|
||||
Else
|
||||
Button1.PerformClick()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub MyTextBox1_TextChanged(sender As Object, e As EventArgs) Handles txtSearch.TextChanged
|
||||
initDGV()
|
||||
End Sub
|
||||
|
||||
Private Sub MyDatagridview1_DoubleClick(sender As Object, e As EventArgs) Handles MyDatagridview1.CellDoubleClick, MyDatagridview1.CellContentDoubleClick
|
||||
If btnOK.Enabled Then
|
||||
btnOK.PerformClick()
|
||||
Else
|
||||
Button1.PerformClick()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub frmDakosyStammreferenz_Shown(sender As Object, e As EventArgs) Handles Me.Shown
|
||||
txtSearch.Focus()
|
||||
End Sub
|
||||
|
||||
Private Sub MyDatagridview1_DoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles MyDatagridview1.CellDoubleClick, MyDatagridview1.CellContentDoubleClick
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
@@ -146,7 +146,7 @@
|
||||
|
||||
Case "MODALTRANS"
|
||||
Select Case ART
|
||||
Case "Export", "Import" ', "NCTS", "ÜT"
|
||||
Case "T1", "T2", "NCTS", "ÜT"
|
||||
|
||||
If ART = "ÜT" Then
|
||||
ART = "T1"
|
||||
@@ -160,6 +160,7 @@
|
||||
Me.pnl.Controls.Add(usrcntl)
|
||||
|
||||
Else
|
||||
MsgBox("Funktíon nicht implementiert")
|
||||
'Dim usrcntl As New usrCntlModaltrans_NCTS(DY, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF)
|
||||
'usrcntl.Dock = DockStyle.Fill
|
||||
'Me.pnl.Controls.Add(usrcntl)
|
||||
|
||||
2186
SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_EXIM_Allg.Designer.vb
generated
Normal file
2186
SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_EXIM_Allg.Designer.vb
generated
Normal file
File diff suppressed because it is too large
Load Diff
120
SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_EXIM_Allg.resx
Normal file
120
SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_EXIM_Allg.resx
Normal file
@@ -0,0 +1,120 @@
|
||||
<?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>
|
||||
263
SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_EXIM_Allg.vb
Normal file
263
SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_EXIM_Allg.vb
Normal file
@@ -0,0 +1,263 @@
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
Public Class usrCntlModaltrans_EXIM_Allg
|
||||
Property NCTS_ART = "T-"
|
||||
|
||||
'Dim NCTS As DAKOSY_Worker.cDakosyNCTSOut = Nothing
|
||||
Dim NCTS_TR As VERAG_PROG_ALLGEMEIN.cOregonNCTs_DeclarationData = Nothing
|
||||
|
||||
|
||||
|
||||
Sub New(NCTS_TR As VERAG_PROG_ALLGEMEIN.cOregonNCTs_DeclarationData)
|
||||
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
Me.NCTS_TR = NCTS_TR
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub usrCntlModaltrans_NCTS_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
|
||||
|
||||
sbRoute1.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
|
||||
sbRoute2.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
|
||||
sbRoute3.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
|
||||
sbRoute4.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
|
||||
sbRoute5.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
|
||||
sbRoute6.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
|
||||
sbRoute7.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
|
||||
sbRoute8.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
|
||||
sbRoute9.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
|
||||
sbBestimmungsland.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)
|
||||
sbVersendungsLand.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)
|
||||
sbKennzeichenGrenzeLand.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 400, 200)
|
||||
sbKennzeichenAbgangLand.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 400, 200)
|
||||
|
||||
|
||||
|
||||
cboVerkehrszweig.Items.Clear()
|
||||
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1 - Seeverkehr", "1"))
|
||||
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("2 - Eisenbahnverkehr", "2"))
|
||||
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("3 - Straßenverkehr", "3"))
|
||||
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4 - Luftverkehr", "4"))
|
||||
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("5 - Postsendungen", "5"))
|
||||
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("7 - Feste Transporteinrichtungen", "7"))
|
||||
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("8 - Binnenschifffahrt", "8"))
|
||||
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("9 - Eigener Antrieb", "9"))
|
||||
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("10 - Seeverkehr", "10"))
|
||||
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("12 - Waggon auf Seeschiff", "12"))
|
||||
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("16 - Straßenfahrzeug auf Seeschiff", "16"))
|
||||
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("17 - Anhänger/Auflieger auf Seeschiff", "17"))
|
||||
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("18 - Binnenschiff auf Seeschiff", "18"))
|
||||
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("20 - Eisenbahnverkehr", "20"))
|
||||
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("23 - Straßenfahrzeug auf Eisenbahn", "23"))
|
||||
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("30 - Straßenverkehr", "30"))
|
||||
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("40 - Luftverkehr", "40"))
|
||||
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("50 - Postsendungen", "50"))
|
||||
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("70 - Feste Transporteinrichtungen", "70"))
|
||||
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("80 - Binnenschifffahrt", "80"))
|
||||
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("90 - Eigener Antrieb", "90"))
|
||||
cboVerkehrszweig.changeItem("3")
|
||||
|
||||
|
||||
cboArtGrenzUeberschreitung.Items.Clear()
|
||||
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("10 - Seeschiff", "10"))
|
||||
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("20 - Waggon", "20"))
|
||||
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("31 - Pkw", "31"))
|
||||
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("32 - Pkw mit Anhänger", "32"))
|
||||
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("33 - Lkw", "33"))
|
||||
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("34 - Lkw mit Anhänger", "34"))
|
||||
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("35 - Zugmaschine mit Auflieger ", "35"))
|
||||
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("40 - Flugzeug", "40"))
|
||||
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("50 - Binnenschiff", "50"))
|
||||
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("60 - Eigener Antrieb", "60"))
|
||||
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("70 - Feste Transporteinrichtung", "70"))
|
||||
cboArtGrenzUeberschreitung.changeItem("35")
|
||||
|
||||
|
||||
cboBesondereUmstaende.Items.Clear()
|
||||
cboBesondereUmstaende.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboBesondereUmstaende.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("A - Post- und Express-Sendungen", "A"))
|
||||
cboBesondereUmstaende.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("C - Straßentransport", "C"))
|
||||
cboBesondereUmstaende.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("D - Bahntransport", "D"))
|
||||
cboBesondereUmstaende.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("E - Zugel. Wirtschaftsbeteiligte", "E"))
|
||||
cboBesondereUmstaende.changeItem("C")
|
||||
|
||||
|
||||
cboZahlungsweiseBefKosten.Items.Clear()
|
||||
cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("A - Barzahlung", "A"))
|
||||
cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("B - Kreditkartenzahlung", "B"))
|
||||
cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("C - Zahlung mit Scheck", "C"))
|
||||
cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("D - andere", "D"))
|
||||
cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("H - Elektr.Geldtransfer", "H"))
|
||||
cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Y - Kontoinhaber = Beförderer", "Y"))
|
||||
cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Z - nicht vorausbezahlt", "Z"))
|
||||
cboZahlungsweiseBefKosten.changeItem("D")
|
||||
|
||||
'btnAllgemein_Click(btnT2, New EventArgs)
|
||||
|
||||
' setValues(NCTS)
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Public Sub getValues(ByRef NCTS As VERAG_PROG_ALLGEMEIN.cOregonNCTs_DeclarationData)
|
||||
NCTS.declaration_type = cProgramFunctions.isLeerNothing(NCTS_ART)
|
||||
|
||||
|
||||
NCTS.export_country_id = cProgramFunctions.isLeerNothing(sbVersendungsLand._value)
|
||||
NCTS.import_country_id = cProgramFunctions.isLeerNothing(sbBestimmungsland._value)
|
||||
|
||||
'NCTS.ncts_SumA_KennnummerSendung = cProgramFunctions.isLeerNothing(txtKennnummer.Text)
|
||||
|
||||
|
||||
'' NCTS.ncts_BeladungsOrt = cProgramFunctions.isLeerNothing(txtBeladungsort.Text)
|
||||
'NCTS.ncts_SumA_Ladeort = cProgramFunctions.isLeerNothing(txtLadeort.Text)
|
||||
'NCTS.ncts_SumA_Entladeort = cProgramFunctions.isLeerNothing(txtEntladeort.Text)
|
||||
'' NCTS.ncts_Wiedergestellungsdatum = cProgramFunctions.isLeerNothing(txtWiedergestellungsdatum._value)
|
||||
|
||||
'NCTS.ncts_Befoerderungsmittel_KennzeichenAbgang = cProgramFunctions.isLeerNothing(txtKennzeichenAbgang._value)
|
||||
'NCTS.ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode = cProgramFunctions.isLeerNothing(sbKennzeichenAbgangLand._value)
|
||||
'NCTS.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend = cProgramFunctions.isLeerNothing(txtKennzeichenGrenze._value)
|
||||
'NCTS.ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode = cProgramFunctions.isLeerNothing(sbKennzeichenGrenzeLand._value)
|
||||
|
||||
'NCTS.ncts_Befoerderungsmittel_ArtGrenzueberschreitung = cProgramFunctions.isLeerNothing(cboArtGrenzUeberschreitung._value)
|
||||
'NCTS.ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent = cProgramFunctions.isLeerNothing(cboVerkehrszweig._value)
|
||||
'NCTS.ncts_SumA_BesondereUmstaende = cProgramFunctions.isLeerNothing(cboBesondereUmstaende._value)
|
||||
'NCTS.ncts_SumA_BefoerderungskostenZahlungsweise = cProgramFunctions.isLeerNothing(cboZahlungsweiseBefKosten._value)
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub setValues(NCTS As cOregonNCTs_DeclarationData) 'As DAKOSY_Worker.cDakosyNCTSOut)
|
||||
If NCTS Is Nothing Then Exit Sub
|
||||
|
||||
|
||||
sbVersendungsLand.SET_VALUE(If(NCTS.export_country_id, ""))
|
||||
sbBestimmungsland.SET_VALUE(If(NCTS.import_country_id, ""))
|
||||
|
||||
|
||||
|
||||
Select Case NCTS_ART
|
||||
Case "EXA" : initButton(btnEXA)
|
||||
Case "EXD" : initButton(btnEXD)
|
||||
Case "IMA" : initButton(btnIMA)
|
||||
Case "IMA" : initButton(btnIMD)
|
||||
End Select
|
||||
|
||||
|
||||
End Sub
|
||||
Private Sub btnAllgemein_Click(sender As Object, e As EventArgs) Handles btnEXA.Click, btnIMZ.Click, btnIMD.Click, btnIMA.Click, btnEXD.Click
|
||||
initButton(sender)
|
||||
End Sub
|
||||
|
||||
Sub initButton(sender As Button)
|
||||
setBtn(btnEXA, False)
|
||||
setBtn(btnEXD, False)
|
||||
setBtn(btnIMA, False)
|
||||
setBtn(btnIMD, False)
|
||||
setBtn(btnIMZ, False)
|
||||
|
||||
If sender Is btnEXA Then
|
||||
NCTS_ART = "EXA" : txtArtDetail.Text = "EXA - Export Full Declaration (Arrived)"
|
||||
ElseIf sender Is btnEXD Then
|
||||
NCTS_ART = "EXD" : txtArtDetail.Text = "EXD - Export Full Declaration (Pre-Loged)"
|
||||
ElseIf sender Is btnIMA Then
|
||||
NCTS_ART = "IMA" : txtArtDetail.Text = "IMA - Full/WRD Declaratoins (Arrived)"
|
||||
ElseIf sender Is btnIMD Then
|
||||
NCTS_ART = "IMD" : txtArtDetail.Text = "IMD - Full/WRD Declaration (Pre-Loged)"
|
||||
ElseIf sender Is btnIMD Then
|
||||
NCTS_ART = "IMZ" : txtArtDetail.Text = "IMZ-LCP(import or warehouse removal) supplementary declaration(SDI/SDW)"
|
||||
End If
|
||||
setBtn(sender, True)
|
||||
End Sub
|
||||
|
||||
Sub setBtn(btn As Button, value As Boolean)
|
||||
If value Then
|
||||
btn.BackColor = Color.OrangeRed
|
||||
btn.ForeColor = Color.White
|
||||
Else
|
||||
btn.BackColor = Color.White
|
||||
btn.ForeColor = Color.Black
|
||||
End If
|
||||
|
||||
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.BESTIMMUNGSLAND <> "" Then sbBestimmungsland.SET_VALUE(frmRoutenauswahl.BESTIMMUNGSLAND)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub cbxSumASicherheit_CheckedChanged(sender As Object, e As EventArgs)
|
||||
|
||||
If Not txtLadeort.Enabled Then txtLadeort.Text = ""
|
||||
If Not txtEntladeort.Enabled Then txtEntladeort.Text = ""
|
||||
End Sub
|
||||
|
||||
Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
|
||||
txtKennzeichenGrenze.Text = txtKennzeichenAbgang.Text
|
||||
End Sub
|
||||
|
||||
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
|
||||
txtKennzeichenAbgang.Text = txtKennzeichenGrenze.Text
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
|
||||
txtKennzeichenGrenze.Text = txtKennzeichenAbgang.Text
|
||||
sbKennzeichenGrenzeLand.SET_VALUE(sbKennzeichenAbgangLand._value)
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
Dim origin = ""
|
||||
Dim destination = ""
|
||||
|
||||
'If sbAbgangZollstelle._value <> "" Then
|
||||
' origin = sbAbgangZollstelle._value.Substring(0, 2) & " " & sbAbgangZollstelle.Text
|
||||
'Else Exit Sub
|
||||
'End If
|
||||
|
||||
'If sbBestimmungZollstelle._value <> "" Then
|
||||
' destination = sbBestimmungZollstelle._value.Substring(0, 2) & " " & sbBestimmungZollstelle.Text
|
||||
'Else Exit Sub
|
||||
'End If
|
||||
|
||||
Dim duration = ""
|
||||
Dim distance = ""
|
||||
Dim distanceSek = ""
|
||||
VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, destination, duration, distance, cbxWegStrecke.Checked)
|
||||
|
||||
'lblWegstreckeVonNach.Text = "von: " & origin & vbNewLine
|
||||
'lblWegstreckeVonNach.Text &= "nach: " & destination
|
||||
|
||||
|
||||
lblWegstrecke.Text = "Wegstrecke: " & distance
|
||||
lblWegZeit.Text = "Fahrzeit: " & duration
|
||||
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
@@ -1,14 +1,10 @@
|
||||
Imports DAKOSY_Worker
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
Imports VERAG_PROG_ALLGEMEIN.agsCustomsExchange
|
||||
Imports VERAG_PROG_ALLGEMEIN.IDEV_Intrastat
|
||||
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
Public Class usrCntlModaltrans_NCTS
|
||||
|
||||
Property ALLG As usrCntlATLAS_NCTS_Allg
|
||||
Property ADRESSEN As usrCntlATLAS_ncts_Adressen
|
||||
Property ALLG As usrCntlModaltrans_EXIM_Allg
|
||||
Property ADRESSEN As usrCntlModaltrans_NCTS_Adressen
|
||||
'Property SICHERHEIT As usrCntlATLAS_NCTS_Sicherheit
|
||||
Property POSITIONEN As usrCntlATLAS_NCTS_Positionen
|
||||
Property POSITIONEN As usrCntlModaltrans_NCTS_Positionen
|
||||
'Property VERSCHLUESSE As usrCntlATLAS_NCTS_Verschluesse
|
||||
Property Jahr2Stellig As Integer
|
||||
Property zusatz As String
|
||||
@@ -23,7 +19,7 @@ Public Class usrCntlModaltrans_NCTS
|
||||
|
||||
Dim cDy_ART As String = If(FIRMA_DY = "ATILLA", "T2", "T1")
|
||||
|
||||
Dim ncts_OUT As VERAG_PROG_ALLGEMEIN.cNCTS_TR = Nothing
|
||||
Dim ncts_OUT As VERAG_PROG_ALLGEMEIN.cOregonNCTs_DeclarationData = Nothing
|
||||
'Dim DY_ANM As cDakosy_Zollanmeldungen = Nothing
|
||||
|
||||
Sub New(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, Jahr2Stellig As Integer, Optional zusatz As String = "", Optional isSTAMMREF As Boolean = False, Optional STAMMREF As String = "")
|
||||
@@ -50,7 +46,7 @@ Public Class usrCntlModaltrans_NCTS
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
Me.cDy_ART = If(ART = "NCTS", "T1", ART)
|
||||
Me.cDy_ART = ART
|
||||
|
||||
Me.AVISO = Aviso
|
||||
Me.SENDUNG = SENDUNG
|
||||
@@ -93,7 +89,7 @@ Public Class usrCntlModaltrans_NCTS
|
||||
Return BezugsNr
|
||||
End Function
|
||||
|
||||
Private Sub usrCntlATLAS_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
Private Sub usrCntlModaltrans_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
'MsgBox("LOAD")
|
||||
|
||||
cboDakosyAction.Items.Clear()
|
||||
@@ -113,26 +109,26 @@ Public Class usrCntlModaltrans_NCTS
|
||||
End Select
|
||||
|
||||
|
||||
cboStammreferenz.fillWithSQL("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung] FROM [tblDakosy_Stammreferenzen] WHERE dySr_Land='DE' AND dySr_Verfahren='NCTS' and dySr_dy_Mandant='" & txtDyMandant.Text & "' and dySr_dy_Niederlassung IN ('','" & txtDyNiederlassung.Text & "') and dySr_visible=1", False, "FMZOLL", True)
|
||||
cboStammreferenz.fillWithSQL("SELECT [reference],[descr] FROM [tblOregonNCTS_ReferenceTemplate] WHERE country='UK' AND declaration='import' and mandant='" & txtDyMandant.Text & "' and niederlassung IN ('','" & txtDyNiederlassung.Text & "') and visible=1", False, "FMZOLL", True)
|
||||
cboStammreferenz.changeItem("")
|
||||
|
||||
'SICHERHEIT = New usrCntlATLAS_NCTS_Sicherheit(ncts_OUT, FIRMA_DY)
|
||||
'VERSCHLUESSE = New usrCntlATLAS_NCTS_Verschluesse() 'ncts_OUT)
|
||||
ADRESSEN = New usrCntlATLAS_ncts_Adressen(ncts_OUT, FIRMA_DY) ')
|
||||
ALLG = New usrCntlATLAS_NCTS_Allg(ncts_OUT)
|
||||
POSITIONEN = New usrCntlATLAS_NCTS_Positionen(ncts_OUT)
|
||||
ADRESSEN = New usrCntlModaltrans_NCTS_Adressen() ')
|
||||
ALLG = New usrCntlModaltrans_EXIM_Allg(ncts_OUT)
|
||||
POSITIONEN = New usrCntlModaltrans_NCTS_Positionen(ncts_OUT)
|
||||
|
||||
If isSTAMMREF Then
|
||||
Me.BezugsNr = "STAMMREFERENZ"
|
||||
If ncts_OUT Is Nothing Then ncts_OUT = New VERAG_PROG_ALLGEMEIN.cNCTS_TR()
|
||||
ncts_OUT.ncts_ObjectName = BezugsNr
|
||||
If ncts_OUT Is Nothing Then ncts_OUT = New VERAG_PROG_ALLGEMEIN.cOregonNCTs_DeclarationData()
|
||||
ncts_OUT.commercial_ref = BezugsNr
|
||||
Else
|
||||
If ncts_OUT Is Nothing Then ' NEUE ZOLLANMELDUNG
|
||||
'Dim f As New frmDakosyStammreferenz("DE", "NCTS", False,,, FIRMA_DY)
|
||||
Dim f As New frmModaltransStammreferenz("UK", "T1", True,,, FIRMA_DY)
|
||||
Dim Stammreferenz = Nothing
|
||||
'If f.ShowDialog(Me) Then
|
||||
'Stammreferenz = f.STAMMREF
|
||||
'End If
|
||||
If f.ShowDialog(Me) Then
|
||||
Stammreferenz = f.STAMMREF
|
||||
End If
|
||||
Try
|
||||
|
||||
BezugsNr = getBezugsnr(BezugsNr)
|
||||
@@ -140,7 +136,7 @@ Public Class usrCntlModaltrans_NCTS
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
ncts_OUT = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByBezugsNr(BezugsNr, True)
|
||||
ncts_OUT = VERAG_PROG_ALLGEMEIN.cOregonNCTs_DeclarationData.LOADByBezugsNr(BezugsNr, True)
|
||||
If ncts_OUT Is Nothing Then
|
||||
'Falls zur BezugsNr schon ein Eintrag in der DB vorhanden ist
|
||||
'ncts_OUT = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByAnmIDFull(f.STAMMREF_DYID, True) ' DyID --> Falls bei der Stammreferenz eine Vorlage hinterlegt ist!
|
||||
@@ -148,14 +144,14 @@ Public Class usrCntlModaltrans_NCTS
|
||||
|
||||
If ncts_OUT IsNot Nothing Then
|
||||
'Stmmreferenz - Werte zurücksetzen, damit nicht falsch übergeben
|
||||
ncts_OUT.ncts_dyaAnmID = -1
|
||||
ncts_OUT.ncts_Id = -1
|
||||
ncts_OUT.status = -1
|
||||
ncts_OUT.aviso_id = AVISO.AvisoID
|
||||
Else
|
||||
ncts_OUT = New VERAG_PROG_ALLGEMEIN.cNCTS_TR()
|
||||
ncts_OUT = New VERAG_PROG_ALLGEMEIN.cOregonNCTs_DeclarationData()
|
||||
End If
|
||||
|
||||
|
||||
'loaddataFromAVISO(ncts_OUT)
|
||||
loaddataFromAVISO(ncts_OUT)
|
||||
cboStammreferenz.changeItem(Stammreferenz)
|
||||
|
||||
|
||||
@@ -164,50 +160,23 @@ Public Class usrCntlModaltrans_NCTS
|
||||
|
||||
Else
|
||||
' ncts_OUT is ot nothing
|
||||
Me.BezugsNr = ncts_OUT.ncts_ObjectName
|
||||
Me.BezugsNr = ncts_OUT.commercial_ref
|
||||
|
||||
'MsgBox(ncts_OUT.ncts_Hauptverpflichteter_Name)
|
||||
|
||||
End If
|
||||
End If
|
||||
If If(ncts_OUT.ncts_firma, "") = "" Then If FIRMA_DY <> "" Then ncts_OUT.ncts_firma = FIRMA_DY
|
||||
|
||||
If If(Me.cDy_ART, "") <> "" Then
|
||||
'Muss noch überschrieben werdne, da sonst Art von Stammref hergenommen wird...
|
||||
ncts_OUT.ncts_ArtAnmeldung = Me.cDy_ART
|
||||
Else
|
||||
'Wenn keine Art --> T1
|
||||
If ncts_OUT.ncts_ArtAnmeldung Is Nothing Or ncts_OUT.ncts_ArtAnmeldung = "" Then
|
||||
ncts_OUT.ncts_ArtAnmeldung = "T1"
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
'hinzufügen, damit alle Controls richtig geladen und initialisiert werden:s
|
||||
'Me.SplitContainer.Panel2.Controls.Add(SICHERHEIT)
|
||||
'Me.SplitContainer.Panel2.Controls.Add(VERSCHLUESSE)
|
||||
Me.SplitContainer.Panel2.Controls.Add(ALLG)
|
||||
Me.SplitContainer.Panel2.Controls.Add(POSITIONEN)
|
||||
Me.SplitContainer.Panel2.Controls.Add(ADRESSEN)
|
||||
|
||||
' MsgBox(ncts_OUT.ncts_Hauptverpflichteter_Name)
|
||||
'Werte setzen:
|
||||
'SICHERHEIT.setValues_TR(ncts_OUT.ncts_SICHERHEITSANGABEN)
|
||||
'VERSCHLUESSE.setValues_TR(ncts_OUT)
|
||||
ADRESSEN.setValues_TR(ncts_OUT)
|
||||
ALLG.setValues(ncts_OUT)
|
||||
POSITIONEN.setValues_TR(ncts_OUT)
|
||||
|
||||
If If(ncts_OUT.ncts_Stammreferenz, "") <> "" Then cboStammreferenz.changeItem(ncts_OUT.ncts_Stammreferenz)
|
||||
|
||||
'Controls wieder entfernen:
|
||||
Me.SplitContainer.Panel2.Controls.Clear()
|
||||
|
||||
|
||||
' If ALLG.txtKennnummer.Text = "" Then ALLG.txtKennnummer.Text = BezugsNr
|
||||
|
||||
|
||||
|
||||
' ADRESSEN.CreateControl()
|
||||
For Each c In MyFlowLayoutPanel1.Controls
|
||||
If c.GetType.ToString = GetType(System.Windows.Forms.Button).ToString Then
|
||||
AddHandler DirectCast(c, System.Windows.Forms.Button).Click, AddressOf buttonClick
|
||||
@@ -223,11 +192,7 @@ Public Class usrCntlModaltrans_NCTS
|
||||
ALLG.Dock = DockStyle.Fill
|
||||
ADRESSEN.Dock = DockStyle.Fill
|
||||
POSITIONEN.Dock = DockStyle.Fill
|
||||
'SICHERHEIT.Dock = DockStyle.Fill
|
||||
'VERSCHLUESSE.Dock = DockStyle.Fill
|
||||
|
||||
'
|
||||
'
|
||||
AddHandler POSITIONEN.RohmasseChanged, Sub(rohmasse, packstuecke)
|
||||
Label5.Text = packstuecke.ToString("N0") & " Pk"
|
||||
Label7.Text = rohmasse.ToString("N2") & " kg"
|
||||
@@ -254,9 +219,9 @@ Public Class usrCntlModaltrans_NCTS
|
||||
End Try
|
||||
End If
|
||||
Try
|
||||
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_DakosyZA_AVISO_Edit", "AVISO") Then
|
||||
Me.FindForm.Close()
|
||||
End If
|
||||
'If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_Modaltrans_AVISO_Edit", "AVISO") Then
|
||||
' Me.FindForm.Close()
|
||||
'End If
|
||||
Catch
|
||||
End Try
|
||||
End Sub
|
||||
@@ -281,10 +246,7 @@ Public Class usrCntlModaltrans_NCTS
|
||||
SplitContainer.Panel2.Controls.Add(ALLG)
|
||||
ElseIf btn Is btnAdressen Then
|
||||
SplitContainer.Panel2.Controls.Add(ADRESSEN)
|
||||
'ElseIf btn Is btnSicherheit Then
|
||||
' SplitContainer.Panel2.Controls.Add(SICHERHEIT)
|
||||
' ElseIf btn Is btnVerschlüsse Then
|
||||
' SplitContainer.Panel2.Controls.Add(VERSCHLUESSE)
|
||||
|
||||
ElseIf btn Is btnPositionen Then
|
||||
SplitContainer.Panel2.Controls.Add(POSITIONEN)
|
||||
End If
|
||||
@@ -298,7 +260,7 @@ Public Class usrCntlModaltrans_NCTS
|
||||
|
||||
cdy.auto_send = False 'If the declaration is created correctly, and if it is desired to be sent directly to the customs system after this process, it should be set as "true".
|
||||
|
||||
cdy.service_code = "" 'Options: - "chief" - "cds"
|
||||
cdy.service_code = "cds" 'Options: - "chief" - "cds"
|
||||
cdy.doc_type = "" 'EXA, EXD, IMA, IMD declaration type code
|
||||
cdy.declaration_type = cDy_ART
|
||||
cdy.commercial_ref = BezugsNr
|
||||
@@ -312,7 +274,7 @@ Public Class usrCntlModaltrans_NCTS
|
||||
|
||||
cdy.export_country_id = ""
|
||||
|
||||
cdy.multiple_consignor = ""
|
||||
cdy.multiple_consignor = False
|
||||
|
||||
cdy.invoice_amount = ""
|
||||
cdy.invoice_curr = ""
|
||||
@@ -322,11 +284,11 @@ Public Class usrCntlModaltrans_NCTS
|
||||
cdy.border_vehicle_coun = ""
|
||||
cdy.inland_transport_type = ""
|
||||
cdy.container_no = ""
|
||||
cdy.gvms_interested = ""
|
||||
cdy.gvms_interested = False
|
||||
cdy.freight_amount = ""
|
||||
cdy.freight_curr = ""
|
||||
cdy.payment_method = ""
|
||||
cdy.total_packages = ""
|
||||
cdy.total_packages = 0
|
||||
cdy.nature_of_transaction = ""
|
||||
cdy.premises_code = ""
|
||||
cdy.first_dan_no = ""
|
||||
@@ -348,15 +310,12 @@ Public Class usrCntlModaltrans_NCTS
|
||||
cdy.incoterm_location = ""
|
||||
cdy.trader_ref = ""
|
||||
cdy.arrival_transport_type = ""
|
||||
cdy.guarantee_code = ""
|
||||
cdy.guarantee_code = 0
|
||||
cdy.guarantee_reference = ""
|
||||
|
||||
|
||||
If AVISO IsNot Nothing Then
|
||||
'cdy.ncts_Befoerderungsmittel_KennzeichenAbgang = AVISO.LKW_Nr
|
||||
'cdy.ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode = AVISO.LKW_Nationalitaet
|
||||
'cdy.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend = AVISO.LKW_Nr
|
||||
'cdy.ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode = AVISO.LKW_Nationalitaet
|
||||
|
||||
|
||||
End If
|
||||
|
||||
@@ -385,13 +344,15 @@ Public Class usrCntlModaltrans_NCTS
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
If SENDUNG IsNot Nothing Then
|
||||
|
||||
Dim FilialeAktFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(SENDUNG.FilialenNr,, "")
|
||||
|
||||
|
||||
cdy.declarant_eori = FilialeAktFirma
|
||||
cdy.declarant_name = ""
|
||||
cdy.declarant_name = FilialeAktFirma
|
||||
cdy.declarant_address = ""
|
||||
cdy.declarant_city_name = ""
|
||||
cdy.declarant_country_id = ""
|
||||
@@ -399,24 +360,26 @@ Public Class usrCntlModaltrans_NCTS
|
||||
cdy.declarant_rep = ""
|
||||
|
||||
|
||||
If SENDUNG IsNot Nothing Then
|
||||
|
||||
Dim p As VERAG_PROG_ALLGEMEIN.cOregonNCTs_GoodsAttribute = Nothing
|
||||
If SENDUNG.tblSnd_anzahlPOS > 0 Then
|
||||
p = Nothing 'cdy.ncts_WARENPOS(0)
|
||||
If cdy.goods.Count > 0 Then
|
||||
p = cdy.goods(0)
|
||||
Else
|
||||
p = New VERAG_PROG_ALLGEMEIN.cOregonNCTs_GoodsAttribute
|
||||
p.declarationDataID = cdy.id
|
||||
p.SAVE()
|
||||
cdy.goods.Add(p) ' schon wieder...'nciht mehr anfügen
|
||||
End If
|
||||
p.commodity = SENDUNG.tblSnd_Warenbezeichnung
|
||||
|
||||
If SENDUNG.tblSnd_Colli IsNot Nothing AndAlso IsNumeric(SENDUNG.tblSnd_Colli) Then
|
||||
Dim pk As New VERAG_PROG_ALLGEMEIN.cOregonNCTs_PacksAttribute
|
||||
pk.pack_count = SENDUNG.tblSnd_Colli
|
||||
pk.pack_type = "PKG"
|
||||
pk.pack_type = "PK"
|
||||
pk.goods_attribute_id = p.id
|
||||
pk.SAVE()
|
||||
p.decl_PAckattributes.Add(pk)
|
||||
'pk.SAVE()
|
||||
End If
|
||||
p.net_wg = SENDUNG.tblSnd_Gewicht
|
||||
p.net_wg = IIf(IsNumeric(SENDUNG.tblSnd_Gewicht), CDbl(SENDUNG.tblSnd_Gewicht), 0)
|
||||
p.invoice_amount = SENDUNG.tblSnd_Warenwert
|
||||
p.invoice_curr = SENDUNG.tblSnd_WarenwertWaehrung
|
||||
|
||||
@@ -450,6 +413,8 @@ Public Class usrCntlModaltrans_NCTS
|
||||
End If
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.StackTrace)
|
||||
@@ -458,7 +423,7 @@ Public Class usrCntlModaltrans_NCTS
|
||||
|
||||
|
||||
Sub setValue(ncts_OUT)
|
||||
BezugsNr = ncts_OUT.ncts_ObjectName
|
||||
BezugsNr = ncts_OUT.commercial_ref
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -487,47 +452,21 @@ Public Class usrCntlModaltrans_NCTS
|
||||
loadDYZollanmeldungen()
|
||||
|
||||
If ncts_OUT IsNot Nothing Then
|
||||
'Dim cDY As New VERAG_PROG_ALLGEMEIN.cNCTS_TR(cDyAnm.dy_Id, cDyAnm.dy_Erstellung_SB)
|
||||
'ncts_OUT.ncts_dyaAnmID = DY_ANM.dy_Id
|
||||
'ncts_OUT.ncts_Erstellung_SB = DY_ANM.dy_Erstellung_SB
|
||||
ncts_OUT.ncts_LetzteBearbeitung = Now
|
||||
'ncts_OUT.ncts_LetzteBearbeitung_SB = DY_ANM.dy_LetzteBearbeitung_SB
|
||||
ncts_OUT.ncts_Partnersystem = "VERAG_MIC" ' eigene Anmeldungen in Fremdsystem
|
||||
ncts_OUT.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_05
|
||||
ncts_OUT.ncts_Status_KEWILL_Equivalent = DAKOSY_Worker.cDY_Statusliste.S_05
|
||||
|
||||
|
||||
loadInClass_VersandanmeldungNCTS(ncts_OUT, Me, FIRMA_DY)
|
||||
|
||||
|
||||
If Not ncts_OUT.SAVE_ALL() Then Exit Sub '---> DANN SCHON
|
||||
|
||||
Dim saveFile = ""
|
||||
If VERAG_PROG_ALLGEMEIN.cMIC.generateNCTS(ncts_OUT, saveFile, BezugsNr) Then
|
||||
If saveFile <> "" Then
|
||||
Process.Start(saveFile)
|
||||
' VERAG_PROG_ALLGEMEIN.cMIC.send_Data_To_Dakosy_FTP()
|
||||
'If Not send_Data_To_Dakosy_FTP(saveFile, BezugsNr, Nothing, Nothing) Then
|
||||
' MsgBox("Sendefehler!")
|
||||
'End If
|
||||
End If
|
||||
End If
|
||||
|
||||
'---> DANN SCHON:::
|
||||
'Dim saveFile = ""
|
||||
'If VERAG_PROG_ALLGEMEIN.cMICInterface.generateVersandanmeldungNCTS(ncts_OUT, saveFile, cboDakosyAction._value) Then
|
||||
' If saveFile <> "" Then
|
||||
' If cDakosyFunftions.send_Data_To_Dakosy_FTP(saveFile, BezugsNr, DY_ANM.dy_Id, FIRMA_DY) Then
|
||||
' DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_03)
|
||||
' Else
|
||||
' DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_09)
|
||||
' MsgBox("Sendefehler!")
|
||||
' End If
|
||||
' End If
|
||||
'End If
|
||||
|
||||
End If
|
||||
|
||||
'DY_ANM.UPDATE_DATA()
|
||||
Me.FindForm.Close()
|
||||
End If
|
||||
|
||||
Me.Cursor = Cursors.Default
|
||||
End Sub
|
||||
|
||||
@@ -535,20 +474,10 @@ Public Class usrCntlModaltrans_NCTS
|
||||
Private Sub SpeichernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SpeichernToolStripMenuItem.Click
|
||||
|
||||
Me.Refresh()
|
||||
|
||||
' Dim cDyAnm As New cDakosy_Zollanmeldungen(cDy_ART, BezugsNr, If(AVISO Is Nothing, Nothing, AVISO.AvisoID), If(SENDUNG Is Nothing, Nothing, SENDUNG.tblSnd_SendungID))
|
||||
loadDYZollanmeldungen()
|
||||
|
||||
If ncts_OUT IsNot Nothing Then
|
||||
|
||||
'ncts_OUT.ncts_dyaAnmID = DY_ANM.dy_Id
|
||||
'ncts_OUT.ncts_Erstellung_SB = DY_ANM.dy_Erstellung_SB
|
||||
ncts_OUT.ncts_LetzteBearbeitung = Now
|
||||
'ncts_OUT.ncts_LetzteBearbeitung_SB = DY_ANM.dy_LetzteBearbeitung_SB
|
||||
ncts_OUT.ncts_Partnersystem = "VERAG_MIC" ' eigene Anmeldungen in Fremdsystem
|
||||
ncts_OUT.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_00
|
||||
ncts_OUT.ncts_Status_KEWILL_Equivalent = DAKOSY_Worker.cDY_Statusliste.S_00
|
||||
|
||||
loadInClass_VersandanmeldungNCTS(ncts_OUT, Me, FIRMA_DY)
|
||||
|
||||
If Not ncts_OUT.SAVE_ALL() Then
|
||||
@@ -565,38 +494,20 @@ Public Class usrCntlModaltrans_NCTS
|
||||
BezugsNr = getBezugsnr(BezugsNr)
|
||||
End Sub
|
||||
|
||||
Function loadInClass_VersandanmeldungNCTS(ByRef NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR, USRCNTL As usrCntlModaltrans_NCTS, FIRMA_DY As String) As VERAG_PROG_ALLGEMEIN.cNCTS_TR
|
||||
Function loadInClass_VersandanmeldungNCTS(ByRef NCTS As VERAG_PROG_ALLGEMEIN.cOregonNCTs_DeclarationData, USRCNTL As usrCntlModaltrans_NCTS, FIRMA_DY As String) As VERAG_PROG_ALLGEMEIN.cOregonNCTs_DeclarationData
|
||||
Try
|
||||
|
||||
Select Case FIRMA_DY
|
||||
Case "UNISPED"
|
||||
NCTS.ncts_Trans_Partner = "UNAT"
|
||||
Case Else
|
||||
NCTS.ncts_Trans_Partner = "VERA"
|
||||
End Select
|
||||
|
||||
|
||||
NCTS.ncts_Trans_DatumZeit = Now
|
||||
NCTS.ncts_Gestellt = False
|
||||
NCTS.ncts_Status = "00"
|
||||
NCTS.ncts_Trans_Referenz = USRCNTL.BezugsNr & "_" & Now.ToString("ddMMyyHHmmSS") 'Eindeutig
|
||||
NCTS.ncts_Trans_Referenz = USRCNTL.BezugsNr & "_" & Now.ToString("ddMMyyHHmmSS") 'Eindeutig
|
||||
NCTS.ncts_ObjectAlias = If(USRCNTL.AVISO IsNot Nothing, USRCNTL.AVISO.AvisoID, Nothing)
|
||||
NCTS.ncts_Trans_Version = "003"
|
||||
NCTS.ncts_Trans_Div1 = "ATILLA"
|
||||
'NCTS.ncts_Trans_Div1 = "ATILLA"
|
||||
'NCTS.ncts_Trans_Div1 = "ATILLA"
|
||||
NCTS.status = "00"
|
||||
NCTS.created = DateTime.Now()
|
||||
NCTS.aviso_id = If(USRCNTL.AVISO IsNot Nothing, USRCNTL.AVISO.AvisoID, Nothing)
|
||||
|
||||
NCTS.ncts_Stammreferenz = If(USRCNTL.cboStammreferenz._value = "", Nothing, USRCNTL.cboStammreferenz._value)
|
||||
NCTS.ncts_BezugsnummerVorblendung = NCTS.ncts_Stammreferenz
|
||||
|
||||
NCTS.ncts_ObjectName = USRCNTL.BezugsNr
|
||||
'NCTS.ncts_ObjectAlias = USRCNTL.AVISO.AvisoID
|
||||
NCTS.commercial_ref = USRCNTL.BezugsNr
|
||||
USRCNTL.ALLG.getValues(NCTS)
|
||||
USRCNTL.ADRESSEN.getValues_TR(NCTS)
|
||||
USRCNTL.POSITIONEN.getValues_TR(NCTS)
|
||||
'NCTS.ncts_SICHERHEITSANGABEN = USRCNTL.SICHERHEIT.getValues_TR()
|
||||
'USRCNTL.VERSCHLUESSE.getValues_TR(NCTS)
|
||||
|
||||
'NCTS.ncts_WARENPOS=USRCNTL.POSITIONEN.getValues()
|
||||
'--------------------------------
|
||||
|
||||
|
||||
285
SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Adressen.Designer.vb
generated
Normal file
285
SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Adressen.Designer.vb
generated
Normal file
@@ -0,0 +1,285 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class usrCntlModaltrans_NCTS_Adressen
|
||||
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.pnl = New System.Windows.Forms.Panel()
|
||||
Me.lblWegstreckeVonNach = New System.Windows.Forms.Label()
|
||||
Me.lblWegZeit = New System.Windows.Forms.Label()
|
||||
Me.lblWegstrecke = New System.Windows.Forms.Label()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.lblBefullen = New System.Windows.Forms.Label()
|
||||
Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.grp = New System.Windows.Forms.GroupBox()
|
||||
Me.usrCntlSumA_Versender = New SDL.usrCntlAdresse()
|
||||
Me.cbxSumABeforderer = New System.Windows.Forms.CheckBox()
|
||||
Me.usrCntlSumA_Empfaenger = New SDL.usrCntlAdresse()
|
||||
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
|
||||
Me.usrCntlSumA_Befoerderer = New SDL.usrCntlAdresse()
|
||||
Me.usrCntlZugelEmpfaenger = New SDL.usrCntlAdresse()
|
||||
Me.usrCntlEmpfaenger = New SDL.usrCntlAdresse()
|
||||
Me.usrCntlVersender = New SDL.usrCntlAdresse()
|
||||
Me.usrCntlHauptverpflichteter = New SDL.usrCntlAdresse()
|
||||
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
|
||||
Me.pnl.SuspendLayout()
|
||||
Me.grp.SuspendLayout()
|
||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'pnl
|
||||
'
|
||||
Me.pnl.Controls.Add(Me.lblWegstreckeVonNach)
|
||||
Me.pnl.Controls.Add(Me.lblWegZeit)
|
||||
Me.pnl.Controls.Add(Me.lblWegstrecke)
|
||||
Me.pnl.Controls.Add(Me.Button1)
|
||||
Me.pnl.Controls.Add(Me.lblBefullen)
|
||||
Me.pnl.Controls.Add(Me.MyComboBox1)
|
||||
Me.pnl.Controls.Add(Me.grp)
|
||||
Me.pnl.Controls.Add(Me.usrCntlSumA_Befoerderer)
|
||||
Me.pnl.Controls.Add(Me.usrCntlZugelEmpfaenger)
|
||||
Me.pnl.Controls.Add(Me.usrCntlEmpfaenger)
|
||||
Me.pnl.Controls.Add(Me.usrCntlVersender)
|
||||
Me.pnl.Controls.Add(Me.usrCntlHauptverpflichteter)
|
||||
Me.pnl.Controls.Add(Me.PictureBox2)
|
||||
Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.pnl.Location = New System.Drawing.Point(0, 0)
|
||||
Me.pnl.Name = "pnl"
|
||||
Me.pnl.Size = New System.Drawing.Size(907, 628)
|
||||
Me.pnl.TabIndex = 0
|
||||
'
|
||||
'lblWegstreckeVonNach
|
||||
'
|
||||
Me.lblWegstreckeVonNach.Location = New System.Drawing.Point(160, 324)
|
||||
Me.lblWegstreckeVonNach.Name = "lblWegstreckeVonNach"
|
||||
Me.lblWegstreckeVonNach.Size = New System.Drawing.Size(265, 29)
|
||||
Me.lblWegstreckeVonNach.TabIndex = 55
|
||||
'
|
||||
'lblWegZeit
|
||||
'
|
||||
Me.lblWegZeit.AutoSize = True
|
||||
Me.lblWegZeit.Location = New System.Drawing.Point(20, 375)
|
||||
Me.lblWegZeit.Name = "lblWegZeit"
|
||||
Me.lblWegZeit.Size = New System.Drawing.Size(19, 13)
|
||||
Me.lblWegZeit.TabIndex = 54
|
||||
Me.lblWegZeit.Text = "----"
|
||||
Me.lblWegZeit.Visible = False
|
||||
'
|
||||
'lblWegstrecke
|
||||
'
|
||||
Me.lblWegstrecke.AutoSize = True
|
||||
Me.lblWegstrecke.Location = New System.Drawing.Point(20, 360)
|
||||
Me.lblWegstrecke.Name = "lblWegstrecke"
|
||||
Me.lblWegstrecke.Size = New System.Drawing.Size(19, 13)
|
||||
Me.lblWegstrecke.TabIndex = 53
|
||||
Me.lblWegstrecke.Text = "----"
|
||||
Me.lblWegstrecke.Visible = False
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button1.Location = New System.Drawing.Point(17, 324)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(137, 29)
|
||||
Me.Button1.TabIndex = 52
|
||||
Me.Button1.Text = "Strecke berechnen"
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
Me.Button1.Visible = False
|
||||
'
|
||||
'lblBefullen
|
||||
'
|
||||
Me.lblBefullen.AutoSize = True
|
||||
Me.lblBefullen.Location = New System.Drawing.Point(569, 8)
|
||||
Me.lblBefullen.Name = "lblBefullen"
|
||||
Me.lblBefullen.Size = New System.Drawing.Size(48, 13)
|
||||
Me.lblBefullen.TabIndex = 51
|
||||
Me.lblBefullen.Text = "Befüllen:"
|
||||
'
|
||||
'MyComboBox1
|
||||
'
|
||||
Me.MyComboBox1._allowedValuesFreiText = Nothing
|
||||
Me.MyComboBox1._allowFreiText = False
|
||||
Me.MyComboBox1._value = ""
|
||||
Me.MyComboBox1.FormattingEnabled = True
|
||||
Me.MyComboBox1.Location = New System.Drawing.Point(623, 5)
|
||||
Me.MyComboBox1.Name = "MyComboBox1"
|
||||
Me.MyComboBox1.Size = New System.Drawing.Size(267, 21)
|
||||
Me.MyComboBox1.TabIndex = 50
|
||||
'
|
||||
'grp
|
||||
'
|
||||
Me.grp.Controls.Add(Me.usrCntlSumA_Versender)
|
||||
Me.grp.Controls.Add(Me.cbxSumABeforderer)
|
||||
Me.grp.Controls.Add(Me.usrCntlSumA_Empfaenger)
|
||||
Me.grp.Controls.Add(Me.PictureBox1)
|
||||
Me.grp.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.grp.Location = New System.Drawing.Point(3, 443)
|
||||
Me.grp.Name = "grp"
|
||||
Me.grp.Size = New System.Drawing.Size(897, 182)
|
||||
Me.grp.TabIndex = 10
|
||||
Me.grp.TabStop = False
|
||||
Me.grp.Text = "SumA - Sicherheit"
|
||||
'
|
||||
'usrCntlSumA_Versender
|
||||
'
|
||||
Me.usrCntlSumA_Versender._Titel = "SumA Versender:"
|
||||
Me.usrCntlSumA_Versender.BackColor = System.Drawing.Color.WhiteSmoke
|
||||
Me.usrCntlSumA_Versender.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.usrCntlSumA_Versender.Enabled = False
|
||||
Me.usrCntlSumA_Versender.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.usrCntlSumA_Versender.Location = New System.Drawing.Point(14, 40)
|
||||
Me.usrCntlSumA_Versender.Name = "usrCntlSumA_Versender"
|
||||
Me.usrCntlSumA_Versender.Size = New System.Drawing.Size(408, 132)
|
||||
Me.usrCntlSumA_Versender.TabIndex = 6
|
||||
'
|
||||
'cbxSumABeforderer
|
||||
'
|
||||
Me.cbxSumABeforderer.AutoSize = True
|
||||
Me.cbxSumABeforderer.Checked = True
|
||||
Me.cbxSumABeforderer.CheckState = System.Windows.Forms.CheckState.Checked
|
||||
Me.cbxSumABeforderer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.cbxSumABeforderer.Location = New System.Drawing.Point(14, 25)
|
||||
Me.cbxSumABeforderer.Name = "cbxSumABeforderer"
|
||||
Me.cbxSumABeforderer.Size = New System.Drawing.Size(115, 17)
|
||||
Me.cbxSumABeforderer.TabIndex = 9
|
||||
Me.cbxSumABeforderer.Text = "SumA = Beförderer"
|
||||
Me.cbxSumABeforderer.UseVisualStyleBackColor = True
|
||||
'
|
||||
'usrCntlSumA_Empfaenger
|
||||
'
|
||||
Me.usrCntlSumA_Empfaenger._Titel = "SumA Empfänger:"
|
||||
Me.usrCntlSumA_Empfaenger.BackColor = System.Drawing.Color.WhiteSmoke
|
||||
Me.usrCntlSumA_Empfaenger.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.usrCntlSumA_Empfaenger.Enabled = False
|
||||
Me.usrCntlSumA_Empfaenger.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.usrCntlSumA_Empfaenger.Location = New System.Drawing.Point(479, 40)
|
||||
Me.usrCntlSumA_Empfaenger.Name = "usrCntlSumA_Empfaenger"
|
||||
Me.usrCntlSumA_Empfaenger.Size = New System.Drawing.Size(408, 132)
|
||||
Me.usrCntlSumA_Empfaenger.TabIndex = 7
|
||||
'
|
||||
'PictureBox1
|
||||
'
|
||||
Me.PictureBox1.BackgroundImage = Global.SDL.My.Resources.Resources.lorry_motion
|
||||
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.PictureBox1.Location = New System.Drawing.Point(418, 83)
|
||||
Me.PictureBox1.Name = "PictureBox1"
|
||||
Me.PictureBox1.Size = New System.Drawing.Size(58, 34)
|
||||
Me.PictureBox1.TabIndex = 49
|
||||
Me.PictureBox1.TabStop = False
|
||||
Me.PictureBox1.Visible = False
|
||||
'
|
||||
'usrCntlSumA_Befoerderer
|
||||
'
|
||||
Me.usrCntlSumA_Befoerderer._Titel = "Beförderer:"
|
||||
Me.usrCntlSumA_Befoerderer.BackColor = System.Drawing.Color.PapayaWhip
|
||||
Me.usrCntlSumA_Befoerderer.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.usrCntlSumA_Befoerderer.Location = New System.Drawing.Point(17, 29)
|
||||
Me.usrCntlSumA_Befoerderer.Name = "usrCntlSumA_Befoerderer"
|
||||
Me.usrCntlSumA_Befoerderer.Size = New System.Drawing.Size(408, 132)
|
||||
Me.usrCntlSumA_Befoerderer.TabIndex = 5
|
||||
'
|
||||
'usrCntlZugelEmpfaenger
|
||||
'
|
||||
Me.usrCntlZugelEmpfaenger._Titel = "Zugelassener Empfänger:"
|
||||
Me.usrCntlZugelEmpfaenger.BackColor = System.Drawing.Color.PapayaWhip
|
||||
Me.usrCntlZugelEmpfaenger.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.usrCntlZugelEmpfaenger.Location = New System.Drawing.Point(482, 307)
|
||||
Me.usrCntlZugelEmpfaenger.Name = "usrCntlZugelEmpfaenger"
|
||||
Me.usrCntlZugelEmpfaenger.Size = New System.Drawing.Size(408, 132)
|
||||
Me.usrCntlZugelEmpfaenger.TabIndex = 4
|
||||
'
|
||||
'usrCntlEmpfaenger
|
||||
'
|
||||
Me.usrCntlEmpfaenger._Titel = "Empfänger:"
|
||||
Me.usrCntlEmpfaenger.BackColor = System.Drawing.Color.PapayaWhip
|
||||
Me.usrCntlEmpfaenger.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.usrCntlEmpfaenger.Location = New System.Drawing.Point(482, 176)
|
||||
Me.usrCntlEmpfaenger.Name = "usrCntlEmpfaenger"
|
||||
Me.usrCntlEmpfaenger.Size = New System.Drawing.Size(408, 132)
|
||||
Me.usrCntlEmpfaenger.TabIndex = 3
|
||||
'
|
||||
'usrCntlVersender
|
||||
'
|
||||
Me.usrCntlVersender._Titel = "Versender:"
|
||||
Me.usrCntlVersender.BackColor = System.Drawing.Color.PapayaWhip
|
||||
Me.usrCntlVersender.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.usrCntlVersender.Location = New System.Drawing.Point(17, 176)
|
||||
Me.usrCntlVersender.Name = "usrCntlVersender"
|
||||
Me.usrCntlVersender.Size = New System.Drawing.Size(408, 132)
|
||||
Me.usrCntlVersender.TabIndex = 2
|
||||
'
|
||||
'usrCntlHauptverpflichteter
|
||||
'
|
||||
Me.usrCntlHauptverpflichteter._Titel = "Hauptverpflichteter:"
|
||||
Me.usrCntlHauptverpflichteter.BackColor = System.Drawing.Color.PapayaWhip
|
||||
Me.usrCntlHauptverpflichteter.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.usrCntlHauptverpflichteter.Location = New System.Drawing.Point(482, 29)
|
||||
Me.usrCntlHauptverpflichteter.Name = "usrCntlHauptverpflichteter"
|
||||
Me.usrCntlHauptverpflichteter.Size = New System.Drawing.Size(408, 132)
|
||||
Me.usrCntlHauptverpflichteter.TabIndex = 1
|
||||
'
|
||||
'PictureBox2
|
||||
'
|
||||
Me.PictureBox2.BackgroundImage = Global.SDL.My.Resources.Resources.lorry_motion
|
||||
Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.PictureBox2.Location = New System.Drawing.Point(421, 221)
|
||||
Me.PictureBox2.Name = "PictureBox2"
|
||||
Me.PictureBox2.Size = New System.Drawing.Size(58, 34)
|
||||
Me.PictureBox2.TabIndex = 49
|
||||
Me.PictureBox2.TabStop = False
|
||||
'
|
||||
'usrCntlATLAS_ncts_Adressen
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.BackColor = System.Drawing.Color.White
|
||||
Me.Controls.Add(Me.pnl)
|
||||
Me.Name = "usrCntlATLAS_ncts_Adressen"
|
||||
Me.Size = New System.Drawing.Size(907, 628)
|
||||
Me.pnl.ResumeLayout(False)
|
||||
Me.pnl.PerformLayout()
|
||||
Me.grp.ResumeLayout(False)
|
||||
Me.grp.PerformLayout()
|
||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents pnl As System.Windows.Forms.Panel
|
||||
Friend WithEvents usrCntlVersender As SDL.usrCntlAdresse
|
||||
Friend WithEvents usrCntlHauptverpflichteter As SDL.usrCntlAdresse
|
||||
Friend WithEvents usrCntlZugelEmpfaenger As SDL.usrCntlAdresse
|
||||
Friend WithEvents usrCntlEmpfaenger As SDL.usrCntlAdresse
|
||||
Friend WithEvents usrCntlSumA_Befoerderer As SDL.usrCntlAdresse
|
||||
Friend WithEvents grp As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents usrCntlSumA_Versender As SDL.usrCntlAdresse
|
||||
Friend WithEvents cbxSumABeforderer As System.Windows.Forms.CheckBox
|
||||
Friend WithEvents usrCntlSumA_Empfaenger As SDL.usrCntlAdresse
|
||||
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents lblBefullen As System.Windows.Forms.Label
|
||||
Friend WithEvents MyComboBox1 As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents lblWegZeit As Label
|
||||
Friend WithEvents lblWegstrecke As Label
|
||||
Friend WithEvents Button1 As Button
|
||||
Friend WithEvents lblWegstreckeVonNach As Label
|
||||
End Class
|
||||
120
SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Adressen.resx
Normal file
120
SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Adressen.resx
Normal file
@@ -0,0 +1,120 @@
|
||||
<?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>
|
||||
328
SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Adressen.vb
Normal file
328
SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Adressen.vb
Normal file
@@ -0,0 +1,328 @@
|
||||
Public Class usrCntlModaltrans_NCTS_Adressen
|
||||
|
||||
Dim NCTS_TR As VERAG_PROG_ALLGEMEIN.cOregonNCTs_DeclarationData = Nothing
|
||||
Dim FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
|
||||
Sub New()
|
||||
|
||||
InitializeComponent()
|
||||
|
||||
End Sub
|
||||
|
||||
Sub New(NCTS_TR As VERAG_PROG_ALLGEMEIN.cOregonNCTs_DeclarationData, FIRMA_DY As String)
|
||||
InitializeComponent()
|
||||
'Me.OWNER = OWNER
|
||||
Me.NCTS_TR = NCTS_TR
|
||||
Me.FIRMA_DY = FIRMA_DY
|
||||
End Sub
|
||||
|
||||
Public Sub usrCntlATLAS_ncts_Adressen_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
' usrCntlSumA_Befoerderer.initME()
|
||||
MyComboBox1.Items.Clear()
|
||||
Select Case FIRMA_DY
|
||||
Case "UNISPED"
|
||||
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Unisped Speditions GMBH (AT)", "UNISPED_AT"))
|
||||
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Unisped Speditions GMBH (DE)", "UNISPED_DE"))
|
||||
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EKOL Sultanbeyli -Istanbul", "EKOL"))
|
||||
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("MARS Istanbul", "MARS"))
|
||||
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SGS Hamburg", "SGS"))
|
||||
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TOBB Ankara", "TOBB"))
|
||||
Case Else
|
||||
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Spedition GMBH", "VERAG_GMBH"))
|
||||
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Spedition AG", "VERAG_AG"))
|
||||
' MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", "ATILLA"))
|
||||
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EKOL Sultanbeyli -Istanbul", "EKOL"))
|
||||
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("MARS Istanbul", "MARS"))
|
||||
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SGS Hamburg", "SGS"))
|
||||
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TOBB Ankara", "TOBB"))
|
||||
End Select
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub getValues(ByRef NCTS As DAKOSY_Worker.cDakosyNCTSOut)
|
||||
|
||||
NCTS.ncts_Hauptverpflichteter_Name = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.kdFirma.Text)
|
||||
NCTS.ncts_Hauptverpflichteter_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.txtStrasse.Text)
|
||||
NCTS.ncts_Hauptverpflichteter_PLZ = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.txtPlz.Text)
|
||||
NCTS.ncts_Hauptverpflichteter_Ort = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.txtOrt.Text)
|
||||
NCTS.ncts_Hauptverpflichteter_Land = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.sbLand._value)
|
||||
NCTS.ncts_Hauptverpflichteter_EORI = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.txtEORI.Text)
|
||||
NCTS.ncts_Hauptverpflichteter_NLNR = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.txtEORINL.Text)
|
||||
|
||||
|
||||
NCTS.ncts_Versender_Name = cProgramFunctions.isLeerNothing(usrCntlVersender.kdFirma.Text)
|
||||
NCTS.ncts_Versender_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlVersender.txtStrasse.Text)
|
||||
NCTS.ncts_Versender_PLZ = cProgramFunctions.isLeerNothing(usrCntlVersender.txtPlz.Text)
|
||||
NCTS.ncts_Versender_Ort = cProgramFunctions.isLeerNothing(usrCntlVersender.txtOrt.Text)
|
||||
NCTS.ncts_Versender_Land = cProgramFunctions.isLeerNothing(usrCntlVersender.sbLand._value)
|
||||
NCTS.ncts_Versender_EORI = cProgramFunctions.isLeerNothing(usrCntlVersender.txtEORI.Text)
|
||||
NCTS.ncts_Versender_NLNR = cProgramFunctions.isLeerNothing(usrCntlVersender.txtEORINL.Text)
|
||||
'NCTS.ncts_Versender_TIN = cProgramFunctions.isLeerNothing(usrCntlVersender..Text)
|
||||
|
||||
|
||||
NCTS.ncts_Empfaenger_Name = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.kdFirma.Text)
|
||||
NCTS.ncts_Empfaenger_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtStrasse.Text)
|
||||
NCTS.ncts_Empfaenger_PLZ = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtPlz.Text)
|
||||
NCTS.ncts_Empfaenger_Ort = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtOrt.Text)
|
||||
NCTS.ncts_Empfaenger_Land = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.sbLand._value)
|
||||
NCTS.ncts_Empfaenger_EORI = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtEORI.Text)
|
||||
NCTS.ncts_Empfaenger_NLNR = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtEORINL.Text)
|
||||
NCTS.ncts_ZugelassenerEmpfaenger_EORI = cProgramFunctions.isLeerNothing(usrCntlZugelEmpfaenger.txtEORI.Text)
|
||||
|
||||
'SumA: Beförderer
|
||||
'--------------------------------
|
||||
|
||||
NCTS.ncts_SumA_Befoerderer_Name = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.kdFirma.Text)
|
||||
NCTS.ncts_SumA_Befoerderer_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtStrasse.Text)
|
||||
NCTS.ncts_SumA_Befoerderer_PLZ = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtPlz.Text)
|
||||
NCTS.ncts_SumA_Befoerderer_Ort = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtOrt.Text)
|
||||
NCTS.ncts_SumA_Befoerderer_Land = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.sbLand._value)
|
||||
NCTS.ncts_SumA_Befoerderer_EORI = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORI.Text)
|
||||
NCTS.ncts_SumA_Befoerderer_NLNR = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORINL.Text)
|
||||
|
||||
If cbxSumABeforderer.Checked Then
|
||||
NCTS.ncts_SumA_Empfaenger_Name = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.kdFirma.Text)
|
||||
NCTS.ncts_SumA_Empfaenger_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtStrasse.Text)
|
||||
NCTS.ncts_SumA_Empfaenger_PLZ = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtPlz.Text)
|
||||
NCTS.ncts_SumA_Empfaenger_Ort = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtOrt.Text)
|
||||
NCTS.ncts_SumA_Empfaenger_Land = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.sbLand._value)
|
||||
NCTS.ncts_SumA_Empfaenger_EORI = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORI.Text)
|
||||
NCTS.ncts_SumA_Empfaenger_NLNR = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORINL.Text)
|
||||
|
||||
NCTS.ncts_SumA_Versender_Name = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.kdFirma.Text)
|
||||
NCTS.ncts_SumA_Versender_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtStrasse.Text)
|
||||
NCTS.ncts_SumA_Versender_PLZ = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtPlz.Text)
|
||||
NCTS.ncts_SumA_Versender_Ort = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtOrt.Text)
|
||||
NCTS.ncts_SumA_Versender_Land = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.sbLand._value)
|
||||
NCTS.ncts_SumA_Versender_EORI = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORI.Text)
|
||||
NCTS.ncts_SumA_Versender_NLNR = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORINL.Text)
|
||||
Else
|
||||
NCTS.ncts_SumA_Empfaenger_Name = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.kdFirma.Text)
|
||||
NCTS.ncts_SumA_Empfaenger_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.txtStrasse.Text)
|
||||
NCTS.ncts_SumA_Empfaenger_PLZ = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.txtPlz.Text)
|
||||
NCTS.ncts_SumA_Empfaenger_Ort = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.txtOrt.Text)
|
||||
NCTS.ncts_SumA_Empfaenger_Land = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.sbLand._value)
|
||||
NCTS.ncts_SumA_Empfaenger_EORI = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.txtEORI.Text)
|
||||
NCTS.ncts_SumA_Empfaenger_NLNR = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.txtEORINL.Text)
|
||||
|
||||
NCTS.ncts_SumA_Versender_Name = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.kdFirma.Text)
|
||||
NCTS.ncts_SumA_Versender_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.txtStrasse.Text)
|
||||
NCTS.ncts_SumA_Versender_PLZ = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.txtPlz.Text)
|
||||
NCTS.ncts_SumA_Versender_Ort = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.txtOrt.Text)
|
||||
NCTS.ncts_SumA_Versender_Land = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.sbLand._value)
|
||||
NCTS.ncts_SumA_Versender_EORI = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.txtEORI.Text)
|
||||
NCTS.ncts_SumA_Versender_NLNR = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.txtEORINL.Text)
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub setValues(NCTS) ' As DAKOSY_Worker.cDakosyNCTSOut)
|
||||
|
||||
'usrCntlSumA_Befoerderer.initME()
|
||||
If NCTS Is Nothing Then Exit Sub
|
||||
|
||||
usrCntlHauptverpflichteter.kdFirma.Text = NCTS.declarant_name
|
||||
usrCntlHauptverpflichteter.txtStrasse.Text = NCTS.declarant_address
|
||||
usrCntlHauptverpflichteter.txtPlz.Text = NCTS.declarant_postcode
|
||||
usrCntlHauptverpflichteter.txtOrt.Text = NCTS.declarant_city_name
|
||||
usrCntlHauptverpflichteter.txtEORI.Text = NCTS.declarant_eori
|
||||
usrCntlHauptverpflichteter.sbLand.SET_VALUE(NCTS.declarant_country_id)
|
||||
|
||||
usrCntlVersender.kdFirma.Text = NCTS.consignor_name
|
||||
usrCntlVersender.txtStrasse.Text = NCTS.consignor_address
|
||||
usrCntlVersender.txtPlz.Text = NCTS.consignor_postcode
|
||||
usrCntlVersender.txtOrt.Text = NCTS.consignor_city_name
|
||||
usrCntlVersender.txtEORI.Text = NCTS.consignor_eori
|
||||
usrCntlVersender.sbLand.SET_VALUE(NCTS.consignor_country_id)
|
||||
|
||||
|
||||
usrCntlEmpfaenger.kdFirma.Text = NCTS.consignee_name
|
||||
usrCntlEmpfaenger.txtStrasse.Text = NCTS.consignee_address
|
||||
usrCntlEmpfaenger.txtPlz.Text = NCTS.consignee_postcode
|
||||
usrCntlEmpfaenger.txtOrt.Text = NCTS.consignee_city_name
|
||||
usrCntlEmpfaenger.txtEORI.Text = NCTS.consignee_eori
|
||||
usrCntlEmpfaenger.sbLand.SET_VALUE(NCTS.consignee_country_id)
|
||||
|
||||
|
||||
usrCntlSumA_Befoerderer.kdFirma.Text = NCTS.carrier_name
|
||||
usrCntlSumA_Befoerderer.txtStrasse.Text = NCTS.carrier_address
|
||||
usrCntlSumA_Befoerderer.txtPlz.Text = NCTS.carrier_postcode
|
||||
usrCntlSumA_Befoerderer.txtOrt.Text = NCTS.carrier_city_name
|
||||
usrCntlSumA_Befoerderer.txtEORI.Text = NCTS.carrier_eori
|
||||
usrCntlSumA_Befoerderer.sbLand.SET_VALUE(NCTS.carrier_eori)
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub getValues_TR(ByRef NCTS As VERAG_PROG_ALLGEMEIN.cOregonNCTs_DeclarationData)
|
||||
|
||||
NCTS.declarant_name = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.kdFirma.Text)
|
||||
NCTS.declarant_address = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.txtStrasse.Text)
|
||||
NCTS.declarant_postcode = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.txtPlz.Text)
|
||||
NCTS.declarant_city_name = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.txtOrt.Text)
|
||||
NCTS.declarant_country_id = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.sbLand._value)
|
||||
NCTS.declarant_eori = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.txtEORI.Text)
|
||||
|
||||
|
||||
NCTS.consignor_name = cProgramFunctions.isLeerNothing(usrCntlVersender.kdFirma.Text)
|
||||
NCTS.consignor_address = cProgramFunctions.isLeerNothing(usrCntlVersender.txtStrasse.Text)
|
||||
NCTS.consignor_postcode = cProgramFunctions.isLeerNothing(usrCntlVersender.txtPlz.Text)
|
||||
NCTS.consignor_city_name = cProgramFunctions.isLeerNothing(usrCntlVersender.txtOrt.Text)
|
||||
NCTS.consignor_country_id = cProgramFunctions.isLeerNothing(usrCntlVersender.sbLand._value)
|
||||
NCTS.consignor_eori = cProgramFunctions.isLeerNothing(usrCntlVersender.txtEORI.Text)
|
||||
|
||||
NCTS.consignee_name = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.kdFirma.Text)
|
||||
NCTS.consignee_address = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtStrasse.Text)
|
||||
NCTS.consignee_postcode = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtPlz.Text)
|
||||
NCTS.consignee_city_name = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtOrt.Text)
|
||||
NCTS.consignee_country_id = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.sbLand._value)
|
||||
NCTS.consignee_eori = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtEORI.Text)
|
||||
|
||||
NCTS.carrier_name = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.kdFirma.Text)
|
||||
NCTS.carrier_address = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtStrasse.Text)
|
||||
NCTS.carrier_postcode = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtPlz.Text)
|
||||
NCTS.carrier_city_name = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtOrt.Text)
|
||||
NCTS.carrier_country_id = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.sbLand._value)
|
||||
NCTS.carrier_eori = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORI.Text)
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub setValues_TR(NCTS As VERAG_PROG_ALLGEMEIN.cOregonNCTs_DeclarationData)
|
||||
|
||||
If NCTS Is Nothing Then Exit Sub
|
||||
|
||||
|
||||
usrCntlHauptverpflichteter.kdFirma.Text = NCTS.declarant_name
|
||||
usrCntlHauptverpflichteter.txtStrasse.Text = NCTS.declarant_address
|
||||
usrCntlHauptverpflichteter.txtPlz.Text = NCTS.declarant_postcode
|
||||
usrCntlHauptverpflichteter.txtOrt.Text = NCTS.declarant_city_name
|
||||
usrCntlHauptverpflichteter.txtEORI.Text = NCTS.declarant_eori
|
||||
usrCntlHauptverpflichteter.sbLand.SET_VALUE(NCTS.declarant_country_id)
|
||||
|
||||
usrCntlVersender.kdFirma.Text = NCTS.consignor_name
|
||||
usrCntlVersender.txtStrasse.Text = NCTS.consignor_address
|
||||
usrCntlVersender.txtPlz.Text = NCTS.consignor_postcode
|
||||
usrCntlVersender.txtOrt.Text = NCTS.consignor_city_name
|
||||
usrCntlVersender.txtEORI.Text = NCTS.consignor_eori
|
||||
usrCntlVersender.sbLand.SET_VALUE(NCTS.consignor_country_id)
|
||||
|
||||
|
||||
usrCntlEmpfaenger.kdFirma.Text = NCTS.consignee_name
|
||||
usrCntlEmpfaenger.txtStrasse.Text = NCTS.consignee_address
|
||||
usrCntlEmpfaenger.txtPlz.Text = NCTS.consignee_postcode
|
||||
usrCntlEmpfaenger.txtOrt.Text = NCTS.consignee_city_name
|
||||
usrCntlEmpfaenger.txtEORI.Text = NCTS.consignee_eori
|
||||
usrCntlEmpfaenger.sbLand.SET_VALUE(NCTS.consignee_country_id)
|
||||
|
||||
|
||||
usrCntlSumA_Befoerderer.kdFirma.Text = NCTS.carrier_name
|
||||
usrCntlSumA_Befoerderer.txtStrasse.Text = NCTS.carrier_address
|
||||
usrCntlSumA_Befoerderer.txtPlz.Text = NCTS.carrier_postcode
|
||||
usrCntlSumA_Befoerderer.txtOrt.Text = NCTS.carrier_city_name
|
||||
usrCntlSumA_Befoerderer.txtEORI.Text = NCTS.carrier_eori
|
||||
usrCntlSumA_Befoerderer.sbLand.SET_VALUE(NCTS.carrier_eori)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub cbxSumABeforderer_CheckedChanged(sender As Object, e As EventArgs) Handles cbxSumABeforderer.CheckedChanged
|
||||
usrCntlSumA_Versender.Enabled = Not cbxSumABeforderer.Checked
|
||||
usrCntlSumA_Empfaenger.Enabled = Not cbxSumABeforderer.Checked
|
||||
If cbxSumABeforderer.Checked Then
|
||||
usrCntlSumA_Versender.BackColor = Color.WhiteSmoke
|
||||
usrCntlSumA_Empfaenger.BackColor = Color.WhiteSmoke
|
||||
PictureBox1.Visible = False
|
||||
Else
|
||||
usrCntlSumA_Versender.BackColor = Color.PapayaWhip
|
||||
usrCntlSumA_Empfaenger.BackColor = Color.PapayaWhip
|
||||
PictureBox1.Visible = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub MyComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles MyComboBox1.SelectedIndexChanged
|
||||
Select Case MyComboBox1._value
|
||||
Case "VERAG_AG"
|
||||
usrCntlHauptverpflichteter.txtEORI.Text = "ATEOS1000000199"
|
||||
usrCntlHauptverpflichteter.txtEORINL.Text = "0001"
|
||||
usrCntlHauptverpflichteter.kdFirma.Text = "VERAG SPEDITION AG"
|
||||
usrCntlHauptverpflichteter.txtStrasse.Text = "SUBEN 14-15"
|
||||
usrCntlHauptverpflichteter.txtPlz.Text = "4975"
|
||||
usrCntlHauptverpflichteter.txtOrt.Text = "Suben"
|
||||
usrCntlHauptverpflichteter.sbLand.SET_VALUE("AT")
|
||||
Case "VERAG_GMBH"
|
||||
Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(712255) ' VERAG Neuhaus
|
||||
Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(712255) ' VERAG Neuhaus
|
||||
usrCntlHauptverpflichteter.txtEORI.Text = "DE4824105" ' KD.EORITIN
|
||||
usrCntlHauptverpflichteter.txtEORINL.Text = "0000"
|
||||
usrCntlHauptverpflichteter.kdFirma.Text = (If(AD.Name_1, "") & " " & If(AD.Name_2, "")).trim
|
||||
usrCntlHauptverpflichteter.txtStrasse.Text = AD.Straße
|
||||
usrCntlHauptverpflichteter.txtPlz.Text = AD.PLZ
|
||||
usrCntlHauptverpflichteter.txtOrt.Text = AD.Ort
|
||||
usrCntlHauptverpflichteter.sbLand.SET_VALUE(cProgramFunctions.getISO2Land(AD.LandKz))
|
||||
|
||||
|
||||
Case "UNISPED_AT"
|
||||
usrCntlHauptverpflichteter.txtEORI.Text = "ATEOS1000000088"
|
||||
usrCntlHauptverpflichteter.txtEORINL.Text = "0000"
|
||||
usrCntlHauptverpflichteter.kdFirma.Text = "UNISPED Speditions GmbH"
|
||||
usrCntlHauptverpflichteter.txtStrasse.Text = "SUBEN 15"
|
||||
usrCntlHauptverpflichteter.txtPlz.Text = "4975"
|
||||
usrCntlHauptverpflichteter.txtOrt.Text = "Suben"
|
||||
usrCntlHauptverpflichteter.sbLand.SET_VALUE("AT")
|
||||
Case "UNISPED_DE"
|
||||
usrCntlHauptverpflichteter.txtEORI.Text = "DE7467540" ' KD.EORITIN
|
||||
usrCntlHauptverpflichteter.txtEORINL.Text = "0000"
|
||||
usrCntlHauptverpflichteter.kdFirma.Text = "UNISPED Deutschland Speditions GmbH"
|
||||
usrCntlHauptverpflichteter.txtStrasse.Text = "HARTHAM 6"
|
||||
usrCntlHauptverpflichteter.txtPlz.Text = "94152"
|
||||
usrCntlHauptverpflichteter.txtOrt.Text = "NEUHAUS AM INN"
|
||||
usrCntlHauptverpflichteter.sbLand.SET_VALUE("DE")
|
||||
|
||||
|
||||
Case "TOBB"
|
||||
usrCntlHauptverpflichteter.txtEORI.Text = "ITTR0000000000152"
|
||||
usrCntlHauptverpflichteter.txtEORINL.Text = ""
|
||||
usrCntlHauptverpflichteter.kdFirma.Text = "TOBB UND Lojistik A.S."
|
||||
usrCntlHauptverpflichteter.txtStrasse.Text = "Bumlupmar Bulvan Nr. 252"
|
||||
usrCntlHauptverpflichteter.txtPlz.Text = "6530"
|
||||
usrCntlHauptverpflichteter.txtOrt.Text = "Ankara"
|
||||
usrCntlHauptverpflichteter.sbLand.SET_VALUE("TR")
|
||||
Case "EKOL"
|
||||
usrCntlHauptverpflichteter.txtEORI.Text = "ITTR0000000000152"
|
||||
usrCntlHauptverpflichteter.txtEORINL.Text = ""
|
||||
usrCntlHauptverpflichteter.kdFirma.Text = "EKOL Lojistik AS."
|
||||
usrCntlHauptverpflichteter.txtStrasse.Text = "Ekol Cad. No 2"
|
||||
usrCntlHauptverpflichteter.txtPlz.Text = "34935"
|
||||
usrCntlHauptverpflichteter.txtOrt.Text = "Sultanbeyli -Istanbul"
|
||||
usrCntlHauptverpflichteter.sbLand.SET_VALUE("TR")
|
||||
Case "SGS"
|
||||
usrCntlHauptverpflichteter.txtEORI.Text = "DE3331326"
|
||||
usrCntlHauptverpflichteter.txtEORINL.Text = "0000"
|
||||
usrCntlHauptverpflichteter.kdFirma.Text = "SGS GERMANY GmbH"
|
||||
usrCntlHauptverpflichteter.txtStrasse.Text = "Rödingsmarkt 16"
|
||||
usrCntlHauptverpflichteter.txtPlz.Text = "20459"
|
||||
usrCntlHauptverpflichteter.txtOrt.Text = "Hamburg"
|
||||
usrCntlHauptverpflichteter.sbLand.SET_VALUE("DE")
|
||||
Case "MARS"
|
||||
usrCntlHauptverpflichteter.txtEORI.Text = "BGKTR6120538808Z8"
|
||||
usrCntlHauptverpflichteter.txtEORINL.Text = ""
|
||||
usrCntlHauptverpflichteter.kdFirma.Text = "MARS LOJISTIK ULUS.TAS.DEP.DAGITIM VE TIC A.S."
|
||||
usrCntlHauptverpflichteter.txtStrasse.Text = "Yenibosna Merkez Nr.21"
|
||||
usrCntlHauptverpflichteter.txtPlz.Text = "00000"
|
||||
usrCntlHauptverpflichteter.txtOrt.Text = "ISTANBUL"
|
||||
usrCntlHauptverpflichteter.sbLand.SET_VALUE("TR")
|
||||
Case Else
|
||||
usrCntlHauptverpflichteter.txtEORI.Text = ""
|
||||
usrCntlHauptverpflichteter.txtEORINL.Text = ""
|
||||
usrCntlHauptverpflichteter.kdFirma.Text = ""
|
||||
usrCntlHauptverpflichteter.txtStrasse.Text = ""
|
||||
usrCntlHauptverpflichteter.txtPlz.Text = ""
|
||||
usrCntlHauptverpflichteter.txtOrt.Text = ""
|
||||
usrCntlHauptverpflichteter.sbLand.SET_VALUE("")
|
||||
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
1500
SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Allg.Designer.vb
generated
Normal file
1500
SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Allg.Designer.vb
generated
Normal file
File diff suppressed because it is too large
Load Diff
120
SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Allg.resx
Normal file
120
SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Allg.resx
Normal file
@@ -0,0 +1,120 @@
|
||||
<?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>
|
||||
412
SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Allg.vb
Normal file
412
SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Allg.vb
Normal file
@@ -0,0 +1,412 @@
|
||||
Public Class usrCntlModaltrans_NCTS_Allg
|
||||
Property NCTS_ART = "T-"
|
||||
|
||||
'Dim NCTS As DAKOSY_Worker.cDakosyNCTSOut = Nothing
|
||||
Dim NCTS_TR As VERAG_PROG_ALLGEMEIN.cOregonNCTs_DeclarationData = Nothing
|
||||
|
||||
|
||||
|
||||
Sub New(NCTS_TR As VERAG_PROG_ALLGEMEIN.cOregonNCTs_DeclarationData)
|
||||
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
Me.NCTS_TR = NCTS_TR
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub usrCntlModaltrans_NCTS_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
|
||||
sbAbgangZollstelle.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
|
||||
sbBestimmungZollstelle.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
|
||||
|
||||
sbDurchgangszollstelle1.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
|
||||
sbDurchgangszollstelle2.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
|
||||
sbDurchgangszollstelle3.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
|
||||
sbDurchgangszollstelle4.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
|
||||
sbDurchgangszollstelle5.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
|
||||
sbDurchgangszollstelle6.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
|
||||
sbDurchgangszollstelle7.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
|
||||
sbDurchgangszollstelle8.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
|
||||
sbDurchgangszollstelle9.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
|
||||
|
||||
|
||||
|
||||
sbRoute1.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
|
||||
sbRoute2.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
|
||||
sbRoute3.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
|
||||
sbRoute4.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
|
||||
sbRoute5.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
|
||||
sbRoute6.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
|
||||
sbRoute7.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
|
||||
sbRoute8.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
|
||||
sbRoute9.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
|
||||
sbBestimmungsland.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)
|
||||
sbVersendungsLand.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)
|
||||
sbKennzeichenGrenzeLand.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 400, 200)
|
||||
sbKennzeichenAbgangLand.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 400, 200)
|
||||
|
||||
|
||||
|
||||
' AddHandler sbAbgangZollstelle.VALUE_CHANGED, Sub()
|
||||
'If sbAbgangZollstelle.DR IsNot Nothing Then
|
||||
'If sbVersendungsLand._value = "" Then sbVersendungsLand.SET_VALUE(sbAbgangZollstelle.DR("Land"))
|
||||
' End If
|
||||
'End Sub
|
||||
AddHandler sbBestimmungZollstelle.VALUE_CHANGED, Sub()
|
||||
If sbBestimmungZollstelle.DR IsNot Nothing Then
|
||||
If sbBestimmungsland._value = "" Then sbBestimmungsland.SET_VALUE(sbBestimmungZollstelle.DR("Land"))
|
||||
End If
|
||||
End Sub
|
||||
|
||||
' LIST_BGW = (New SQL).loadCboBySqlWithListItem("SELECT [basncd_dstnr],[basncd_name] +' (' +[basncd_alpha]+')' FROM [atlas].[dbo].[basncd] where [basncd_gbdat] >= getdate() order by [basncd_alpha], [basncd_name]", False, "ATLAS")
|
||||
|
||||
|
||||
cboVerkehrszweig.Items.Clear()
|
||||
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1 - Seeverkehr", "1"))
|
||||
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("2 - Eisenbahnverkehr", "2"))
|
||||
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("3 - Straßenverkehr", "3"))
|
||||
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4 - Luftverkehr", "4"))
|
||||
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("5 - Postsendungen", "5"))
|
||||
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("7 - Feste Transporteinrichtungen", "7"))
|
||||
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("8 - Binnenschifffahrt", "8"))
|
||||
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("9 - Eigener Antrieb", "9"))
|
||||
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("10 - Seeverkehr", "10"))
|
||||
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("12 - Waggon auf Seeschiff", "12"))
|
||||
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("16 - Straßenfahrzeug auf Seeschiff", "16"))
|
||||
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("17 - Anhänger/Auflieger auf Seeschiff", "17"))
|
||||
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("18 - Binnenschiff auf Seeschiff", "18"))
|
||||
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("20 - Eisenbahnverkehr", "20"))
|
||||
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("23 - Straßenfahrzeug auf Eisenbahn", "23"))
|
||||
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("30 - Straßenverkehr", "30"))
|
||||
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("40 - Luftverkehr", "40"))
|
||||
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("50 - Postsendungen", "50"))
|
||||
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("70 - Feste Transporteinrichtungen", "70"))
|
||||
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("80 - Binnenschifffahrt", "80"))
|
||||
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("90 - Eigener Antrieb", "90"))
|
||||
cboVerkehrszweig.changeItem("3")
|
||||
|
||||
|
||||
cboArtGrenzUeberschreitung.Items.Clear()
|
||||
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("10 - Seeschiff", "10"))
|
||||
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("20 - Waggon", "20"))
|
||||
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("31 - Pkw", "31"))
|
||||
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("32 - Pkw mit Anhänger", "32"))
|
||||
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("33 - Lkw", "33"))
|
||||
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("34 - Lkw mit Anhänger", "34"))
|
||||
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("35 - Zugmaschine mit Auflieger ", "35"))
|
||||
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("40 - Flugzeug", "40"))
|
||||
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("50 - Binnenschiff", "50"))
|
||||
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("60 - Eigener Antrieb", "60"))
|
||||
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("70 - Feste Transporteinrichtung", "70"))
|
||||
cboArtGrenzUeberschreitung.changeItem("35")
|
||||
|
||||
|
||||
cboBesondereUmstaende.Items.Clear()
|
||||
cboBesondereUmstaende.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboBesondereUmstaende.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("A - Post- und Express-Sendungen", "A"))
|
||||
cboBesondereUmstaende.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("C - Straßentransport", "C"))
|
||||
cboBesondereUmstaende.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("D - Bahntransport", "D"))
|
||||
cboBesondereUmstaende.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("E - Zugel. Wirtschaftsbeteiligte", "E"))
|
||||
cboBesondereUmstaende.changeItem("C")
|
||||
|
||||
|
||||
cboZahlungsweiseBefKosten.Items.Clear()
|
||||
cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("A - Barzahlung", "A"))
|
||||
cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("B - Kreditkartenzahlung", "B"))
|
||||
cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("C - Zahlung mit Scheck", "C"))
|
||||
cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("D - andere", "D"))
|
||||
cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("H - Elektr.Geldtransfer", "H"))
|
||||
cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Y - Kontoinhaber = Beförderer", "Y"))
|
||||
cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Z - nicht vorausbezahlt", "Z"))
|
||||
cboZahlungsweiseBefKosten.changeItem("D")
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
'btnAllgemein_Click(btnT2, New EventArgs)
|
||||
|
||||
' setValues(NCTS)
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs)
|
||||
MsgBox(sbAbgangZollstelle._value)
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub getValues(ByRef NCTS) 'As DAKOSY_Worker.cDakosyNCTSOut)
|
||||
NCTS.ncts_ArtAnmeldung = cProgramFunctions.isLeerNothing(NCTS_ART)
|
||||
NCTS.ncts_AbgangsDienststellennummer = cProgramFunctions.isLeerNothing(sbAbgangZollstelle._value)
|
||||
NCTS.ncts_BestimmungsstelleDienststellennummer = cProgramFunctions.isLeerNothing(sbBestimmungZollstelle._value)
|
||||
|
||||
NCTS.ncts_VersendungsLandCode = cProgramFunctions.isLeerNothing(sbVersendungsLand._value)
|
||||
NCTS.ncts_BestimmungslandCode = cProgramFunctions.isLeerNothing(sbBestimmungsland._value)
|
||||
|
||||
|
||||
NCTS.ncts_DurchgangszollstelleDienststellnummer1 = cProgramFunctions.isLeerNothing(sbDurchgangszollstelle1._value)
|
||||
NCTS.ncts_DurchgangszollstelleDienststellnummer2 = cProgramFunctions.isLeerNothing(sbDurchgangszollstelle2._value)
|
||||
NCTS.ncts_DurchgangszollstelleDienststellnummer3 = cProgramFunctions.isLeerNothing(sbDurchgangszollstelle3._value)
|
||||
NCTS.ncts_DurchgangszollstelleDienststellnummer4 = cProgramFunctions.isLeerNothing(sbDurchgangszollstelle4._value)
|
||||
NCTS.ncts_DurchgangszollstelleDienststellnummer5 = cProgramFunctions.isLeerNothing(sbDurchgangszollstelle5._value)
|
||||
NCTS.ncts_DurchgangszollstelleDienststellnummer6 = cProgramFunctions.isLeerNothing(sbDurchgangszollstelle6._value)
|
||||
NCTS.ncts_DurchgangszollstelleDienststellnummer7 = cProgramFunctions.isLeerNothing(sbDurchgangszollstelle7._value)
|
||||
NCTS.ncts_DurchgangszollstelleDienststellnummer8 = cProgramFunctions.isLeerNothing(sbDurchgangszollstelle8._value)
|
||||
NCTS.ncts_DurchgangszollstelleDienststellnummer9 = cProgramFunctions.isLeerNothing(sbDurchgangszollstelle9._value)
|
||||
|
||||
|
||||
NCTS.ncts_SumA_BefoerderungsrouteLand1 = cProgramFunctions.isLeerNothing(sbRoute1._value)
|
||||
NCTS.ncts_SumA_BefoerderungsrouteLand2 = cProgramFunctions.isLeerNothing(sbRoute2._value)
|
||||
NCTS.ncts_SumA_BefoerderungsrouteLand3 = cProgramFunctions.isLeerNothing(sbRoute3._value)
|
||||
NCTS.ncts_SumA_BefoerderungsrouteLand4 = cProgramFunctions.isLeerNothing(sbRoute4._value)
|
||||
NCTS.ncts_SumA_BefoerderungsrouteLand5 = cProgramFunctions.isLeerNothing(sbRoute5._value)
|
||||
NCTS.ncts_SumA_BefoerderungsrouteLand6 = cProgramFunctions.isLeerNothing(sbRoute6._value)
|
||||
NCTS.ncts_SumA_BefoerderungsrouteLand7 = cProgramFunctions.isLeerNothing(sbRoute7._value)
|
||||
NCTS.ncts_SumA_BefoerderungsrouteLand8 = cProgramFunctions.isLeerNothing(sbRoute8._value)
|
||||
NCTS.ncts_SumA_BefoerderungsrouteLand9 = cProgramFunctions.isLeerNothing(sbRoute9._value)
|
||||
|
||||
NCTS.ncts_SumA_KennnummerSendung = cProgramFunctions.isLeerNothing(txtKennnummer.Text)
|
||||
|
||||
|
||||
' NCTS.ncts_BeladungsOrt = cProgramFunctions.isLeerNothing(txtBeladungsort.Text)
|
||||
NCTS.ncts_SumA_Ladeort = cProgramFunctions.isLeerNothing(txtLadeort.Text)
|
||||
NCTS.ncts_SumA_Entladeort = cProgramFunctions.isLeerNothing(txtEntladeort.Text)
|
||||
' NCTS.ncts_Wiedergestellungsdatum = cProgramFunctions.isLeerNothing(txtWiedergestellungsdatum._value)
|
||||
|
||||
|
||||
If cbxVereinfachtesVerfahren.Checked Then
|
||||
NCTS.ncts_KzVereinfachtesVerfahren = True
|
||||
' MsgBox(txtWiedergestellungsdatum._value)
|
||||
NCTS.ncts_Wiedergestellungsdatum = cProgramFunctions.isLeerNothing(txtWiedergestellungsdatum._value)
|
||||
NCTS.ncts_BeladungsOrt = cProgramFunctions.isLeerNothing(txtBeladungsort.Text)
|
||||
Else
|
||||
NCTS.ncts_KzVereinfachtesVerfahren = False
|
||||
NCTS.ncts_Wiedergestellungsdatum = Nothing
|
||||
NCTS.ncts_BeladungsOrt = Nothing
|
||||
End If
|
||||
|
||||
NCTS.ncts_SumA_KzSumASicherheit = cbxSumASicherheit.Checked
|
||||
|
||||
NCTS.ncts_Befoerderungsmittel_KennzeichenAbgang = cProgramFunctions.isLeerNothing(txtKennzeichenAbgang._value)
|
||||
NCTS.ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode = cProgramFunctions.isLeerNothing(sbKennzeichenAbgangLand._value)
|
||||
NCTS.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend = cProgramFunctions.isLeerNothing(txtKennzeichenGrenze._value)
|
||||
NCTS.ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode = cProgramFunctions.isLeerNothing(sbKennzeichenGrenzeLand._value)
|
||||
|
||||
NCTS.ncts_Befoerderungsmittel_ArtGrenzueberschreitung = cProgramFunctions.isLeerNothing(cboArtGrenzUeberschreitung._value)
|
||||
NCTS.ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent = cProgramFunctions.isLeerNothing(cboVerkehrszweig._value)
|
||||
NCTS.ncts_SumA_BesondereUmstaende = cProgramFunctions.isLeerNothing(cboBesondereUmstaende._value)
|
||||
NCTS.ncts_SumA_BefoerderungskostenZahlungsweise = cProgramFunctions.isLeerNothing(cboZahlungsweiseBefKosten._value)
|
||||
|
||||
' NCTS.ncts_GesamtRohmasse = cProgramFunctions.isLeerNothing(rohm._value)
|
||||
|
||||
' NCTS.ncts_KzVereinfachtesVerfahren = If(cbxVereinfachtesVerfahren.Checked, True, False) '???
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub setValues(NCTS) 'As DAKOSY_Worker.cDakosyNCTSOut)
|
||||
If NCTS Is Nothing Then Exit Sub
|
||||
sbAbgangZollstelle.SET_VALUE(If(NCTS.ncts_AbgangsDienststellennummer, ""))
|
||||
sbBestimmungZollstelle.SET_VALUE(If(NCTS.ncts_BestimmungsstelleDienststellennummer, ""))
|
||||
|
||||
sbVersendungsLand.SET_VALUE(If(NCTS.ncts_VersendungsLandCode, ""))
|
||||
sbBestimmungsland.SET_VALUE(If(NCTS.ncts_BestimmungslandCode, ""))
|
||||
|
||||
sbDurchgangszollstelle1.SET_VALUE(NCTS.ncts_DurchgangszollstelleDienststellnummer1)
|
||||
sbDurchgangszollstelle2.SET_VALUE(NCTS.ncts_DurchgangszollstelleDienststellnummer2)
|
||||
sbDurchgangszollstelle3.SET_VALUE(NCTS.ncts_DurchgangszollstelleDienststellnummer3)
|
||||
sbDurchgangszollstelle4.SET_VALUE(NCTS.ncts_DurchgangszollstelleDienststellnummer4)
|
||||
sbDurchgangszollstelle5.SET_VALUE(NCTS.ncts_DurchgangszollstelleDienststellnummer5)
|
||||
sbDurchgangszollstelle6.SET_VALUE(NCTS.ncts_DurchgangszollstelleDienststellnummer6)
|
||||
sbDurchgangszollstelle7.SET_VALUE(NCTS.ncts_DurchgangszollstelleDienststellnummer7)
|
||||
sbDurchgangszollstelle8.SET_VALUE(NCTS.ncts_DurchgangszollstelleDienststellnummer8)
|
||||
sbDurchgangszollstelle9.SET_VALUE(NCTS.ncts_DurchgangszollstelleDienststellnummer9)
|
||||
|
||||
sbRoute1.SET_VALUE(NCTS.ncts_SumA_BefoerderungsrouteLand1)
|
||||
sbRoute2.SET_VALUE(NCTS.ncts_SumA_BefoerderungsrouteLand2)
|
||||
sbRoute3.SET_VALUE(NCTS.ncts_SumA_BefoerderungsrouteLand3)
|
||||
sbRoute4.SET_VALUE(NCTS.ncts_SumA_BefoerderungsrouteLand4)
|
||||
sbRoute5.SET_VALUE(NCTS.ncts_SumA_BefoerderungsrouteLand5)
|
||||
sbRoute6.SET_VALUE(NCTS.ncts_SumA_BefoerderungsrouteLand6)
|
||||
sbRoute7.SET_VALUE(NCTS.ncts_SumA_BefoerderungsrouteLand7)
|
||||
sbRoute8.SET_VALUE(NCTS.ncts_SumA_BefoerderungsrouteLand8)
|
||||
sbRoute9.SET_VALUE(NCTS.ncts_SumA_BefoerderungsrouteLand9)
|
||||
|
||||
txtKennnummer.Text = NCTS.ncts_SumA_KennnummerSendung
|
||||
|
||||
NCTS_ART = If(NCTS.ncts_ArtAnmeldung, "T-")
|
||||
|
||||
Select Case NCTS_ART
|
||||
Case "T-" : initButton(btnTMinus)
|
||||
Case "T1" : initButton(btnT1)
|
||||
Case "T2" : initButton(btnT2)
|
||||
Case "T2F" : initButton(btnT2F)
|
||||
Case "TIR" : initButton(btnTIR)
|
||||
End Select
|
||||
|
||||
cbxVereinfachtesVerfahren.Checked = If(NCTS.ncts_KzVereinfachtesVerfahren, False)
|
||||
cbxSumASicherheit.Checked = If(NCTS.ncts_SumA_KzSumASicherheit, False)
|
||||
|
||||
txtBeladungsort.Text = If(NCTS.ncts_BeladungsOrt, "")
|
||||
txtWiedergestellungsdatum._value = If(NCTS.ncts_Wiedergestellungsdatum, Nothing)
|
||||
|
||||
txtLadeort.Text = If(NCTS.ncts_SumA_Ladeort, "")
|
||||
txtEntladeort.Text = If(NCTS.ncts_SumA_Entladeort, "")
|
||||
|
||||
|
||||
txtKennzeichenAbgang.Text = If(NCTS.ncts_Befoerderungsmittel_KennzeichenAbgang, "")
|
||||
sbKennzeichenAbgangLand.SET_VALUE(If(NCTS.ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode, ""))
|
||||
txtKennzeichenGrenze.Text = If(NCTS.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend, "")
|
||||
sbKennzeichenGrenzeLand.SET_VALUE(If(NCTS.ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode, ""))
|
||||
|
||||
|
||||
cboArtGrenzUeberschreitung.changeItem(NCTS.ncts_Befoerderungsmittel_ArtGrenzueberschreitung)
|
||||
cboVerkehrszweig.changeItem(NCTS.ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent)
|
||||
|
||||
cboBesondereUmstaende.changeItem(NCTS.ncts_SumA_BesondereUmstaende)
|
||||
cboZahlungsweiseBefKosten.changeItem(NCTS.ncts_SumA_BefoerderungskostenZahlungsweise)
|
||||
|
||||
End Sub
|
||||
Private Sub btnAllgemein_Click(sender As Object, e As EventArgs) Handles btnTMinus.Click, btnTIR.Click, btnT2F.Click, btnT2.Click, btnT1.Click
|
||||
initButton(sender)
|
||||
End Sub
|
||||
|
||||
Sub initButton(sender As Button)
|
||||
setBtn(btnTMinus, False)
|
||||
setBtn(btnT1, False)
|
||||
setBtn(btnT2, False)
|
||||
setBtn(btnT2F, False)
|
||||
setBtn(btnTIR, False)
|
||||
|
||||
If sender Is btnTMinus Then
|
||||
NCTS_ART = "T-" : txtArtDetail.Text = "Versandanmeldung T- Gemischte Sendungen aus T1- und T2-Waren oder aus T1- und T2F-Waren, die - für jede Warenart getrennt - auf Positionsebene aufgeführt sind."
|
||||
ElseIf sender Is btnT1 Then
|
||||
NCTS_ART = "T1" : txtArtDetail.Text = "Versandanmeldung T1 Waren, die im externen gemeinschaftlichen/gemeinsamen Versandverfahren befördert werden sollen."
|
||||
ElseIf sender Is btnT2 Then
|
||||
NCTS_ART = "T2" : txtArtDetail.Text = "Versandanmeldung T2 Waren, die - soweit nicht das T2F-Verfahren vorgeschrieben ist - im internen gemeinschaftlichen Versandverfahren befördert werden sollen"
|
||||
ElseIf sender Is btnT2F Then
|
||||
NCTS_ART = "T2F" : txtArtDetail.Text = "Versandanmeldung T2F Waren, die im Linienverkehr zwischen Teilen des Zollgebiets der Gemeinschaft, in denen die Richtlinie 77/388/EWG (6. Mehrwertsteuerrichtlinie) Anwendung findet und den Teilen des Zollgebiets der Gemeinschaft, in denen diese Richtlinie nicht gilt (siehe Titel I, Absatz 3) im internen gemeinschaftlichen Versandverfahren befördert werden sollen."
|
||||
ElseIf sender Is btnTIR Then
|
||||
NCTS_ART = "TIR" : txtArtDetail.Text = "Versandanmeldung für Waren, die im TIR (Transports Internationaux Routiers) befördert werden sollen"
|
||||
End If
|
||||
setBtn(sender, True)
|
||||
End Sub
|
||||
|
||||
Sub setBtn(btn As Button, value As Boolean)
|
||||
If value Then
|
||||
btn.BackColor = Color.OrangeRed
|
||||
btn.ForeColor = Color.White
|
||||
Else
|
||||
btn.BackColor = Color.White
|
||||
btn.ForeColor = Color.Black
|
||||
End If
|
||||
|
||||
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("")
|
||||
|
||||
|
||||
If frmRoutenauswahl.BESTIMMUNGSLAND <> "" Then sbBestimmungsland.SET_VALUE(frmRoutenauswahl.BESTIMMUNGSLAND)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub cbxVereinfachtesVerfahren_CheckedChanged(sender As Object, e As EventArgs) Handles cbxVereinfachtesVerfahren.CheckedChanged
|
||||
txtWiedergestellungsdatum.Enabled = cbxVereinfachtesVerfahren.Checked
|
||||
txtBeladungsort.Enabled = cbxVereinfachtesVerfahren.Checked
|
||||
End Sub
|
||||
|
||||
Private Sub cbxSumASicherheit_CheckedChanged(sender As Object, e As EventArgs) Handles cbxSumASicherheit.CheckedChanged
|
||||
txtEntladeort.Enabled = cbxVereinfachtesVerfahren.Checked
|
||||
txtLadeort.Enabled = cbxVereinfachtesVerfahren.Checked
|
||||
If Not txtLadeort.Enabled Then txtLadeort.Text = ""
|
||||
If Not txtEntladeort.Enabled Then txtEntladeort.Text = ""
|
||||
End Sub
|
||||
|
||||
Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
|
||||
txtKennzeichenGrenze.Text = txtKennzeichenAbgang.Text
|
||||
End Sub
|
||||
|
||||
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
|
||||
txtKennzeichenAbgang.Text = txtKennzeichenGrenze.Text
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub sbVersendungsLand_TextChanged() Handles sbVersendungsLand.VALUE_CHANGED
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" And cbxVereinfachtesVerfahren.Checked Then
|
||||
If sbVersendungsLand._value <> "" And txtLadeort.Text = "" Then
|
||||
txtLadeort.Text = sbVersendungsLand._value
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub sbBestimmungsland_TextChanged() Handles sbBestimmungsland.VALUE_CHANGED
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" And cbxVereinfachtesVerfahren.Checked Then
|
||||
If sbBestimmungsland._value <> "" And txtEntladeort.Text = "" Then
|
||||
txtEntladeort.Text = sbBestimmungsland._value
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
|
||||
txtKennzeichenGrenze.Text = txtKennzeichenAbgang.Text
|
||||
sbKennzeichenGrenzeLand.SET_VALUE(sbKennzeichenAbgangLand._value)
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
Dim origin = ""
|
||||
Dim destination = ""
|
||||
|
||||
If sbAbgangZollstelle._value <> "" Then
|
||||
origin = sbAbgangZollstelle._value.Substring(0, 2) & " " & sbAbgangZollstelle.Text
|
||||
Else Exit Sub
|
||||
End If
|
||||
|
||||
If sbBestimmungZollstelle._value <> "" Then
|
||||
destination = sbBestimmungZollstelle._value.Substring(0, 2) & " " & sbBestimmungZollstelle.Text
|
||||
Else Exit Sub
|
||||
End If
|
||||
|
||||
Dim duration = ""
|
||||
Dim distance = ""
|
||||
Dim distanceSek = ""
|
||||
VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, destination, duration, distance, cbxWegStrecke.Checked)
|
||||
|
||||
'lblWegstreckeVonNach.Text = "von: " & origin & vbNewLine
|
||||
'lblWegstreckeVonNach.Text &= "nach: " & destination
|
||||
|
||||
|
||||
lblWegstrecke.Text = "Wegstrecke: " & distance
|
||||
lblWegZeit.Text = "Fahrzeit: " & duration
|
||||
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
1452
SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Position.Designer.vb
generated
Normal file
1452
SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Position.Designer.vb
generated
Normal file
File diff suppressed because it is too large
Load Diff
173
SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Position.resx
Normal file
173
SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Position.resx
Normal file
@@ -0,0 +1,173 @@
|
||||
<?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>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="Button3.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
|
||||
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAHaSURBVEhLvdW7SlhBFIVh701EGyGKpEjAywv4Aham
|
||||
iIXaio1dELXwFVRs7ARBQbHSwi5lijTBWhAvfSKExJBKEEWP/8iM7JmzziWKFh/k7Fl7FhgZG7Ise1Vy
|
||||
6JwPvG9S8+eSQ4fCTrxVZ88hhxQNYgvHdUvJNfq9bXUe5AYs9OEbMq9WKZkmbPidHZVxog+Cb7COa79Y
|
||||
q5SzHizjD8KOLI0+CJ2ZhZQsZdaLXZ9J5UqjDwLhR1IkV8r3Ii79ufLF5h//ERBYSRZSD6VwvyB7uIXK
|
||||
OXe4sPdHZQGhOqVryUz5iwl7d1RkEawqdZepefADs+iw90YlKcJVpUVO8VHdmRukWHxK6Qwa1X25gcLy
|
||||
vrmszFd8QuE7LIcpLljwF1aZV/uWHAZc0I9N/PMXVvmJ0mdQDh0W2+DK1MVlSp9BOWShC0uwb+P/KCzN
|
||||
DQi+g3tB1EXWoZhZsjT6cAit4sovlZlGnRep294flTnJgnKEKbT7fFXpub0/KnMITCYL1m+MiZ2iUvd3
|
||||
9cBmo8WA0LhZCn5hDtHbaHZU6QmGbC5asgjaUvd/MaJyFplQegP36gyjxWaihRThUPpZnStkXel3fFDn
|
||||
uUGKxTG0qrMi5EfRrM5yg5cmhy8na7gHtvbLF9T64qAAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="Button2.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
|
||||
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAHaSURBVEhLvdW7SlhBFIVh701EGyGKpEjAywv4Aham
|
||||
iIXaio1dELXwFVRs7ARBQbHSwi5lijTBWhAvfSKExJBKEEWP/8iM7JmzziWKFh/k7Fl7FhgZG7Ise1Vy
|
||||
6JwPvG9S8+eSQ4fCTrxVZ88hhxQNYgvHdUvJNfq9bXUe5AYs9OEbMq9WKZkmbPidHZVxog+Cb7COa79Y
|
||||
q5SzHizjD8KOLI0+CJ2ZhZQsZdaLXZ9J5UqjDwLhR1IkV8r3Ii79ufLF5h//ERBYSRZSD6VwvyB7uIXK
|
||||
OXe4sPdHZQGhOqVryUz5iwl7d1RkEawqdZepefADs+iw90YlKcJVpUVO8VHdmRukWHxK6Qwa1X25gcLy
|
||||
vrmszFd8QuE7LIcpLljwF1aZV/uWHAZc0I9N/PMXVvmJ0mdQDh0W2+DK1MVlSp9BOWShC0uwb+P/KCzN
|
||||
DQi+g3tB1EXWoZhZsjT6cAit4sovlZlGnRep294flTnJgnKEKbT7fFXpub0/KnMITCYL1m+MiZ2iUvd3
|
||||
9cBmo8WA0LhZCn5hDtHbaHZU6QmGbC5asgjaUvd/MaJyFplQegP36gyjxWaihRThUPpZnStkXel3fFDn
|
||||
uUGKxTG0qrMi5EfRrM5yg5cmhy8na7gHtvbLF9T64qAAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="UlCode.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="DataGridViewComboBoxColumn1.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="UlReferenz.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="UlZusatz.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="PkCode.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="Anzahl.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="Typ.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="Marke.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
</root>
|
||||
258
SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Position.vb
Normal file
258
SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Position.vb
Normal file
@@ -0,0 +1,258 @@
|
||||
Public Class usrCntlModaltrans_NCTS_Position
|
||||
|
||||
Dim WARE_TR As VERAG_PROG_ALLGEMEIN.cOregonNCTs_GoodsAttribute = Nothing
|
||||
Event RohmasseChanged(rohmasse As Double, packstuecke As Double)
|
||||
Dim id As Integer = -1
|
||||
|
||||
Dim PK_EDIT = -1
|
||||
Dim UL_EDIT = -1
|
||||
Dim VP_EDIT = -1
|
||||
|
||||
Sub New(id)
|
||||
InitializeComponent()
|
||||
Me.id = id
|
||||
End Sub
|
||||
|
||||
|
||||
Sub New(id As Integer, WARE_TR As VERAG_PROG_ALLGEMEIN.cOregonNCTs_GoodsAttribute)
|
||||
InitializeComponent()
|
||||
Me.id = id
|
||||
Me.WARE_TR = WARE_TR
|
||||
End Sub
|
||||
|
||||
Function getPackstuecke() As Integer
|
||||
|
||||
getPackstuecke = 0
|
||||
|
||||
For Each row As DataGridViewRow In dgvPackstuecke.Rows
|
||||
getPackstuecke += If(IsNumeric(row.Cells("Anzahl").Value), row.Cells("Anzahl").Value, 0)
|
||||
Next
|
||||
|
||||
End Function
|
||||
Private Sub usrCntlModaltrans_NCTS_Position_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
|
||||
sbPkTyp.initSearchBox(Me.FindForm, " [Code] ,[Description] as Verpackungsart FROM tbl_DY_ZollDE_C0017_PackstueckeVerpackungsarten", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", , "FMZOLL", , 400, 200)
|
||||
sbUlArten.initSearchBox(Me.FindForm, " [Code] ,[Description] as Art FROM tbl_DY_ZollDE_C0013_UnterlagenArten", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", , "FMZOLL", , 400, 200)
|
||||
sbExportAusLand.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 400, 200)
|
||||
sbBestimmungsland.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 400, 200)
|
||||
sbVersendungsLand.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 400, 200)
|
||||
|
||||
cboWaehrung.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land FROM [tbl_DY_ZollDE_I0400_Waehrungsliste]", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 400, 200)
|
||||
|
||||
cboArtAnmeldung.Items.Clear()
|
||||
cboArtAnmeldung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboArtAnmeldung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T1 - Versandanmeldung T1 Waren, die im externen gemeinschaftlichen/gemeinsamen Versandverfahren befördert werden sollen.", "T1"))
|
||||
cboArtAnmeldung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T2 - Versandanmeldung T2 Waren, die - soweit nicht das T2F-Verfahren vorgeschrieben ist - im internen gemeinschaftlichen Versandverfahren befördert werden sollen", "T2"))
|
||||
cboArtAnmeldung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T2F - Versandanmeldung T2F Waren, die im Linienverkehr zwischen Teilen des Zollgebiets der Gemeinschaft, in denen die Richtlinie 77/388/EWG (6. Mehrwertsteuerrichtlinie) Anwendung findet und den Teilen des Zollgebiets der Gemeinschaft, in denen diese Richtlinie nicht gilt (siehe Titel I, Absatz 3) im internen gemeinschaftlichen Versandverfahren befördert werden sollen.", "T2F"))
|
||||
|
||||
|
||||
If WARE_TR IsNot Nothing Then setvalue_TR(WARE_TR)
|
||||
|
||||
End Sub
|
||||
|
||||
Sub setvalue_TR(WARE As VERAG_PROG_ALLGEMEIN.cOregonNCTs_GoodsAttribute)
|
||||
If WARE IsNot Nothing Then
|
||||
Me.txtWarenbezeichnung.Text = If(WARE.commodity, "")
|
||||
Me.txtRohmasse.Text = WARE.brut_wg
|
||||
Me.txtEigenmasse.Text = WARE.net_wg
|
||||
Me.txtWarennummer.Text = WARE.gtip_code
|
||||
Me.txtWarenwert._value = WARE.invoice_amount
|
||||
|
||||
Me.cboWaehrung.SET_VALUE(WARE.invoice_curr)
|
||||
|
||||
Dim packstuecke = 0
|
||||
dgvPackstuecke.Rows.Clear()
|
||||
If WARE.decl_PAckattributes IsNot Nothing Then
|
||||
For Each PK In WARE.decl_PAckattributes
|
||||
|
||||
Dim VerpackArtTxt = sbPkTyp.GET_VALUE_OnlyReturn(PK.pack_type)
|
||||
dgvPackstuecke.Rows.Add(PK.pack_type, PK.pack_count, VerpackArtTxt, PK.notes)
|
||||
Next
|
||||
End If
|
||||
RaiseEvent RohmasseChanged(If(IsNumeric(txtRohmasse.Text), CDbl(txtRohmasse.Text), 0), getPackstuecke)
|
||||
|
||||
usrcntlVersedner.kdFirma.Text = WARE.sender_name
|
||||
usrcntlVersedner.txtStrasse.Text = WARE.sender_address
|
||||
usrcntlVersedner.txtPlz.Text = WARE.sender_postcode
|
||||
usrcntlVersedner.txtOrt.Text = WARE.sender_city_name
|
||||
usrcntlVersedner.txtEORI.Text = WARE.sender_eori_code
|
||||
usrcntlVersedner.sbLand.SET_VALUE(WARE.sender_country_id)
|
||||
|
||||
usrcntlEmpfaenger.kdFirma.Text = WARE.consignee_name
|
||||
usrcntlEmpfaenger.txtStrasse.Text = WARE.consignee_address
|
||||
usrcntlEmpfaenger.txtPlz.Text = WARE.consignee_postcode
|
||||
usrcntlEmpfaenger.txtOrt.Text = WARE.consignee_city_name
|
||||
usrcntlEmpfaenger.txtEORI.Text = WARE.consignee_eori_code
|
||||
usrcntlEmpfaenger.sbLand.SET_VALUE(WARE.consignee_country_id)
|
||||
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
|
||||
addPackstuecke()
|
||||
End Sub
|
||||
|
||||
Sub addPackstuecke()
|
||||
Label23.Visible = False
|
||||
Label24.Visible = False
|
||||
If sbPkTyp._value = "" Then Label24.Visible = True : sbPkTyp.Focus() : Exit Sub
|
||||
If txtPkAnzahl.Text = "" Then Label23.Visible = True : txtPkAnzahl.Focus() : Exit Sub
|
||||
|
||||
If PK_EDIT >= 0 Then
|
||||
dgvPackstuecke.Rows.RemoveAt(PK_EDIT)
|
||||
dgvPackstuecke.Rows.Insert(PK_EDIT, sbPkTyp._value, txtPkAnzahl.Text, sbPkTyp.Text, txtPkMarke.Text)
|
||||
PK_EDIT = -1
|
||||
btn.BackgroundImage = My.Resources.plus
|
||||
lklBearbeitungAbbrechenPK.Visible = False
|
||||
Else
|
||||
dgvPackstuecke.Rows.Add(sbPkTyp._value, txtPkAnzahl.Text, sbPkTyp.Text, txtPkMarke.Text)
|
||||
End If
|
||||
sbPkTyp.SET_VALUE("") : txtPkAnzahl.Text = "" : txtPkMarke.Text = "ohne"
|
||||
dgvPackstuecke.FirstDisplayedScrollingRowIndex = dgvPackstuecke.RowCount - 1
|
||||
dgvPackstuecke.ClearSelection()
|
||||
txtPkAnzahl.Focus()
|
||||
|
||||
RaiseEvent RohmasseChanged(If(IsNumeric(txtRohmasse.Text), CDbl(txtRohmasse.Text), 0), getPackstuecke)
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
addUnterlage()
|
||||
End Sub
|
||||
|
||||
Sub addUnterlage()
|
||||
Label22.Visible = False
|
||||
If sbUlArten._value = "" Then Label22.Visible = True : sbUlArten.Focus() : Exit Sub
|
||||
|
||||
If UL_EDIT >= 0 Then
|
||||
dgvUnterlage.Rows.RemoveAt(UL_EDIT)
|
||||
dgvUnterlage.Rows.Insert(UL_EDIT, sbUlArten._value, sbUlArten.Text, txtUlReferenz.Text, txtUlZusatz.Text)
|
||||
UL_EDIT = -1
|
||||
Button1.BackgroundImage = My.Resources.plus
|
||||
lklBearbeitungAbbrechenUl.Visible = False
|
||||
Else
|
||||
dgvUnterlage.Rows.Add(sbUlArten._value, sbUlArten.Text, txtUlReferenz.Text, txtUlZusatz.Text)
|
||||
End If
|
||||
|
||||
txtUlZusatz.Text = "" : txtUlReferenz.Text = "" : sbUlArten.SET_VALUE("")
|
||||
dgvUnterlage.FirstDisplayedScrollingRowIndex = dgvUnterlage.RowCount - 1
|
||||
dgvUnterlage.ClearSelection()
|
||||
sbUlArten.Focus()
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub PackstueckeKeyDown(sender As Object, e As KeyEventArgs) Handles sbPkTyp.KeyDown, txtPkAnzahl.KeyDown, txtPkMarke.KeyDown
|
||||
If e.KeyCode = Keys.Return Then addPackstuecke() : e.Handled = True
|
||||
End Sub
|
||||
|
||||
Private Sub UnterlageKeyDown(sender As Object, e As KeyEventArgs) Handles txtUlZusatz.KeyDown, txtUlReferenz.KeyDown, sbUlArten.KeyDown
|
||||
If e.KeyCode = Keys.Return Then addUnterlage() : e.Handled = True
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
||||
If dgvPackstuecke.SelectedRows.Count > 0 Then
|
||||
If MsgBox("Möchten Sie den Eintrag in 'Packstücke' wirklich löschen?", vbYesNoCancel) = vbYes Then
|
||||
dgvPackstuecke.Rows.Remove(dgvPackstuecke.SelectedRows(0))
|
||||
End If
|
||||
End If
|
||||
dgvPackstuecke.ClearSelection()
|
||||
|
||||
RaiseEvent RohmasseChanged(If(IsNumeric(txtRohmasse.Text), CDbl(txtRohmasse.Text), 0), getPackstuecke)
|
||||
End Sub
|
||||
|
||||
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
|
||||
If dgvUnterlage.SelectedRows.Count > 0 Then
|
||||
If MsgBox("Möchten Sie den Eintrag in 'Unterlagen' wirklich löschen?", vbYesNoCancel) = vbYes Then
|
||||
dgvUnterlage.Rows.Remove(dgvUnterlage.SelectedRows(0))
|
||||
End If
|
||||
End If
|
||||
dgvUnterlage.ClearSelection()
|
||||
End Sub
|
||||
|
||||
Private Sub MyTextBox2_TextChanged(sender As Object, e As EventArgs) Handles txtWarenwert.TextChanged, txtSiBetragProzent.TextChanged, txtWarenwert.Leave, txtSiBetragProzent.Leave, cboWaehrung.Leave
|
||||
If IsNumeric(txtWarenwert._value) And IsNumeric(txtSiBetragProzent._value) Then
|
||||
Label5.Text = CDbl(txtSiBetragProzent._value * txtWarenwert._value).ToString("N2") & " " & cboWaehrung._value
|
||||
Else
|
||||
Label5.Text = CDbl(0).ToString("N2") & " " & cboWaehrung._value
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub txtRohmasse_TextChanged(sender As Object, e As EventArgs) Handles txtRohmasse.TextChanged
|
||||
RaiseEvent RohmasseChanged(If(IsNumeric(txtRohmasse.Text), CDbl(txtRohmasse.Text), 0), getPackstuecke)
|
||||
End Sub
|
||||
|
||||
Private Sub dgvPackstuecke_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvPackstuecke.CellDoubleClick
|
||||
If e.RowIndex < 0 Then Exit Sub
|
||||
editableRowPK(e.RowIndex)
|
||||
End Sub
|
||||
|
||||
|
||||
Sub editableRowPK(index As Integer)
|
||||
txtPkAnzahl.Text = dgvPackstuecke.Rows(index).Cells("Anzahl").Value
|
||||
sbPkTyp.SET_VALUE(dgvPackstuecke.Rows(index).Cells("PkCode").Value)
|
||||
txtPkMarke.Text = dgvPackstuecke.Rows(index).Cells("Marke").Value
|
||||
PK_EDIT = index
|
||||
btn.BackgroundImage = My.Resources.stift
|
||||
lklBearbeitungAbbrechenPK.Visible = True
|
||||
End Sub
|
||||
|
||||
Private Sub lklBearbeitungAbbrechenPK_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lklBearbeitungAbbrechenPK.LinkClicked
|
||||
PK_EDIT = -1
|
||||
txtPkAnzahl.Text = ""
|
||||
sbPkTyp.SET_VALUE("")
|
||||
txtPkMarke.Text = ""
|
||||
btn.BackgroundImage = My.Resources.plus
|
||||
lklBearbeitungAbbrechenPK.Visible = False
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub dgvUnterlage_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvUnterlage.CellDoubleClick
|
||||
If e.RowIndex < 0 Then Exit Sub
|
||||
editableRowUL(e.RowIndex)
|
||||
End Sub
|
||||
|
||||
|
||||
Sub editableRowUL(index As Integer)
|
||||
txtUlReferenz.Text = dgvUnterlage.Rows(index).Cells("UlReferenz").Value
|
||||
sbUlArten.SET_VALUE(dgvUnterlage.Rows(index).Cells("UlCode").Value)
|
||||
txtUlZusatz.Text = dgvUnterlage.Rows(index).Cells("UlZusatz").Value
|
||||
UL_EDIT = index
|
||||
Button1.BackgroundImage = My.Resources.stift
|
||||
lklBearbeitungAbbrechenUl.Visible = True
|
||||
End Sub
|
||||
|
||||
Private Sub lklBearbeitungAbbrechenUl_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lklBearbeitungAbbrechenUl.LinkClicked
|
||||
UL_EDIT = -1
|
||||
txtUlReferenz.Text = ""
|
||||
sbUlArten.SET_VALUE("")
|
||||
txtUlZusatz.Text = ""
|
||||
Button1.BackgroundImage = My.Resources.plus
|
||||
lklBearbeitungAbbrechenUl.Visible = False
|
||||
End Sub
|
||||
|
||||
Private Sub dgvPackstuecke_CellContentClick(sender As Object, e As EventArgs) Handles dgvPackstuecke.LostFocus
|
||||
dgvPackstuecke.ClearSelection()
|
||||
End Sub
|
||||
|
||||
Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles cbxEmportAusLand.CheckedChanged
|
||||
sbExportAusLand.Enabled = cbxEmportAusLand.Checked
|
||||
End Sub
|
||||
|
||||
Private Sub txtEigenmasse_TextChanged() Handles txtEigenmasse.ValueChanged, txtRohmasse.ValueChanged
|
||||
Label7.Visible = False
|
||||
If IsNumeric(txtRohmasse._value) And IsNumeric(txtEigenmasse._value) Then
|
||||
If CDbl(txtRohmasse._value) < CDbl(txtEigenmasse._value) Then
|
||||
Label7.Visible = True
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
|
||||
196
SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Positionen.Designer.vb
generated
Normal file
196
SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Positionen.Designer.vb
generated
Normal file
@@ -0,0 +1,196 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class usrCntlModaltrans_NCTS_Positionen
|
||||
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.components = New System.ComponentModel.Container()
|
||||
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Me.pnl = New System.Windows.Forms.Panel()
|
||||
Me.MyPanel2 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
|
||||
Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
|
||||
Me.Button2 = New System.Windows.Forms.Button()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.btn = New System.Windows.Forms.Button()
|
||||
Me.dgvPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||
Me.index = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.ID = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.Ware = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.Timer = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.pnl.SuspendLayout()
|
||||
Me.MyPanel1.SuspendLayout()
|
||||
CType(Me.dgvPositionen, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'pnl
|
||||
'
|
||||
Me.pnl.Controls.Add(Me.MyPanel2)
|
||||
Me.pnl.Controls.Add(Me.MyPanel1)
|
||||
Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.pnl.Location = New System.Drawing.Point(0, 0)
|
||||
Me.pnl.Name = "pnl"
|
||||
Me.pnl.Size = New System.Drawing.Size(928, 501)
|
||||
Me.pnl.TabIndex = 0
|
||||
'
|
||||
'MyPanel2
|
||||
'
|
||||
Me.MyPanel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.MyPanel2.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.MyPanel2.Location = New System.Drawing.Point(214, 0)
|
||||
Me.MyPanel2.Name = "MyPanel2"
|
||||
Me.MyPanel2.Size = New System.Drawing.Size(714, 501)
|
||||
Me.MyPanel2.TabIndex = 1
|
||||
'
|
||||
'MyPanel1
|
||||
'
|
||||
Me.MyPanel1.Controls.Add(Me.Button2)
|
||||
Me.MyPanel1.Controls.Add(Me.Button1)
|
||||
Me.MyPanel1.Controls.Add(Me.btn)
|
||||
Me.MyPanel1.Controls.Add(Me.dgvPositionen)
|
||||
Me.MyPanel1.Dock = System.Windows.Forms.DockStyle.Left
|
||||
Me.MyPanel1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.MyPanel1.Name = "MyPanel1"
|
||||
Me.MyPanel1.Size = New System.Drawing.Size(214, 501)
|
||||
Me.MyPanel1.TabIndex = 0
|
||||
'
|
||||
'Button2
|
||||
'
|
||||
Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||
Me.Button2.BackgroundImage = Global.SDL.My.Resources.plus
|
||||
Me.Button2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button2.Location = New System.Drawing.Point(132, 478)
|
||||
Me.Button2.Name = "Button2"
|
||||
Me.Button2.Size = New System.Drawing.Size(28, 23)
|
||||
Me.Button2.TabIndex = 6
|
||||
Me.Button2.UseVisualStyleBackColor = True
|
||||
Me.Button2.Visible = False
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||
Me.Button1.BackgroundImage = Global.SDL.My.Resources.del
|
||||
Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button1.Location = New System.Drawing.Point(159, 478)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(28, 23)
|
||||
Me.Button1.TabIndex = 3
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btn
|
||||
'
|
||||
Me.btn.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||
Me.btn.BackgroundImage = Global.SDL.My.Resources.plus
|
||||
Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btn.Location = New System.Drawing.Point(186, 478)
|
||||
Me.btn.Name = "btn"
|
||||
Me.btn.Size = New System.Drawing.Size(28, 23)
|
||||
Me.btn.TabIndex = 2
|
||||
Me.btn.UseVisualStyleBackColor = True
|
||||
'
|
||||
'dgvPositionen
|
||||
'
|
||||
Me.dgvPositionen.AKTUALISIERUNGS_INTERVALL = -1
|
||||
Me.dgvPositionen.AllowUserToAddRows = False
|
||||
Me.dgvPositionen.AllowUserToDeleteRows = False
|
||||
Me.dgvPositionen.AllowUserToResizeColumns = False
|
||||
Me.dgvPositionen.AllowUserToResizeRows = False
|
||||
Me.dgvPositionen.BackgroundColor = System.Drawing.Color.White
|
||||
Me.dgvPositionen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvPositionen.ColumnHeadersVisible = False
|
||||
Me.dgvPositionen.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.index, Me.ID, Me.Ware})
|
||||
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
|
||||
DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvPositionen.DefaultCellStyle = DataGridViewCellStyle2
|
||||
Me.dgvPositionen.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.dgvPositionen.Location = New System.Drawing.Point(0, 0)
|
||||
Me.dgvPositionen.MultiSelect = False
|
||||
Me.dgvPositionen.Name = "dgvPositionen"
|
||||
Me.dgvPositionen.ReadOnly = True
|
||||
Me.dgvPositionen.RowHeadersVisible = False
|
||||
Me.dgvPositionen.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
|
||||
Me.dgvPositionen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
|
||||
Me.dgvPositionen.Size = New System.Drawing.Size(214, 501)
|
||||
Me.dgvPositionen.TabIndex = 5
|
||||
'
|
||||
'index
|
||||
'
|
||||
Me.index.HeaderText = "index"
|
||||
Me.index.Name = "index"
|
||||
Me.index.ReadOnly = True
|
||||
Me.index.Visible = False
|
||||
'
|
||||
'ID
|
||||
'
|
||||
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
|
||||
Me.ID.DefaultCellStyle = DataGridViewCellStyle1
|
||||
Me.ID.HeaderText = "ID"
|
||||
Me.ID.Name = "ID"
|
||||
Me.ID.ReadOnly = True
|
||||
Me.ID.Width = 30
|
||||
'
|
||||
'Ware
|
||||
'
|
||||
Me.Ware.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
|
||||
Me.Ware.HeaderText = "Ware"
|
||||
Me.Ware.Name = "Ware"
|
||||
Me.Ware.ReadOnly = True
|
||||
'
|
||||
'Timer
|
||||
'
|
||||
Me.Timer.Enabled = True
|
||||
Me.Timer.Interval = 1000
|
||||
'
|
||||
'usrCntlATLAS_NCTS_Positionen
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.BackColor = System.Drawing.Color.White
|
||||
Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.Controls.Add(Me.pnl)
|
||||
Me.Name = "usrCntlATLAS_NCTS_Positionen"
|
||||
Me.Size = New System.Drawing.Size(928, 501)
|
||||
Me.pnl.ResumeLayout(False)
|
||||
Me.MyPanel1.ResumeLayout(False)
|
||||
CType(Me.dgvPositionen, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents pnl As System.Windows.Forms.Panel
|
||||
Friend WithEvents MyPanel2 As VERAG_PROG_ALLGEMEIN.MyPanel
|
||||
Friend WithEvents MyPanel1 As VERAG_PROG_ALLGEMEIN.MyPanel
|
||||
Friend WithEvents Button1 As System.Windows.Forms.Button
|
||||
Friend WithEvents btn As System.Windows.Forms.Button
|
||||
Friend WithEvents dgvPositionen As VERAG_PROG_ALLGEMEIN.MyDatagridview
|
||||
Friend WithEvents Timer As System.Windows.Forms.Timer
|
||||
Friend WithEvents index As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
Friend WithEvents ID As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
Friend WithEvents Ware As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
Friend WithEvents Button2 As Button
|
||||
End Class
|
||||
132
SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Positionen.resx
Normal file
132
SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Positionen.resx
Normal file
@@ -0,0 +1,132 @@
|
||||
<?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="index.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="ID.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="Ware.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="Timer.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
</root>
|
||||
312
SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Positionen.vb
Normal file
312
SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS_Positionen.vb
Normal file
@@ -0,0 +1,312 @@
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
Public Class usrCntlModaltrans_NCTS_Positionen
|
||||
|
||||
Dim NCTS_TR As VERAG_PROG_ALLGEMEIN.cOregonNCTs_DeclarationData = Nothing
|
||||
Dim POS As New List(Of usrCntlModaltrans_NCTS_Position)
|
||||
Dim sectionChangeBLOCK = False
|
||||
Dim gesRohmasse = 0
|
||||
Dim gesPackstuecke = 0
|
||||
Event RohmasseChanged(gesRohmasse As Double, gesPackstuecke As Double)
|
||||
Event PosAnzChanged(anzahlPos As Double)
|
||||
|
||||
Sub New(NCTS_TR As VERAG_PROG_ALLGEMEIN.cOregonNCTs_DeclarationData)
|
||||
InitializeComponent()
|
||||
Me.NCTS_TR = NCTS_TR
|
||||
End Sub
|
||||
|
||||
Public Sub setValues_TR(NCTS_POS As VERAG_PROG_ALLGEMEIN.cOregonNCTs_DeclarationData)
|
||||
If NCTS_POS Is Nothing Then Exit Sub
|
||||
POS.Clear()
|
||||
|
||||
For Each p In NCTS_POS.goods
|
||||
addItem_TR(p)
|
||||
Next
|
||||
MyPanel2.Controls.Clear()
|
||||
MyListBox1_SelectedIndexChanged(dgvPositionen, New EventArgs)
|
||||
End Sub
|
||||
|
||||
|
||||
Sub initListBox(Optional selectedIndex = -1)
|
||||
If dgvPositionen.ColumnCount <= 0 Then Exit Sub
|
||||
If selectedIndex >= 0 Then sectionChangeBLOCK = True
|
||||
Dim cnt As Integer = 1
|
||||
dgvPositionen.Rows.Clear()
|
||||
For Each p In POS
|
||||
p.lblPosNr.Text = cnt
|
||||
dgvPositionen.Rows.Add(POS.IndexOf(p), cnt, p.txtWarenbezeichnung.Text)
|
||||
cnt += 1
|
||||
Next
|
||||
If selectedIndex >= 0 Then
|
||||
' MyListBox1.SetSelected(selectedIndex, True)
|
||||
' sectionChangeBLOCK = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub dgvPositionen_KeyDown(sender As Object, e As KeyEventArgs) Handles dgvPositionen.KeyDown
|
||||
If e.KeyCode = Keys.Delete Then
|
||||
removeItem(dgvPositionen.SelectedRows(0).Cells("index").Value)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub MyListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles dgvPositionen.SelectionChanged
|
||||
Try
|
||||
|
||||
If sectionChangeBLOCK Then Exit Sub
|
||||
MyPanel2.Controls.Clear()
|
||||
If dgvPositionen.SelectedRows.Count > 0 Then
|
||||
MyPanel2.Controls.Add(POS(dgvPositionen.SelectedRows(0).Cells("index").Value))
|
||||
POS(dgvPositionen.SelectedRows(0).Cells("index").Value).txtWarenbezeichnung.Focus()
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub usrCntlATLAS_NCTS_Position_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
|
||||
If e.Control = True Then
|
||||
If e.KeyCode = Keys.Oemplus Then addItem()
|
||||
If e.KeyCode = Keys.OemMinus Then
|
||||
If dgvPositionen.SelectedRows.Count > 0 Then
|
||||
removeItem(dgvPositionen.SelectedRows(0).Cells("index").Value)
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Protected Overrides Function ProcessCmdKey(ByRef msg As Message, ByVal keyData As Keys) As Boolean
|
||||
Try
|
||||
If keyData = (Keys.Control Or Keys.Add) Then
|
||||
'RaiseEvent a() : Return True
|
||||
addItem()
|
||||
Return True
|
||||
ElseIf keyData = (Keys.Control Or Keys.Subtract) Then
|
||||
'RaiseEvent REMOVE(ID) : Return True
|
||||
removeItem(dgvPositionen.SelectedRows(0).Cells("index").Value)
|
||||
Return True
|
||||
ElseIf keyData = Keys.PageUp Then
|
||||
'RaiseEvent PREV_POS() : Return True
|
||||
PREV_POS()
|
||||
Return True
|
||||
ElseIf keyData = Keys.PageDown Then
|
||||
'RaiseEvent NEXT_POS() : Return True
|
||||
NEXT_POS()
|
||||
Return True
|
||||
End If
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
Return False
|
||||
End Function
|
||||
|
||||
|
||||
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
|
||||
addItem()
|
||||
End Sub
|
||||
|
||||
Function duplicateItem() As usrCntlModaltrans_NCTS_Position
|
||||
If dgvPositionen.SelectedRows.Count > 0 Then
|
||||
|
||||
|
||||
MyPanel2.Controls.Add(POS(dgvPositionen.SelectedRows(0).Cells("index").Value))
|
||||
|
||||
Dim u As usrCntlModaltrans_NCTS_Position = POS(dgvPositionen.SelectedRows(0).Cells("index").Value) '.CreateCopy(New usrCntlATLAS_NCTS_Position))
|
||||
|
||||
|
||||
AddHandler u.RohmasseChanged, Sub(r, pk)
|
||||
gesRohmasse = 0
|
||||
gesPackstuecke = 0
|
||||
For Each p As usrCntlModaltrans_NCTS_Position In POS
|
||||
gesRohmasse += If(IsNumeric(p.txtRohmasse.Text), p.txtRohmasse.Text, 0)
|
||||
For Each row As DataGridViewRow In p.dgvPackstuecke.Rows
|
||||
gesPackstuecke += If(IsNumeric(row.Cells("Anzahl").Value), row.Cells("Anzahl").Value, 0)
|
||||
Next
|
||||
Next
|
||||
RaiseEvent RohmasseChanged(gesRohmasse, gesPackstuecke)
|
||||
End Sub
|
||||
u.Dock = DockStyle.Fill
|
||||
POS.Add(u)
|
||||
initListBox()
|
||||
dgvPositionen.ClearSelection()
|
||||
If dgvPositionen.RowCount > 0 Then dgvPositionen.Rows(dgvPositionen.RowCount - 1).Selected = True
|
||||
RaiseEvent PosAnzChanged(POS.Count)
|
||||
Return u
|
||||
End If
|
||||
End Function
|
||||
|
||||
|
||||
Function addItem(Optional POSTMP As cOregonNCTs_GoodsAttribute = Nothing) As usrCntlModaltrans_NCTS_Position
|
||||
Dim u = New usrCntlModaltrans_NCTS_Position(POS.Count, POSTMP)
|
||||
|
||||
AddHandler u.RohmasseChanged, Sub(r, pk)
|
||||
gesRohmasse = 0
|
||||
gesPackstuecke = 0
|
||||
For Each p As usrCntlModaltrans_NCTS_Position In POS
|
||||
gesRohmasse += If(IsNumeric(p.txtRohmasse.Text), p.txtRohmasse.Text, 0)
|
||||
For Each row As DataGridViewRow In p.dgvPackstuecke.Rows
|
||||
gesPackstuecke += If(IsNumeric(row.Cells("Anzahl").Value), row.Cells("Anzahl").Value, 0)
|
||||
Next
|
||||
Next
|
||||
RaiseEvent RohmasseChanged(gesRohmasse, gesPackstuecke)
|
||||
End Sub
|
||||
u.Dock = DockStyle.Fill
|
||||
|
||||
POS.Add(u)
|
||||
initListBox()
|
||||
dgvPositionen.ClearSelection()
|
||||
If dgvPositionen.RowCount > 0 Then dgvPositionen.Rows(dgvPositionen.RowCount - 1).Selected = True
|
||||
RaiseEvent PosAnzChanged(POS.Count)
|
||||
Return u
|
||||
End Function
|
||||
|
||||
|
||||
Function addItem_TR(Optional POSTMP As cOregonNCTs_GoodsAttribute = Nothing) As usrCntlModaltrans_NCTS_Position '
|
||||
Dim u = New usrCntlModaltrans_NCTS_Position(POS.Count, POSTMP)
|
||||
|
||||
AddHandler u.RohmasseChanged, Sub(r, pk)
|
||||
gesRohmasse = 0
|
||||
gesPackstuecke = 0
|
||||
For Each p As usrCntlModaltrans_NCTS_Position In POS
|
||||
gesRohmasse += If(IsNumeric(p.txtRohmasse.Text), p.txtRohmasse.Text, 0)
|
||||
For Each row As DataGridViewRow In p.dgvPackstuecke.Rows
|
||||
gesPackstuecke += If(IsNumeric(row.Cells("Anzahl").Value), row.Cells("Anzahl").Value, 0)
|
||||
Next
|
||||
Next
|
||||
RaiseEvent RohmasseChanged(gesRohmasse, gesPackstuecke)
|
||||
End Sub
|
||||
u.Dock = DockStyle.Fill
|
||||
|
||||
POS.Add(u)
|
||||
initListBox()
|
||||
dgvPositionen.ClearSelection()
|
||||
If dgvPositionen.RowCount > 0 Then dgvPositionen.Rows(dgvPositionen.RowCount - 1).Selected = True
|
||||
RaiseEvent PosAnzChanged(POS.Count)
|
||||
Return u
|
||||
End Function
|
||||
|
||||
|
||||
Sub removeItem(index)
|
||||
If index < 0 Then Exit Sub
|
||||
'If index < 0 Then Exit Sub
|
||||
If dgvPositionen.Rows.Count > index Then
|
||||
If vbYes = MsgBox("Möchten Sie die Position wirklich löschen?", vbYesNoCancel) Then
|
||||
dgvPositionen.ClearSelection()
|
||||
If POS.Count > index Then POS.RemoveAt(index)
|
||||
initListBox()
|
||||
If dgvPositionen.Rows.Count > index Then
|
||||
dgvPositionen.Rows(index).Selected = True 'SetSelected(index, True)
|
||||
ElseIf dgvPositionen.Rows.Count > 0 Then
|
||||
dgvPositionen.Rows(0).Selected = True
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
RaiseEvent PosAnzChanged(POS.Count)
|
||||
End Sub
|
||||
|
||||
Sub NEXT_POS()
|
||||
If dgvPositionen.SelectedRows.Count > 0 Then
|
||||
If dgvPositionen.RowCount > dgvPositionen.SelectedRows(0).Index + 1 Then
|
||||
Dim i = dgvPositionen.SelectedRows(0).Index
|
||||
dgvPositionen.ClearSelection()
|
||||
dgvPositionen.Rows(i + 1).Selected = True
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Sub PREV_POS()
|
||||
If dgvPositionen.SelectedRows.Count > 0 Then
|
||||
If dgvPositionen.SelectedRows(0).Index > 0 Then
|
||||
Dim i = dgvPositionen.SelectedRows(0).Index
|
||||
dgvPositionen.ClearSelection()
|
||||
dgvPositionen.Rows(i - 1).Selected = True
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
If dgvPositionen.SelectedRows.Count > 0 Then
|
||||
removeItem(dgvPositionen.SelectedRows(0).Cells("index").Value)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Timer_Tick(sender As Object, e As EventArgs) Handles Timer.Tick
|
||||
refreshDGV()
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub refreshDGV()
|
||||
With dgvPositionen
|
||||
If dgvPositionen.ColumnCount = 0 Then Exit Sub
|
||||
For Each r As DataGridViewRow In .Rows
|
||||
Dim index = r.Cells("index").Value
|
||||
If POS.Count > index Then
|
||||
r.Cells("Ware").Value = POS(index).txtWarenbezeichnung.Text
|
||||
End If
|
||||
Next
|
||||
End With
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Public Sub getValues_TR(ByRef NCTS As VERAG_PROG_ALLGEMEIN.cOregonNCTs_DeclarationData)
|
||||
NCTS.goods.Clear()
|
||||
|
||||
Dim cnt As Integer = 1
|
||||
For Each P In POS
|
||||
Dim POSITION As New VERAG_PROG_ALLGEMEIN.cOregonNCTs_GoodsAttribute
|
||||
|
||||
'POSITION.nctsWP_Id As Integer
|
||||
' POSITION.nctsWP_NctsId = NCTS.ncts_Id
|
||||
POSITION.line_no = cnt
|
||||
POSITION.commodity = P.txtWarenbezeichnung.Text
|
||||
POSITION.invoice_amount = cProgramFunctions.isLeerNothingDbl(P.txtWarenwert._value)
|
||||
POSITION.invoice_curr = cProgramFunctions.isLeerNothing(P.cboWaehrung._value)
|
||||
POSITION.net_wg = cProgramFunctions.isLeerNothingDbl(P.txtRohmasse.Text)
|
||||
POSITION.brut_wg = cProgramFunctions.isLeerNothingDbl(P.txtEigenmasse.Text)
|
||||
POSITION.origin_country_id = cProgramFunctions.isLeerNothing(P.sbVersendungsLand._value)
|
||||
POSITION.preferential_country_id = cProgramFunctions.isLeerNothing(P.sbBestimmungsland._value)
|
||||
|
||||
|
||||
POSITION.decl_PAckattributes = New List(Of VERAG_PROG_ALLGEMEIN.cOregonNCTs_PacksAttribute)
|
||||
For Each r As DataGridViewRow In P.dgvPackstuecke.Rows
|
||||
Dim Pk As New VERAG_PROG_ALLGEMEIN.cOregonNCTs_PacksAttribute
|
||||
Pk.pack_type = r.Cells("PkCode").Value
|
||||
Pk.pack_count = r.Cells("Anzahl").Value
|
||||
Pk.notes = r.Cells("Marke").Value
|
||||
POSITION.decl_PAckattributes.Add(Pk)
|
||||
Next
|
||||
|
||||
POSITION.sender_name = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.kdFirma.Text)
|
||||
POSITION.sender_address = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.txtStrasse.Text)
|
||||
POSITION.sender_postcode = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.txtPlz.Text)
|
||||
POSITION.sender_city_name = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.txtOrt.Text)
|
||||
POSITION.sender_country_id = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.sbLand._value)
|
||||
POSITION.sender_eori_code = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.txtEORI.Text)
|
||||
|
||||
POSITION.consignee_name = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.kdFirma.Text)
|
||||
POSITION.consignee_address = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.txtStrasse.Text)
|
||||
POSITION.consignee_postcode = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.txtPlz.Text)
|
||||
POSITION.consignee_city_name = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.txtOrt.Text)
|
||||
POSITION.consignee_country_id = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.sbLand._value)
|
||||
POSITION.consignee_country_id = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.txtEORI.Text)
|
||||
|
||||
NCTS.goods.Add(POSITION)
|
||||
cnt += 1
|
||||
Next
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub MyPanel2_ControlAdded(sender As Object, e As ControlEventArgs) Handles MyPanel2.ControlAdded
|
||||
Try : DirectCast(e.Control, usrCntlATLAS_NCTS_Position).txtWarenbezeichnung.Focus() : Catch : End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
||||
duplicateItem()
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
@@ -22,18 +22,20 @@ Partial Class frmMitarbeitersuche
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMitarbeitersuche))
|
||||
Me.pnlSrch = New System.Windows.Forms.Panel()
|
||||
Me.Button4 = New System.Windows.Forms.Button()
|
||||
Me.btnClose = New System.Windows.Forms.Button()
|
||||
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
|
||||
Me.sbMitarbeiter = New VERAG_PROG_ALLGEMEIN.MySearchBox()
|
||||
Me.pnlMain = New System.Windows.Forms.Panel()
|
||||
Me.pnl = New System.Windows.Forms.Panel()
|
||||
Me.btnSettings = New System.Windows.Forms.Button()
|
||||
Me.PictureBox9 = New System.Windows.Forms.PictureBox()
|
||||
Me.lblTimasSaldo = New System.Windows.Forms.Label()
|
||||
Me.lblTimasZeiten = New System.Windows.Forms.Label()
|
||||
Me.pnlWohnadresse = New System.Windows.Forms.Panel()
|
||||
Me.btnSettings = New System.Windows.Forms.Button()
|
||||
Me.lblWohnadresse = New System.Windows.Forms.Label()
|
||||
Me.Label6 = New System.Windows.Forms.Label()
|
||||
Me.lblSpitzname = New System.Windows.Forms.Label()
|
||||
@@ -56,8 +58,7 @@ Partial Class frmMitarbeitersuche
|
||||
Me.pnlGeburtstag = New System.Windows.Forms.Panel()
|
||||
Me.lblGeburtstag = New System.Windows.Forms.Label()
|
||||
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel()
|
||||
Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
|
||||
Me.lblPosition = New System.Windows.Forms.Label()
|
||||
Me.Label8 = New System.Windows.Forms.Label()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
@@ -66,7 +67,7 @@ Partial Class frmMitarbeitersuche
|
||||
Me.lblFirma = New System.Windows.Forms.Label()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.sbMitarbeiter = New VERAG_PROG_ALLGEMEIN.MySearchBox()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.pnlSrch.SuspendLayout()
|
||||
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.pnlMain.SuspendLayout()
|
||||
@@ -137,6 +138,32 @@ Partial Class frmMitarbeitersuche
|
||||
Me.PictureBox2.TabIndex = 18
|
||||
Me.PictureBox2.TabStop = False
|
||||
'
|
||||
'sbMitarbeiter
|
||||
'
|
||||
Me.sbMitarbeiter._allowFreitext = False
|
||||
Me.sbMitarbeiter._AllowSetValue = False
|
||||
Me.sbMitarbeiter._allowSpaceAsSplitter = True
|
||||
Me.sbMitarbeiter._autoSizeGross = False
|
||||
Me.sbMitarbeiter._hideIfListEmpty = True
|
||||
Me.sbMitarbeiter._value = Nothing
|
||||
Me.sbMitarbeiter.conn_art = "FMZOLL"
|
||||
Me.sbMitarbeiter.dgvpos = "LEFT"
|
||||
Me.sbMitarbeiter.DISPLAY_PARAM = Nothing
|
||||
Me.sbMitarbeiter.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
|
||||
Me.sbMitarbeiter.INVISIBLE_COLUMNS = Nothing
|
||||
Me.sbMitarbeiter.key_visible = False
|
||||
Me.sbMitarbeiter.KEYPARAM = Nothing
|
||||
Me.sbMitarbeiter.Location = New System.Drawing.Point(45, 11)
|
||||
Me.sbMitarbeiter.Name = "sbMitarbeiter"
|
||||
Me.sbMitarbeiter.searchActive = True
|
||||
Me.sbMitarbeiter.Size = New System.Drawing.Size(582, 29)
|
||||
Me.sbMitarbeiter.SQL_ORDER_BY = Nothing
|
||||
Me.sbMitarbeiter.SQL_SELECT = Nothing
|
||||
Me.sbMitarbeiter.SQL_WHERE = Nothing
|
||||
Me.sbMitarbeiter.SQL_WhereParamList = Nothing
|
||||
Me.sbMitarbeiter.TabIndex = 0
|
||||
Me.sbMitarbeiter.usrcntl = Nothing
|
||||
'
|
||||
'pnlMain
|
||||
'
|
||||
Me.pnlMain.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
@@ -178,6 +205,21 @@ Partial Class frmMitarbeitersuche
|
||||
Me.pnl.Size = New System.Drawing.Size(774, 437)
|
||||
Me.pnl.TabIndex = 24
|
||||
'
|
||||
'btnSettings
|
||||
'
|
||||
Me.btnSettings.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.btnSettings.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnSettings.Image = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.wheel_s
|
||||
Me.btnSettings.ImageAlign = System.Drawing.ContentAlignment.TopLeft
|
||||
Me.btnSettings.Location = New System.Drawing.Point(650, 386)
|
||||
Me.btnSettings.Name = "btnSettings"
|
||||
Me.btnSettings.Size = New System.Drawing.Size(125, 35)
|
||||
Me.btnSettings.TabIndex = 29
|
||||
Me.btnSettings.Text = "Einstellungen"
|
||||
Me.btnSettings.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.btnSettings.UseVisualStyleBackColor = True
|
||||
Me.btnSettings.Visible = False
|
||||
'
|
||||
'PictureBox9
|
||||
'
|
||||
Me.PictureBox9.Image = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.uhr_green
|
||||
@@ -193,7 +235,7 @@ Partial Class frmMitarbeitersuche
|
||||
Me.lblTimasSaldo.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
|
||||
Me.lblTimasSaldo.Location = New System.Drawing.Point(45, 396)
|
||||
Me.lblTimasSaldo.Name = "lblTimasSaldo"
|
||||
Me.lblTimasSaldo.Size = New System.Drawing.Size(157, 24)
|
||||
Me.lblTimasSaldo.Size = New System.Drawing.Size(152, 24)
|
||||
Me.lblTimasSaldo.TabIndex = 30
|
||||
Me.lblTimasSaldo.Visible = False
|
||||
'
|
||||
@@ -215,21 +257,6 @@ Partial Class frmMitarbeitersuche
|
||||
Me.pnlWohnadresse.Size = New System.Drawing.Size(701, 34)
|
||||
Me.pnlWohnadresse.TabIndex = 20
|
||||
'
|
||||
'btnSettings
|
||||
'
|
||||
Me.btnSettings.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.btnSettings.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnSettings.Image = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.wheel_s
|
||||
Me.btnSettings.ImageAlign = System.Drawing.ContentAlignment.TopLeft
|
||||
Me.btnSettings.Location = New System.Drawing.Point(650, 386)
|
||||
Me.btnSettings.Name = "btnSettings"
|
||||
Me.btnSettings.Size = New System.Drawing.Size(125, 35)
|
||||
Me.btnSettings.TabIndex = 29
|
||||
Me.btnSettings.Text = "Einstellungen"
|
||||
Me.btnSettings.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.btnSettings.UseVisualStyleBackColor = True
|
||||
Me.btnSettings.Visible = False
|
||||
'
|
||||
'lblWohnadresse
|
||||
'
|
||||
Me.lblWohnadresse.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
|
||||
@@ -449,14 +476,6 @@ Partial Class frmMitarbeitersuche
|
||||
Me.PictureBox1.TabIndex = 13
|
||||
Me.PictureBox1.TabStop = False
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.Panel1.Location = New System.Drawing.Point(214, 230)
|
||||
Me.Panel1.Name = "Panel1"
|
||||
Me.Panel1.Size = New System.Drawing.Size(553, 1)
|
||||
Me.Panel1.TabIndex = 29
|
||||
'
|
||||
'MyPanel1
|
||||
'
|
||||
Me.MyPanel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(250, Byte), Integer), CType(CType(254, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
@@ -561,31 +580,13 @@ Partial Class frmMitarbeitersuche
|
||||
Me.Label3.Text = "Niederlassung:"
|
||||
Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
'
|
||||
'sbMitarbeiter
|
||||
'Panel1
|
||||
'
|
||||
Me.sbMitarbeiter._allowFreitext = False
|
||||
Me.sbMitarbeiter._AllowSetValue = False
|
||||
Me.sbMitarbeiter._allowSpaceAsSplitter = True
|
||||
Me.sbMitarbeiter._autoSizeGross = False
|
||||
Me.sbMitarbeiter._hideIfListEmpty = True
|
||||
Me.sbMitarbeiter._value = Nothing
|
||||
Me.sbMitarbeiter.conn_art = "FMZOLL"
|
||||
Me.sbMitarbeiter.dgvpos = "LEFT"
|
||||
Me.sbMitarbeiter.DISPLAY_PARAM = Nothing
|
||||
Me.sbMitarbeiter.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
|
||||
Me.sbMitarbeiter.INVISIBLE_COLUMNS = Nothing
|
||||
Me.sbMitarbeiter.key_visible = False
|
||||
Me.sbMitarbeiter.KEYPARAM = Nothing
|
||||
Me.sbMitarbeiter.Location = New System.Drawing.Point(45, 11)
|
||||
Me.sbMitarbeiter.Name = "sbMitarbeiter"
|
||||
Me.sbMitarbeiter.searchActive = True
|
||||
Me.sbMitarbeiter.Size = New System.Drawing.Size(582, 29)
|
||||
Me.sbMitarbeiter.SQL_ORDER_BY = Nothing
|
||||
Me.sbMitarbeiter.SQL_SELECT = Nothing
|
||||
Me.sbMitarbeiter.SQL_WHERE = Nothing
|
||||
Me.sbMitarbeiter.SQL_WhereParamList = Nothing
|
||||
Me.sbMitarbeiter.TabIndex = 0
|
||||
Me.sbMitarbeiter.usrcntl = Nothing
|
||||
Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.Panel1.Location = New System.Drawing.Point(214, 230)
|
||||
Me.Panel1.Name = "Panel1"
|
||||
Me.Panel1.Size = New System.Drawing.Size(553, 1)
|
||||
Me.Panel1.TabIndex = 29
|
||||
'
|
||||
'frmMitarbeitersuche
|
||||
'
|
||||
|
||||
@@ -2,20 +2,15 @@
|
||||
Imports System.Drawing
|
||||
Imports System.Net
|
||||
Imports System.Reflection
|
||||
Imports System.Security
|
||||
Imports System.Security.Cryptography
|
||||
|
||||
Imports System.Windows.Forms
|
||||
Imports System.Windows.Forms.VisualStyles.VisualStyleElement
|
||||
Imports Spire.Pdf.General.Paper.Uof
|
||||
Imports VERAG_PROG_ALLGEMEIN.agsCustomsExchange
|
||||
Imports VERAG_PROG_ALLGEMEIN.cOregonNCTSDeclarations
|
||||
Imports VERAG_PROG_ALLGEMEIN.IDEV_Intrastat
|
||||
|
||||
|
||||
|
||||
|
||||
Public Class cOregonNCTs_DeclarationData
|
||||
|
||||
Public Property id As Integer
|
||||
Public Property AvisoId As Integer
|
||||
Public Property auto_send As Boolean
|
||||
Public Property badge_code As String
|
||||
Public Property service_code As String
|
||||
@@ -91,6 +86,12 @@ Public Class cOregonNCTs_DeclarationData
|
||||
Public Property guarantee_code As Integer
|
||||
Public Property guarantee_reference As String
|
||||
Public Property status As String
|
||||
Public Property created As DateTime
|
||||
Public Property aviso_id As String
|
||||
Property parties As New List(Of cOregonNCTs_PartiesAttribute)
|
||||
Property traders As New List(Of cOregonNCTs_TraderAdditionsAttribute)
|
||||
Property goods As New List(Of cOregonNCTs_GoodsAttribute)
|
||||
|
||||
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
@@ -99,7 +100,6 @@ Public Class cOregonNCTs_DeclarationData
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Id", id, , True, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AvisoId", AvisoId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("auto_send", auto_send))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("badge_code", badge_code))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("service_code", service_code))
|
||||
@@ -109,24 +109,27 @@ Public Class cOregonNCTs_DeclarationData
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ducr", ducr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mucr", mucr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ducr_part", ducr_part))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("declarant_eori", declarant_eori))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("declarant_name", declarant_name))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("declarant_address", declarant_address))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Carrier_Name", carrier_name))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("declarant_city_name", declarant_city_name))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("declarant_country_id", declarant_country_id))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("declarant_postcode", declarant_postcode))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("declarant_rep", declarant_rep))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Carrier_EORI", carrier_eori))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("export_country_id", export_country_id))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignor_eori", consignor_eori))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignor_name", consignor_name))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignor_address", consignor_address))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignor_city_name", consignor_city_name))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignor_country_id", consignor_country_id))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignor_postcode", consignor_postcode))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("multiple_consignor", multiple_consignor))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("import_country_id", import_country_id))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignee_eori", consignee_eori))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignee_name", consignee_name))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignee_address", consignee_address))
|
||||
@@ -134,32 +137,33 @@ Public Class cOregonNCTs_DeclarationData
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignee_country_id", consignee_country_id))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignee_postcode", consignee_postcode))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("multiple_consignee", multiple_consignee))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("invoice_amount", invoice_amount))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("invoice_curr", invoice_curr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("goods_location", goods_location))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("border_transport_type", border_transport_type))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Carrier_Name", carrier_name))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("border_vehicle_code", border_vehicle_code))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("border_vehicle_coun", border_vehicle_coun))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("inland_transport_type", inland_transport_type))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("container_no", container_no))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Carrier_EORI", carrier_eori))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gvms_interested", gvms_interested))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("freight_amount", freight_amount))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("freight_curr", freight_curr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("payment_method", payment_method))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("carrier_eori", carrier_eori))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("carrier_name", carrier_name))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("carrier_address", carrier_address))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("carrier_city_name", carrier_city_name))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("carrier_country_id", carrier_country_id))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("carrier_postcode", carrier_postcode))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("total_packages", total_packages))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nature_of_transaction", nature_of_transaction))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("premises_code", premises_code))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("first_dan_no", first_dan_no))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("second_dan_no", second_dan_no))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Carrier_Name", carrier_name))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("insurance_amount", insurance_amount))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("insurance_curr", insurance_curr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("other_amounts", other_amounts))
|
||||
@@ -170,6 +174,7 @@ Public Class cOregonNCTs_DeclarationData
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("airfreight_cost", airfreight_cost))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vat_adjustment", vat_adjustment))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vat_adjustment_curr", vat_adjustment_curr))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("discount_amount", discount_amount))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("discount_curr", discount_curr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("discount_rate", discount_rate))
|
||||
@@ -179,7 +184,10 @@ Public Class cOregonNCTs_DeclarationData
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("arrival_transport_type", arrival_transport_type))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("guarantee_code", guarantee_code))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("guarantee_reference", guarantee_reference))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("status", status))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("created", created))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aviso_id", aviso_id))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
@@ -193,6 +201,45 @@ Public Class cOregonNCTs_DeclarationData
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
Shared Function LOADByBezugsNr(bezugsNr As String, loadALL As Boolean) As cOregonNCTs_DeclarationData
|
||||
Try
|
||||
Dim NCTS As New cOregonNCTs_DeclarationData
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
'
|
||||
Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblOregonNCTS_DeclarationData WHERE commercial_ref Like '@bezugsNr' ", conn)
|
||||
cmd.Parameters.AddWithValue("@bezugsNr", bezugsNr)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each li In NCTS.getParameterList()
|
||||
Dim propInfo As PropertyInfo = NCTS.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(NCTS, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(NCTS, dr.Item(li.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
If loadALL Then
|
||||
NCTS.LOAD_Goods()
|
||||
NCTS.LOAD_Parties()
|
||||
NCTS.LOAD_Traders()
|
||||
End If
|
||||
|
||||
dr.Close()
|
||||
Return NCTS
|
||||
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 Nothing
|
||||
End Function
|
||||
|
||||
Public Function UPDATE_STATUS(status) As Boolean
|
||||
Me.status = status
|
||||
Return Me.SAVE
|
||||
@@ -213,6 +260,160 @@ Public Class cOregonNCTs_DeclarationData
|
||||
Return id > 0
|
||||
End Function
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO tblOregonNCTS_DeclarationData (" & str & ") VALUES(" & values & ") ")
|
||||
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 ""
|
||||
End Function
|
||||
'##
|
||||
|
||||
Public Function SAVE_ALL(Optional errHinweis = "") As Boolean
|
||||
If Not SAVE(errHinweis) Then Return False
|
||||
If Not SAVE_GOODS() Or Not SAVE_Parties() Or Not SAVE_Traders() Then Return False
|
||||
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Public Function LOAD(Optional loadALL As Boolean = True) As Boolean
|
||||
Try
|
||||
LOAD = False
|
||||
If loadALL Then
|
||||
parties.Clear()
|
||||
goods.Clear()
|
||||
traders.Clear()
|
||||
End If
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblOregonNCTS_DeclarationData WHERE Id=@Id ", conn)
|
||||
cmd.Parameters.AddWithValue("@Id", id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
If loadALL Then
|
||||
LOAD_Goods()
|
||||
LOAD_Parties()
|
||||
LOAD_Traders()
|
||||
End If
|
||||
LOAD = True
|
||||
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 LOAD
|
||||
End Function
|
||||
|
||||
Public Sub LOAD_Parties()
|
||||
Try
|
||||
parties.Clear()
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblOregonNCTS_Declarations_PartiesAttribute WHERE declarationdata_id=@id ", conn)
|
||||
cmd.Parameters.AddWithValue("@Id", Me.id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim l As New cOregonNCTs_PartiesAttribute
|
||||
For Each i In l.getParameterList()
|
||||
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
|
||||
If dr.Item(i.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(l, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(l, dr.Item(i.Text))
|
||||
End If
|
||||
Next
|
||||
parties.Add(l)
|
||||
End While
|
||||
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
|
||||
End Sub
|
||||
|
||||
Public Sub LOAD_Traders()
|
||||
Try
|
||||
traders.Clear()
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblOregonNCTS_Declarations_TraderAdditionsAttribute WHERE declarationdata_id=@Id ", conn)
|
||||
cmd.Parameters.AddWithValue("@Id", Me.id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim l As New cOregonNCTs_TraderAdditionsAttribute()
|
||||
For Each i In l.getParameterList()
|
||||
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
|
||||
If dr.Item(i.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(l, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(l, dr.Item(i.Text))
|
||||
End If
|
||||
Next
|
||||
|
||||
traders.Add(l)
|
||||
End While
|
||||
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
|
||||
End Sub
|
||||
|
||||
Public Sub LOAD_Goods()
|
||||
Try
|
||||
traders.Clear()
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblOregonNCTS_Declarations_GoodsAttribute WHERE declarationdata_id=@Id ", conn)
|
||||
cmd.Parameters.AddWithValue("@Id", Me.id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim l As New cOregonNCTs_GoodsAttribute()
|
||||
For Each i In l.getParameterList()
|
||||
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
|
||||
If dr.Item(i.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(l, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(l, dr.Item(i.Text))
|
||||
End If
|
||||
Next
|
||||
|
||||
goods.Add(l)
|
||||
End While
|
||||
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
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
'##
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
@@ -233,58 +434,82 @@ Public Class cOregonNCTs_DeclarationData
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
Public Function SAVE_GOODS() As Boolean
|
||||
|
||||
If DELETE_Goods() Then
|
||||
|
||||
For Each p In goods
|
||||
p.declarationdata_id = id
|
||||
If p.INSERT() Then
|
||||
p.INSERT_WarenpositionPackstuecke(p.id, Me.id)
|
||||
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO tblOregonNCTS_DeclarationData (" & str & ") VALUES(" & values & ") ")
|
||||
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 ""
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
|
||||
Return True
|
||||
End Function
|
||||
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
hasEntry = False
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblOregonNCTS_DeclarationData WHERE Id=@Id ", conn)
|
||||
cmd.Parameters.AddWithValue("@Id", id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.Text))
|
||||
Public Function SAVE_Parties() As Boolean
|
||||
|
||||
If DELETE_parties() Then
|
||||
|
||||
For Each p In parties
|
||||
p.declarationdata_id = id
|
||||
If Not p.INSERT() Then
|
||||
Return False
|
||||
End If
|
||||
|
||||
Next
|
||||
hasEntry = True
|
||||
Else
|
||||
Return False
|
||||
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
|
||||
End Sub
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Public Function SAVE_Traders() As Boolean
|
||||
|
||||
If DELETE_parties() Then
|
||||
|
||||
For Each p In traders
|
||||
p.declarationdata_id = id
|
||||
If Not p.INSERT() Then
|
||||
Return False
|
||||
End If
|
||||
Next
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Function DELETE_Goods() As Boolean
|
||||
Dim sqlstr = " DELETE FROM tblOregonNCTS_Declarations_GoodsAttribute WHERE declarationdata_id=" & Me.id & " "
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
Function DELETE_traders() As Boolean
|
||||
Dim sqlstr = " DELETE FROM [tblOregonNCTS_Declarations_TraderAdditionsAttribute] WHERE declarationdata_id=" & Me.id & " "
|
||||
' MsgBox(sqlstr)
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
Function DELETE_parties() As Boolean
|
||||
Dim sqlstr = " DELETE FROM [tblOregonNCTS_Declarations_PartiesAttribute] WHERE declarationdata_id=" & Me.id & " "
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
Public Class cOregonNCTs_GoodsAttribute
|
||||
Public Property id As Integer
|
||||
Public Property line_no As Integer
|
||||
Public Property commodity As String
|
||||
Public Property gtip_code As String
|
||||
Public Property gtip_language As String
|
||||
@@ -319,7 +544,8 @@ Public Class cOregonNCTs_GoodsAttribute
|
||||
Public Property third_quantity_type As String
|
||||
Public Property third_quantity As String
|
||||
Public Property supplementary_unit As String
|
||||
Public Property declarationDataID As Integer
|
||||
Public Property declarationdata_id As Integer
|
||||
Property decl_PAckattributes As New List(Of cOregonNCTs_PacksAttribute)
|
||||
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
@@ -328,6 +554,7 @@ Public Class cOregonNCTs_GoodsAttribute
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Id", id, , True, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("line_no", line_no))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("commodity", commodity))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gtip_code", gtip_code))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gtip_language", gtip_language))
|
||||
@@ -362,7 +589,7 @@ Public Class cOregonNCTs_GoodsAttribute
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("third_quantity_type", third_quantity_type))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("third_quantity", third_quantity))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("supplementary_unit", supplementary_unit))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("declarationDataID", declarationDataID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("declarationdata_id", declarationdata_id))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
@@ -371,48 +598,19 @@ Public Class cOregonNCTs_GoodsAttribute
|
||||
|
||||
End Sub
|
||||
|
||||
Sub New(Id)
|
||||
Me.id = Id
|
||||
Sub New(id)
|
||||
Me.id = id
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
'##########################################################################
|
||||
|
||||
|
||||
Public Function SAVE(Optional errHinweis = "") As Boolean
|
||||
Public Function INSERT() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblOregonNCTS_Declarations_GoodsAttribute WITH(updlock,serializable) WHERE Id=@Id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
Dim IdTMP = id
|
||||
IdTMP = SQL.doSQLVarListID(IdTMP, sqlstr, "FMZOLL", , list, , errHinweis)
|
||||
If _id <= 0 Then id = IdTMP
|
||||
Return id > 0
|
||||
declarationdata_id = SQL.doSQLVarListID(declarationdata_id, getInsertCmd, "FMZOLL", , list)
|
||||
Return declarationdata_id > 0
|
||||
End Function
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblOregonNCTS_Declarations_GoodsAttribute] SET " & str & " WHERE Id=@Id ")
|
||||
|
||||
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 ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
@@ -433,12 +631,11 @@ Public Class cOregonNCTs_GoodsAttribute
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
hasEntry = False
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblOregonNCTS_Declarations_GoodsAttribute WHERE Id=@Id ", conn)
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblOregonNCTS_Declarations_GoodsAttribute WHERE Id=@Id", conn)
|
||||
cmd.Parameters.AddWithValue("@Id", id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
@@ -462,6 +659,59 @@ Public Class cOregonNCTs_GoodsAttribute
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub LOAD_PackAttributes()
|
||||
Try
|
||||
decl_PAckattributes.Clear()
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblOregonNCTS_Declarations_PacksAttribute WHERE goods_attribute_Posid=@Id ", conn)
|
||||
cmd.Parameters.AddWithValue("@Id", Me.id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim l As New cOregonNCTs_PacksAttribute()
|
||||
For Each i In l.getParameterList()
|
||||
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
|
||||
If dr.Item(i.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(l, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(l, dr.Item(i.Text))
|
||||
End If
|
||||
Next
|
||||
decl_PAckattributes.Add(l)
|
||||
End While
|
||||
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
|
||||
End Sub
|
||||
|
||||
Public Function INSERT_WarenpositionPackstuecke(wp_id, id) As Boolean
|
||||
|
||||
For Each p In decl_PAckattributes
|
||||
p.goods_attribute_Posid = wp_id
|
||||
p.goods_attribute_id = id
|
||||
If Not p.INSERT() Then
|
||||
Return False
|
||||
End If
|
||||
Next
|
||||
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Public Function DELETE_PackAttributes() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [tblOregonNCTS_Declarations_PacksAttribute] WHERE goods_attribute_id=" & Me.declarationdata_id & " "
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
|
||||
'#######################################################################
|
||||
|
||||
|
||||
|
||||
Shared Sub LOAD_LIST_ByNCTS(ByRef GA_LIST As List(Of cOregonNCTs_GoodsAttribute), tco_nctsId As Integer)
|
||||
If GA_LIST Is Nothing Then GA_LIST = New List(Of cOregonNCTs_GoodsAttribute)
|
||||
GA_LIST.Clear()
|
||||
@@ -477,6 +727,7 @@ Public Class cOregonNCTs_PacksAttribute
|
||||
|
||||
Public Property Id As Integer
|
||||
Public Property goods_attribute_id As Integer
|
||||
Public Property goods_attribute_Posid As Integer
|
||||
Public Property pack_count As Integer
|
||||
Public Property pack_type As String
|
||||
Public Property notes As String
|
||||
@@ -490,6 +741,7 @@ Public Class cOregonNCTs_PacksAttribute
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Id", Id, , True, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("goods_attribute_id", goods_attribute_id))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("goods_attribute_Posid", goods_attribute_Posid))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pack_count", pack_count))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pack_type", pack_type))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("notes", notes))
|
||||
@@ -506,6 +758,12 @@ Public Class cOregonNCTs_PacksAttribute
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
Public Function INSERT() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
goods_attribute_Posid = SQL.doSQLVarListID(goods_attribute_Posid, getInsertCmd(), "FMZOLL", , list)
|
||||
Return goods_attribute_Posid > 0
|
||||
End Function
|
||||
|
||||
Public Function SAVE(Optional errHinweis = "") As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
@@ -864,9 +1122,7 @@ End Class
|
||||
Public Class cOregonNCTs_AdditionalCodesAttribute
|
||||
|
||||
Public Property id As Integer
|
||||
|
||||
Public Property goods_attribute_id As Integer
|
||||
|
||||
Public Property code As String
|
||||
Public Property notes As String
|
||||
|
||||
@@ -989,7 +1245,6 @@ Public Class cOregonNCTs_AdditionalCodesAttribute
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
Public Class cOregonNCTs_PartiesAttribute
|
||||
|
||||
Public Property id As Integer
|
||||
@@ -1017,11 +1272,18 @@ Public Class cOregonNCTs_PartiesAttribute
|
||||
|
||||
End Sub
|
||||
|
||||
Sub New(Id)
|
||||
Sub New(Id, decId)
|
||||
Me.id = Id
|
||||
Me.declarationdata_id = decId
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
Public Function INSERT() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
declarationdata_id = SQL.doSQLVarListID(declarationdata_id, getInsertCmd, "FMZOLL", , list)
|
||||
Return declarationdata_id > 0
|
||||
End Function
|
||||
|
||||
Public Function SAVE(Optional errHinweis = "") As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
@@ -1082,8 +1344,9 @@ Public Class cOregonNCTs_PartiesAttribute
|
||||
Try
|
||||
hasEntry = False
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblOregonNCTS_Declarations_PartiesAttribute WHERE Id=@Id ", conn)
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblOregonNCTS_Declarations_PartiesAttribute WHERE Id=@Id AND declarationdata_id=@decId ", conn)
|
||||
cmd.Parameters.AddWithValue("@Id", id)
|
||||
cmd.Parameters.AddWithValue("@decId", declarationdata_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each li In getParameterList()
|
||||
@@ -1106,12 +1369,12 @@ Public Class cOregonNCTs_PartiesAttribute
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Shared Sub LOAD_LIST_ByNCTS(ByRef PA_LIST As List(Of cOregonNCTs_PartiesAttribute), tco_nctsId As Integer)
|
||||
Shared Sub LOAD_LIST_ByNCTS(ByRef PA_LIST As List(Of cOregonNCTs_PartiesAttribute), declarationdata_id As Integer)
|
||||
If PA_LIST Is Nothing Then PA_LIST = New List(Of cOregonNCTs_PartiesAttribute)
|
||||
PA_LIST.Clear()
|
||||
Dim SQL As New SQL
|
||||
For Each r In SQL.loadDgvBySql("SELECT id FROM tblOregonNCTS_Declarations_PartiesAttribute WHERE declarationdata_id=" & tco_nctsId, "FMZOLL").Rows
|
||||
PA_LIST.Add(New VERAG_PROG_ALLGEMEIN.cOregonNCTs_PartiesAttribute(r("id")))
|
||||
For Each r In SQL.loadDgvBySql("SELECT id FROM tblOregonNCTS_Declarations_PartiesAttribute WHERE declarationdata_id=" & declarationdata_id, "FMZOLL").Rows
|
||||
PA_LIST.Add(New VERAG_PROG_ALLGEMEIN.cOregonNCTs_PartiesAttribute(r("id"), declarationdata_id))
|
||||
Next
|
||||
End Sub
|
||||
|
||||
@@ -1120,7 +1383,6 @@ End Class
|
||||
Public Class cOregonNCTs_TraderAdditionsAttribute
|
||||
|
||||
Public Property id As Integer
|
||||
|
||||
Public Property declarationdata_id As Integer
|
||||
Public Property code As String
|
||||
Public Property amount As Integer
|
||||
@@ -1148,11 +1410,19 @@ Public Class cOregonNCTs_TraderAdditionsAttribute
|
||||
|
||||
End Sub
|
||||
|
||||
Sub New(Id)
|
||||
Sub New(Id, decId)
|
||||
Me.id = Id
|
||||
Me.declarationdata_id = decId
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
Public Function INSERT() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
declarationdata_id = SQL.doSQLVarListID(declarationdata_id, getInsertCmd, "FMZOLL", , list)
|
||||
Return declarationdata_id > 0
|
||||
End Function
|
||||
|
||||
|
||||
Public Function SAVE(Optional errHinweis = "") As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
@@ -1213,8 +1483,9 @@ Public Class cOregonNCTs_TraderAdditionsAttribute
|
||||
Try
|
||||
hasEntry = False
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblOregonNCTS_Declarations_TraderAdditionsAttribute WHERE Id=@Id ", conn)
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblOregonNCTS_Declarations_TraderAdditionsAttribute WHERE Id=@Id And declarationdata_id=@decId ", conn)
|
||||
cmd.Parameters.AddWithValue("@Id", id)
|
||||
cmd.Parameters.AddWithValue("@decId", declarationdata_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each li In getParameterList()
|
||||
@@ -1237,12 +1508,12 @@ Public Class cOregonNCTs_TraderAdditionsAttribute
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Shared Sub LOAD_LIST_ByNCTS(ByRef TAA_LIST As List(Of cOregonNCTs_TraderAdditionsAttribute), tco_nctsId As Integer)
|
||||
Shared Sub LOAD_LIST_ByNCTS(ByRef TAA_LIST As List(Of cOregonNCTs_TraderAdditionsAttribute), declarationdata_id As Integer)
|
||||
If TAA_LIST Is Nothing Then TAA_LIST = New List(Of cOregonNCTs_TraderAdditionsAttribute)
|
||||
TAA_LIST.Clear()
|
||||
Dim SQL As New SQL
|
||||
For Each r In SQL.loadDgvBySql("SELECT id FROM tblOregonNCTS_Declarations_TraderAdditionsAttribute WHERE declarationdata_id=" & tco_nctsId, "FMZOLL").Rows
|
||||
TAA_LIST.Add(New VERAG_PROG_ALLGEMEIN.cOregonNCTs_TraderAdditionsAttribute(r("id")))
|
||||
For Each r In SQL.loadDgvBySql("SELECT id FROM tblOregonNCTS_Declarations_TraderAdditionsAttribute WHERE declarationdata_id=" & declarationdata_id, "FMZOLL").Rows
|
||||
TAA_LIST.Add(New VERAG_PROG_ALLGEMEIN.cOregonNCTs_TraderAdditionsAttribute(r("id"), declarationdata_id))
|
||||
Next
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user