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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2019-10-31 09:23:20 +01:00
parent 021cce6f04
commit c5595a729a
169 changed files with 16226 additions and 3376 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
SDL/Formulare/Einheitspapier/usrCntlEinheitspapier0735.Designer.vb generated
View File

@@ -175,7 +175,7 @@ Partial Class usrCntlEinheitspapier0735
'Button3
'
Me.Button3.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.Button3.BackgroundImage = Global.SDL.My.Resources.search
Me.Button3.BackgroundImage = Global.SDL.My.Resources.Resources.search
Me.Button3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.Location = New System.Drawing.Point(425, 283)
@@ -188,7 +188,7 @@ Partial Class usrCntlEinheitspapier0735
'Button1
'
Me.Button1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.Button1.BackgroundImage = Global.SDL.My.Resources.search
Me.Button1.BackgroundImage = Global.SDL.My.Resources.Resources.search
Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Location = New System.Drawing.Point(425, 210)
@@ -200,7 +200,7 @@ Partial Class usrCntlEinheitspapier0735
'Button2
'
Me.Button2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.Button2.BackgroundImage = Global.SDL.My.Resources.search
Me.Button2.BackgroundImage = Global.SDL.My.Resources.Resources.search
Me.Button2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.Location = New System.Drawing.Point(425, 108)
@@ -565,7 +565,7 @@ Partial Class usrCntlEinheitspapier0735
'
'pic
'
Me.pic.BackgroundImage = Global.SDL.My.Resources.Einheitspapier_0735_top
Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.Einheitspapier_0735_top
Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.pic.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pic.Dock = System.Windows.Forms.DockStyle.Top
@@ -609,7 +609,7 @@ Partial Class usrCntlEinheitspapier0735
'Button4
'
Me.Button4.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.Button4.BackgroundImage = Global.SDL.My.Resources.search
Me.Button4.BackgroundImage = Global.SDL.My.Resources.Resources.search
Me.Button4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button4.Location = New System.Drawing.Point(425, 213)
@@ -825,7 +825,7 @@ Partial Class usrCntlEinheitspapier0735
'
'PictureBox1
'
Me.PictureBox1.BackgroundImage = Global.SDL.My.Resources.Einheitspapier_0735_bottom
Me.PictureBox1.BackgroundImage = Global.SDL.My.Resources.Resources.Einheitspapier_0735_bottom
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.PictureBox1.Dock = System.Windows.Forms.DockStyle.Top

12
SDL/Formulare/Einheitspapier/usrCntlEinheitspapier0735.vb
View File

@@ -74,7 +74,7 @@
End Try
cboSicherheit.Items.Clear()
cboSicherheit.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("05AT510000G000FP7 vom HZA LINZ / WELS", "05AT510000G000FP7"))
cboSicherheit.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("05DE0000000009345 vom HZA MÜNCHEN", "05DE0000000009345"))
cboSicherheit.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("17DE0000000071678 vom HZA MÜNCHEN", "17DE0000000071678"))
cboSicherheit.SelectedIndex = 0
'cboSicherheit.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("05AT510000G000FP7 vm HZA LINZ WELS", "05AT510000G000FP7 vm HZA LINZ WELS","XXXXXX"))
@@ -93,7 +93,7 @@
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "ATILLA"
' txtHauptverpflichteter.Text = getverag("ATILLA")
cboSicherheit.changeItem("05DE0000000009345")
cboSicherheit.changeItem("17DE0000000071678")
txtHauptverpflichteterEORI.Text = "ATEOS1000000199"
Case Else
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
@@ -101,17 +101,17 @@
'txtAnmelder.Text = getverag("VERAG_GMBH")
'txtHauptverpflichteter.Text = getverag("VERAG_GMBH")
txtHauptverpflichteterEORI.Text = "DE4824105"
cboSicherheit.changeItem("05DE0000000009345")
cboSicherheit.changeItem("17DE0000000071678")
Case "SBG"
' txtAnmelder.Text = getverag("VERAG_GMBH")
'txtHauptverpflichteter.Text = getverag("VERAG_GMBH")
txtHauptverpflichteterEORI.Text = "DE4824105"
cboSicherheit.changeItem("05DE0000000009345")
cboSicherheit.changeItem("17DE0000000071678")
Case "WDH"
' txtAnmelder.Text = getverag("VERAG_GMBH_WDH")
' txtHauptverpflichteter.Text = getverag("VERAG_GMBH")
txtHauptverpflichteterEORI.Text = "DE4824105"
cboSicherheit.changeItem("05DE0000000009345")
cboSicherheit.changeItem("17DE0000000071678")
Case Else
' txtAnmelder.Text = getverag("VERAG_AG")
' txtHauptverpflichteter.Text = getverag("VERAG_AG")
@@ -348,7 +348,7 @@
Case "05AT510000G000FP7"
txtHauptverpflichteter.Text = getverag("VERAG_AG")
'txtAnmelderVertreterNr.Text = "DE4824105"
Case "05DE0000000009345"
Case "17DE0000000071678"
txtHauptverpflichteter.Text = getverag("VERAG_GMBH")
' txtAnmelderVertreterNr.Text = "ATEOS1000000199"
End Select

39
SDL/Formulare/KDFormulare/FormulareBaukasten/rptPreislisten.Designer.vb generated
View File

@@ -409,7 +409,7 @@ Partial Public Class rptPreislisten
'
Me.ReportFooter1.CanShrink = True
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox16, Me.Line, Me.TextBox17, Me.Line1, Me.txtVorlageKredit, Me.txtZahlungsziel, Me.txtZahlungsziel2, Me.txtClearing, Me.TextBox12, Me.txtFirmenkennung, Me.SubReport, Me.SubReport2})
Me.ReportFooter1.Height = 3.544096!
Me.ReportFooter1.Height = 3.201182!
Me.ReportFooter1.KeepTogether = True
Me.ReportFooter1.Name = "ReportFooter1"
'
@@ -420,21 +420,21 @@ Partial Public Class rptPreislisten
Me.TextBox16.Name = "TextBox16"
Me.TextBox16.Style = "font-size: 9pt; font-weight: normal; text-align: center; ddo-char-set: 1"
Me.TextBox16.Text = "Ort & Datum"
Me.TextBox16.Top = 3.376378!
Me.TextBox16.Top = 3.033465!
Me.TextBox16.Width = 2.559055!
'
'Line
'
Me.Line.Height = 0.0001802444!
Me.Line.Height = 0.0001809597!
Me.Line.Left = 0.02362209!
Me.Line.LineWeight = 1.0!
Me.Line.Name = "Line"
Me.Line.Top = 3.376378!
Me.Line.Top = 3.033465!
Me.Line.Width = 2.559054!
Me.Line.X1 = 0.02362209!
Me.Line.X2 = 2.582676!
Me.Line.Y1 = 3.376378!
Me.Line.Y2 = 3.376559!
Me.Line.Y1 = 3.033465!
Me.Line.Y2 = 3.033646!
'
'TextBox17
'
@@ -443,21 +443,21 @@ Partial Public Class rptPreislisten
Me.TextBox17.Name = "TextBox17"
Me.TextBox17.Style = "font-size: 9pt; font-weight: normal; text-align: center; ddo-char-set: 1"
Me.TextBox17.Text = "Zur Kenntnis genommen (Stempel, Unterschrift)"
Me.TextBox17.Top = 3.376379!
Me.TextBox17.Top = 3.033466!
Me.TextBox17.Width = 3.310236!
'
'Line1
'
Me.Line1.Height = 0.0001802444!
Me.Line1.Height = 0.000180006!
Me.Line1.Left = 3.411811!
Me.Line1.LineWeight = 1.0!
Me.Line1.Name = "Line1"
Me.Line1.Top = 3.376379!
Me.Line1.Top = 3.033466!
Me.Line1.Width = 3.319292!
Me.Line1.X1 = 3.411811!
Me.Line1.X2 = 6.731103!
Me.Line1.Y1 = 3.376379!
Me.Line1.Y2 = 3.376559!
Me.Line1.Y1 = 3.033466!
Me.Line1.Y2 = 3.033646!
'
'txtVorlageKredit
'
@@ -494,14 +494,15 @@ Partial Public Class rptPreislisten
'
'txtClearing
'
Me.txtClearing.Height = 0.4492131!
Me.txtClearing.Left = 0!
Me.txtClearing.Height = 0.1992126!
Me.txtClearing.Left = 2.458268!
Me.txtClearing.Name = "txtClearing"
Me.txtClearing.Style = "font-size: 10pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.txtClearing.Text = "Für die Abklärung der Auftragslage stellen wir Ihnen einmalig Clearingkosten in R" &
"echnung . (Dieser Betrag wird bei weiteren Aufträgen nicht mehr verrechnet.)"
Me.txtClearing.Top = 1.408268!
Me.txtClearing.Width = 6.692914!
Me.txtClearing.Top = 2.679921!
Me.txtClearing.Visible = False
Me.txtClearing.Width = 3.937008!
'
'TextBox12
'
@@ -509,9 +510,9 @@ Partial Public Class rptPreislisten
Me.TextBox12.Left = 0!
Me.TextBox12.Name = "TextBox12"
Me.TextBox12.Style = "font-size: 10pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.TextBox12.Text = "Wir bedanken uns für Ihre Aufträge und freuen uns auf eine gute Zusammenarbeit." & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(10) &
"" & Global.Microsoft.VisualBasic.ChrW(10) & "Mit freundlichen Grüßen"
Me.TextBox12.Top = 1.857481!
Me.TextBox12.Text = "Wir bedanken uns für Ihren Auftrag und freuen uns auf eine gute Zusammenarbeit." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) &
"" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Mit freundlichen Grüßen"
Me.TextBox12.Top = 1.514568!
Me.TextBox12.Width = 6.692914!
'
'txtFirmenkennung
@@ -521,7 +522,7 @@ Partial Public Class rptPreislisten
Me.txtFirmenkennung.Name = "txtFirmenkennung"
Me.txtFirmenkennung.Style = "font-size: 11pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.txtFirmenkennung.Text = "VERAG Spedition AG"
Me.txtFirmenkennung.Top = 2.600789!
Me.txtFirmenkennung.Top = 2.257876!
Me.txtFirmenkennung.Width = 6.692914!
'
'SubReport

214
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlRechnungsbestaetigung.Designer.vb generated Normal file
View File

@@ -0,0 +1,214 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrcntlRechnungsbestaetigung
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.lblVollmachtDE = New System.Windows.Forms.Label()
Me.lbl = New System.Windows.Forms.Label()
Me.txtRgNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.pic = New System.Windows.Forms.PictureBox()
Me.btnDown = New System.Windows.Forms.Button()
Me.btnUp = New System.Windows.Forms.Button()
Me.btnDel = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.txtVersender = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.cboSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'lblVollmachtDE
'
Me.lblVollmachtDE.AutoSize = True
Me.lblVollmachtDE.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblVollmachtDE.Location = New System.Drawing.Point(43, 9)
Me.lblVollmachtDE.Name = "lblVollmachtDE"
Me.lblVollmachtDE.Size = New System.Drawing.Size(195, 20)
Me.lblVollmachtDE.TabIndex = 1
Me.lblVollmachtDE.Text = "Rechnungsbestätigung"
'
'lbl
'
Me.lbl.AutoSize = True
Me.lbl.Location = New System.Drawing.Point(170, 37)
Me.lbl.Name = "lbl"
Me.lbl.Size = New System.Drawing.Size(55, 13)
Me.lbl.TabIndex = 6
Me.lbl.Text = "Versender"
'
'txtRgNr
'
Me.txtRgNr._DateTimeOnly = False
Me.txtRgNr._numbersOnly = False
Me.txtRgNr._numbersOnlyKommastellen = ""
Me.txtRgNr._Prozent = False
Me.txtRgNr._ShortDateNew = False
Me.txtRgNr._ShortDateOnly = False
Me.txtRgNr._TimeOnly = False
Me.txtRgNr._value = Nothing
Me.txtRgNr._Waehrung = False
Me.txtRgNr._WaehrungZeichen = True
Me.txtRgNr.ForeColor = System.Drawing.Color.Black
Me.txtRgNr.Location = New System.Drawing.Point(254, 54)
Me.txtRgNr.MaxLineLength = -1
Me.txtRgNr.MaxLines_Warning = ""
Me.txtRgNr.MaxLines_Warning_Label = Nothing
Me.txtRgNr.Name = "txtRgNr"
Me.txtRgNr.Size = New System.Drawing.Size(709, 20)
Me.txtRgNr.TabIndex = 12
'
'pic
'
Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.pdf
Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.pic.Cursor = System.Windows.Forms.Cursors.Hand
Me.pic.Location = New System.Drawing.Point(5, 5)
Me.pic.Name = "pic"
Me.pic.Size = New System.Drawing.Size(32, 32)
Me.pic.TabIndex = 30
Me.pic.TabStop = False
'
'btnDown
'
Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnDown.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_unten
Me.btnDown.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnDown.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDown.Location = New System.Drawing.Point(976, 42)
Me.btnDown.Name = "btnDown"
Me.btnDown.Size = New System.Drawing.Size(25, 21)
Me.btnDown.TabIndex = 9
Me.btnDown.UseVisualStyleBackColor = True
'
'btnUp
'
Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnUp.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_oben
Me.btnUp.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnUp.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnUp.Location = New System.Drawing.Point(976, 22)
Me.btnUp.Name = "btnUp"
Me.btnUp.Size = New System.Drawing.Size(25, 21)
Me.btnUp.TabIndex = 4
Me.btnUp.UseVisualStyleBackColor = True
'
'btnDel
'
Me.btnDel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnDel.BackgroundImage = Global.SDL.My.Resources.Resources.del
Me.btnDel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDel.Location = New System.Drawing.Point(976, -1)
Me.btnDel.Name = "btnDel"
Me.btnDel.Size = New System.Drawing.Size(25, 21)
Me.btnDel.TabIndex = 0
Me.btnDel.UseVisualStyleBackColor = True
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(170, 57)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(41, 13)
Me.Label1.TabIndex = 58
Me.Label1.Text = "Rg-Nr.:"
'
'txtVersender
'
Me.txtVersender._AllowSetValue = True
Me.txtVersender._autoSizeGross = False
Me.txtVersender._display_Name1 = True
Me.txtVersender._displayAVISO_Email = False
Me.txtVersender._displayFullName = False
Me.txtVersender._displayWoelflKd = False
Me.txtVersender._hideIfListEmpty = True
Me.txtVersender._loadKdData = True
Me.txtVersender._ValueKdAndName = False
Me.txtVersender.dgvpos = "LEFT"
Me.txtVersender.KdName = Nothing
Me.txtVersender.KdNr = "-1"
Me.txtVersender.kdNrField = Nothing
Me.txtVersender.KdNrNullInt = Nothing
Me.txtVersender.Location = New System.Drawing.Point(254, 35)
Me.txtVersender.Name = "txtVersender"
Me.txtVersender.nurAktive = True
Me.txtVersender.searchActive = True
Me.txtVersender.Size = New System.Drawing.Size(709, 20)
Me.txtVersender.TabIndex = 53
Me.txtVersender.usrcntl = Nothing
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(44, 38)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(50, 13)
Me.Label4.TabIndex = 59
Me.Label4.Text = "Sprache:"
'
'cboSprache
'
Me.cboSprache._allowedValuesFreiText = Nothing
Me.cboSprache._allowFreiText = False
Me.cboSprache._value = ""
Me.cboSprache.FormattingEnabled = True
Me.cboSprache.Location = New System.Drawing.Point(47, 54)
Me.cboSprache.Name = "cboSprache"
Me.cboSprache.Size = New System.Drawing.Size(89, 21)
Me.cboSprache.TabIndex = 60
'
'usrcntlRechnungsbestaetigung
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.WhiteSmoke
Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.cboSprache)
Me.Controls.Add(Me.lblVollmachtDE)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.txtVersender)
Me.Controls.Add(Me.btnDown)
Me.Controls.Add(Me.btnUp)
Me.Controls.Add(Me.btnDel)
Me.Controls.Add(Me.pic)
Me.Controls.Add(Me.txtRgNr)
Me.Controls.Add(Me.lbl)
Me.Name = "usrcntlRechnungsbestaetigung"
Me.Size = New System.Drawing.Size(1000, 89)
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents lblVollmachtDE As System.Windows.Forms.Label
Friend WithEvents lbl As System.Windows.Forms.Label
Friend WithEvents txtRgNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents pic As System.Windows.Forms.PictureBox
Friend WithEvents btnDown As System.Windows.Forms.Button
Friend WithEvents btnUp As System.Windows.Forms.Button
Friend WithEvents btnDel As System.Windows.Forms.Button
Friend WithEvents Label1 As Label
Friend WithEvents txtVersender As VERAG_PROG_ALLGEMEIN.KdSearchBox
Friend WithEvents Label4 As Label
Friend WithEvents cboSprache As VERAG_PROG_ALLGEMEIN.MyComboBox
End Class

120
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlRechnungsbestaetigung.resx Normal file
View 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>

82
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlRechnungsbestaetigung.vb Normal file
View File

@@ -0,0 +1,82 @@
Public Class usrcntlRechnungsbestaetigung
Implements FormualrInterface
Public Event CHANGED(name, value)
Public Event KDNR_CHANGED(kdnr)
Public Event DELETE(c As Control)
Public Event MOVE_UP(c As Control)
Public Event MOVE_DOWN(c As Control)
Public KdNR As Integer = -1
Public Sub ChangeKDNr(kdnr As Integer) _
Implements FormualrInterface.ChangeKDNr
'initKdNR(kdnr)
txtVersender.KdNr = kdnr
End Sub
Sub initControlsHandler()
For Each c In Me.Controls
Select Case c.GetType.ToString
Case GetType(VERAG_PROG_ALLGEMEIN.MyTextBox).ToString
AddHandler DirectCast(c, VERAG_PROG_ALLGEMEIN.MyTextBox).Leave, Sub()
RaiseEvent CHANGED(c.name, c.text)
End Sub
Case GetType(VERAG_PROG_ALLGEMEIN.MyComboBox).ToString
AddHandler DirectCast(c, VERAG_PROG_ALLGEMEIN.MyComboBox).SelectedIndexChanged, Sub()
RaiseEvent CHANGED(c.name, c._value)
End Sub
Case GetType(TextBox).ToString
AddHandler DirectCast(c, TextBox).Leave, Sub()
RaiseEvent CHANGED(c.name, c.text)
End Sub
End Select
Next
End Sub
Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click
RaiseEvent DELETE(Me)
End Sub
Private Sub btnup_Click(sender As Object, e As EventArgs) Handles btnUp.Click
RaiseEvent MOVE_UP(Me)
End Sub
Private Sub btnDown_Click(sender As Object, e As EventArgs) Handles btnDown.Click
RaiseEvent MOVE_DOWN(Me)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs)
End Sub
Private Sub usrcntlVollmacht_AT_Load(sender As Object, e As EventArgs) Handles Me.Load
txtVersender.initKdBox(Me.FindForm)
initControlsHandler()
cboSprache.Items.Clear()
cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Deutsch", "DE"))
cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Englisch", "EN"))
cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Französisch", "FR"))
cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Türkisch", "TR"))
If KdNR > 0 Then txtVersender.KdNr = KdNR
' cboFiliale.fillWithSQL(" SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", , "FMZOLL", True)
' txtBearbeiter.Text = If(VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, "")
End Sub
Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click
FormularManagerNEU.genPDF(Me, True)
End Sub
Private Sub PictureBox1_Click(sender As Object, e As EventArgs)
FormularManagerNEU.genPDF(Me, , , , True)
End Sub
End Class

33
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb
View File

@@ -109,6 +109,7 @@
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal AT", "VZ_FISKAL"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal DE", "VZ_FISKAL_DE"))
End If
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Handling", "HANDLING"))
MyComboBox1.changeItem("VZ")
End Select
@@ -143,7 +144,7 @@
Case "VZ"
DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(93).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(6).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "440", "Papiere Porti", CDbl(12).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "440", "P.P./Fixe Taxe", CDbl(12).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1
@@ -163,7 +164,7 @@
Case "VZ_EV"
DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(93).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(6).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "440", "Papiere Porti", CDbl(12).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "440", "P.P./Fixe Taxe", CDbl(12).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1
@@ -184,7 +185,7 @@
DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(93).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "", "Rückwarenverzollung", CDbl(106).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(6).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "440", "Papiere Porti", CDbl(12).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "440", "P.P./Fixe Taxe", CDbl(12).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1
@@ -201,7 +202,7 @@
DataGridView.Rows.Add(cnt, "", "Fiskal-Verzollung (inkl. 1 Tarifnummer)", CDbl(240).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(12).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "440", "Papiere Porti", CDbl(12).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "440", "P.P./Fixe Taxe", CDbl(12).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1
' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1
@@ -224,7 +225,7 @@
DataGridView.Rows.Add(cnt, "", "Fiskal-Verzollung (inkl. 1 Tarifnummer)", CDbl(240).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(12).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "440", "Papiere Porti", CDbl(12).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "440", "P.P./Fixe Taxe", CDbl(12).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1
' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1
@@ -245,7 +246,7 @@
Case "EUST"
DataGridView.Rows.Add(cnt, "", "EUST", "lt. Steuerbescheid") : cnt += 1
DataGridView.Rows.Add(cnt, "440", "Papiere Porti", CDbl(12).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "440", "P.P./Fixe Taxe", CDbl(12).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1
@@ -264,7 +265,7 @@
Case "VZ"
DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(93).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(6).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "440", "Papiere Porti", CDbl(12).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "440", "P.P./Fixe Taxe", CDbl(12).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1
@@ -284,7 +285,7 @@
Case "VZ_EV"
DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(93).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(6).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "440", "Papiere Porti", CDbl(12).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "440", "P.P./Fixe Taxe", CDbl(12).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1
@@ -305,7 +306,7 @@
DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(93).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "", "Rückwarenverzollung", CDbl(106).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(6).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "440", "Papiere Porti", CDbl(12).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "440", "P.P./Fixe Taxe", CDbl(12).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1
@@ -322,7 +323,7 @@
DataGridView.Rows.Add(cnt, "", "Fiskal-Verzollung (inkl. 1 Tarifnummer)", CDbl(240).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(12).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "440", "Papiere Porti", CDbl(12).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "440", "P.P./Fixe Taxe", CDbl(12).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1
' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1
@@ -345,7 +346,7 @@
DataGridView.Rows.Add(cnt, "", "Fiskal-Verzollung (inkl. 1 Tarifnummer)", CDbl(240).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(12).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "440", "Papiere Porti", CDbl(12).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "440", "P.P./Fixe Taxe", CDbl(12).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1
' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1
@@ -366,7 +367,7 @@
Case "VZ_SPECIAL_1" '"VZ Gemüse,Arznei,Lebensmittel"
DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(139).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(18).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "440", "Papiere Porti", CDbl(15).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "440", "P.P./Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1
@@ -386,7 +387,7 @@
Case "EUST"
DataGridView.Rows.Add(cnt, "", "EUST", "lt. Steuerbescheid") : cnt += 1
DataGridView.Rows.Add(cnt, "440", "Papiere Porti", CDbl(12).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "440", "P.P./Fixe Taxe", CDbl(12).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1
@@ -395,7 +396,13 @@
dgvZusatzleistung.Rows.Add("", "347", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
cboFirma.changeItem("AG")
Case "HANDLING"
' DataGridView.Rows.Add(cnt, "", "EUST", "lt. Steuerbescheid") : cnt += 1
DataGridView.Rows.Add(cnt, "345", "Handing/eigene Anmeldung", CDbl(25).ToString("C2")) : cnt += 1
dgvZusatzleistung.Rows.Add("", "345", "Avisogebühr (nur wenn LKW nicht voravisiert)", CDbl(15).ToString("C2"))
cboFirma.changeItem("AG")
End Select
End Select

439
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen.Designer.vb generated
View File

@@ -52,9 +52,28 @@ Partial Class usrcntlVerzollungsunterlagen
Me.txtAnlage4 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtAnlage5 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtAnlage6 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtPosNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtLKW = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Panel4 = New System.Windows.Forms.Panel()
Me.Button3 = New System.Windows.Forms.Button()
Me.btnStandardPreiseLaden = New System.Windows.Forms.Button()
Me.lblCRsaved = New System.Windows.Forms.Label()
Me.cbxBeimErstellenSpeichern = New System.Windows.Forms.CheckBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.KdInAuftrag = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtAbfertigungsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.Label9 = New System.Windows.Forms.Label()
Me.kdRgEmpfaenger = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
Me.txtEmpfänger = New System.Windows.Forms.Label()
Me.txtAvisiererAuftragsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label8 = New System.Windows.Forms.Label()
Me.btnNEU = New System.Windows.Forms.Button()
Me.txtRefNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label10 = New System.Windows.Forms.Label()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel4.SuspendLayout()
Me.SuspendLayout()
'
'lblVollmachtDE
@@ -70,20 +89,20 @@ Partial Class usrcntlVerzollungsunterlagen
'lbl
'
Me.lbl.AutoSize = True
Me.lbl.Location = New System.Drawing.Point(170, 37)
Me.lbl.Location = New System.Drawing.Point(167, 56)
Me.lbl.Name = "lbl"
Me.lbl.Size = New System.Drawing.Size(78, 13)
Me.lbl.TabIndex = 6
Me.lbl.TabIndex = 10
Me.lbl.Text = "Firmenwortlaut:"
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(170, 139)
Me.Label6.Location = New System.Drawing.Point(167, 158)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(45, 13)
Me.Label6.TabIndex = 26
Me.Label6.Text = "Pos.Nr::"
Me.Label6.Size = New System.Drawing.Size(87, 13)
Me.Label6.TabIndex = 17
Me.Label6.Text = "LKW-/Container:"
'
'txtAdresse2
'
@@ -98,13 +117,13 @@ Partial Class usrcntlVerzollungsunterlagen
Me.txtAdresse2._Waehrung = False
Me.txtAdresse2._WaehrungZeichen = True
Me.txtAdresse2.ForeColor = System.Drawing.Color.Black
Me.txtAdresse2.Location = New System.Drawing.Point(254, 91)
Me.txtAdresse2.Location = New System.Drawing.Point(254, 110)
Me.txtAdresse2.MaxLineLength = -1
Me.txtAdresse2.MaxLines_Warning = ""
Me.txtAdresse2.MaxLines_Warning_Label = Nothing
Me.txtAdresse2.Name = "txtAdresse2"
Me.txtAdresse2.Size = New System.Drawing.Size(709, 20)
Me.txtAdresse2.TabIndex = 13
Me.txtAdresse2.TabIndex = 15
'
'txtAdresse1
'
@@ -119,13 +138,13 @@ Partial Class usrcntlVerzollungsunterlagen
Me.txtAdresse1._Waehrung = False
Me.txtAdresse1._WaehrungZeichen = True
Me.txtAdresse1.ForeColor = System.Drawing.Color.Black
Me.txtAdresse1.Location = New System.Drawing.Point(254, 72)
Me.txtAdresse1.Location = New System.Drawing.Point(254, 91)
Me.txtAdresse1.MaxLineLength = -1
Me.txtAdresse1.MaxLines_Warning = ""
Me.txtAdresse1.MaxLines_Warning_Label = Nothing
Me.txtAdresse1.Name = "txtAdresse1"
Me.txtAdresse1.Size = New System.Drawing.Size(709, 20)
Me.txtAdresse1.TabIndex = 12
Me.txtAdresse1.TabIndex = 14
'
'pic
'
@@ -159,7 +178,7 @@ Partial Class usrcntlVerzollungsunterlagen
Me.btnUp.Location = New System.Drawing.Point(976, 22)
Me.btnUp.Name = "btnUp"
Me.btnUp.Size = New System.Drawing.Size(25, 21)
Me.btnUp.TabIndex = 4
Me.btnUp.TabIndex = 7
Me.btnUp.UseVisualStyleBackColor = True
'
'btnDel
@@ -183,7 +202,7 @@ Partial Class usrcntlVerzollungsunterlagen
Me.cboFirma.Location = New System.Drawing.Point(292, 7)
Me.cboFirma.Name = "cboFirma"
Me.cboFirma.Size = New System.Drawing.Size(261, 21)
Me.cboFirma.TabIndex = 10
Me.cboFirma.TabIndex = 3
'
'Label12
'
@@ -191,7 +210,7 @@ Partial Class usrcntlVerzollungsunterlagen
Me.Label12.Location = New System.Drawing.Point(251, 10)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(35, 13)
Me.Label12.TabIndex = 5
Me.Label12.TabIndex = 2
Me.Label12.Text = "Firma:"
'
'txtAdresse3
@@ -207,13 +226,13 @@ Partial Class usrcntlVerzollungsunterlagen
Me.txtAdresse3._Waehrung = False
Me.txtAdresse3._WaehrungZeichen = True
Me.txtAdresse3.ForeColor = System.Drawing.Color.Black
Me.txtAdresse3.Location = New System.Drawing.Point(254, 110)
Me.txtAdresse3.Location = New System.Drawing.Point(254, 129)
Me.txtAdresse3.MaxLineLength = -1
Me.txtAdresse3.MaxLines_Warning = ""
Me.txtAdresse3.MaxLines_Warning_Label = Nothing
Me.txtAdresse3.Name = "txtAdresse3"
Me.txtAdresse3.Size = New System.Drawing.Size(709, 20)
Me.txtAdresse3.TabIndex = 37
Me.txtAdresse3.TabIndex = 16
'
'txtFirma2
'
@@ -228,13 +247,13 @@ Partial Class usrcntlVerzollungsunterlagen
Me.txtFirma2._Waehrung = False
Me.txtFirma2._WaehrungZeichen = True
Me.txtFirma2.ForeColor = System.Drawing.Color.Black
Me.txtFirma2.Location = New System.Drawing.Point(254, 53)
Me.txtFirma2.Location = New System.Drawing.Point(254, 72)
Me.txtFirma2.MaxLineLength = -1
Me.txtFirma2.MaxLines_Warning = ""
Me.txtFirma2.MaxLines_Warning_Label = Nothing
Me.txtFirma2.Name = "txtFirma2"
Me.txtFirma2.Size = New System.Drawing.Size(709, 20)
Me.txtFirma2.TabIndex = 38
Me.txtFirma2.TabIndex = 12
'
'PictureBox1
'
@@ -263,21 +282,21 @@ Partial Class usrcntlVerzollungsunterlagen
Me.txtFirma.KdNr = "-1"
Me.txtFirma.kdNrField = Nothing
Me.txtFirma.KdNrNullInt = Nothing
Me.txtFirma.Location = New System.Drawing.Point(254, 35)
Me.txtFirma.Location = New System.Drawing.Point(254, 54)
Me.txtFirma.Name = "txtFirma"
Me.txtFirma.nurAktive = True
Me.txtFirma.searchActive = True
Me.txtFirma.Size = New System.Drawing.Size(709, 20)
Me.txtFirma.TabIndex = 53
Me.txtFirma.TabIndex = 11
Me.txtFirma.usrcntl = Nothing
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(580, 165)
Me.Label1.Location = New System.Drawing.Point(580, 184)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(46, 13)
Me.Label1.TabIndex = 44
Me.Label1.TabIndex = 24
Me.Label1.Text = "Telefon:"
'
'txtTel
@@ -293,13 +312,13 @@ Partial Class usrcntlVerzollungsunterlagen
Me.txtTel._Waehrung = False
Me.txtTel._WaehrungZeichen = True
Me.txtTel.ForeColor = System.Drawing.Color.Black
Me.txtTel.Location = New System.Drawing.Point(653, 162)
Me.txtTel.Location = New System.Drawing.Point(653, 181)
Me.txtTel.MaxLineLength = -1
Me.txtTel.MaxLines_Warning = ""
Me.txtTel.MaxLines_Warning_Label = Nothing
Me.txtTel.Name = "txtTel"
Me.txtTel.Size = New System.Drawing.Size(310, 20)
Me.txtTel.TabIndex = 45
Me.txtTel.TabIndex = 25
'
'txtFax
'
@@ -314,13 +333,13 @@ Partial Class usrcntlVerzollungsunterlagen
Me.txtFax._Waehrung = False
Me.txtFax._WaehrungZeichen = True
Me.txtFax.ForeColor = System.Drawing.Color.Black
Me.txtFax.Location = New System.Drawing.Point(653, 181)
Me.txtFax.Location = New System.Drawing.Point(653, 200)
Me.txtFax.MaxLineLength = -1
Me.txtFax.MaxLines_Warning = ""
Me.txtFax.MaxLines_Warning_Label = Nothing
Me.txtFax.Name = "txtFax"
Me.txtFax.Size = New System.Drawing.Size(310, 20)
Me.txtFax.TabIndex = 46
Me.txtFax.TabIndex = 28
'
'txtEmail
'
@@ -335,13 +354,13 @@ Partial Class usrcntlVerzollungsunterlagen
Me.txtEmail._Waehrung = False
Me.txtEmail._WaehrungZeichen = True
Me.txtEmail.ForeColor = System.Drawing.Color.Black
Me.txtEmail.Location = New System.Drawing.Point(653, 200)
Me.txtEmail.Location = New System.Drawing.Point(653, 219)
Me.txtEmail.MaxLineLength = -1
Me.txtEmail.MaxLines_Warning = ""
Me.txtEmail.MaxLines_Warning_Label = Nothing
Me.txtEmail.Name = "txtEmail"
Me.txtEmail.Size = New System.Drawing.Size(310, 20)
Me.txtEmail.TabIndex = 47
Me.txtEmail.TabIndex = 31
'
'txtBearbeiter
'
@@ -356,48 +375,48 @@ Partial Class usrcntlVerzollungsunterlagen
Me.txtBearbeiter._Waehrung = False
Me.txtBearbeiter._WaehrungZeichen = True
Me.txtBearbeiter.ForeColor = System.Drawing.Color.Black
Me.txtBearbeiter.Location = New System.Drawing.Point(653, 219)
Me.txtBearbeiter.Location = New System.Drawing.Point(653, 238)
Me.txtBearbeiter.MaxLineLength = -1
Me.txtBearbeiter.MaxLines_Warning = ""
Me.txtBearbeiter.MaxLines_Warning_Label = Nothing
Me.txtBearbeiter.Name = "txtBearbeiter"
Me.txtBearbeiter.Size = New System.Drawing.Size(310, 20)
Me.txtBearbeiter.TabIndex = 48
Me.txtBearbeiter.TabIndex = 34
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(580, 184)
Me.Label2.Location = New System.Drawing.Point(580, 203)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(27, 13)
Me.Label2.TabIndex = 49
Me.Label2.TabIndex = 27
Me.Label2.Text = "Fax:"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(580, 203)
Me.Label3.Location = New System.Drawing.Point(580, 222)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(39, 13)
Me.Label3.TabIndex = 50
Me.Label3.TabIndex = 30
Me.Label3.Text = "E-Mail:"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(580, 222)
Me.Label4.Location = New System.Drawing.Point(580, 241)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(58, 13)
Me.Label4.TabIndex = 51
Me.Label4.TabIndex = 33
Me.Label4.Text = "Bearbeiter:"
'
'Label11
'
Me.Label11.AutoSize = True
Me.Label11.Location = New System.Drawing.Point(170, 165)
Me.Label11.Location = New System.Drawing.Point(167, 184)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(49, 13)
Me.Label11.TabIndex = 28
Me.Label11.TabIndex = 22
Me.Label11.Text = "Anlagen:"
'
'txtAnlage1
@@ -413,13 +432,13 @@ Partial Class usrcntlVerzollungsunterlagen
Me.txtAnlage1._Waehrung = False
Me.txtAnlage1._WaehrungZeichen = True
Me.txtAnlage1.ForeColor = System.Drawing.Color.Black
Me.txtAnlage1.Location = New System.Drawing.Point(254, 162)
Me.txtAnlage1.Location = New System.Drawing.Point(254, 181)
Me.txtAnlage1.MaxLineLength = -1
Me.txtAnlage1.MaxLines_Warning = ""
Me.txtAnlage1.MaxLines_Warning_Label = Nothing
Me.txtAnlage1.Name = "txtAnlage1"
Me.txtAnlage1.Size = New System.Drawing.Size(310, 20)
Me.txtAnlage1.TabIndex = 29
Me.txtAnlage1.TabIndex = 23
'
'txtAnlage2
'
@@ -434,13 +453,13 @@ Partial Class usrcntlVerzollungsunterlagen
Me.txtAnlage2._Waehrung = False
Me.txtAnlage2._WaehrungZeichen = True
Me.txtAnlage2.ForeColor = System.Drawing.Color.Black
Me.txtAnlage2.Location = New System.Drawing.Point(254, 181)
Me.txtAnlage2.Location = New System.Drawing.Point(254, 200)
Me.txtAnlage2.MaxLineLength = -1
Me.txtAnlage2.MaxLines_Warning = ""
Me.txtAnlage2.MaxLines_Warning_Label = Nothing
Me.txtAnlage2.Name = "txtAnlage2"
Me.txtAnlage2.Size = New System.Drawing.Size(310, 20)
Me.txtAnlage2.TabIndex = 39
Me.txtAnlage2.TabIndex = 26
'
'txtAnlage3
'
@@ -455,13 +474,13 @@ Partial Class usrcntlVerzollungsunterlagen
Me.txtAnlage3._Waehrung = False
Me.txtAnlage3._WaehrungZeichen = True
Me.txtAnlage3.ForeColor = System.Drawing.Color.Black
Me.txtAnlage3.Location = New System.Drawing.Point(254, 200)
Me.txtAnlage3.Location = New System.Drawing.Point(254, 219)
Me.txtAnlage3.MaxLineLength = -1
Me.txtAnlage3.MaxLines_Warning = ""
Me.txtAnlage3.MaxLines_Warning_Label = Nothing
Me.txtAnlage3.Name = "txtAnlage3"
Me.txtAnlage3.Size = New System.Drawing.Size(310, 20)
Me.txtAnlage3.TabIndex = 40
Me.txtAnlage3.TabIndex = 29
'
'txtAnlage4
'
@@ -476,13 +495,13 @@ Partial Class usrcntlVerzollungsunterlagen
Me.txtAnlage4._Waehrung = False
Me.txtAnlage4._WaehrungZeichen = True
Me.txtAnlage4.ForeColor = System.Drawing.Color.Black
Me.txtAnlage4.Location = New System.Drawing.Point(254, 219)
Me.txtAnlage4.Location = New System.Drawing.Point(254, 238)
Me.txtAnlage4.MaxLineLength = -1
Me.txtAnlage4.MaxLines_Warning = ""
Me.txtAnlage4.MaxLines_Warning_Label = Nothing
Me.txtAnlage4.Name = "txtAnlage4"
Me.txtAnlage4.Size = New System.Drawing.Size(310, 20)
Me.txtAnlage4.TabIndex = 41
Me.txtAnlage4.TabIndex = 32
'
'txtAnlage5
'
@@ -497,13 +516,13 @@ Partial Class usrcntlVerzollungsunterlagen
Me.txtAnlage5._Waehrung = False
Me.txtAnlage5._WaehrungZeichen = True
Me.txtAnlage5.ForeColor = System.Drawing.Color.Black
Me.txtAnlage5.Location = New System.Drawing.Point(254, 238)
Me.txtAnlage5.Location = New System.Drawing.Point(254, 257)
Me.txtAnlage5.MaxLineLength = -1
Me.txtAnlage5.MaxLines_Warning = ""
Me.txtAnlage5.MaxLines_Warning_Label = Nothing
Me.txtAnlage5.Name = "txtAnlage5"
Me.txtAnlage5.Size = New System.Drawing.Size(310, 20)
Me.txtAnlage5.TabIndex = 42
Me.txtAnlage5.TabIndex = 35
'
'txtAnlage6
'
@@ -518,34 +537,276 @@ Partial Class usrcntlVerzollungsunterlagen
Me.txtAnlage6._Waehrung = False
Me.txtAnlage6._WaehrungZeichen = True
Me.txtAnlage6.ForeColor = System.Drawing.Color.Black
Me.txtAnlage6.Location = New System.Drawing.Point(254, 257)
Me.txtAnlage6.Location = New System.Drawing.Point(254, 276)
Me.txtAnlage6.MaxLineLength = -1
Me.txtAnlage6.MaxLines_Warning = ""
Me.txtAnlage6.MaxLines_Warning_Label = Nothing
Me.txtAnlage6.Name = "txtAnlage6"
Me.txtAnlage6.Size = New System.Drawing.Size(310, 20)
Me.txtAnlage6.TabIndex = 43
Me.txtAnlage6.TabIndex = 36
'
'txtPosNr
'txtLKW
'
Me.txtPosNr._DateTimeOnly = False
Me.txtPosNr._numbersOnly = False
Me.txtPosNr._numbersOnlyKommastellen = ""
Me.txtPosNr._Prozent = False
Me.txtPosNr._ShortDateNew = False
Me.txtPosNr._ShortDateOnly = False
Me.txtPosNr._TimeOnly = False
Me.txtPosNr._value = Nothing
Me.txtPosNr._Waehrung = False
Me.txtPosNr._WaehrungZeichen = True
Me.txtPosNr.ForeColor = System.Drawing.Color.Black
Me.txtPosNr.Location = New System.Drawing.Point(254, 136)
Me.txtPosNr.MaxLineLength = -1
Me.txtPosNr.MaxLines_Warning = ""
Me.txtPosNr.MaxLines_Warning_Label = Nothing
Me.txtPosNr.Name = "txtPosNr"
Me.txtPosNr.Size = New System.Drawing.Size(310, 20)
Me.txtPosNr.TabIndex = 27
Me.txtLKW._DateTimeOnly = False
Me.txtLKW._numbersOnly = False
Me.txtLKW._numbersOnlyKommastellen = ""
Me.txtLKW._Prozent = False
Me.txtLKW._ShortDateNew = False
Me.txtLKW._ShortDateOnly = False
Me.txtLKW._TimeOnly = False
Me.txtLKW._value = Nothing
Me.txtLKW._Waehrung = False
Me.txtLKW._WaehrungZeichen = True
Me.txtLKW.ForeColor = System.Drawing.Color.Black
Me.txtLKW.Location = New System.Drawing.Point(254, 155)
Me.txtLKW.MaxLineLength = -1
Me.txtLKW.MaxLines_Warning = ""
Me.txtLKW.MaxLines_Warning_Label = Nothing
Me.txtLKW.Name = "txtLKW"
Me.txtLKW.Size = New System.Drawing.Size(310, 20)
Me.txtLKW.TabIndex = 18
'
'Panel4
'
Me.Panel4.BackColor = System.Drawing.Color.OldLace
Me.Panel4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel4.Controls.Add(Me.Button3)
Me.Panel4.Controls.Add(Me.btnStandardPreiseLaden)
Me.Panel4.Controls.Add(Me.lblCRsaved)
Me.Panel4.Controls.Add(Me.cbxBeimErstellenSpeichern)
Me.Panel4.Location = New System.Drawing.Point(653, 264)
Me.Panel4.Name = "Panel4"
Me.Panel4.Size = New System.Drawing.Size(310, 54)
Me.Panel4.TabIndex = 38
'
'Button3
'
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.Location = New System.Drawing.Point(245, 3)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(60, 23)
Me.Button3.TabIndex = 1
Me.Button3.Text = "Liste"
Me.Button3.UseVisualStyleBackColor = True
'
'btnStandardPreiseLaden
'
Me.btnStandardPreiseLaden.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnStandardPreiseLaden.Location = New System.Drawing.Point(3, 26)
Me.btnStandardPreiseLaden.Name = "btnStandardPreiseLaden"
Me.btnStandardPreiseLaden.Size = New System.Drawing.Size(160, 23)
Me.btnStandardPreiseLaden.TabIndex = 2
Me.btnStandardPreiseLaden.Text = "jetzt speichern"
Me.btnStandardPreiseLaden.UseVisualStyleBackColor = True
'
'lblCRsaved
'
Me.lblCRsaved.AutoSize = True
Me.lblCRsaved.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblCRsaved.Location = New System.Drawing.Point(169, 31)
Me.lblCRsaved.Name = "lblCRsaved"
Me.lblCRsaved.Size = New System.Drawing.Size(113, 13)
Me.lblCRsaved.TabIndex = 3
Me.lblCRsaved.Text = "(nicht gespeichert)"
'
'cbxBeimErstellenSpeichern
'
Me.cbxBeimErstellenSpeichern.AutoSize = True
Me.cbxBeimErstellenSpeichern.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!)
Me.cbxBeimErstellenSpeichern.Location = New System.Drawing.Point(3, 3)
Me.cbxBeimErstellenSpeichern.Name = "cbxBeimErstellenSpeichern"
Me.cbxBeimErstellenSpeichern.Size = New System.Drawing.Size(229, 22)
Me.cbxBeimErstellenSpeichern.TabIndex = 0
Me.cbxBeimErstellenSpeichern.Text = "In Postversand-Liste speichern"
Me.cbxBeimErstellenSpeichern.UseVisualStyleBackColor = True
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(559, 10)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(50, 13)
Me.Label5.TabIndex = 4
Me.Label5.Text = "Avisierer:"
'
'KdInAuftrag
'
Me.KdInAuftrag._AllowSetValue = True
Me.KdInAuftrag._autoSizeGross = False
Me.KdInAuftrag._display_Name1 = True
Me.KdInAuftrag._displayAVISO_Email = False
Me.KdInAuftrag._displayFullName = False
Me.KdInAuftrag._displayWoelflKd = False
Me.KdInAuftrag._hideIfListEmpty = True
Me.KdInAuftrag._loadKdData = True
Me.KdInAuftrag._ValueKdAndName = False
Me.KdInAuftrag.dgvpos = "LEFT"
Me.KdInAuftrag.KdName = Nothing
Me.KdInAuftrag.KdNr = "-1"
Me.KdInAuftrag.kdNrField = Nothing
Me.KdInAuftrag.KdNrNullInt = Nothing
Me.KdInAuftrag.Location = New System.Drawing.Point(644, 7)
Me.KdInAuftrag.Name = "KdInAuftrag"
Me.KdInAuftrag.nurAktive = True
Me.KdInAuftrag.searchActive = True
Me.KdInAuftrag.Size = New System.Drawing.Size(319, 20)
Me.KdInAuftrag.TabIndex = 5
Me.KdInAuftrag.usrcntl = Nothing
'
'cboFiliale
'
Me.cboFiliale._allowedValuesFreiText = Nothing
Me.cboFiliale._allowFreiText = False
Me.cboFiliale._value = ""
Me.cboFiliale.DropDownWidth = 200
Me.cboFiliale.FormattingEnabled = True
Me.cboFiliale.Location = New System.Drawing.Point(653, 155)
Me.cboFiliale.Name = "cboFiliale"
Me.cboFiliale.Size = New System.Drawing.Size(66, 21)
Me.cboFiliale.TabIndex = 20
'
'txtAbfertigungsNr
'
Me.txtAbfertigungsNr._DateTimeOnly = False
Me.txtAbfertigungsNr._numbersOnly = True
Me.txtAbfertigungsNr._numbersOnlyKommastellen = ""
Me.txtAbfertigungsNr._Prozent = False
Me.txtAbfertigungsNr._ShortDateNew = False
Me.txtAbfertigungsNr._ShortDateOnly = False
Me.txtAbfertigungsNr._TimeOnly = False
Me.txtAbfertigungsNr._value = ""
Me.txtAbfertigungsNr._Waehrung = False
Me.txtAbfertigungsNr._WaehrungZeichen = True
Me.txtAbfertigungsNr.Location = New System.Drawing.Point(718, 155)
Me.txtAbfertigungsNr.MaxLength = 8
Me.txtAbfertigungsNr.MaxLineLength = -1
Me.txtAbfertigungsNr.MaxLines_Warning = ""
Me.txtAbfertigungsNr.MaxLines_Warning_Label = Nothing
Me.txtAbfertigungsNr.Multiline = True
Me.txtAbfertigungsNr.Name = "txtAbfertigungsNr"
Me.txtAbfertigungsNr.Size = New System.Drawing.Size(245, 21)
Me.txtAbfertigungsNr.TabIndex = 21
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(580, 158)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(31, 13)
Me.Label7.TabIndex = 19
Me.Label7.Text = "Pos.:"
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Location = New System.Drawing.Point(167, 94)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(48, 13)
Me.Label9.TabIndex = 13
Me.Label9.Text = "Adresse:"
'
'kdRgEmpfaenger
'
Me.kdRgEmpfaenger._AllowSetValue = True
Me.kdRgEmpfaenger._autoSizeGross = False
Me.kdRgEmpfaenger._display_Name1 = True
Me.kdRgEmpfaenger._displayAVISO_Email = False
Me.kdRgEmpfaenger._displayFullName = False
Me.kdRgEmpfaenger._displayWoelflKd = False
Me.kdRgEmpfaenger._hideIfListEmpty = True
Me.kdRgEmpfaenger._loadKdData = True
Me.kdRgEmpfaenger._ValueKdAndName = False
Me.kdRgEmpfaenger.dgvpos = "LEFT"
Me.kdRgEmpfaenger.KdName = Nothing
Me.kdRgEmpfaenger.KdNr = "-1"
Me.kdRgEmpfaenger.kdNrField = Nothing
Me.kdRgEmpfaenger.KdNrNullInt = Nothing
Me.kdRgEmpfaenger.Location = New System.Drawing.Point(254, 302)
Me.kdRgEmpfaenger.Name = "kdRgEmpfaenger"
Me.kdRgEmpfaenger.nurAktive = True
Me.kdRgEmpfaenger.searchActive = True
Me.kdRgEmpfaenger.Size = New System.Drawing.Size(310, 20)
Me.kdRgEmpfaenger.TabIndex = 39
Me.kdRgEmpfaenger.usrcntl = Nothing
'
'txtEmpfänger
'
Me.txtEmpfänger.AutoSize = True
Me.txtEmpfänger.Location = New System.Drawing.Point(167, 304)
Me.txtEmpfänger.Name = "txtEmpfänger"
Me.txtEmpfänger.Size = New System.Drawing.Size(84, 13)
Me.txtEmpfänger.TabIndex = 37
Me.txtEmpfänger.Text = "(Rg.)Empfänger:"
'
'txtAvisiererAuftragsNr
'
Me.txtAvisiererAuftragsNr._DateTimeOnly = False
Me.txtAvisiererAuftragsNr._numbersOnly = False
Me.txtAvisiererAuftragsNr._numbersOnlyKommastellen = ""
Me.txtAvisiererAuftragsNr._Prozent = False
Me.txtAvisiererAuftragsNr._ShortDateNew = False
Me.txtAvisiererAuftragsNr._ShortDateOnly = False
Me.txtAvisiererAuftragsNr._TimeOnly = False
Me.txtAvisiererAuftragsNr._value = Nothing
Me.txtAvisiererAuftragsNr._Waehrung = False
Me.txtAvisiererAuftragsNr._WaehrungZeichen = True
Me.txtAvisiererAuftragsNr.ForeColor = System.Drawing.Color.Black
Me.txtAvisiererAuftragsNr.Location = New System.Drawing.Point(644, 26)
Me.txtAvisiererAuftragsNr.MaxLineLength = -1
Me.txtAvisiererAuftragsNr.MaxLines_Warning = ""
Me.txtAvisiererAuftragsNr.MaxLines_Warning_Label = Nothing
Me.txtAvisiererAuftragsNr.Name = "txtAvisiererAuftragsNr"
Me.txtAvisiererAuftragsNr.Size = New System.Drawing.Size(319, 20)
Me.txtAvisiererAuftragsNr.TabIndex = 8
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(559, 29)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(79, 13)
Me.Label8.TabIndex = 6
Me.Label8.Text = "Kd-AuftragsNr.:"
'
'btnNEU
'
Me.btnNEU.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnNEU.Location = New System.Drawing.Point(657, 320)
Me.btnNEU.Name = "btnNEU"
Me.btnNEU.Size = New System.Drawing.Size(160, 23)
Me.btnNEU.TabIndex = 40
Me.btnNEU.Text = "Neu"
Me.btnNEU.UseVisualStyleBackColor = True
'
'txtRefNr
'
Me.txtRefNr._DateTimeOnly = False
Me.txtRefNr._numbersOnly = False
Me.txtRefNr._numbersOnlyKommastellen = ""
Me.txtRefNr._Prozent = False
Me.txtRefNr._ShortDateNew = False
Me.txtRefNr._ShortDateOnly = False
Me.txtRefNr._TimeOnly = False
Me.txtRefNr._value = Nothing
Me.txtRefNr._Waehrung = False
Me.txtRefNr._WaehrungZeichen = True
Me.txtRefNr.ForeColor = System.Drawing.Color.Black
Me.txtRefNr.Location = New System.Drawing.Point(254, 331)
Me.txtRefNr.MaxLineLength = -1
Me.txtRefNr.MaxLines_Warning = ""
Me.txtRefNr.MaxLines_Warning_Label = Nothing
Me.txtRefNr.Name = "txtRefNr"
Me.txtRefNr.Size = New System.Drawing.Size(310, 20)
Me.txtRefNr.TabIndex = 42
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Location = New System.Drawing.Point(167, 325)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(66, 26)
Me.Label10.TabIndex = 41
Me.Label10.Text = "Paketdienst-" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Referenz:"
'
'usrcntlVerzollungsunterlagen
'
@@ -553,6 +814,20 @@ Partial Class usrcntlVerzollungsunterlagen
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.WhiteSmoke
Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Controls.Add(Me.txtRefNr)
Me.Controls.Add(Me.Label10)
Me.Controls.Add(Me.btnNEU)
Me.Controls.Add(Me.Label8)
Me.Controls.Add(Me.txtAvisiererAuftragsNr)
Me.Controls.Add(Me.kdRgEmpfaenger)
Me.Controls.Add(Me.txtEmpfänger)
Me.Controls.Add(Me.Label9)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.cboFiliale)
Me.Controls.Add(Me.txtAbfertigungsNr)
Me.Controls.Add(Me.KdInAuftrag)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.Panel4)
Me.Controls.Add(Me.txtFirma)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.Label4)
@@ -578,16 +853,18 @@ Partial Class usrcntlVerzollungsunterlagen
Me.Controls.Add(Me.pic)
Me.Controls.Add(Me.txtAnlage1)
Me.Controls.Add(Me.Label11)
Me.Controls.Add(Me.txtPosNr)
Me.Controls.Add(Me.txtLKW)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.txtAdresse2)
Me.Controls.Add(Me.txtAdresse1)
Me.Controls.Add(Me.lbl)
Me.Controls.Add(Me.lblVollmachtDE)
Me.Name = "usrcntlVerzollungsunterlagen"
Me.Size = New System.Drawing.Size(1000, 288)
Me.Size = New System.Drawing.Size(1000, 372)
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel4.ResumeLayout(False)
Me.Panel4.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -622,5 +899,23 @@ Partial Class usrcntlVerzollungsunterlagen
Friend WithEvents txtAnlage4 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtAnlage5 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtAnlage6 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtPosNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtLKW As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Panel4 As Panel
Friend WithEvents Button3 As Button
Friend WithEvents btnStandardPreiseLaden As Button
Friend WithEvents lblCRsaved As Label
Friend WithEvents cbxBeimErstellenSpeichern As CheckBox
Friend WithEvents Label5 As Label
Friend WithEvents KdInAuftrag As VERAG_PROG_ALLGEMEIN.KdSearchBox
Friend WithEvents cboFiliale As VERAG_PROG_ALLGEMEIN.MyComboBox
Public WithEvents txtAbfertigungsNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label7 As Label
Friend WithEvents Label9 As Label
Friend WithEvents kdRgEmpfaenger As VERAG_PROG_ALLGEMEIN.KdSearchBox
Friend WithEvents txtEmpfänger As Label
Friend WithEvents txtAvisiererAuftragsNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label8 As Label
Friend WithEvents btnNEU As Button
Friend WithEvents txtRefNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label10 As Label
End Class

324
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen.vb
View File

@@ -7,6 +7,16 @@
Public Event MOVE_UP(c As Control)
Public Event MOVE_DOWN(c As Control)
Public KdFirma As String = ""
Public SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing
Public AVISO As VERAG_PROG_ALLGEMEIN.cAviso = Nothing
Public ROLLE As String = ""
Public POST_ID = -1
Public BeimErstellenSpeichern = False
Public KdNR As Integer = -1
Public Sub ChangeKDNr(kdnr As Integer) _
Implements FormualrInterface.ChangeKDNr
@@ -14,7 +24,31 @@
txtFirma.KdNr = kdnr
End Sub
'Dim KdNR As Integer = -1
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub New(param() As Object)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
If param.Length > 0 AndAlso param(0) IsNot Nothing Then KdNR = param(0)
If param.Length > 1 Then KdFirma = param(1)
If param.Length > 2 Then SENDUNG = param(2)
If param.Length > 3 Then AVISO = param(3)
If param.Length > 4 Then ROLLE = param(4)
If param.Length > 5 Then POST_ID = param(5)
If param.Length > 6 Then BeimErstellenSpeichern = param(6)
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
'DimKdNR As Integer = -1
Sub initControlsHandler()
For Each c In Me.Controls
Select Case c.GetType.ToString
@@ -35,9 +69,6 @@
End Sub
Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click
RaiseEvent DELETE(Me)
End Sub
@@ -57,6 +88,9 @@
Private Sub usrcntlVollmacht_AT_Load(sender As Object, e As EventArgs) Handles Me.Load
txtFirma.initKdBox(Me.FindForm)
KdInAuftrag.initKdBox(Me.FindForm)
cbxBeimErstellenSpeichern.Checked = BeimErstellenSpeichern
AddHandler txtFirma.PropertyChanged, Sub()
Me.KdNR = txtFirma.KdNr_value
If txtFirma.KdNr_value > 0 Then
@@ -73,9 +107,9 @@
RaiseEvent KDNR_CHANGED(KdNR)
End Sub
initControlsHandler()
cboFirma.Items.Clear()
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Deutsch", "DE"))
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Englisch", "EN"))
'cboFirma.Items.Clear()
'cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Deutsch", "DE"))
'cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Englisch", "EN"))
If KdNR > 0 Then txtFirma.KdNr = KdNR
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Spedition AG", "AG"))
@@ -83,18 +117,81 @@
cboFirma.changeItem("AG")
' cboFiliale.fillWithSQL(" SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", , "FMZOLL", True)
cboFiliale.fillWithSQL(" SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", , "FMZOLL", True)
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX" : cboFiliale._allowedValuesFreiText = {"5501"}
Case "ATILLA" : cboFiliale._allowedValuesFreiText = {"4801"}
End Select
txtBearbeiter.Text = If(VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, "")
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER IsNot Nothing Then
txtTel.Text = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_durchwahl, "+43 77 11 / 27 77 DW 55")
txtFax.Text = "+43 77 11 / 31073"
txtEmail.Text = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email, "verrechnung@verag.ag")
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_firmaFMZoll = 11 Then
cboFirma.changeItem("CS")
End If
btnNEU.Visible = False
If POST_ID > 0 Then
Dim VK As New VERAG_PROG_ALLGEMEIN.cPostversand(POST_ID)
If VK IsNot Nothing Then setValues(VK)
btnNEU.Visible = True
Else
If KdNR > 0 Then
txtFirma.KdNr = KdNR
Else
cboFirma.changeItem("AG")
txtFirma.Text = KdFirma
End If
' 'txtWarenbez.Text = If(SENDUNG.tblSnd_Warenbezeichnung, "")
' ' txtAnzVerp.Text = If(SENDUNG.tblSnd_Colli, "")
' ' txtGewicht.Text = If(SENDUNG.tblSnd_Gewicht, "")
' txtAbsender.Text = If(SENDUNG.tblSnd_Absender, "")
' If SENDUNG.AbfertigungsNr > 0 Then
' ' txtAbfertigungsNr.Text = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr
' txtAbfertigungsNr.Text = SENDUNG.AbfertigungsNr
' If SENDUNG.FilialenNr > 0 Then
' cboFiliale.changeItem(SENDUNG.FilialenNr)
' Dim VK = VERAG_PROG_ALLGEMEIN.cPostversand.LOADByFilialeAbfNr(SENDUNG.FilialenNr, SENDUNG.AbfertigungsNr, ROLLE)
' If VK IsNot Nothing Then setValues(VK)
' End If
' End If
'End If
If AVISO IsNot Nothing Then
txtLKW.Text = If(AVISO.LKW_Nr, "")
'txtUnternehmer.Text = If(AVISO.Frächter, "")
'cbxLKWWartet.Checked = (AVISO.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft)
If AVISO.Auftraggeber_KdNr > 0 Then
KdInAuftrag.KdNr = AVISO.Auftraggeber_KdNr
Else
KdInAuftrag.Text = If(AVISO.Auftraggeber, "")
End If
End If
If SENDUNG IsNot Nothing Then
cboFiliale.changeItem(SENDUNG.FilialenNr)
txtAbfertigungsNr.Text = SENDUNG.AbfertigungsNr
If SENDUNG.tblSnd_EmpfaengerKdNr > 0 Then
kdRgEmpfaenger.KdNr = SENDUNG.tblSnd_EmpfaengerKdNr
Else
kdRgEmpfaenger.Text = SENDUNG.tblSnd_Empfaenger
End If
txtAvisiererAuftragsNr.Text = If(SENDUNG.tblSnd_KdAuftragsNrAvisierer, "")
'txtUnternehmer.Text = If(AVISO.Frächter, "")
'cbxLKWWartet.Checked = (AVISO.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft)
End If
End If
@@ -109,4 +206,211 @@
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
FormularManagerNEU.genPDF(Me, , , , True)
End Sub
Private Sub btnStandardPreiseLaden_Click(sender As Object, e As EventArgs) Handles btnStandardPreiseLaden.Click
If FormularManagerNEU.savePostversand(Me, POST_ID) Then
btnNEU.Visible = True
lblCRsaved.Text = "(gespeichert)"
lblCRsaved.ForeColor = Color.Green
End If
End Sub
Sub getValues(ByRef cPostversand As VERAG_PROG_ALLGEMEIN.cPostversand)
cPostversand.post_Empfaenger_KdNr = If(Me.KdNR > 0, Me.KdNR, Nothing)
cPostversand.post_FilialenNr = Me.cboFiliale._value
cPostversand.post_AbfertigungsNr = Me.txtAbfertigungsNr.Text
cPostversand.post_Datum = Now
cPostversand.post_ContainerLKWNr = Me.txtLKW.Text
cPostversand.post_Rolle = Me.ROLLE
If SENDUNG IsNot Nothing Then
cPostversand.post_SendungsId = SENDUNG.tblSnd_SendungID
End If
If AVISO IsNot Nothing Then cPostversand.post_AvisoId = AVISO.AvisoID
cPostversand.post_FirmaInAuftragKdnr = Me.KdInAuftrag.KdNr
cPostversand.post_FirmaInAuftrag = Me.KdInAuftrag.Text
cPostversand.post_Empfaenger_KdNr = txtFirma.KdNr
cPostversand.post_Empfaenger_Name1 = Me.txtFirma.Text
cPostversand.post_Empfaenger_Name2 = Me.txtFirma2.Text
cPostversand.post_Empfaenger_Adresse1 = Me.txtAdresse1.Text
cPostversand.post_Empfaenger_Adresse2 = Me.txtAdresse2.Text
cPostversand.post_Empfaenger_Adresse3 = Me.txtAdresse3.Text
cPostversand.post_art = ""
cPostversand.post_SachbearbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
cPostversand.post_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
cPostversand.post_ReferenzPaketdienst = txtRefNr.Text
cPostversand.post_RgEmpfaenger_KdNr = kdRgEmpfaenger.KdNr
cPostversand.post_RgEmpfaenger_Name = kdRgEmpfaenger.Text
cPostversand.post_KdAuftrNrAvisierer = Me.txtAvisiererAuftragsNr.Text
'VK.vk_Rolle = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(ROLLE)
'VK.vk_Anrede = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtHerrFrau.Text)
'VK.vk_Firmenwortlauf = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtFirma.Text)
'VK.vk_Aresse1 = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtAdresse1.Text)
'VK.vk_Adresse2 = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtAdresse2.Text)
'VK.vk_UID = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtUid.Text)
'VK.vk_EORI = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtEori.Text)
'VK.vk_Tel = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtTel.Text)
'VK.vk_Fax = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtFax.Text)
'VK.vk_Email = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtEmail.Text)
'VK.vk_RgNr = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtRechnungsnummern.Text)
'VK.vk_Absender = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtAbsender.Text)
'VK.vk_ATREUR1 = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtATUEur1.Text)
'VK.vk_Fraechter = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtUnternehmer.Text)
'VK.vk_Anzahl = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtAnzVerp.Text)
'VK.vk_Warenbezeichnung = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtWarenbez.Text)
'VK.vk_Colli = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtGewicht.Text)
'VK.vk_FaStNr = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtFaStNr.Text)
'VK.vk_LKW = txtLKWKennz.Text
'VK.vk_Berechnung_Rechnungsbetrag = VERAG_PROG_ALLGEMEIN.SQL.isNullNothingDbl(lblRechnungsbetrag._value)
'VK.vk_Berechnung_FrachtkostAusland = VERAG_PROG_ALLGEMEIN.SQL.isNullNothingDbl(txtFrachtkostenAusl._value)
'VK.vk_Berechnung_ZollProz = VERAG_PROG_ALLGEMEIN.SQL.isNullNothingDbl(txtZollProzent._value)
'VK.vk_Berechnung_FrachtkostInland = VERAG_PROG_ALLGEMEIN.SQL.isNullNothingDbl(txtFrachtkostenInl._value)
'VK.vk_Berechnung_AbgabenSonst_Bez = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtEustSonstText.Text)
'VK.vk_Berechnung_AbgabenSonst_Betrag = VERAG_PROG_ALLGEMEIN.SQL.isNullNothingDbl(txtEustSonstBetrag._value)
'VK.vk_Berechnung_EUSTProz = VERAG_PROG_ALLGEMEIN.SQL.isNullNothingDbl(txtEustProzent._value)
'VK.vk_Berechnung_KostenSonst_Bez = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtAndereAbgabenText.Text)
'VK.vk_Berechnung_KostenSonst_Betrag = VERAG_PROG_ALLGEMEIN.SQL.isNullNothingDbl(txtAndereAbgabenBetrag._value)
'VK.vk_Berechnung_Verzollung = VERAG_PROG_ALLGEMEIN.SQL.isNullNothingDbl(txtVerzollungskosten._value)
'VK.vk_Berechnung_jeWeitere = VERAG_PROG_ALLGEMEIN.SQL.isNullNothingDbl(txtWeitereTarifPos._value)
'VK.vk_Berechnung_ATLAS = VERAG_PROG_ALLGEMEIN.SQL.isNullNothingDbl(txtATLAS._value)
'VK.vk_Berechnung_Clearing = VERAG_PROG_ALLGEMEIN.SQL.isNullNothingDbl(txtClearing._value)
'VK.vk_Berechnung_korrRg = VERAG_PROG_ALLGEMEIN.SQL.isNullNothingDbl(txtKorrRechnung._value)
'VK.vk_Berechnung_Übersetzung = VERAG_PROG_ALLGEMEIN.SQL.isNullNothingDbl(txtUebersetzungRg._value)
'VK.vk_Berechnung_Aviso = VERAG_PROG_ALLGEMEIN.SQL.isNullNothingDbl(txtAviso._value)
'VK.vk_Berechnung_SVS = VERAG_PROG_ALLGEMEIN.SQL.isNullNothingDbl(txtSvs._value)
'VK.vk_Berechnung_SonstigeKosten = VERAG_PROG_ALLGEMEIN.SQL.isNullNothingDbl(txtSonstigeKosten._value)
'VK.vk_Berechnung_SonstigeKostenText = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtSonstigeKostenText.Text)
'VK.vk_Berechnung_PP = VERAG_PROG_ALLGEMEIN.SQL.isNullNothingDbl(txtPapierePorti._value)
End Sub
Sub setValues(ByVal cPostversand As VERAG_PROG_ALLGEMEIN.cPostversand)
txtAnlage1.Text = ""
txtAnlage2.Text = ""
txtAnlage3.Text = ""
txtAnlage4.Text = ""
txtAnlage5.Text = ""
txtAnlage6.Text = ""
Me.KdNR = If(cPostversand.post_Empfaenger_KdNr, -1)
Me.txtFirma.KdNr = If(cPostversand.post_Empfaenger_KdNr, -1)
Me.KdInAuftrag.KdNr = If(cPostversand.post_FirmaInAuftragKdnr, -1)
Me.cboFiliale.changeItem(If(cPostversand.post_FilialenNr, ""))
Me.txtAbfertigungsNr.Text = If(cPostversand.post_AbfertigungsNr, "")
Me.txtLKW.Text = If(cPostversand.post_ContainerLKWNr, "")
Me.txtFirma.Text = If(cPostversand.post_Empfaenger_Name1, "")
Me.txtFirma2.Text = If(cPostversand.post_Empfaenger_Name2, "")
Me.txtAdresse1.Text = If(cPostversand.post_Empfaenger_Adresse1, "")
Me.txtAdresse2.Text = If(cPostversand.post_Empfaenger_Adresse2, "")
Me.txtAdresse3.Text = If(cPostversand.post_Empfaenger_Adresse3, "")
Me.KdInAuftrag.Text = If(cPostversand.post_FirmaInAuftrag, "")
If cPostversand.post_RgEmpfaenger_KdNr IsNot Nothing Then
kdRgEmpfaenger.KdNr = cPostversand.post_RgEmpfaenger_KdNr
Else
kdRgEmpfaenger.KdNr = -1
End If
kdRgEmpfaenger.Text = If(cPostversand.post_RgEmpfaenger_Name, "")
txtAvisiererAuftragsNr.Text = If(cPostversand.post_KdAuftrNrAvisierer, "")
txtRefNr.Text = If(cPostversand.post_ReferenzPaketdienst, "")
'Me.txtAbfertigungsNr.Text = If(cPostversand.post_art, "")
'M.Text = If(cPostversand.post_Empfaenger_Adresse3, "")
'Me.txtAdresse3.Text = If(cPostversand.post_Empfaenger_Adresse3, "")
'cPostversand.post_SachbearbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
'cPostversand.post_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
'ROLLE = If(VK.vk_Rolle, "")
'txtHerrFrau.Text = If(VK.vk_Anrede, "")
'txtFirma.Text = If(VK.vk_Firmenwortlauf, "")
'txtAdresse1.Text = If(VK.vk_Aresse1, "")
'txtAdresse2.Text = If(VK.vk_Adresse2, "")
'txtUid.Text = If(VK.vk_UID, "")
'txtEori.Text = If(VK.vk_EORI, "")
'txtTel.Text = If(VK.vk_Tel, "")
'txtFax.Text = If(VK.vk_Fax, "")
'txtEmail.Text = If(VK.vk_Email, "")
'txtRechnungsnummern.Text = If(VK.vk_RgNr, "")
'txtAbsender.Text = If(VK.vk_Absender, "")
'txtATUEur1.Text = If(VK.vk_ATREUR1, "")
'txtUnternehmer.Text = If(VK.vk_Fraechter, "")
'txtAnzVerp.Text = If(VK.vk_Anzahl, "")
'txtWarenbez.Text = If(VK.vk_Warenbezeichnung, "")
'txtGewicht.Text = If(VK.vk_Colli, "")
'txtFaStNr.Text = If(VK.vk_FaStNr, "")
'txtLKWKennz.Text = If(VK.vk_LKW, "")
'lblRechnungsbetrag._value = If(VK.vk_Berechnung_Rechnungsbetrag, "")
'txtFrachtkostenAusl._value = If(VK.vk_Berechnung_FrachtkostAusland, "")
'txtZollProzent._value = If(VK.vk_Berechnung_ZollProz, "")
'txtFrachtkostenInl._value = If(VK.vk_Berechnung_FrachtkostInland, "")
'txtEustSonstText.Text = If(VK.vk_Berechnung_AbgabenSonst_Bez, "")
'txtEustSonstBetrag._value = If(VK.vk_Berechnung_AbgabenSonst_Betrag, "")
'txtEustProzent._value = If(VK.vk_Berechnung_EUSTProz, "")
'txtAndereAbgabenText.Text = If(VK.vk_Berechnung_KostenSonst_Bez, "")
'txtAndereAbgabenBetrag._value = If(VK.vk_Berechnung_KostenSonst_Betrag, "")
'txtVerzollungskosten._value = If(VK.vk_Berechnung_Verzollung, "")
'txtWeitereTarifPos._value = If(VK.vk_Berechnung_jeWeitere, "")
'txtATLAS._value = If(VK.vk_Berechnung_ATLAS, "")
'txtClearing._value = If(VK.vk_Berechnung_Clearing, "")
'txtKorrRechnung._value = If(VK.vk_Berechnung_korrRg, "")
'txtUebersetzungRg._value = If(VK.vk_Berechnung_Übersetzung, "")
'txtAviso._value = If(VK.vk_Berechnung_Aviso, "")
'txtSvs._value = If(VK.vk_Berechnung_SVS, "")
'txtSonstigeKosten._value = If(VK.vk_Berechnung_SonstigeKosten, "")
'txtSonstigeKostenText.Text = If(VK.vk_Berechnung_SonstigeKostenText, "Sonstige Kosten")
'txtPapierePorti._value = If(VK.vk_Berechnung_PP, "")
End Sub
Public Function ValidValues(ByRef err) As Boolean
ValidValues = True
' If Not IsNumeric(cboFiliale._value) Then err &= "Vorauskasse: Filiale auswählen!" & vbNewLine : cboFiliale.Focus() : ValidValues = False
' If Not IsNumeric(txtAbfertigungsNr.Text) Then err &= "Vorauskasse: AbfertigungsNr. auswählen!" & vbNewLine : txtAbfertigungsNr.Focus() : ValidValues = False
If txtFirma.Text = "" Then err &= "Verz.Unterl.: Empfänger auswählen!" & vbNewLine : cboFiliale.Focus() : ValidValues = False
If txtLKW.Text = "" Then err &= "Verz.Unterl.: Empfänger auswählen!" & vbNewLine : cboFiliale.Focus() : ValidValues = False
End Function
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Dim f As New frmPostEinschreiben
f.Show()
End Sub
Private Sub cboFiliale_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFiliale.SelectedIndexChanged
Select Case cboFiliale._value
Case "4805" : cboFirma.changeItem("CS")
Case Else
cboFirma.changeItem("AG")
End Select
End Sub
Private Sub btnNEU_Click(sender As Object, e As EventArgs) Handles btnNEU.Click
POST_ID = -1
setValues(New VERAG_PROG_ALLGEMEIN.cPostversand)
btnNEU.Visible = False
End Sub
End Class

285
SDL/Formulare/KDFormulare/frmFormulare.Designer.vb generated
View File

@@ -26,23 +26,27 @@ Partial Class frmFormulare
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFormulare))
Me.pnl = New System.Windows.Forms.Panel()
Me.Label4 = New System.Windows.Forms.Label()
Me.cboVorlage = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.Button3 = New System.Windows.Forms.Button()
Me.MyListBox2 = New VERAG_PROG_ALLGEMEIN.MyListBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen = New System.Windows.Forms.CheckBox()
Me.MyListBox1 = New VERAG_PROG_ALLGEMEIN.MyListBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.lblFormularManager = New System.Windows.Forms.Label()
Me.pnlBody = New System.Windows.Forms.Panel()
Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
Me.pnlBottom = New System.Windows.Forms.Panel()
Me.Label6 = New System.Windows.Forms.Label()
Me.cboTextKonserveSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.cboTextkonserve = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtErr = New System.Windows.Forms.RichTextBox()
Me.cboPrinter = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.btnPrint = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.btn = New System.Windows.Forms.Button()
Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
Me.cboPrinter = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboVorlage = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.MyListBox2 = New VERAG_PROG_ALLGEMEIN.MyListBox()
Me.MyListBox1 = New VERAG_PROG_ALLGEMEIN.MyListBox()
Me.pnl.SuspendLayout()
Me.pnlBody.SuspendLayout()
Me.pnlBottom.SuspendLayout()
@@ -74,9 +78,21 @@ Partial Class frmFormulare
Me.Label4.Location = New System.Drawing.Point(12, 37)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(114, 13)
Me.Label4.TabIndex = 8
Me.Label4.TabIndex = 4
Me.Label4.Text = "Vorlagengruppe laden:"
'
'cboVorlage
'
Me.cboVorlage._allowedValuesFreiText = Nothing
Me.cboVorlage._allowFreiText = False
Me.cboVorlage._value = ""
Me.cboVorlage.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboVorlage.FormattingEnabled = True
Me.cboVorlage.Location = New System.Drawing.Point(132, 34)
Me.cboVorlage.Name = "cboVorlage"
Me.cboVorlage.Size = New System.Drawing.Size(205, 21)
Me.cboVorlage.TabIndex = 5
'
'Label3
'
Me.Label3.AutoSize = True
@@ -84,13 +100,13 @@ Partial Class frmFormulare
Me.Label3.Location = New System.Drawing.Point(1239, 10)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(86, 13)
Me.Label3.TabIndex = 6
Me.Label3.TabIndex = 3
Me.Label3.Text = "PDF hinzufügen:"
'
'Button3
'
Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button3.BackgroundImage = Global.SDL.My.Resources.pdf
Me.Button3.BackgroundImage = Global.SDL.My.Resources.Resources.pdf
Me.Button3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button3.FlatAppearance.BorderSize = 0
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -99,9 +115,20 @@ Partial Class frmFormulare
Me.Button3.Name = "Button3"
Me.Button3.Padding = New System.Windows.Forms.Padding(5)
Me.Button3.Size = New System.Drawing.Size(74, 40)
Me.Button3.TabIndex = 3
Me.Button3.TabIndex = 8
Me.Button3.UseVisualStyleBackColor = True
'
'MyListBox2
'
Me.MyListBox2._value = ""
Me.MyListBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.MyListBox2.FormattingEnabled = True
Me.MyListBox2.ItemHeight = 16
Me.MyListBox2.Location = New System.Drawing.Point(810, 26)
Me.MyListBox2.Name = "MyListBox2"
Me.MyListBox2.Size = New System.Drawing.Size(429, 68)
Me.MyListBox2.TabIndex = 7
'
'Label2
'
Me.Label2.AutoSize = True
@@ -109,7 +136,7 @@ Partial Class frmFormulare
Me.Label2.Location = New System.Drawing.Point(807, 10)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(151, 13)
Me.Label2.TabIndex = 0
Me.Label2.TabIndex = 2
Me.Label2.Text = "Weitere Formulare hinzufügen:"
'
'cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen
@@ -120,10 +147,21 @@ Partial Class frmFormulare
Me.cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen.Location = New System.Drawing.Point(15, 78)
Me.cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen.Name = "cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen"
Me.cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen.Size = New System.Drawing.Size(322, 17)
Me.cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen.TabIndex = 5
Me.cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen.TabIndex = 9
Me.cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen.Text = "Änderung gleicher Felder bei allen Formularen berücksichtigen."
Me.cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen.UseVisualStyleBackColor = True
'
'MyListBox1
'
Me.MyListBox1._value = ""
Me.MyListBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.MyListBox1.FormattingEnabled = True
Me.MyListBox1.ItemHeight = 16
Me.MyListBox1.Location = New System.Drawing.Point(343, 26)
Me.MyListBox1.Name = "MyListBox1"
Me.MyListBox1.Size = New System.Drawing.Size(461, 68)
Me.MyListBox1.TabIndex = 6
'
'Label1
'
Me.Label1.AutoSize = True
@@ -131,7 +169,7 @@ Partial Class frmFormulare
Me.Label1.Location = New System.Drawing.Point(340, 10)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(111, 13)
Me.Label1.TabIndex = 2
Me.Label1.TabIndex = 1
Me.Label1.Text = "Vollmacht hinzufügen:"
'
'lblFormularManager
@@ -141,7 +179,7 @@ Partial Class frmFormulare
Me.lblFormularManager.Location = New System.Drawing.Point(12, 10)
Me.lblFormularManager.Name = "lblFormularManager"
Me.lblFormularManager.Size = New System.Drawing.Size(140, 17)
Me.lblFormularManager.TabIndex = 1
Me.lblFormularManager.TabIndex = 0
Me.lblFormularManager.Text = "Formular Manager"
'
'pnlBody
@@ -156,74 +194,6 @@ Partial Class frmFormulare
Me.pnlBody.Size = New System.Drawing.Size(1326, 636)
Me.pnlBody.TabIndex = 1
'
'pnlBottom
'
Me.pnlBottom.BackColor = System.Drawing.Color.White
Me.pnlBottom.Controls.Add(Me.txtErr)
Me.pnlBottom.Controls.Add(Me.cboPrinter)
Me.pnlBottom.Controls.Add(Me.btnPrint)
Me.pnlBottom.Controls.Add(Me.Button2)
Me.pnlBottom.Controls.Add(Me.btn)
Me.pnlBottom.Dock = System.Windows.Forms.DockStyle.Bottom
Me.pnlBottom.Location = New System.Drawing.Point(0, 736)
Me.pnlBottom.Name = "pnlBottom"
Me.pnlBottom.Size = New System.Drawing.Size(1326, 61)
Me.pnlBottom.TabIndex = 2
'
'txtErr
'
Me.txtErr.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtErr.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.txtErr.ForeColor = System.Drawing.Color.Red
Me.txtErr.Location = New System.Drawing.Point(15, 3)
Me.txtErr.Name = "txtErr"
Me.txtErr.Size = New System.Drawing.Size(454, 55)
Me.txtErr.TabIndex = 22
Me.txtErr.Text = ""
'
'btnPrint
'
Me.btnPrint.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnPrint.BackgroundImage = Global.SDL.My.Resources.printer2
Me.btnPrint.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnPrint.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnPrint.Location = New System.Drawing.Point(1262, 10)
Me.btnPrint.Margin = New System.Windows.Forms.Padding(5)
Me.btnPrint.Name = "btnPrint"
Me.btnPrint.Padding = New System.Windows.Forms.Padding(5)
Me.btnPrint.Size = New System.Drawing.Size(50, 40)
Me.btnPrint.TabIndex = 2
Me.btnPrint.UseVisualStyleBackColor = True
'
'Button2
'
Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button2.BackgroundImage = Global.SDL.My.Resources.pdf
Me.Button2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.Location = New System.Drawing.Point(1202, 10)
Me.Button2.Margin = New System.Windows.Forms.Padding(5)
Me.Button2.Name = "Button2"
Me.Button2.Padding = New System.Windows.Forms.Padding(5)
Me.Button2.Size = New System.Drawing.Size(50, 40)
Me.Button2.TabIndex = 1
Me.Button2.UseVisualStyleBackColor = True
'
'btn
'
Me.btn.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btn.BackgroundImage = Global.SDL.My.Resources.email_big
Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.Location = New System.Drawing.Point(1142, 10)
Me.btn.Margin = New System.Windows.Forms.Padding(5)
Me.btn.Name = "btn"
Me.btn.Padding = New System.Windows.Forms.Padding(5)
Me.btn.Size = New System.Drawing.Size(50, 40)
Me.btn.TabIndex = 0
Me.btn.UseVisualStyleBackColor = True
'
'MyFlowLayoutPanel1
'
Me.MyFlowLayoutPanel1.AllowDrop = True
@@ -237,6 +207,88 @@ Partial Class frmFormulare
Me.MyFlowLayoutPanel1.Size = New System.Drawing.Size(1324, 634)
Me.MyFlowLayoutPanel1.TabIndex = 0
'
'pnlBottom
'
Me.pnlBottom.BackColor = System.Drawing.Color.White
Me.pnlBottom.Controls.Add(Me.Label6)
Me.pnlBottom.Controls.Add(Me.cboTextKonserveSprache)
Me.pnlBottom.Controls.Add(Me.Label5)
Me.pnlBottom.Controls.Add(Me.cboTextkonserve)
Me.pnlBottom.Controls.Add(Me.txtErr)
Me.pnlBottom.Controls.Add(Me.cboPrinter)
Me.pnlBottom.Controls.Add(Me.btnPrint)
Me.pnlBottom.Controls.Add(Me.Button2)
Me.pnlBottom.Controls.Add(Me.btn)
Me.pnlBottom.Dock = System.Windows.Forms.DockStyle.Bottom
Me.pnlBottom.Location = New System.Drawing.Point(0, 736)
Me.pnlBottom.Name = "pnlBottom"
Me.pnlBottom.Size = New System.Drawing.Size(1326, 61)
Me.pnlBottom.TabIndex = 2
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label6.Location = New System.Drawing.Point(553, 10)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(75, 13)
Me.Label6.TabIndex = 1
Me.Label6.Text = "Textkonserve:"
Me.Label6.Visible = False
'
'cboTextKonserveSprache
'
Me.cboTextKonserveSprache._allowedValuesFreiText = Nothing
Me.cboTextKonserveSprache._allowFreiText = False
Me.cboTextKonserveSprache._value = ""
Me.cboTextKonserveSprache.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboTextKonserveSprache.DropDownWidth = 300
Me.cboTextKonserveSprache.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.cboTextKonserveSprache.FormattingEnabled = True
Me.cboTextKonserveSprache.Location = New System.Drawing.Point(647, 28)
Me.cboTextKonserveSprache.Name = "cboTextKonserveSprache"
Me.cboTextKonserveSprache.Size = New System.Drawing.Size(191, 21)
Me.cboTextKonserveSprache.TabIndex = 4
Me.cboTextKonserveSprache.Visible = False
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.Location = New System.Drawing.Point(553, 31)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(50, 13)
Me.Label5.TabIndex = 3
Me.Label5.Text = "Sprache:"
Me.Label5.Visible = False
'
'cboTextkonserve
'
Me.cboTextkonserve._allowedValuesFreiText = Nothing
Me.cboTextkonserve._allowFreiText = False
Me.cboTextkonserve._value = ""
Me.cboTextkonserve.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboTextkonserve.DropDownWidth = 300
Me.cboTextkonserve.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.cboTextkonserve.FormattingEnabled = True
Me.cboTextkonserve.Location = New System.Drawing.Point(647, 7)
Me.cboTextkonserve.Name = "cboTextkonserve"
Me.cboTextkonserve.Size = New System.Drawing.Size(191, 21)
Me.cboTextkonserve.TabIndex = 2
Me.cboTextkonserve.Visible = False
'
'txtErr
'
Me.txtErr.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtErr.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.txtErr.ForeColor = System.Drawing.Color.Red
Me.txtErr.Location = New System.Drawing.Point(15, 3)
Me.txtErr.Name = "txtErr"
Me.txtErr.Size = New System.Drawing.Size(454, 55)
Me.txtErr.TabIndex = 0
Me.txtErr.Text = ""
'
'cboPrinter
'
Me.cboPrinter._allowedValuesFreiText = Nothing
@@ -248,41 +300,49 @@ Partial Class frmFormulare
Me.cboPrinter.Location = New System.Drawing.Point(943, 28)
Me.cboPrinter.Name = "cboPrinter"
Me.cboPrinter.Size = New System.Drawing.Size(191, 21)
Me.cboPrinter.TabIndex = 21
Me.cboPrinter.TabIndex = 5
'
'cboVorlage
'btnPrint
'
Me.cboVorlage._allowedValuesFreiText = Nothing
Me.cboVorlage._allowFreiText = False
Me.cboVorlage._value = ""
Me.cboVorlage.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboVorlage.FormattingEnabled = True
Me.cboVorlage.Location = New System.Drawing.Point(132, 34)
Me.cboVorlage.Name = "cboVorlage"
Me.cboVorlage.Size = New System.Drawing.Size(205, 21)
Me.cboVorlage.TabIndex = 7
Me.btnPrint.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnPrint.BackgroundImage = Global.SDL.My.Resources.Resources.printer2
Me.btnPrint.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnPrint.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnPrint.Location = New System.Drawing.Point(1262, 10)
Me.btnPrint.Margin = New System.Windows.Forms.Padding(5)
Me.btnPrint.Name = "btnPrint"
Me.btnPrint.Padding = New System.Windows.Forms.Padding(5)
Me.btnPrint.Size = New System.Drawing.Size(50, 40)
Me.btnPrint.TabIndex = 8
Me.btnPrint.UseVisualStyleBackColor = True
'
'MyListBox2
'Button2
'
Me.MyListBox2._value = ""
Me.MyListBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.MyListBox2.FormattingEnabled = True
Me.MyListBox2.ItemHeight = 16
Me.MyListBox2.Location = New System.Drawing.Point(810, 26)
Me.MyListBox2.Name = "MyListBox2"
Me.MyListBox2.Size = New System.Drawing.Size(429, 68)
Me.MyListBox2.TabIndex = 4
Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button2.BackgroundImage = Global.SDL.My.Resources.Resources.pdf
Me.Button2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.Location = New System.Drawing.Point(1202, 10)
Me.Button2.Margin = New System.Windows.Forms.Padding(5)
Me.Button2.Name = "Button2"
Me.Button2.Padding = New System.Windows.Forms.Padding(5)
Me.Button2.Size = New System.Drawing.Size(50, 40)
Me.Button2.TabIndex = 7
Me.Button2.UseVisualStyleBackColor = True
'
'MyListBox1
'btn
'
Me.MyListBox1._value = ""
Me.MyListBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.MyListBox1.FormattingEnabled = True
Me.MyListBox1.ItemHeight = 16
Me.MyListBox1.Location = New System.Drawing.Point(343, 26)
Me.MyListBox1.Name = "MyListBox1"
Me.MyListBox1.Size = New System.Drawing.Size(461, 68)
Me.MyListBox1.TabIndex = 3
Me.btn.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btn.BackgroundImage = Global.SDL.My.Resources.Resources.email_big
Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.Location = New System.Drawing.Point(1142, 10)
Me.btn.Margin = New System.Windows.Forms.Padding(5)
Me.btn.Name = "btn"
Me.btn.Padding = New System.Windows.Forms.Padding(5)
Me.btn.Size = New System.Drawing.Size(50, 40)
Me.btn.TabIndex = 6
Me.btn.UseVisualStyleBackColor = True
'
'frmFormulare
'
@@ -301,6 +361,7 @@ Partial Class frmFormulare
Me.pnlBody.ResumeLayout(False)
Me.pnlBody.PerformLayout()
Me.pnlBottom.ResumeLayout(False)
Me.pnlBottom.PerformLayout()
Me.ResumeLayout(False)
End Sub
@@ -323,4 +384,8 @@ Partial Class frmFormulare
Friend WithEvents cboVorlage As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents cboPrinter As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents txtErr As System.Windows.Forms.RichTextBox
Friend WithEvents Label6 As Label
Friend WithEvents cboTextKonserveSprache As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label5 As Label
Friend WithEvents cboTextkonserve As VERAG_PROG_ALLGEMEIN.MyComboBox
End Class

427
SDL/Formulare/KDFormulare/frmFormulare.vb
View File

@@ -16,6 +16,7 @@ Public Class frmFormulare
Dim isSingleForm = False
Event ShownFIN()
Dim KdNr As Integer = 0
Public printed As Boolean = False
Sub New()
@@ -183,7 +184,7 @@ Public Class frmFormulare
End Try
cboTextkonserve.fillWithSQL("SELECT distinct([txt_bezeichnung]) FROM [tblTextkonserve] where [txt_kategorie] ='FRM_MNGR_MailText'", False, "FMZOLL", True)
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX"
@@ -210,6 +211,7 @@ Public Class frmFormulare
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verbundenheit Käufer/Verkäufer", FormularManagerArten.Verbundenheit))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Rechnungsbestätigung", FormularManagerArten.Rechnungsbestaetigung))
' MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftrag Überwachungsdokument", FormularManagerArten.QS_UeDok))
' MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VerpflichtungserklärungFahrer", FormularManagerArten.VerpflichtungserklärungFahrer))
@@ -409,7 +411,6 @@ Public Class frmFormulare
c = New usrcntlVorauskasse
Else
c = New usrcntlVorauskasse(param)
End If
' Dim c As New usrcntlVorauskasse(param(0))
If ControlExists_addOK(c.GetType.ToString) Then
@@ -486,6 +487,20 @@ Public Class frmFormulare
End Sub
MyFlowLayoutPanel1.Controls.Add(c)
End If
Case FormularManagerArten.Rechnungsbestaetigung
Dim c As New usrcntlRechnungsbestaetigung
If ControlExists_addOK(c.GetType.ToString) Then
c.Width = MyFlowLayoutPanel1.Width - 6
c.KdNR = KdNr
AddHandler c.CHANGED, AddressOf ValueChanged
AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED
AddHandler c.DELETE, AddressOf ControlDELETE
AddHandler c.MOVE_UP, AddressOf ControlMoveUp
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
MyFlowLayoutPanel1.Controls.Add(c)
End If
Case FormularManagerArten.DispoListe
If param Is Nothing Then param = {0}
Dim c As New usrCntlDispoliste(param(0))
@@ -559,7 +574,14 @@ Public Class frmFormulare
MyFlowLayoutPanel1.Controls.Add(c)
Case FormularManagerArten.Verzollungsunterlagen
' If param Is Nothing Then Exit Sub
Dim c As New usrcntlVerzollungsunterlagen()
Dim c As usrcntlVerzollungsunterlagen
If param Is Nothing Then
c = New usrcntlVerzollungsunterlagen()
Else
c = New usrcntlVerzollungsunterlagen(param)
End If
' Dim c As New usrcntlVerzollungsunterlagen()
c.Width = MyFlowLayoutPanel1.Width - 6
c.KdNR = KdNr
AddHandler c.DELETE, AddressOf ControlDELETE
@@ -914,6 +936,11 @@ Public Class frmFormulare
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
Mail = outl.CreateItem(0)
'If cboTextkonserve._value <> "" AndAlso cboTextKonserveSprache._value <> "" Then
' Dim tX As New VERAG_PROG_ALLGEMEIN.textkon
'End If
Mail.Attachments.Add(dest_path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "VERAG_Formular.pdf")
Mail.Display()
@@ -934,6 +961,8 @@ Public Class frmFormulare
End If
End If
printed = True
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
@@ -1090,6 +1119,12 @@ Public Class frmFormulare
Private Sub cboPrinter_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboPrinter.SelectedIndexChanged
End Sub
Private Sub MyComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboTextkonserve.SelectedIndexChanged
cboTextKonserveSprache.Items.Clear()
If cboTextkonserve._value <> "" Then cboTextKonserveSprache.fillWithSQL("SELECT distinct([txt_sprache]) FROM [tblTextkonserve] where [txt_kategorie] ='FRM_MNGR_MailText' and [txt_bezeichnung]='" & cboTextkonserve._value & "' ", False, "FMZOLL", True)
End Sub
End Class
@@ -1151,6 +1186,8 @@ Public Class FormularManagerNEU
retStr = FormularManagerNEU.QS_UeDok(c)
Case GetType(usrcntlVerbundenheit).ToString
retStr = FormularManagerNEU.Verbundenheit(c)
Case GetType(usrcntlRechnungsbestaetigung).ToString
retStr = FormularManagerNEU.Rechnungsbestaetigung(c)
Case GetType(usrcntlVUB).ToString
retStr = FormularManagerNEU.VUB(c)
@@ -1191,7 +1228,7 @@ Public Class FormularManagerNEU
Case GetType(usrcntlVollmacht_VERAG_EXPORT).ToString
' retStr = FormularManagerNEU.VM_VERAG_EXPORT(c)
Case GetType(usrcntlVorauskasse).ToString
validFormulare = DirectCast(c, usrcntlVorauskasse).ValidValues(err)
If Not DirectCast(c, usrcntlVorauskasse).ValidValues(err) Then validFormulare = False
Case GetType(usrcntlGestellungsgarantie).ToString
' retStr = FormularManagerNEU.Gestellungsgarantie(c)
Case GetType(usrcntlVerzollungspreise).ToString
@@ -1206,6 +1243,8 @@ Public Class FormularManagerNEU
' striList = FormularManagerNEU.VerpflichtungserklärungFahrer(c)
Case GetType(usrcntlFiskalInfoschreiben).ToString
' retStr = FormularManagerNEU.FiskalInfoschreiben(c)
Case GetType(usrcntlVerzollungsunterlagen).ToString
If Not DirectCast(c, usrcntlVerzollungsunterlagen).ValidValues(err) Then validFormulare = False
Case GetType(usrcntlVUB).ToString
' retStr = FormularManagerNEU.VUB(c)
@@ -1484,6 +1523,9 @@ Public Class FormularManagerNEU
End If
If colliGewicht <> "" Then rpt.txtAnmerkung.Text = (colliGewicht & vbNewLine & rpt.txtAnmerkung.Text).Trim
If SND.tblSnd_Abfertigungsart_ID = 23 Then 'ATA NR
If If(SND.tblSnd_ATANr, "") <> "" Then rpt.txtAnmerkung.Text &= vbNewLine & "ATA-Nr.: " & SND.tblSnd_ATANr
End If
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX" : rpt.txtPosNr.Text &= vbNewLine & SND.tblSnd_KdAuftragsNrAvisierer
@@ -2351,6 +2393,22 @@ Public Class FormularManagerNEU
'Dim myVermerk As New VERAG_PROG_ALLGEMEIN.cVermerk
'myVermerk.AvisoID = usrCntl.AVISO.AvisoID
'myVermerk.SendungID = dt.Rows(0)("tblSnd_SendungID")
'myVermerk.Datum = If(DatumTmp, Now)
'myVermerk.VermerkArt = "S"
'myVermerk.Mitarbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " (AUTO)"
'myVermerk.MitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
'Select Case VermerkCodeId
' Case 13 : myVermerk.Hinweis_Vermerk = "Vorauskasse angefordert"
' Case 14 : myVermerk.Hinweis_Vermerk = "Vorauskasse erhalten"
' Case Else : Exit Sub
'End Select
'myVermerk.VermerkCodeId = VermerkCodeId
'VermerkeDAL.SpeichernVermerk(myVermerk)
If usrCntl.cbxLKWWartet.Checked Then
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("!!! LKW wartet !!!", 141, 11, 60, 15, "boldRed", 20, , iTextSharp.text.Element.ALIGN_LEFT))
@@ -2708,7 +2766,7 @@ Public Class FormularManagerNEU
odoc.FormFields("Adresse4").Range.Text = usrCntl.txtAdresse2.Text
odoc.FormFields("Adresse5").Range.Text = usrCntl.txtAdresse3.Text
odoc.FormFields("PosNr").Range.Text = usrCntl.txtPosNr.Text
odoc.FormFields("PosNr").Range.Text = usrCntl.txtLKW.Text & " " & usrCntl.cboFiliale._value & "/" & usrCntl.txtAbfertigungsNr.Text
odoc.FormFields("Anlage1").Range.Text = usrCntl.txtAnlage1.Text
odoc.FormFields("Anlage2").Range.Text = usrCntl.txtAnlage2.Text
@@ -2726,6 +2784,13 @@ Public Class FormularManagerNEU
odoc.Save() : odoc.Activate()
If usrCntl.cbxBeimErstellenSpeichern.Checked Then
' If vbYes = MsgBox("Möchten Sie die Bonitätsauskunft in den Kundendaten speichern?", vbYesNoCancel) Then
savePostversand(usrCntl, usrCntl.POST_ID)
'End If
End If
If openWord Then
oWord.Visible = True
Return New List(Of String)
@@ -2836,152 +2901,152 @@ Public Class FormularManagerNEU
Select Case usrCntl.cboTEXT._value
Case "AT_FISKAL"
bool_StbFA = True
Select Case usrCntl.cboSprache._value
Case "DE", ""
Mail_Subject = "Meldung innergemeinschaftlicher Erwerb" & posNr
MailHTMLText &= "<b>!!! DRINGENDE ZOLLSACHE !!!</b><br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Sehr geehrte Damen und Herren,<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "in der Anlage erhalten Sie die Unterlagen zu der Verzollung im Verfahren 4200.<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Bitte melden Sie den Import in Ihrer Steuererklärung (UVA) als <b>""innergemeinschaftlichen Erwerb""</b><br>"
MailHTMLText &= "mit unser <b>Sonder - UID-Nr.: ATU 68374145 an</b>.<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Des Weiteren möchten wir Sie darauf hinweisen, dass eine <b>Intrastat Anmeldung</b> zu machen ist! <br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Die österreichische Zollbehörde verlangt in diesem Verfahren die Vorlegung einer gültigen Empfangsbestätigung. Aufgrund dessen ersuchen wir Sie den CMR/Frachtbrief, welchen der Fahrer bei der Abladung abgibt, zu bestätigen. <br>"
MailHTMLText &= "Wir müssen diesen im Original vorlegen können, deshalb bitten wir Sie, das Dokument per Post an uns abzusenden!<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<b>Bitte:<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "• GUT LESBAR<br>"
MailHTMLText &= "• VERMERK: WAREN ERHALTEN<br>"
MailHTMLText &= "• GENAUES DATUM DER WARENÜBERNAHME<br>"
MailHTMLText &= "• ORIGINAL FIRMENSTEMPEL<br>"
MailHTMLText &= "• ORIGINAL UNTERSCHRIFT</b><br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<b>Post Adresse:</b><br>"
MailHTMLText &= "VERAG CUSTOMS SERVICE GMBH<br>"
MailHTMLText &= "POSTFACH 1013<br>"
MailHTMLText &= "D 94152 NEUHAUS AM INN<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Freundlichen Grüßen<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= cFakturierung.getSignature("D", 11)
MailHTMLText_STBFA &= cFakturierung.getSignature("D", 11)
Case "EN"
Case "AT_FISKAL"
bool_StbFA = True
Select Case usrCntl.cboSprache._value
Case "DE", ""
Mail_Subject = "Meldung innergemeinschaftlicher Erwerb" & posNr
MailHTMLText &= "<b>!!! DRINGENDE ZOLLSACHE !!!</b><br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Sehr geehrte Damen und Herren,<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "in der Anlage erhalten Sie die Unterlagen zu der Verzollung im Verfahren 4200.<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Bitte melden Sie den Import in Ihrer Steuererklärung (UVA) als <b>""innergemeinschaftlichen Erwerb""</b><br>"
MailHTMLText &= "mit unser <b>Sonder - UID-Nr.: ATU 68374145 an</b>.<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Des Weiteren möchten wir Sie darauf hinweisen, dass eine <b>Intrastat Anmeldung</b> zu machen ist! <br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Die österreichische Zollbehörde verlangt in diesem Verfahren die Vorlegung einer gültigen Empfangsbestätigung. Aufgrund dessen ersuchen wir Sie den CMR/Frachtbrief, welchen der Fahrer bei der Abladung abgibt, zu bestätigen. <br>"
MailHTMLText &= "Wir müssen diesen im Original vorlegen können, deshalb bitten wir Sie, das Dokument per Post an uns abzusenden!<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<b>Bitte:<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "• GUT LESBAR<br>"
MailHTMLText &= "• VERMERK: WAREN ERHALTEN<br>"
MailHTMLText &= "• GENAUES DATUM DER WARENÜBERNAHME<br>"
MailHTMLText &= "• ORIGINAL FIRMENSTEMPEL<br>"
MailHTMLText &= "• ORIGINAL UNTERSCHRIFT</b><br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<b>Post Adresse:</b><br>"
MailHTMLText &= "VERAG CUSTOMS SERVICE GMBH<br>"
MailHTMLText &= "POSTFACH 1013<br>"
MailHTMLText &= "D 94152 NEUHAUS AM INN<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Freundlichen Grüßen<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= cFakturierung.getSignature("D", 11)
MailHTMLText_STBFA &= cFakturierung.getSignature("D", 11)
Case "EN"
Mail_Subject = "intra-community acquisition" & posNr
MailHTMLText &= "<b>!! URGENT CUSTOMS MATTER !!</b><br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Dear Sir / Madam,<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Please find enclosed the documents regarding the customs clearance (process 4200).<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Please register the import on your tax decleration ( turnover tax advance return ) as <br>"
MailHTMLText &= "<b>""intra-community acquisition""</b> with our <b>special value added tax identification number ATU68374145.</b>"
MailHTMLText &= "<br>"
MailHTMLText &= "Furthermore, we would like to point out that you must fill out an <b>Intrastat decleration!</b> <br>"
MailHTMLText &= "<br>"
MailHTMLText &= "In this procedure, the Austrian customs authority requires the presentation of a valid entry certificate. For this reason, we ask you to confirm the CMR/consignment note which the driver hands out in during unloading. <br>"
MailHTMLText &= "We must be able to present this document in original. Therefore we ask you to send the document to us by post!<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<b>Please ensure the following:<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "• THE DOCUMENT IS FULLY LEGIBLE<br>"
MailHTMLText &= "• YOU NOTE ON THE FORM: GOODS RECEIVED<br>"
MailHTMLText &= "• YOU NOTE THE EXACT DATE OF RECEIPT OF GOODS<br>"
MailHTMLText &= "• YOU PROVIDE AN ORIGINAL COMPANY STAMP<br>"
MailHTMLText &= "• YOU PROVIDE AN ORIGINAL SIGNATURE</b><br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<b>Adress:</b><br>"
MailHTMLText &= "VERAG CUSTOMS SERVICE GMBH<br>"
MailHTMLText &= "POSTFACH 1013<br>"
MailHTMLText &= "D 94152 NEUHAUS AM INN<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Yours faithfully,<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= cFakturierung.getSignature("EN", 11)
MailHTMLText_STBFA &= cFakturierung.getSignature("D", 11)
Mail_Subject = "intra-community acquisition" & posNr
MailHTMLText &= "<b>!! URGENT CUSTOMS MATTER !!</b><br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Dear Sir / Madam,<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Please find enclosed the documents regarding the customs clearance (process 4200).<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Please register the import on your tax decleration ( turnover tax advance return ) as <br>"
MailHTMLText &= "<b>""intra-community acquisition""</b> with our <b>special value added tax identification number ATU68374145.</b>"
MailHTMLText &= "<br>"
MailHTMLText &= "Furthermore, we would like to point out that you must fill out an <b>Intrastat decleration!</b> <br>"
MailHTMLText &= "<br>"
MailHTMLText &= "In this procedure, the Austrian customs authority requires the presentation of a valid entry certificate. For this reason, we ask you to confirm the CMR/consignment note which the driver hands out in during unloading. <br>"
MailHTMLText &= "We must be able to present this document in original. Therefore we ask you to send the document to us by post!<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<b>Please ensure the following:<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "• THE DOCUMENT IS FULLY LEGIBLE<br>"
MailHTMLText &= "• YOU NOTE ON THE FORM: GOODS RECEIVED<br>"
MailHTMLText &= "• YOU NOTE THE EXACT DATE OF RECEIPT OF GOODS<br>"
MailHTMLText &= "• YOU PROVIDE AN ORIGINAL COMPANY STAMP<br>"
MailHTMLText &= "• YOU PROVIDE AN ORIGINAL SIGNATURE</b><br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<b>Adress:</b><br>"
MailHTMLText &= "VERAG CUSTOMS SERVICE GMBH<br>"
MailHTMLText &= "POSTFACH 1013<br>"
MailHTMLText &= "D 94152 NEUHAUS AM INN<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Yours faithfully,<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= cFakturierung.getSignature("EN", 11)
MailHTMLText_STBFA &= cFakturierung.getSignature("D", 11)
End Select
End Select
Case "DE_FISKAL"
bool_StbFA = True
Select Case usrCntl.cboSprache._value
Case "EN"
Case "DE_FISKAL"
bool_StbFA = True
Select Case usrCntl.cboSprache._value
Case "EN"
Mail_Subject = "intra-community acquisition" & posNr
MailHTMLText &= "<b>!! URGENT CUSTOMS MATTER !!</b><br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Dear Sir / Madam,<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Please find enclosed the documents regarding the customs clearance (process 4200).<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Please register the import on your tax declaration (turnover tax advance return) as ""<b>intra-Community acquisition</b>"" with our <b>special value added tax identification number DE 813667748.</b> <br>"
MailHTMLText &= "<b>""intra-community acquisition""</b> with our <b>special value added tax identification number ATU68374145.</b>"
MailHTMLText &= "<br>"
MailHTMLText &= "Furthermore, we would like to point out that you must fill out an Intrastat declaration!<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Yours faithfully<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= cFakturierung.getSignature("EN", 99)
MailHTMLText_STBFA &= cFakturierung.getSignature("D", 99)
Mail_Subject = "intra-community acquisition" & posNr
MailHTMLText &= "<b>!! URGENT CUSTOMS MATTER !!</b><br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Dear Sir / Madam,<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Please find enclosed the documents regarding the customs clearance (process 4200).<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Please register the import on your tax declaration (turnover tax advance return) as ""<b>intra-Community acquisition</b>"" with our <b>special value added tax identification number DE 813667748.</b> <br>"
MailHTMLText &= "<b>""intra-community acquisition""</b> with our <b>special value added tax identification number ATU68374145.</b>"
MailHTMLText &= "<br>"
MailHTMLText &= "Furthermore, we would like to point out that you must fill out an Intrastat declaration!<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Yours faithfully<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= cFakturierung.getSignature("EN", 99)
MailHTMLText_STBFA &= cFakturierung.getSignature("D", 99)
End Select
End Select
Case "EV"
Select Case usrCntl.cboSprache._value
Case "DE", ""
Mail_Subject = "Verzollungsunterlagen" & posNr
MailHTMLText &= "Sehr geehrte Damen und Herren,<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "in der Anlage erhalten Sie die Unterlagen zu der Verzollung.<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Freundlichen Grüßen<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= cFakturierung.getSignature("D", 11)
Case "EN"
Mail_Subject = "Verzollungsunterlagen" & posNr
MailHTMLText &= "Dear Sir / Madam,<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "attached you will find the documents for customs clearance.<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Yours faithfully<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= cFakturierung.getSignature("EN", 11)
Case "EV"
Select Case usrCntl.cboSprache._value
Case "DE", ""
Mail_Subject = "Verzollungsunterlagen" & posNr
MailHTMLText &= "Sehr geehrte Damen und Herren,<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "in der Anlage erhalten Sie die Unterlagen zu der Verzollung.<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Freundlichen Grüßen<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= cFakturierung.getSignature("D", 11)
Case "EN"
Mail_Subject = "Verzollungsunterlagen" & posNr
MailHTMLText &= "Dear Sir / Madam,<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "attached you will find the documents for customs clearance.<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Yours faithfully<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= cFakturierung.getSignature("EN", 11)
End Select
End Select
'MailHTMLText &= cFakturierung.getSignature(11)
End Select
'MailHTMLText &= cFakturierung.getSignature(11)
End Select
MailHTMLText &= "</div>"
'MAIL??
MailHTMLText &= "</div>"
'MAIL??
listMail.Add(New FormMangagerEmail(mail_To, "", "", Mail_Subject, MailHTMLText))
If bool_StbFA Then listMail.Add(New FormMangagerEmail(mail_To_Stb, mail_To_FA, "", Mail_Subject_STBFA, MailHTMLText_STBFA))
listMail.Add(New FormMangagerEmail(mail_To, "", "", Mail_Subject, MailHTMLText))
If bool_StbFA Then listMail.Add(New FormMangagerEmail(mail_To_Stb, mail_To_FA, "", Mail_Subject_STBFA, MailHTMLText_STBFA))
Catch ex As Exception
MessageBox.Show(ex.ToString & ex.StackTrace)
Catch ex As Exception
MessageBox.Show(ex.ToString & ex.StackTrace)
End Try
Return New List(Of String)
End Function
@@ -2996,8 +3061,9 @@ Public Class FormularManagerNEU
Dim Mail_To = ""
If usrCntl.KdNR > 0 Then
Dim FISKAL As New cFiskal_Daten(usrCntl.KdNR)
If FISKAL IsNot Nothing Then Mail_CC = If(FISKAL.fisk_schreibenSB_Mail, "")
'lt. Kerstin: Steuerberater braucht den Verbringungsnachweis nicht
' Dim FISKAL As New cFiskal_Daten(usrCntl.KdNR)
' If FISKAL IsNot Nothing Then Mail_CC = If(FISKAL.fisk_schreibenSB_Mail, "")
Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(usrCntl.KdNR)
If AD IsNot Nothing Then Mail_To = If(AD.E_Mail, "")
End If
@@ -3143,6 +3209,32 @@ Public Class FormularManagerNEU
End Function
Shared Function Rechnungsbestaetigung(usrCntl As usrcntlRechnungsbestaetigung) As String
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
Dim top = 0
Select Case usrCntl.cboSprache._value
Case "EN"
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRgNr.Text, 50, 182, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVersender.Text, 50, 200, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Rechnungsbestaetigung_EN", listTowrite)
Case "FR" '140/102
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRgNr.Text, 115, 182, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVersender.Text, 102, 142, 60, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Rechnungsbestaetigung_FR", listTowrite)
Case "TR"
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRgNr.Text, 26, 165, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVersender.Text, 60, 147, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Rechnungsbestaetigung_TR", listTowrite)
Case Else
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRgNr.Text, 80, 148, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVersender.Text, 50, 165, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Rechnungsbestaetigung", listTowrite)
End Select
End Function
Shared Function QS_UeDok(usrCntl As usrcntlQS_UeDok) As String
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
@@ -3344,6 +3436,57 @@ Public Class FormularManagerNEU
End Function
Shared Function savePostversand(usrCntl As usrcntlVerzollungsunterlagen, ByRef POST_ID As Integer) As Boolean
Try
'If Not IsNumeric(usrCntl.cboFiliale._value) Then Return False
'If Not IsNumeric(usrCntl.txtAbfertigungsNr.Text) Then Return False
'Dim cPostversand As VERAG_PROG_ALLGEMEIN.cPostversand = VERAG_PROG_ALLGEMEIN.cPostversand.LOADByFilialeAbfNr(usrCntl.cboFiliale._value, usrCntl.txtAbfertigungsNr.Text, usrCntl.ROLLE)
Dim cPostversand As VERAG_PROG_ALLGEMEIN.cPostversand
If POST_ID > 0 Then
cPostversand = New VERAG_PROG_ALLGEMEIN.cPostversand(POST_ID)
Else
cPostversand = New VERAG_PROG_ALLGEMEIN.cPostversand
End If
'If cPostversand Is Nothing Then
' cPostversand = New VERAG_PROG_ALLGEMEIN.cPostversand
' 'ElseIf vbYes <> MsgBox("Es wurde am '" & cPostversand.post_Datum.ToShortDateString & "' um '" & cPostversand.post_Datum.ToShortTimeString & "' bereits eine Vorauskasse mit dieser Abfertigungsnummer angefordert, möchten Sie diese überschreiben?", vbYesNoCancel) Then
' ' Return False
'End If
'cPostversand.post_GeldEingetroffen = usrCntl.XXXXXXX
'cPostversand.post_BH_SachbearbeiterId = usrCntl.XXXXXXX
'cPostversand.post_BH_Sachbearbeiter = usrCntl.XXXXXXX
'cPostversand.post_BH_Bemerkung = usrCntl.XXXXXXX
'cPostversand.post_BH_DatumGeldeingang = usrCntl.XXXXXXX
usrCntl.getValues(cPostversand)
If cPostversand.SAVE Then
usrCntl.btnNEU.Visible = True
POST_ID = cPostversand.post_id
usrCntl.lblCRsaved.Text = "(gespeichert)"
usrCntl.lblCRsaved.ForeColor = Color.Green
' cPostversandOptions.insertVermerk(cPostversand.post_FilialeNr, cPostversand.post_AbfertigungsNr, 13)
Return True
Else
Return False
End If
Catch ex As Exception
MsgBox("SaveVK: " & ex.Message)
Return False
End Try
End Function
Shared Function addEinmaligeVM(listTowrite As List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues), left As Integer, top As Integer, language As String, RgNr As String, RgDat As String, Optional small As Boolean = False) As List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
Select Case language
Case "EN", "FR"
@@ -3540,6 +3683,11 @@ Public Class FormularManagerNEU
Shared Sub OPEN_FORM(FORM As Form, PDFArt As String, Optional KdNr As Integer = 0, Optional param() As Object = Nothing, Optional isSingleForm As Boolean = False)
Dim f As New frmFormulare(PDFArt, KdNr, param, isSingleForm)
f.Show(FORM)
End Sub
Shared Sub OPEN_FORM_Byref(PDFArt As String, Optional KdNr As Integer = 0, Optional param() As Object = Nothing, Optional isSingleForm As Boolean = False, Optional ByRef f As frmFormulare = Nothing)
f = New frmFormulare(PDFArt, KdNr, param, isSingleForm)
f.Show()
End Sub
End Class
@@ -3583,6 +3731,7 @@ Public Class FormularManagerArten
Shared Property Verbundenheit = "Verbundenheit"
Shared Property Sendungsliste = "Sendungsliste"
Shared Property Rechnungsbestaetigung = "Rechnungsbestaetigung"