SDL Jetzt erst recht!

SDL/seriendruck/frmShowData.Designer.vb

@@ -0,0 +1,91 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmShowData
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.DataGridView1 = New System.Windows.Forms.DataGridView()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Panel1.SuspendLayout()
+        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'Panel1
+        '
+        Me.Panel1.Controls.Add(Me.Label2)
+        Me.Panel1.Controls.Add(Me.Label1)
+        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel1.Location = New System.Drawing.Point(0, 0)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(1034, 32)
+        Me.Panel1.TabIndex = 0
+        '
+        'DataGridView1
+        '
+        Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.DataGridView1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.DataGridView1.Location = New System.Drawing.Point(0, 32)
+        Me.DataGridView1.Name = "DataGridView1"
+        Me.DataGridView1.Size = New System.Drawing.Size(1034, 410)
+        Me.DataGridView1.TabIndex = 0
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label1.Location = New System.Drawing.Point(3, 9)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(75, 13)
+        Me.Label1.TabIndex = 0
+        Me.Label1.Text = "Datensätze:"
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(956, 9)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(42, 13)
+        Me.Label2.TabIndex = 0
+        Me.Label2.Text = "Anzahl:"
+        Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopCenter
+        '
+        'frmShowData
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1034, 442)
+        Me.Controls.Add(Me.DataGridView1)
+        Me.Controls.Add(Me.Panel1)
+        Me.Name = "frmShowData"
+        Me.Text = "frmShowData"
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+
+    End Sub
+    Friend WithEvents Panel1 As System.Windows.Forms.Panel
+    Public WithEvents DataGridView1 As System.Windows.Forms.DataGridView
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents Label2 As System.Windows.Forms.Label
+End Class

SDL/seriendruck/frmShowData.resx

@@ -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>

SDL/seriendruck/frmShowData.vb

@@ -0,0 +1,3 @@
+Public Class frmShowData
+
+End Class

SDL/seriendruck/usrCntlSeriendruck.Designer.vb

@@ -0,0 +1,224 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class usrCntlSeriendruck
+    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.GroupBox1 = New System.Windows.Forms.GroupBox()
+        Me.cbxSofortDruck = New System.Windows.Forms.CheckBox()
+        Me.txtErstattungAbfNrFiliale = New System.Windows.Forms.TextBox()
+        Me.txtErstattungAbfUnterNr = New System.Windows.Forms.TextBox()
+        Me.btnWordPrint = New System.Windows.Forms.Button()
+        Me.txtErstattungAbfNr = New System.Windows.Forms.TextBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.btnShowData = New System.Windows.Forms.Button()
+        Me.cbxErstSprache = New System.Windows.Forms.ComboBox()
+        Me.btnWord = New System.Windows.Forms.Button()
+        Me.GroupBox2 = New System.Windows.Forms.GroupBox()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.GroupBox1.SuspendLayout()
+        Me.GroupBox2.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'GroupBox1
+        '
+        Me.GroupBox1.Controls.Add(Me.cbxSofortDruck)
+        Me.GroupBox1.Controls.Add(Me.txtErstattungAbfNrFiliale)
+        Me.GroupBox1.Controls.Add(Me.txtErstattungAbfUnterNr)
+        Me.GroupBox1.Controls.Add(Me.btnWordPrint)
+        Me.GroupBox1.Controls.Add(Me.txtErstattungAbfNr)
+        Me.GroupBox1.Controls.Add(Me.Label2)
+        Me.GroupBox1.Controls.Add(Me.Label1)
+        Me.GroupBox1.Controls.Add(Me.btnShowData)
+        Me.GroupBox1.Controls.Add(Me.cbxErstSprache)
+        Me.GroupBox1.Controls.Add(Me.btnWord)
+        Me.GroupBox1.Location = New System.Drawing.Point(14, 45)
+        Me.GroupBox1.Name = "GroupBox1"
+        Me.GroupBox1.Size = New System.Drawing.Size(646, 150)
+        Me.GroupBox1.TabIndex = 0
+        Me.GroupBox1.TabStop = False
+        '
+        'cbxSofortDruck
+        '
+        Me.cbxSofortDruck.AutoSize = True
+        Me.cbxSofortDruck.Checked = True
+        Me.cbxSofortDruck.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.cbxSofortDruck.Location = New System.Drawing.Point(16, 68)
+        Me.cbxSofortDruck.Name = "cbxSofortDruck"
+        Me.cbxSofortDruck.Size = New System.Drawing.Size(168, 17)
+        Me.cbxSofortDruck.TabIndex = 7
+        Me.cbxSofortDruck.Text = "Sofort-Druck bei Eingabetaste"
+        Me.cbxSofortDruck.UseVisualStyleBackColor = True
+        '
+        'txtErstattungAbfNrFiliale
+        '
+        Me.txtErstattungAbfNrFiliale.Location = New System.Drawing.Point(16, 41)
+        Me.txtErstattungAbfNrFiliale.MaxLength = 4
+        Me.txtErstattungAbfNrFiliale.Name = "txtErstattungAbfNrFiliale"
+        Me.txtErstattungAbfNrFiliale.Size = New System.Drawing.Size(36, 20)
+        Me.txtErstattungAbfNrFiliale.TabIndex = 0
+        Me.txtErstattungAbfNrFiliale.Text = "4817"
+        '
+        'txtErstattungAbfUnterNr
+        '
+        Me.txtErstattungAbfUnterNr.Location = New System.Drawing.Point(135, 41)
+        Me.txtErstattungAbfUnterNr.MaxLength = 2
+        Me.txtErstattungAbfUnterNr.Name = "txtErstattungAbfUnterNr"
+        Me.txtErstattungAbfUnterNr.Size = New System.Drawing.Size(22, 20)
+        Me.txtErstattungAbfUnterNr.TabIndex = 2
+        Me.txtErstattungAbfUnterNr.Text = "00"
+        '
+        'btnWordPrint
+        '
+        Me.btnWordPrint.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnWordPrint.ForeColor = System.Drawing.Color.Black
+        Me.btnWordPrint.Location = New System.Drawing.Point(519, 121)
+        Me.btnWordPrint.Name = "btnWordPrint"
+        Me.btnWordPrint.Size = New System.Drawing.Size(121, 23)
+        Me.btnWordPrint.TabIndex = 5
+        Me.btnWordPrint.Text = "Sofort-Druck"
+        Me.btnWordPrint.UseVisualStyleBackColor = True
+        '
+        'txtErstattungAbfNr
+        '
+        Me.txtErstattungAbfNr.Location = New System.Drawing.Point(51, 41)
+        Me.txtErstattungAbfNr.MaxLength = 20
+        Me.txtErstattungAbfNr.Name = "txtErstattungAbfNr"
+        Me.txtErstattungAbfNr.Size = New System.Drawing.Size(85, 20)
+        Me.txtErstattungAbfNr.TabIndex = 1
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(13, 25)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(106, 13)
+        Me.Label2.TabIndex = 3
+        Me.Label2.Text = "Abfertigungsnummer:"
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(160, 26)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(47, 13)
+        Me.Label1.TabIndex = 3
+        Me.Label1.Text = "Sprache"
+        '
+        'btnShowData
+        '
+        Me.btnShowData.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnShowData.ForeColor = System.Drawing.Color.Black
+        Me.btnShowData.Location = New System.Drawing.Point(519, 15)
+        Me.btnShowData.Name = "btnShowData"
+        Me.btnShowData.Size = New System.Drawing.Size(121, 23)
+        Me.btnShowData.TabIndex = 6
+        Me.btnShowData.Text = "Datensatz anzeigen"
+        Me.btnShowData.UseVisualStyleBackColor = True
+        '
+        'cbxErstSprache
+        '
+        Me.cbxErstSprache.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cbxErstSprache.FlatStyle = System.Windows.Forms.FlatStyle.System
+        Me.cbxErstSprache.FormattingEnabled = True
+        Me.cbxErstSprache.Location = New System.Drawing.Point(163, 41)
+        Me.cbxErstSprache.Name = "cbxErstSprache"
+        Me.cbxErstSprache.Size = New System.Drawing.Size(121, 21)
+        Me.cbxErstSprache.TabIndex = 3
+        '
+        'btnWord
+        '
+        Me.btnWord.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnWord.ForeColor = System.Drawing.Color.Black
+        Me.btnWord.Location = New System.Drawing.Point(519, 66)
+        Me.btnWord.Name = "btnWord"
+        Me.btnWord.Size = New System.Drawing.Size(121, 49)
+        Me.btnWord.TabIndex = 4
+        Me.btnWord.Text = "WORD erstellen"
+        Me.btnWord.UseVisualStyleBackColor = True
+        '
+        'GroupBox2
+        '
+        Me.GroupBox2.Controls.Add(Me.Button2)
+        Me.GroupBox2.Location = New System.Drawing.Point(14, 240)
+        Me.GroupBox2.Name = "GroupBox2"
+        Me.GroupBox2.Size = New System.Drawing.Size(646, 182)
+        Me.GroupBox2.TabIndex = 1
+        Me.GroupBox2.TabStop = False
+        Me.GroupBox2.Text = "GroupBox2"
+        Me.GroupBox2.Visible = False
+        '
+        'Button2
+        '
+        Me.Button2.Enabled = False
+        Me.Button2.Location = New System.Drawing.Point(519, 147)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(121, 23)
+        Me.Button2.TabIndex = 0
+        Me.Button2.Text = "Button2"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Label3.Location = New System.Drawing.Point(15, 25)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(249, 17)
+        Me.Label3.TabIndex = 2
+        Me.Label3.Text = "Gutschrift - Erstattungsschreiben"
+        '
+        'usrCntlSeriendruck
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.White
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.GroupBox2)
+        Me.Controls.Add(Me.GroupBox1)
+        Me.Name = "usrCntlSeriendruck"
+        Me.Size = New System.Drawing.Size(1149, 597)
+        Me.GroupBox1.ResumeLayout(False)
+        Me.GroupBox1.PerformLayout()
+        Me.GroupBox2.ResumeLayout(False)
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
+    Friend WithEvents cbxErstSprache As System.Windows.Forms.ComboBox
+    Friend WithEvents btnWord As System.Windows.Forms.Button
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents btnShowData As System.Windows.Forms.Button
+    Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
+    Friend WithEvents Button2 As System.Windows.Forms.Button
+    Friend WithEvents txtErstattungAbfNr As System.Windows.Forms.TextBox
+    Friend WithEvents Label2 As System.Windows.Forms.Label
+    Friend WithEvents btnWordPrint As System.Windows.Forms.Button
+    Friend WithEvents txtErstattungAbfUnterNr As System.Windows.Forms.TextBox
+    Friend WithEvents txtErstattungAbfNrFiliale As System.Windows.Forms.TextBox
+    Friend WithEvents Label3 As System.Windows.Forms.Label
+    Friend WithEvents cbxSofortDruck As System.Windows.Forms.CheckBox
+
+End Class

SDL/seriendruck/usrCntlSeriendruck.resx

@@ -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>

SDL/seriendruck/usrCntlSeriendruck.vb

@@ -0,0 +1,207 @@
+Imports Microsoft.Office.Interop
+
+Public Class usrCntlSeriendruck
+
+    Dim withPrint As Boolean = False
+
+    Dim FMZOLL_SQL As New FMZOLL_SQL
+    Private Sub btnWord_Click(sender As Object, e As EventArgs) Handles btnWord.Click
+        If Not txtErstattungAbfNr.ForeColor = Color.DarkGreen Then
+            frmMain.setInfo("info", "Die Abfertigungsnummer ist nicht gültig!", 2)
+            Exit Sub
+        End If
+        If cbxErstSprache.Text = "" Then
+            frmMain.setInfo("info", "Bitte wählen Sie eine Sprache!", 2)
+            Exit Sub
+        End If
+
+        Dim WordDoc As Object
+        Dim WordApp As Object
+        WordApp = CreateObject("word.Application")
+        WordDoc = CreateObject("word.Document")
+
+        Dim oItem As VERAG_PROG_ALLGEMEIN.MyListItem = CType(cbxErstSprache.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem)
+        If Not My.Computer.FileSystem.DirectoryExists(Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\tmp\") Then
+            My.Computer.FileSystem.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\tmp\")
+        End If
+        Dim strFileName As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\tmp\tmp.doc"
+        Try
+            WordApp.Visible = (True) 'Word sichtbar
+            WordDoc = WordApp.Documents.Open(AppDomain.CurrentDomain.BaseDirectory & "seriendruck\Vorlagen\Erstattungsschreiben\Erstattungsschreiben " & oItem.Value & ".dotx")
+            WordDoc.Activate()
+
+            Dim berichteSQL As New BerichteSQL
+            Dim bericht As cErstasttungsschreiben = berichteSQL.getErstatung(txtErstattungAbfNrFiliale.Text, txtErstattungAbfNr.Text, txtErstattungAbfUnterNr.Text)
+            'Dim ADRESSE = New VERAG_PROG_ALLGEMEIN.cAdressen(bericht.)
+            If bericht.KorrAdresse <> "" Then
+                bericht.KorrAdresse = bericht.KorrAdresse.Replace(Chr(13) & Chr(10), Chr(13))
+                If InStr(bericht.KorrAdresse, Chr(13)) > 0 Then
+                    Dim s = bericht.KorrAdresse.Split(Chr(13), Chr(10))
+                    If s.Length > 0 Then WordDoc.FormFields("txtAdresseZeile1").Range.Text = s(0)
+                    If s.Length > 1 Then WordDoc.FormFields("txtAdresseZeile2").Range.Text = s(1)
+                    If s.Length > 2 Then WordDoc.FormFields("txtAdresseZeile3").Range.Text = s(2)
+                    If s.Length > 3 Then WordDoc.FormFields("txtAdresseZeile4").Range.Text = s(3)
+                    If s.Length > 4 Then WordDoc.FormFields("txtAdresseZeile5").Range.Text = s(4)
+                    If s.Length > 5 Then WordDoc.FormFields("txtAdresseZeile6").Range.Text = s(5)
+                    If s.Length > 6 Then WordDoc.FormFields("txtAdresseZeile7").Range.Text = s(6)
+                End If
+            Else
+
+                WordDoc.FormFields("txtAdresseZeile1").Range.Text = bericht.Name.Trim
+                WordDoc.FormFields("txtAdresseZeile2").Range.Text = bericht.Straße
+                WordDoc.FormFields("txtAdresseZeile3").Range.Text = bericht.LandKz & " " & bericht.Ort
+            End If
+
+            WordDoc.FormFields("Datum").Range.Text = bericht.MWST
+            WordDoc.FormFields("Betrag").Range.Text = String.Format("{0:C}", CDbl(bericht.Betrag))
+
+            WordApp.DisplayAlerts = Word.WdAlertLevel.wdAlertsNone
+            Try : WordDoc.SaveAs(strFileName) : Catch : End Try
+
+            If withPrint Then
+                WordDoc.PrintOut()
+                WordDoc.Close(False)
+                WordDoc = Nothing
+                WordApp.Quit()
+                Me.BringToFront()
+                txtErstattungAbfNr.Focus()
+                txtErstattungAbfNr.SelectAll()
+            End If
+            'WordDoc.PrintOut()
+            'WordDoc.PrintOut()
+            'WordDoc.Close()
+            ' WordDoc = Nothing
+            ' WordDoc.Quit()
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+        withPrint = False
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnShowData.Click
+        If Not txtErstattungAbfNr.ForeColor = Color.DarkGreen Then Exit Sub
+        If cbxErstSprache.Text = "" Then Exit Sub
+
+        frmShowData.Show()
+        frmShowData.DataGridView1.DataSource = FMZOLL_SQL.loadDgvBySqlFMZOLLREAL("exec spSELECTUStVErstattungsschreiben " & txtErstattungAbfNrFiliale.Text & ", " & txtErstattungAbfNr.Text & ", " & txtErstattungAbfUnterNr.Text & " ")
+        frmShowData.Label2.Text = "Anzahl: " & frmShowData.DataGridView1.RowCount
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+
+
+        Dim von As DateTime = Now
+        Dim bis As DateTime = Now.AddMonths(2)
+
+        frmShowData.Show()
+        'LandKz='RO' AND 
+        'MsgBox("SELECT * FROM vwUStSerienbriefStNrGueltigkeitsdatum WHERE StNrGültigkeitsdatum BETWEEN '" & von.ToShortDateString & "' AND '" & bis.ToShortDateString & "' GROUP BY [Name 1],[Name 2],PLZ,StraßePostfach,Postfach,Straße,LandKz,Ort,[StNrGültigkeitsdatum],AdressenNr ORDER BY PLZ, AdressenNr ")
+        frmShowData.DataGridView1.DataSource = FMZOLL_SQL.loadDgvBySql("SELECT * FROM vwUStSerienbriefStNrGueltigkeitsdatum WHERE StNrGültigkeitsdatum BETWEEN '" & von.ToShortDateString & "' AND '" & bis.ToShortDateString & "' GROUP BY [Name 1],[Name 2],PLZ,StraßePostfach,Postfach,Straße,LandKz,Ort,[StNrGültigkeitsdatum],AdressenNr ORDER BY PLZ, AdressenNr ")
+        frmShowData.Label2.Text = "Anzahl: " & frmShowData.DataGridView1.RowCount
+
+
+        Exit Sub
+
+
+        Dim sprache As String = "DE"
+        Select Case cbxErstSprache.SelectedIndex
+            Case 0 : sprache = "DE"
+            Case 1 : sprache = "RO"
+            Case 2 : sprache = "TR"
+            Case 3 : sprache = "YU"
+        End Select
+
+        Dim WordApp As Word.Application
+        Dim WordDoc As Word.Document
+        '  Dim SQLSttmnt As String = "Select * From rechner WHERE ID=5360"
+        WordApp = New Word.Application()
+
+        WordDoc = WordApp.Documents.Open(AppDomain.CurrentDomain.BaseDirectory & "\seriendruck\Vorlagen\Erstattungsschreiben\Erstattungsschreiben " & sprache & ".doc")
+        WordDoc.MailMerge.MainDocumentType = Word.WdMailMergeMainDocType.wdFormLetters
+
+        Dim sqlstr As String = "SELECT * FROM vwUStSerienbriefStNrGueltigkeitsdatum WHERE LandKz='RO' AND StNrGültigkeitsdatum BETWEEN '" & von.ToShortDateString & "' AND '" & bis.ToShortDateString & "' GROUP BY [Name 1],StraßePostfach,PLZ ORDER BY PLZ, AdressenNr "
+
+        WordDoc.MailMerge.OpenDataSource(Name:="", _
+              Connection:="DSN=dbConn_FMZOLL;DATABASE=VERAG;uid=sa;pwd=BmWr501956;", _
+              SQLStatement:=sqlstr, SubType:=Microsoft.Office.Interop.Word.WdMergeSubType.wdMergeSubTypeWord2000)
+
+        'Provider=SQLOLEDB;Server=DEVELOPER\DEVSQL;Database=VERAG;uid=sa;Password=BmWr501956;
+        '  With WordDoc.MailMerge
+        '  '.Destination = Word.WdMailMergeDestination.wdSendToPrinter
+        '  .SuppressBlankLines = True
+        '  With .DataSource
+        ' .FirstRecord = Word.WdMailMergeDefaultRecord.wdDefaultFirstRecord
+        '.LastRecord = Word.WdMailMergeDefaultRecord.wdDefaultLastRecord
+        ' End With
+        ' .Execute(Pause:=False)
+        ' End With
+        ' WordDoc.Close()
+        WordApp.Visible = True
+    End Sub
+
+    Private Sub txtErstattungAbfNr_KeyDown(sender As Object, e As KeyEventArgs) Handles txtErstattungAbfNr.KeyDown, txtErstattungAbfNrFiliale.KeyDown, txtErstattungAbfUnterNr.KeyDown, cbxErstSprache.KeyDown
+        If e.KeyCode = Keys.Enter Then
+            withPrint = cbxSofortDruck.Checked
+            btnWord.PerformClick()
+        End If
+
+    End Sub
+
+    Private Sub txtErstattungAbfNr_LostFocus(sender As Object, e As EventArgs) Handles txtErstattungAbfNr.TextChanged
+        txtErstattungAbfNr.BackColor = Color.White
+        txtErstattungAbfNr.ForeColor = Color.Red
+        If NurZahlen(txtErstattungAbfNr.Text) And NurZahlen(txtErstattungAbfNrFiliale.Text) And NurZahlen(txtErstattungAbfUnterNr.Text) Then
+            'Dim dt As DataTable = FMZOLL_SQL.loadDgvBySqlFMZOLLREAL("SELECT TOP 1 * FROM vwUStVErstattungsschreiben WHERE AbfertigungsNr=" & txtErstattungAbfNr.Text & " and FilialenNr =" & txtErstattungAbfNrFiliale.Text & " and UnterNr =" & txtErstattungAbfUnterNr.Text & " ")
+
+            Dim dt As DataTable = FMZOLL_SQL.loadDgvBySqlFMZOLLREAL("exec spSELECTUStVErstattungsschreiben " & txtErstattungAbfNrFiliale.Text & ", " & txtErstattungAbfNr.Text & ", " & txtErstattungAbfUnterNr.Text & " ")
+
+            If Not dt Is Nothing AndAlso dt.Rows.Count > 0 Then
+                Try
+                    Select Case dt.Rows(0).Item("LandKz").ToString
+                        Case "AT", "DE", "CH" : cbxErstSprache.SelectedIndex = 0
+                        Case "RO" : cbxErstSprache.SelectedIndex = 1
+                        Case "TR" : cbxErstSprache.SelectedIndex = 2
+                        Case Else : cbxErstSprache.SelectedIndex = 3
+                    End Select
+                Catch : End Try
+                txtErstattungAbfNr.BackColor = Color.White
+                txtErstattungAbfNr.ForeColor = Color.DarkGreen
+            End If
+        End If
+    End Sub
+
+
+    Private Sub btnWordPrint_Click(sender As Object, e As EventArgs) Handles btnWordPrint.Click
+        withPrint = True
+        btnWord.PerformClick()
+
+    End Sub
+
+    Private Sub usrCntlSeriendruck_Load(sender As Object, e As EventArgs) Handles Me.Load
+        cbxErstSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DEUTSCH", "DE"))
+        cbxErstSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("RUMÄNISCH", "RO"))
+        cbxErstSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TÜRKISCH", "TR"))
+        cbxErstSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("YU", "YU"))
+        cbxErstSprache.SelectedIndex = 0
+        txtErstattungAbfNr.Focus()
+    End Sub
+    Public Function NurZahlen(ByVal Text As String) As Boolean
+        If Text.Length = 0 Then Return False
+        If Not IsNumeric(Text) Then Return False
+
+        For i As Integer = 0 To Text.Length - 1
+            If Not "0123456789".Contains(Text.Chars(i)) Then
+                Return False
+            End If
+        Next
+        Return True
+    End Function
+
+    Private Sub txtErstattungAbfUnterNr_LostFocus(sender As Object, e As EventArgs) Handles txtErstattungAbfUnterNr.LostFocus
+        If NurZahlen(txtErstattungAbfUnterNr.Text) Then
+            If txtErstattungAbfUnterNr.Text.Length = 1 Then txtErstattungAbfUnterNr.Text = "0" & txtErstattungAbfUnterNr.Text
+        End If
+    End Sub
+
+
+End Class