Merge branch 'newMaster2024' of https://git.it.verag.ag/edv/SDL into newMaster2024
This commit is contained in:
84
SDL/Administration/frmIDS_Stationen.Designer.vb
generated
Normal file
84
SDL/Administration/frmIDS_Stationen.Designer.vb
generated
Normal file
@@ -0,0 +1,84 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class frmIDS_Stationen
|
||||
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()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmIDS_Stationen))
|
||||
Me.DataGridView = New System.Windows.Forms.DataGridView()
|
||||
Me.btnSpeichern = New System.Windows.Forms.Button()
|
||||
Me.lblVerwaltungDerRKSVKassenTabelle = New System.Windows.Forms.Label()
|
||||
CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'DataGridView
|
||||
'
|
||||
Me.DataGridView.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
||||
Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.DataGridView.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells
|
||||
Me.DataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.DataGridView.Location = New System.Drawing.Point(12, 29)
|
||||
Me.DataGridView.Name = "DataGridView"
|
||||
Me.DataGridView.Size = New System.Drawing.Size(997, 444)
|
||||
Me.DataGridView.TabIndex = 0
|
||||
'
|
||||
'btnSpeichern
|
||||
'
|
||||
Me.btnSpeichern.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.btnSpeichern.Location = New System.Drawing.Point(872, 479)
|
||||
Me.btnSpeichern.Name = "btnSpeichern"
|
||||
Me.btnSpeichern.Size = New System.Drawing.Size(137, 34)
|
||||
Me.btnSpeichern.TabIndex = 1
|
||||
Me.btnSpeichern.Text = "Speichern"
|
||||
Me.btnSpeichern.UseVisualStyleBackColor = True
|
||||
'
|
||||
'lblVerwaltungDerRKSVKassenTabelle
|
||||
'
|
||||
Me.lblVerwaltungDerRKSVKassenTabelle.AutoSize = True
|
||||
Me.lblVerwaltungDerRKSVKassenTabelle.Location = New System.Drawing.Point(13, 13)
|
||||
Me.lblVerwaltungDerRKSVKassenTabelle.Name = "lblVerwaltungDerRKSVKassenTabelle"
|
||||
Me.lblVerwaltungDerRKSVKassenTabelle.Size = New System.Drawing.Size(119, 13)
|
||||
Me.lblVerwaltungDerRKSVKassenTabelle.TabIndex = 2
|
||||
Me.lblVerwaltungDerRKSVKassenTabelle.Text = "Verwaltung der Tabelle:"
|
||||
'
|
||||
'frmKassenVerwaltung
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.BackColor = System.Drawing.Color.White
|
||||
Me.ClientSize = New System.Drawing.Size(1021, 517)
|
||||
Me.Controls.Add(Me.lblVerwaltungDerRKSVKassenTabelle)
|
||||
Me.Controls.Add(Me.btnSpeichern)
|
||||
Me.Controls.Add(Me.DataGridView)
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Name = "frmKassenVerwaltung"
|
||||
Me.Text = "Administration"
|
||||
Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
|
||||
CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents DataGridView As System.Windows.Forms.DataGridView
|
||||
Friend WithEvents btnSpeichern As System.Windows.Forms.Button
|
||||
Friend WithEvents lblVerwaltungDerRKSVKassenTabelle As System.Windows.Forms.Label
|
||||
End Class
|
||||
980
SDL/Administration/frmIDS_Stationen.resx
Normal file
980
SDL/Administration/frmIDS_Stationen.resx
Normal file
@@ -0,0 +1,980 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA
|
||||
AACRbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
|
||||
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
|
||||
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
|
||||
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
|
||||
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
|
||||
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
|
||||
USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEd4Sx5mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB4Sx5/VClmMwBuPg5r
|
||||
OglrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
|
||||
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
|
||||
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
|
||||
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
|
||||
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
|
||||
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
|
||||
OQhrOgluPg5mMwB/VCl0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
|
||||
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
|
||||
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
|
||||
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
|
||||
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
|
||||
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
|
||||
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0RhhzRBVmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz
|
||||
RBV3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh18UCRmMwBqOQdnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFqOQdmMwB8UCR9USZmMwBrOQhn
|
||||
NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
|
||||
USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwDm4N3/////////
|
||||
///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////////////////
|
||||
//////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwB0SSb39fT/
|
||||
//////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+YfWtmMwBmMwBm
|
||||
MwBmMwB0SSbu6+n////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////
|
||||
///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5zUy8X////////////////L
|
||||
v7itmo1mMwBmMwCYfWv///////90SSZmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
|
||||
NAFmMwBmMwBmMwB0SSb////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////////////+j
|
||||
jH1mMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwC3p5z/
|
||||
///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwCYfWv////////////////Bs6pmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwB0SSb///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCt
|
||||
mo3////////////////////////////////////m4N2Mbli3p5z///////+jjH1mMwBmMwBmMwBmMwBm
|
||||
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwCMblj///////////////////////////+M
|
||||
blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////
|
||||
///////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////+3
|
||||
p5xmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDU
|
||||
y8X///////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////90SSZm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////////////////////////////////39fTm
|
||||
4N3///////+3p5xmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwC3
|
||||
p5z////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3
|
||||
p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwCjjH3////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXUL///////////////////90
|
||||
SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwC3p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////U
|
||||
y8WAXUJmMwBmMwC3p5z39fT////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
|
||||
USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDBs6r////////////////u6+n///////////+tmo1mMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////m4N1mMwBmMwBmMwBm
|
||||
MwBmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
|
||||
///////////////////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwD39fT////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXULu6+n////////////////39fRm
|
||||
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDm4N3/////////////
|
||||
//+jjH3////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////
|
||||
//////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD3
|
||||
9fT///////////////90SSZmMwBmMwBmMwBmMwDm4N3///////////////+jjH1mMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwDu6+n/////////////////////////////////////////////////////
|
||||
//////+3p5xmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////+MblhmMwBmMwBmMwBmMwBm
|
||||
MwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
|
||||
NAFmMwBmMwBmMwD39fT///////////////9mMwDLv7j///////////+3p5xmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwDm4N3////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwCAXUL/////////
|
||||
///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////
|
||||
//////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
|
||||
//////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+jjH1mMwBmMwBmMwBm
|
||||
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCMblj////////////////m4N1mMwCAXUL39fT/
|
||||
///////39fSAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////Uy8VmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////
|
||||
///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwDUy8X////////////u6+lmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBm
|
||||
MwBmMwBmMwBmMwBmMwC3p5z///////////////////9mMwBmMwBmMwB0SSb/////////////////////
|
||||
//////////////+3p5xmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCjjH3/
|
||||
///////////////Uy8VmMwBmMwC3p5z////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwC3p5z////////////////////////////////////////////////////m4N1mMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwCjjH3////////////////////////////////////////////////////////////d
|
||||
1tGMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo1mMwBmMwBmMwCt
|
||||
mo3////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////90SSZm
|
||||
MwBmMwBmMwDm4N3////////////////////////////////Uy8VmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
|
||||
USZ9USZmMwBrOQhnNAFmMwBmMwC3p5z///////////////+3p5xmMwBmMwB0SSb39fT///////////+Y
|
||||
fWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////////////////
|
||||
//////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////////
|
||||
//////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3
|
||||
p5z////////////39fR0SSZmMwBmMwDBs6r////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwCjjH3///////////////////+jjH1mMwBmMwBmMwDBs6r////////////////////////////////3
|
||||
9fRmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwDUy8X///////////////+t
|
||||
mo1mMwBmMwBmMwCtmo3////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////
|
||||
//////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwDu6+n///////////////90SSZmMwBmMwBmMwBmMwBmMwCjjH3m4N3////////////////39fR0SSZm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////+3p5xmMwBmMwDUy8X/////////////
|
||||
//+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Bs6pmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
|
||||
NAFmMwBmMwDu6+n///////////////+MblhmMwBmMwBmMwBmMwDu6+n///////////+tmo1mMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwBmMwBmMwBm
|
||||
MwB0SSbu6+n///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////
|
||||
///39fSAXUJmMwD39fT///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////
|
||||
///////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////Uy8W3p5y3p5yYfWtmMwBmMwBm
|
||||
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwB0SSb///////////////////90SSZmMwBmMwBmMwBm
|
||||
MwCtmo3////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////m4N1m
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
|
||||
//////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////Bs6pmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwDUy8X////////////Lv7h0SSb///////////////////90SSZmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDu
|
||||
6+n///////////////+jjH1mMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwCYfWv/////
|
||||
///////////u6+lmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////+3p5xmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwCjjH3///////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwCYfWv////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////
|
||||
//////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo3/
|
||||
///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////
|
||||
//+YfWtmMwBmMwBmMwBmMwBmMwCtmo3////////////////u6+lmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
|
||||
USZ9USZmMwBrOQhnNAFmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////
|
||||
//////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+MblhmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////u6+lmMwBm
|
||||
MwBmMwBmMwBmMwCAXULLv7j///////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwC3p5z////////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwDd1tH///////////////////+3p5x0SSZmMwBmMwC3p5z///////////////////+t
|
||||
mo1mMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwDLv7j////////////////Bs6pm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/
|
||||
//////////////////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBm
|
||||
MwBmMwDm4N3////////////////////////////////////////////////////////////Bs6pmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////+3
|
||||
p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////
|
||||
///////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
|
||||
NAFmMwDm4N3///////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+Y
|
||||
fWtmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////////////////////////
|
||||
//////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////////////////////////////
|
||||
///////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCj
|
||||
jH3///////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwCtmo339fT///////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBm
|
||||
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAF0SSb///////////////////+MblhmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwDLv7j////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwC3p5z/////////////////
|
||||
//////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////
|
||||
///////////////////////////////////////m4N23p5yMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////9mMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH23p5z39fT////////////////Uy8W3
|
||||
p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
|
||||
USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
|
||||
NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
|
||||
USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ8UCRmMwBqOQdn
|
||||
NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBnNAFqOQdmMwB8UCR3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh1zRBVmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz
|
||||
RBV0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
|
||||
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
|
||||
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
|
||||
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
|
||||
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
|
||||
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
|
||||
NAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0Rhh/VClmMwBuPg5rOglrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
|
||||
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
|
||||
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
|
||||
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
|
||||
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
|
||||
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
|
||||
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOgluPg5mMwB/VCl4Sx5mMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwB4Sx6RbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
|
||||
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
|
||||
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
|
||||
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
|
||||
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
|
||||
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
|
||||
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEf/////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////Bs6rBs6qYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6rBs6r/////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////Uy8WYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvUy8X////////////////////////////////////////B
|
||||
s6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwCjjH3Bs6rBs6r39fT/////////////////////////////////////////////////////////
|
||||
///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////////////////////////////////////
|
||||
///////////////////////////////////////////////////////////////d1tGMblhmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvm4N3/
|
||||
///////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljLv7j/////////////////
|
||||
///////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X////////////////////////////d1tFmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwCMbljm4N3////////////////////////////////////////////m4N1mMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwC3p5z/////////////////////////////////////////////////////////////
|
||||
//////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////
|
||||
///////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////
|
||||
///////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////////
|
||||
///////////////////////////////////////////////////////////////////Bs6pmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwCtmo3///////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCA
|
||||
XUL/////////////////////////////////////////////////////////////////////////////
|
||||
///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT/////////////////
|
||||
//+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////////////////////
|
||||
//////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////////////////////////////////////////
|
||||
//////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwDBs6r///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwDBs6r////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////
|
||||
///////////////////////////////////////////////////////////////////////////d1tFm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6rd1tH////////39fTBs6qAXUJm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Lv7hmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////////Uy8VmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwDLv7j/////////////////////////////////////////////////////////
|
||||
//////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/
|
||||
//////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd
|
||||
1tH////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////
|
||||
///////Uy8XBs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////
|
||||
///////////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//////////////////////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////////////////+AXUJmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwC3p5z////////////////////////////////d1tGMblhmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////9mMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwB0SSb/////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT/////////////////////
|
||||
///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////
|
||||
//////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////
|
||||
//////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT/////////////
|
||||
//////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwDBs6r////////////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwCYfWv///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0
|
||||
SSb///////////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwDBs6r///////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwDUy8X/////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///u6+nBs6rBs6rBs6qYfWtmMwBmMwBmMwDu6+n/////////////////////////////////////////
|
||||
///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n////////////////////////////////////////u
|
||||
6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////////////Bs6pm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCY
|
||||
fWv////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////
|
||||
//////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwDm4N3////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////////////////////u6+m3p5xmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////m4N1mMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwDBs6r////////////////////////////////////////////d1tFmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////////u6+lmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////////////////////////////////////////Uy8XB
|
||||
s6p0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////
|
||||
//////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////////////////
|
||||
//////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////
|
||||
//////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////m4N3Bs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwDUy8X///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwCMblj///////////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwB0SSb///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwDm4N3/////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////Bs6qAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////////////////+jjH1m
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////////////////////
|
||||
///////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////+t
|
||||
mo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/
|
||||
///////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////
|
||||
///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwDm4N3////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////////////////////Uy8VmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////90SSZm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////Uy8VmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbm4N3/////////////////////
|
||||
///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////
|
||||
//////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////
|
||||
///////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM
|
||||
bljm4N3///////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwCjjH3///////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwD39fT/////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////////////////+M
|
||||
blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////////////
|
||||
//////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////////////
|
||||
//+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6r/////////////////////////
|
||||
//////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////
|
||||
//////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwDd1tH///////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDL
|
||||
v7j/////////////////////////////////////////////////////////////////////////////
|
||||
//////////////////////////////////////////////////////////////////////////+Mblhm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6r/////
|
||||
///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////+AXUJm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////Bs6pmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//////////////////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwCtmo3Bs6r39fT/////////////////////////////////////////////////////////////////
|
||||
///////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////
|
||||
///////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n/////
|
||||
///////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwB0SSbLv7j/////////////////////////////////////////////////
|
||||
///////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwC3p5z////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwB0SSb////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwCAXUL/////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////////////
|
||||
//////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////
|
||||
//////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwC3p5z////////////////////////////////////39fRmMwBmMwB0SSbBs6rBs6r39fT/////////
|
||||
//////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/
|
||||
///////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwDBs6r///////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwDm4N3/////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////////////////////////////////////39fRmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////////////////////Bs6pm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6rBs6r///////////////////////////+3p5xmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT////////////////////////////39fSMblhmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////+3p5xmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////////
|
||||
///////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////
|
||||
///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////
|
||||
///////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////
|
||||
///////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////////u6+mAXUJmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwCYfWv////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwDLv7j////////////////Uy8W3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwDd1tH////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwCYfWv/////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljBs6r////////d1tG3
|
||||
p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH/////////////////////////
|
||||
///39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////////////////
|
||||
///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM
|
||||
blj///////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/
|
||||
//////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwD39fT/////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////////////////////////////////////////////L
|
||||
v7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////+YfWtmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////+jjH1m
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH/////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////////
|
||||
//////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////////
|
||||
//////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////////////////////////////////39fSAXUJmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwCYfWv////////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDB
|
||||
s6r////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////////////////////////
|
||||
///////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwB0SSbUy8X/////////////////////////////////////////////////
|
||||
///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//////////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////
|
||||
///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbBs6r/////////////////////////
|
||||
///////////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwB0SSb/////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////d1tGYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwDBs6r39fT///////////////////////////////////////////////////////////+AXUJm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXULBs6rBs6rm4N3/
|
||||
//////////////////////////////////////////////////////////////////////////////+A
|
||||
XUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////////////////////////39fTBs6rBs6pmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwCjjH3Bs6rUy8X/////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
36
SDL/Administration/frmIDS_Stationen.vb
Normal file
36
SDL/Administration/frmIDS_Stationen.vb
Normal file
@@ -0,0 +1,36 @@
|
||||
Public Class frmIDS_Stationen
|
||||
Dim KASSENBind As cEasyBinding
|
||||
Public table
|
||||
Public BIND_DB
|
||||
Sub New(table, BIND_DB)
|
||||
Me.table = table
|
||||
Me.BIND_DB = BIND_DB
|
||||
InitializeComponent()
|
||||
End Sub
|
||||
|
||||
Private Sub frmIDS_Stationen_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
Try
|
||||
KASSENBind = New cEasyBinding(BIND_DB)
|
||||
Select Case table
|
||||
Case "" 'Sonderfall
|
||||
Case Else
|
||||
KASSENBind.initBinding("SELECT * FROM " & table, table)
|
||||
For Each c As DataColumn In KASSENBind.bindingdataTable.Columns
|
||||
If c.ColumnName = "SSMA_TimeStamp" Then
|
||||
KASSENBind.bindingdataTable.Columns.Remove(c)
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
End Select
|
||||
DataGridView.DataSource = KASSENBind.bindingdataTable
|
||||
' DataGridView.AutoSize = True
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub btnSpeichern_Click(sender As Object, e As EventArgs) Handles btnSpeichern.Click
|
||||
KASSENBind.updateBinding()
|
||||
End Sub
|
||||
End Class
|
||||
97
SDL/Administration/usrCntlAdministration.Designer.vb
generated
97
SDL/Administration/usrCntlAdministration.Designer.vb
generated
@@ -52,6 +52,13 @@ Partial Class usrCntlAdministration
|
||||
Me.datKostenstelleBis = New System.Windows.Forms.DateTimePicker()
|
||||
Me.datKostenstelleVon = New System.Windows.Forms.DateTimePicker()
|
||||
Me.Button10 = New System.Windows.Forms.Button()
|
||||
Me.Button12 = New System.Windows.Forms.Button()
|
||||
Me.Label8 = New System.Windows.Forms.Label()
|
||||
Me.Button13 = New System.Windows.Forms.Button()
|
||||
Me.Button14 = New System.Windows.Forms.Button()
|
||||
Me.Label9 = New System.Windows.Forms.Label()
|
||||
Me.dt_bis = New System.Windows.Forms.DateTimePicker()
|
||||
Me.dt_von = New System.Windows.Forms.DateTimePicker()
|
||||
Me.GroupBox1.SuspendLayout()
|
||||
Me.GroupBox2.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
@@ -324,10 +331,12 @@ Partial Class usrCntlAdministration
|
||||
Me.txtKostenstelleJahr._DateTimeOnly = False
|
||||
Me.txtKostenstelleJahr._numbersOnly = True
|
||||
Me.txtKostenstelleJahr._numbersOnlyKommastellen = ""
|
||||
Me.txtKostenstelleJahr._numbersOnlyTrennzeichen = True
|
||||
Me.txtKostenstelleJahr._Prozent = False
|
||||
Me.txtKostenstelleJahr._ShortDateNew = False
|
||||
Me.txtKostenstelleJahr._ShortDateOnly = False
|
||||
Me.txtKostenstelleJahr._TimeOnly = False
|
||||
Me.txtKostenstelleJahr._TimeOnly_Seconds = False
|
||||
Me.txtKostenstelleJahr._value = ""
|
||||
Me.txtKostenstelleJahr._Waehrung = False
|
||||
Me.txtKostenstelleJahr._WaehrungZeichen = True
|
||||
@@ -405,11 +414,92 @@ Partial Class usrCntlAdministration
|
||||
Me.Button10.Text = "Kasse Journal-Nr neu berechnen"
|
||||
Me.Button10.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button12
|
||||
'
|
||||
Me.Button12.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button12.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.Button12.Image = Global.SDL.My.Resources.Resources.Excel_logo
|
||||
Me.Button12.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button12.Location = New System.Drawing.Point(241, 572)
|
||||
Me.Button12.Name = "Button12"
|
||||
Me.Button12.Size = New System.Drawing.Size(211, 24)
|
||||
Me.Button12.TabIndex = 26
|
||||
Me.Button12.Text = "Brexit Vorkosten"
|
||||
Me.Button12.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label8
|
||||
'
|
||||
Me.Label8.AutoSize = True
|
||||
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label8.Location = New System.Drawing.Point(238, 526)
|
||||
Me.Label8.Name = "Label8"
|
||||
Me.Label8.Size = New System.Drawing.Size(91, 13)
|
||||
Me.Label8.TabIndex = 27
|
||||
Me.Label8.Text = "Auswertungen:"
|
||||
'
|
||||
'Button13
|
||||
'
|
||||
Me.Button13.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button13.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.Button13.Image = Global.SDL.My.Resources.Resources.Excel_logo
|
||||
Me.Button13.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button13.Location = New System.Drawing.Point(241, 602)
|
||||
Me.Button13.Name = "Button13"
|
||||
Me.Button13.Size = New System.Drawing.Size(211, 24)
|
||||
Me.Button13.TabIndex = 28
|
||||
Me.Button13.Text = "DL - Ostländer verrechnet"
|
||||
Me.Button13.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button14
|
||||
'
|
||||
Me.Button14.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button14.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.Button14.Image = Global.SDL.My.Resources.Resources.Excel_logo
|
||||
Me.Button14.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button14.Location = New System.Drawing.Point(241, 632)
|
||||
Me.Button14.Name = "Button14"
|
||||
Me.Button14.Size = New System.Drawing.Size(211, 24)
|
||||
Me.Button14.TabIndex = 29
|
||||
Me.Button14.Text = "DL - Ostländer Bar"
|
||||
Me.Button14.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label9
|
||||
'
|
||||
Me.Label9.AutoSize = True
|
||||
Me.Label9.Location = New System.Drawing.Point(343, 550)
|
||||
Me.Label9.Name = "Label9"
|
||||
Me.Label9.Size = New System.Drawing.Size(10, 13)
|
||||
Me.Label9.TabIndex = 32
|
||||
Me.Label9.Text = "-"
|
||||
'
|
||||
'dt_bis
|
||||
'
|
||||
Me.dt_bis.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
|
||||
Me.dt_bis.Location = New System.Drawing.Point(359, 546)
|
||||
Me.dt_bis.Name = "dt_bis"
|
||||
Me.dt_bis.Size = New System.Drawing.Size(82, 20)
|
||||
Me.dt_bis.TabIndex = 31
|
||||
'
|
||||
'dt_von
|
||||
'
|
||||
Me.dt_von.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
|
||||
Me.dt_von.Location = New System.Drawing.Point(256, 546)
|
||||
Me.dt_von.Name = "dt_von"
|
||||
Me.dt_von.Size = New System.Drawing.Size(82, 20)
|
||||
Me.dt_von.TabIndex = 30
|
||||
'
|
||||
'usrCntlAdministration
|
||||
'
|
||||
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.Label9)
|
||||
Me.Controls.Add(Me.dt_bis)
|
||||
Me.Controls.Add(Me.dt_von)
|
||||
Me.Controls.Add(Me.Button14)
|
||||
Me.Controls.Add(Me.Button13)
|
||||
Me.Controls.Add(Me.Label8)
|
||||
Me.Controls.Add(Me.Button12)
|
||||
Me.Controls.Add(Me.Button10)
|
||||
Me.Controls.Add(Me.Label6)
|
||||
Me.Controls.Add(Me.GroupBox2)
|
||||
@@ -474,4 +564,11 @@ Partial Class usrCntlAdministration
|
||||
Friend WithEvents datKostenstelleVon As DateTimePicker
|
||||
Friend WithEvents Label7 As Label
|
||||
Friend WithEvents Button10 As Button
|
||||
Friend WithEvents Button12 As Button
|
||||
Friend WithEvents Label8 As Label
|
||||
Friend WithEvents Button13 As Button
|
||||
Friend WithEvents Button14 As Button
|
||||
Friend WithEvents Label9 As Label
|
||||
Friend WithEvents dt_bis As DateTimePicker
|
||||
Friend WithEvents dt_von As DateTimePicker
|
||||
End Class
|
||||
|
||||
@@ -1,4 +1,8 @@
|
||||
Public Class usrCntlAdministration
|
||||
Imports com.sun.tools.internal.xjc.reader.gbind
|
||||
Imports GrapeCity.ActiveReports.ReportsCore.Tools
|
||||
Imports GrapeCity.Viewer.Common.Model
|
||||
|
||||
Public Class usrCntlAdministration
|
||||
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Private Sub btnWord_Click(sender As Object, e As EventArgs) Handles btnWord.Click
|
||||
@@ -293,4 +297,50 @@
|
||||
Dim frmKasseJournalNeuBerechnen As New frmKasseJournalNeuBerechnen
|
||||
frmKasseJournalNeuBerechnen.Show(Me)
|
||||
End Sub
|
||||
|
||||
Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click, Button13.Click, Button14.Click
|
||||
|
||||
Dim sqlString = ""
|
||||
|
||||
Select Case sender.Name
|
||||
Case "Button12"
|
||||
sqlString = "SELECT Vorkosten.FilialenNr, Vorkosten.AbfertigungsNr, Vorkosten.Preis, Speditionsbuch.Abfertigungsdatum
|
||||
FROM Vorkosten INNER JOIN Speditionsbuch ON (Vorkosten.UnterNr = Speditionsbuch.UnterNr) AND (Vorkosten.AbfertigungsNr = Speditionsbuch.AbfertigungsNr) AND (Vorkosten.FilialenNr = Speditionsbuch.FilialenNr)
|
||||
GROUP BY Vorkosten.FilialenNr, Vorkosten.AbfertigungsNr, Vorkosten.Preis, Speditionsbuch.Abfertigungsdatum
|
||||
HAVING (Vorkosten.FilialenNr=7001) AND (Speditionsbuch.Abfertigungsdatum) Between '" & dt_von.Value.ToShortDateString & "' And '" & dt_bis.Value.ToShortDateString & "'"
|
||||
Case "Button13"
|
||||
|
||||
Dim FilialenNr = InputBox("Filialen angeben", "Ostländer verrechnet", "4803,4807,4809,4811,4814,4815,4817,4819,4820,4821,4822,4823,4867,4868,4869,5003,5103")
|
||||
Dim LeistungsNr = InputBox("LeistungsNr angeben", "Ostländer verrechnet", "109,112,260,261,300,301,302,303,304,305,306,307,308,309,310,311,314,315,316,317,319,320,321,322,323,324,325,332,333,334,335,340,341,342,343,344,347,350,351,352,353,354,356,357,358,380,418,422,435,440,441,470,501,502,503,504,505,506,520,521,529,572,610,700,710,750,760")
|
||||
|
||||
sqlString = "SELECT Adressen.LandKz, ROUND(Sum(dbo.fktEuro([RechnungsausgangPositionen].[SteuerpflichtigerBetrag]+[RechnungsausgangPositionen].[SteuerfreierBetrag],[Währungscode],'EUR')), 2) AS EURO
|
||||
FROM (Adressen INNER JOIN Rechnungsausgang ON Adressen.AdressenNr = Rechnungsausgang.RechnungsKundenNr)
|
||||
INNER JOIN RechnungsausgangPositionen ON Rechnungsausgang.RK_ID = RechnungsausgangPositionen.RK_ID
|
||||
WHERE RechnungsausgangPositionen.LeistungsNr In (" & LeistungsNr & ")
|
||||
AND Rechnungsausgang.Abfertigungsdatum Between '" & dt_von.Value.ToShortDateString & "' And '" & dt_bis.Value.ToShortDateString & "'
|
||||
AND Rechnungsausgang.FilialenNr In (" & FilialenNr & ")
|
||||
GROUP BY Adressen.LandKz"
|
||||
Case "Button14"
|
||||
Dim FilialenNr = InputBox("Filialen für Barzahlungen angeben", "Ostländer Bar", "4803,4805,5303")
|
||||
sqlString = "SELECT Speditionsbuch.Abfertigungsart, Sum(Speditionsbuch.Barzahlungsbetrag) AS 'Summe von Barzahlungsbetrag'
|
||||
FROM Speditionsbuch
|
||||
WHERE Speditionsbuch.FilialenNr In (" & FilialenNr & ") AND Speditionsbuch.Abfertigungsdatum Between '" & dt_von.Value.ToShortDateString & "' And '" & dt_bis.Value.ToShortDateString & "' AND Speditionsbuch.Bar = 1
|
||||
GROUP BY Speditionsbuch.Abfertigungsart;"
|
||||
End Select
|
||||
|
||||
|
||||
Dim dt As DataTable = SQL.loadDgvBySql(sqlString, "FMZOLL")
|
||||
|
||||
If dt.Rows.Count > 0 Then
|
||||
|
||||
cProgramFunctions.genExcelFromDT_NEW(dt)
|
||||
|
||||
Else
|
||||
MsgBox("keine Daten!")
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
3128
SDL/Classes/cRKSV.vb
3128
SDL/Classes/cRKSV.vb
File diff suppressed because it is too large
Load Diff
@@ -3,12 +3,9 @@ Imports System.Globalization
|
||||
Imports System.IO
|
||||
Imports System.Net
|
||||
Imports System.Web.UI.WebControls.Expressions
|
||||
Imports com.sun.org.apache.xpath.internal.operations
|
||||
Imports javax.print.attribute.standard
|
||||
Imports Microsoft.Office.Interop
|
||||
Imports s2industries.ZUGFeRD
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
Imports VERAG_PROG_ALLGEMEIN.TESTJSON
|
||||
|
||||
Public Class cFakturierung
|
||||
|
||||
@@ -319,6 +316,9 @@ Public Class cFakturierung
|
||||
|
||||
If RECHNUNG_KD.Zahlungsziel IsNot Nothing AndAlso IsNumeric(RECHNUNG_KD.Zahlungsziel) Then
|
||||
ZZTage = RECHNUNG_KD.Zahlungsziel
|
||||
If ZZTage > 14 AndAlso RECHNUNG.Firma_ID = 19 AndAlso RECHNUNG.FilialenNr = 8001 Then
|
||||
ZZTage = 14
|
||||
End If
|
||||
End If
|
||||
|
||||
Select Case RECHNUNG.[BelegartenNr]
|
||||
@@ -2039,7 +2039,8 @@ Public Class cFakturierung
|
||||
|
||||
Public Shared Function doRechnungsdruck_MDM(RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, firma As cFirmen, KD_RG As cAdressen, Optional RechnungsDatum As Object = Nothing, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "", Optional ByRef PrinterName As String = "", Optional printOriginalRg As Boolean = False, Optional SammelrechnungAnlagendruck As Boolean = False, Optional printStbVdb As Boolean = False) As Boolean
|
||||
|
||||
Dim rpt As New rptRechnungDruck_MDM(RECHNUNG.RechnungSprache)
|
||||
|
||||
Dim rpt As New rptRechnungDruck_MDM(RECHNUNG.RechnungSprache, IIf(RECHNUNG.OffertenNr = 95, RECHNUNG.OffertenNr, Nothing), RECHNUNG.Firma_ID)
|
||||
|
||||
If RECHNUNG.POSITIONEN.Count = 0 Then MsgBox("Keine Daten vorhanden!") : Return False
|
||||
Dim dtDataSource As New DataTable
|
||||
@@ -2136,7 +2137,7 @@ Public Class cFakturierung
|
||||
Case 26 : rpt.picVERAG.Image = My.Resources.VERAG_UNISPED_Logo : rpt.Picture1.Image = Nothing
|
||||
Case 23 : rpt.picVERAG.Image = My.Resources.Unisped_ZS_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_ZS_AT
|
||||
Case 24 : rpt.picVERAG.Image = My.Resources.ambar_boarder : rpt.Picture1.Image = Nothing
|
||||
rpt.txtAvisierer.Visible = False : rpt.lblAvisiererUeberschrift.Visible = False : rpt.txtWarenwert.Visible = False : rpt.lblWarenWertUeberschrift.Visible = False
|
||||
rpt.txtWarenwert.Visible = False : rpt.lblWarenWertUeberschrift.Visible = False
|
||||
|
||||
End Select
|
||||
|
||||
@@ -2154,6 +2155,7 @@ Public Class cFakturierung
|
||||
|
||||
Select Case RECHNUNG.RechnungSprache
|
||||
Case "EN" : rpt.Label2.Text = ZZTage & " Days" : rpt.Label1.Text = "Payment target:" : rpt.lblSendungsdatenUeberschrift.Text = "Service:"
|
||||
Case "TR" : rpt.Label2.Text = ZZTage & " gün" ': rpt.Label1.Text = "Payment target:" : rpt.lblSendungsdatenUeberschrift.Text = "Service:"
|
||||
Case "RO" : rpt.Label2.Text = ZZTage & " Zile" : rpt.Label1.Text = "Termen de plată:" : rpt.lblSendungsdatenUeberschrift.Text = "Descriere:"
|
||||
Case Else : rpt.Label2.Text = ZZTage & " Tage" : rpt.lblSendungsdatenUeberschrift.Text = "Bezeichnung:"
|
||||
End Select
|
||||
@@ -2182,10 +2184,6 @@ Public Class cFakturierung
|
||||
Dim sachbearbeiterAufRechnung = getSBRgName(RECHNUNG.Firma_ID, RECHNUNG.Sachbearbeiter)
|
||||
rpt.lblSachbearbeiter.Text = IIf(sachbearbeiterAufRechnung = "Herr Ordu", "Verrechnung", sachbearbeiterAufRechnung) 'If(RECHNUNG.Sachbearbeiter, "")
|
||||
|
||||
rpt.txtAbsender.Text = If(RECHNUNG.AbsenderName_1, "") & " " & If(RECHNUNG.AbsenderName_2, "") & vbNewLine & If(RECHNUNG.AbsenderOrt, "").ToString.Trim
|
||||
rpt.txtEmpfaenger.Text = If(RECHNUNG.EmpfängerName_1, "") & " " & If(RECHNUNG.EmpfängerName_2, "") & vbNewLine & If(RECHNUNG.EmpfängerOrt, "").ToString.Trim
|
||||
rpt.txtAvisierer.Text = If(RECHNUNG.Avisierer, "")
|
||||
|
||||
If firma.Firma_ID = 4 Then
|
||||
rpt.lblWarenWertUeberschrift.Visible = False
|
||||
rpt.txtWarenwert.Visible = False
|
||||
@@ -2231,6 +2229,11 @@ Public Class cFakturierung
|
||||
'rpt.lblRechnung_Ort.Text = If(RECHNUNG.RechnungsOrt, "")
|
||||
'rpt.lblRechnung_Land.Text = cProgramFunctions.getLandBez_fromISO1Land(RECHNUNG.RechnungsLandKz, "", RECHNUNG.RechnungSprache).ToString.ToUpper
|
||||
|
||||
rpt.txtAbsender.Text = If(RECHNUNG.AbsenderName_1, "") & " " & If(RECHNUNG.AbsenderName_2, "") & vbNewLine & If(RECHNUNG.AbsenderOrt, "").ToString.Trim
|
||||
rpt.txtEmpfaenger.Text = If(RECHNUNG.EmpfängerName_1, "") & " " & If(RECHNUNG.EmpfängerName_2, "") & vbNewLine & If(RECHNUNG.EmpfängerOrt, "").ToString.Trim
|
||||
|
||||
|
||||
|
||||
If KD_RG IsNot Nothing AndAlso If(KD_RG.Steuernummer, "") <> String.Empty Then
|
||||
If RECHNUNG.Firma_ID = 4 Then
|
||||
rpt.lblRechnung_Steuernummer.Text = If(KD_RG.Steuernummer, "").ToString.Trim 'ohne LandKz gewünscht
|
||||
@@ -2309,16 +2312,82 @@ Public Class cFakturierung
|
||||
If rpt.txtHandlingATA.Text.Replace(" ", "") = "" Then
|
||||
rpt.lblHandlingATA.Visible = False
|
||||
End If
|
||||
|
||||
|
||||
If rpt.txtAbsender.Text.Trim = String.Empty Then rpt.lblAbsenderUeberschrift.Visible = False
|
||||
If rpt.txtEmpfaenger.Text.Trim = String.Empty Then rpt.lblEmpfaengerUeberschrift.Visible = False
|
||||
If rpt.txtAvisierer.Text.Trim = String.Empty Then rpt.lblAvisiererUeberschrift.Visible = False
|
||||
If rpt.lblLKWId.Text.Trim = String.Empty Then rpt.lblLKWIdUebeschrift.Visible = False
|
||||
If rpt.txtWarenwert.Text.Trim = String.Empty Then rpt.lblWarenWertUeberschrift.Visible = False
|
||||
If rpt.txtZollbelegNr.Text.Trim = String.Empty Then rpt.lblZollbelegNr.Visible = False
|
||||
If rpt.txtBeförderungsmittel.Text.Trim = String.Empty Then rpt.txtBeförderungsmittelUeberschrift.Visible = False
|
||||
|
||||
If RECHNUNG.FilialenNr = 8001 AndAlso RECHNUNG.OffertenNr = 95 Then
|
||||
rpt.lblLeistungNr.Visible = False
|
||||
rpt.lblAnzahl.Visible = False
|
||||
rpt.lblSteuerfrei.Visible = False
|
||||
rpt.lblSteuerpflichtig.Visible = False
|
||||
|
||||
rpt.lblLeistungUeberschrift.Alignment = GrapeCity.ActiveReports.Document.Section.TextAlignment.Left
|
||||
Select Case RECHNUNG.RechnungSprache
|
||||
' Case "EN"
|
||||
' rpt.lblLeistungUeberschrift.Text = "Inv. No."
|
||||
' rpt.lblAnzahlUeberschrift.Text = "OD days"
|
||||
' rpt.lblSteuerpflichtigUeberschrift.Text = "Payment Amount"
|
||||
' rpt.lblSteuerfreiUeberschrift.Text = "Default Interest"
|
||||
' 'rpt.lbl_onlyZR_ZinsenUeberschrift.Text = "Interest p.a."
|
||||
|
||||
' Case "TR"
|
||||
|
||||
' rpt.lblLeistungUeberschrift.Text = "Belge"
|
||||
' rpt.lblAnzahlUeberschrift.Text = "Günler"
|
||||
' rpt.lblSteuerpflichtigUeberschrift.Text = "Ödeme tutarı"
|
||||
' rpt.lblSteuerfreiUeberschrift.Text = "Geç ödeme faizi"
|
||||
' ' rpt.lbl_onlyZR_ZinsenUeberschrift.Text = "Zinsen p.a."
|
||||
|
||||
' Case "RO"
|
||||
|
||||
' rpt.lblLeistungUeberschrift.Text = "Nr. fact."
|
||||
' rpt.lblAnzahlUeberschrift.Text = "Nr. zile"
|
||||
' rpt.lblSteuerpflichtigUeberschrift.Text = "Suma de plata"
|
||||
' rpt.lblSteuerfreiUeberschrift.Text = "Penalitati"
|
||||
' 'rpt.lbl_onlyZR_ZinsenUeberschrift.Text = "Dobândă p.a."
|
||||
|
||||
Case Else
|
||||
|
||||
rpt.lblLeistungUeberschrift.Text = "RENR"
|
||||
rpt.lblAnzahlUeberschrift.Text = "VZ Tage"
|
||||
rpt.lblSteuerpflichtigUeberschrift.Text = "Zahlungsbetrag"
|
||||
rpt.lblSteuerfreiUeberschrift.Text = "Verzugszinsen"
|
||||
'rpt.lbl_onlyZR_ZinsenUeberschrift.Text = "Zinsen p.a."
|
||||
End Select
|
||||
|
||||
|
||||
|
||||
rpt.lblSteuerpflichtigUeberschrift.Alignment = GrapeCity.ActiveReports.Document.Section.TextAlignment.Center
|
||||
rpt.lblSteuerfreiUeberschrift.Alignment = GrapeCity.ActiveReports.Document.Section.TextAlignment.Right
|
||||
|
||||
rpt.lbl_onlyZR_ZinsenUeberschrift.Alignment = GrapeCity.ActiveReports.Document.Section.TextAlignment.Left
|
||||
rpt.lbl_onlyZR_ReDatUeberschrift.Visible = True
|
||||
rpt.lbl_onlyZR_FaelligUeberschrift.Visible = True
|
||||
rpt.lbl_onlyZR_ZinsenUeberschrift.Visible = True
|
||||
rpt.lbl_onlyZR_ZahlungsDatUeberschrift.Visible = True
|
||||
|
||||
rpt.txtLeistung.Visible = False
|
||||
|
||||
Else
|
||||
|
||||
'rpt.lblLeistungUeberschrift.Text = "Leistung"
|
||||
'rpt.lblAnzahlUeberschrift.Text = "Anzahl"
|
||||
'rpt.lblSteuerfreiUeberschrift.Text = "Steuerfrei"
|
||||
'rpt.lblSteuerpflichtigUeberschrift.Text = "Steuerpflichtig"
|
||||
rpt.lblSteuerpflichtigUeberschrift.Alignment = GrapeCity.ActiveReports.Document.Section.TextAlignment.Right
|
||||
|
||||
rpt.lbl_onlyZR_ReDatUeberschrift.Visible = False
|
||||
rpt.lbl_onlyZR_FaelligUeberschrift.Visible = False
|
||||
rpt.lbl_onlyZR_ZinsenUeberschrift.Visible = False
|
||||
rpt.lbl_onlyZR_ZahlungsDatUeberschrift.Visible = False
|
||||
rpt.txtLeistung.Visible = True
|
||||
|
||||
End If
|
||||
|
||||
|
||||
'rpt.lblMandantNiederlassung.Text = PERSONAL.Mandant & " / " & PERSONAL.Niederlassung
|
||||
|
||||
@@ -2408,8 +2477,6 @@ Public Class cFakturierung
|
||||
|
||||
' Dim KUNDE_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(RECHNUNG.RechnungsKundenNr)
|
||||
|
||||
|
||||
|
||||
' rpt.Line10.AnchorBottom = True
|
||||
' rpt.Line10.Height = rpt.Detail.Height
|
||||
|
||||
@@ -2421,6 +2488,29 @@ Public Class cFakturierung
|
||||
rpt.txtLeistung.Text = checkNull(rpt.Fields.Item("LeistungsBez").Value)
|
||||
|
||||
If firma.Firma_ID = 19 Then
|
||||
|
||||
If RECHNUNG.FilialenNr = 8001 AndAlso RECHNUNG.OffertenNr = 95 Then 'dann ist es eine Zinsnachberechnungs-Rechnung
|
||||
|
||||
Dim steuerfrei As Double = 0
|
||||
Dim steuerpfl As Double = 0
|
||||
|
||||
If IsNumeric(checkNull(rpt.Fields.Item("SteuerfreierBetrag").Value)) Then steuerfrei = CDbl(rpt.Fields.Item("SteuerfreierBetrag").Value)
|
||||
If IsNumeric(checkNull(rpt.Fields.Item("SteuerpflichtigerBetrag").Value)) Then steuerpfl = CDbl(rpt.Fields.Item("SteuerpflichtigerBetrag").Value)
|
||||
|
||||
|
||||
Dim subRpt = New rptRechnungMDM_AnlagenDruck_Zinsennachberechnung(rpt._LAN, RECHNUNG, rpt.txtLeistung.Text.Replace("*", ""), CInt(rpt.lblAnzahl.Text), steuerfrei + steuerpfl)
|
||||
|
||||
rpt.SubReport.Report = subRpt
|
||||
rpt.lblSteuerfrei.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold)
|
||||
rpt.lblSteuerpflichtig.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold)
|
||||
|
||||
'txtPackstuecke.Top += SubReport.Height
|
||||
'txtKdAuftragsnummer.Top += SubReport.Height
|
||||
'txtSendungsdetails.Top += SubReport.Height
|
||||
Else
|
||||
rpt.SubReport.Report = Nothing
|
||||
End If
|
||||
|
||||
Dim isReverseCharge As Boolean = SQL.getValueTxtBySql("SELECT ReverseCharge as Bit from Leistungen where LeistungsNr= " & rpt.lblLeistungNr.Text, "FMZOLL")
|
||||
If isReverseCharge Then
|
||||
rpt.txtLeistung.Text &= IIf(Not rpt.txtLeistung.Text.Contains("*"), "*", "")
|
||||
@@ -2520,21 +2610,6 @@ Public Class cFakturierung
|
||||
' End If
|
||||
'rpt.Line10.Height = rpt.Detail.Height
|
||||
|
||||
|
||||
If RECHNUNG.FilialenNr = 8001 AndAlso RECHNUNG.OffertenNr = 95 Then 'dann ist es eine Zinsnachberechnungs-Rechnung
|
||||
Dim subRpt = New rptRechnungMDM_AnlagenDruck_Zinsennachberechnung(rpt._LAN, RECHNUNG, rpt.txtLeistung.Text)
|
||||
|
||||
rpt.SubReport.Report = subRpt
|
||||
rpt.lblSteuerfrei.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold)
|
||||
rpt.lblSteuerpflichtig.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold)
|
||||
|
||||
'txtPackstuecke.Top += SubReport.Height
|
||||
'txtKdAuftragsnummer.Top += SubReport.Height
|
||||
'txtSendungsdetails.Top += SubReport.Height
|
||||
Else
|
||||
rpt.SubReport.Report = Nothing
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
AddHandler rpt.ReportFooter1.Format, Sub()
|
||||
@@ -2610,6 +2685,7 @@ Public Class cFakturierung
|
||||
|
||||
If RECHNUNG.Firma_ID = 19 Then
|
||||
|
||||
If rpt.lblSteuerbetrag.Text = "" Then rpt.lblSteuersatz.Text = ""
|
||||
'rpt.lblSteuersatz.Visible = False
|
||||
'rpt.lblSteuerbetrag.Visible = False
|
||||
|
||||
@@ -4830,11 +4906,11 @@ Public Class cFakturierung
|
||||
'rpt.lblAbfertigungsDatum.Text = RECHNUNG.Abfertigungsdatum.ToShortDateString
|
||||
'rpt.lblLKWId.Text = If(RECHNUNG.AvisoID, "")
|
||||
|
||||
Dim sachbearbeiterAufRechnung = getSBRgName(Row("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME)
|
||||
Dim sachbearbeiterAufRechnung = getSBRgName(Row("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME, Row("Sachbearbeiter"))
|
||||
rpt.lblSachbearbeiter.Text = IIf(sachbearbeiterAufRechnung = "Herr Ordu", "Verrechnung", sachbearbeiterAufRechnung) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben - NEU
|
||||
|
||||
|
||||
rpt.lblSachbearbeiter.Text = getSBRgName(Firma.Firma_ID, VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben
|
||||
'rpt.lblSachbearbeiter.Text = getSBRgName(Firma.Firma_ID, VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben
|
||||
rpt.lblFirmenbuch.Text = If(Firma.Firma_Firmenbuch, "").ToString.Replace("Firmenbuch: ", "").Trim
|
||||
rpt.lblUID.Text = If(Firma.Firma_UID, "").ToString.Replace("UID: ", "").Trim
|
||||
rpt.lblEORI.Text = If(Firma.Firma_EORI, "")
|
||||
@@ -5230,7 +5306,7 @@ Public Class cFakturierung
|
||||
'rpt.lblAbfertigungsDatum.Text = RECHNUNG.Abfertigungsdatum.ToShortDateString
|
||||
'rpt.lblLKWId.Text = If(RECHNUNG.AvisoID, "")
|
||||
|
||||
Dim sachbearbeiterAufRechnung = getSBRgName(Row("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME)
|
||||
Dim sachbearbeiterAufRechnung = getSBRgName(Row("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME, Row("Sachbearbeiter").ToString.ToUpper)
|
||||
|
||||
If sachbearbeiterAufRechnung = "" Then
|
||||
rpt.lblSachbearbeiter.Text = getSBRgName(Row("Firma_ID"), Row("Sachbearbeiter").ToString.ToUpper)
|
||||
@@ -5468,10 +5544,15 @@ Public Class cFakturierung
|
||||
|
||||
|
||||
|
||||
Shared Function getSBRgName(Firma_id As Integer, USRKURZNAME As String) As String
|
||||
Shared Function getSBRgName(Firma_id As Integer, USRKURZNAME As String, Optional NameAufBeleg As String = "") As String
|
||||
|
||||
If USRKURZNAME Is Nothing Then Return ""
|
||||
If USRKURZNAME Is DBNull.Value Then Return ""
|
||||
|
||||
If NameAufBeleg <> "" Then
|
||||
USRKURZNAME = NameAufBeleg
|
||||
End If
|
||||
|
||||
If USRKURZNAME = "" Then USRKURZNAME = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
Dim txt = SQL.getValueTxtBySql("SELECT top 1 CASE WHEN mit_geschlecht='w' THEN 'Frau ' ELSE (CASE WHEN mit_geschlecht='m' THEN 'Herr ' ELSE '' END ) END + mit_nname FROM [tblMitarbeiter] WHERE [mit_username]='" & USRKURZNAME & "' ", "ADMIN")
|
||||
If txt <> "" Then Return txt
|
||||
@@ -5648,7 +5729,7 @@ Public Class cFakturierung
|
||||
'rpt.lblAbfertigungsNr.Text = ROW("FilialenNr") & " / " & ROW("AbfertigungsNr") & " " & ROW("SpeditionsbuchUnterNr").ToString("00")
|
||||
'rpt.lblAbfertigungsDatum.Text = RECHNUNG.Abfertigungsdatum.ToShortDateString
|
||||
'rpt.lblLKWId.Text = If(RECHNUNG.AvisoID, "")
|
||||
Dim sachbearbeiterAufRechnung = getSBRgName(ROW("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME)
|
||||
Dim sachbearbeiterAufRechnung = getSBRgName(ROW("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME, ROW("Sachbearbeiter"))
|
||||
rpt.lblSachbearbeiter.Text = IIf(sachbearbeiterAufRechnung = "Herr Ordu", "Verrechnung", sachbearbeiterAufRechnung) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben - NEU
|
||||
|
||||
'rpt.lblSachbearbeiter.Text = getSBRgName(ROW("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben - ALT
|
||||
|
||||
@@ -800,8 +800,9 @@ Public Class frmFaktEmail
|
||||
Dim bearbGeb As Double = 0
|
||||
Dim hasVZ As Boolean = False
|
||||
|
||||
'todo_Prüfung ist zu spät -> früher (vor dem eintragen in die DB)!!!!
|
||||
For Each pos In USTV_ANTRAG.POSITIONEN
|
||||
If pos.UStVPo_VZ AndAlso (IsDBNull(pos.UStVPo_VZ_RKID) Or pos.UStVPo_VZ_RKID Is Nothing) Then 'VZ die noch nicht abgerechnet wurde!
|
||||
If pos.UStVPo_VZ AndAlso (IsDBNull(pos.UStVPo_VZ_RKID) OrElse pos.UStVPo_VZ_RKID Is Nothing) Then 'VZ die noch nicht abgerechnet wurde!
|
||||
hasVZ = True
|
||||
Exit For
|
||||
End If
|
||||
@@ -815,15 +816,15 @@ Public Class frmFaktEmail
|
||||
|
||||
'nur bei NICHT VZ!
|
||||
If Not hasVZ Then
|
||||
Dim ANTR_ERSTATTUNG As New VERAG_PROG_ALLGEMEIN.cUStVErstattungPositionen(USTV_ANTRAG.UStVAn_ID, RECHNUNG.UnterNr + 1)
|
||||
If Not ANTR_ERSTATTUNG.hasEntry Then
|
||||
ANTR_ERSTATTUNG.GutschriftsDatum = RECHNUNG.RechnungsDatum
|
||||
ANTR_ERSTATTUNG.GutschriftsNr = RECHNUNG.RechnungsNr
|
||||
ANTR_ERSTATTUNG.UStVEr_Umrechnungskurs = 1
|
||||
ANTR_ERSTATTUNG.UStVEr_USteuerbetrag = bearbGeb
|
||||
ANTR_ERSTATTUNG.UStVEr_USteuerbetragEUR = bearbGeb
|
||||
ANTR_ERSTATTUNG.SAVE()
|
||||
End If
|
||||
'Dim ANTR_ERSTATTUNG As New VERAG_PROG_ALLGEMEIN.cUStVErstattungPositionen(USTV_ANTRAG.UStVAn_ID, RECHNUNG.UnterNr + 1)
|
||||
'If Not ANTR_ERSTATTUNG.hasEntry Then
|
||||
' ANTR_ERSTATTUNG.GutschriftsDatum = RECHNUNG.RechnungsDatum
|
||||
' ANTR_ERSTATTUNG.GutschriftsNr = RECHNUNG.RechnungsNr
|
||||
' ANTR_ERSTATTUNG.UStVEr_Umrechnungskurs = 1
|
||||
' ANTR_ERSTATTUNG.UStVEr_USteuerbetrag = bearbGeb
|
||||
' ANTR_ERSTATTUNG.UStVEr_USteuerbetragEUR = bearbGeb
|
||||
' ANTR_ERSTATTUNG.SAVE()
|
||||
'End If
|
||||
|
||||
|
||||
If IsDBNull(USTV_ANTRAG.UStVAn_VZBetrag) AndAlso IsDBNull(USTV_ANTRAG.UStVAn_VZDatum) Then
|
||||
|
||||
425
SDL/Fakturierung/rptRechnungDruck_MDM.Designer.vb
generated
425
SDL/Fakturierung/rptRechnungDruck_MDM.Designer.vb
generated
@@ -103,17 +103,15 @@ Partial Public Class rptRechnungDruck_MDM
|
||||
Me.lblHandlingATA = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.GroupHeader4 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
|
||||
Me.lblSteuerpflichtigUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.lblLeistungUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.lblAnzahlUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.lblSteuerfreiUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.lbl_onlyZR_ZinsenUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.lbl_onlyZR_ZahlungsDatUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.lbl_onlyZR_FaelligUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.lbl_onlyZR_ReDatUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.lblSteuerpflichtigUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.lblAnzahlUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.Line4 = New GrapeCity.ActiveReports.SectionReportModel.Line()
|
||||
Me.lblAbsenderUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.lblAvisiererUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.lblEmpfaengerUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.txtAbsender = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtEmpfaenger = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtAvisierer = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.lblZollbelegNr = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.txtZollbelegNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.lblWarenWertUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
@@ -127,7 +125,12 @@ Partial Public Class rptRechnungDruck_MDM
|
||||
Me.Line12 = New GrapeCity.ActiveReports.SectionReportModel.Line()
|
||||
Me.Line13 = New GrapeCity.ActiveReports.SectionReportModel.Line()
|
||||
Me.Line16 = New GrapeCity.ActiveReports.SectionReportModel.Line()
|
||||
Me.Line18 = New GrapeCity.ActiveReports.SectionReportModel.Line()
|
||||
Me.GroupFooter4 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
|
||||
Me.lblAbsenderUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.lblEmpfaengerUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.txtAbsender = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtEmpfaenger = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
CType(Me.lblLeistungNr, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lblAnzahl, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lblSteuerfrei, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
@@ -194,16 +197,14 @@ Partial Public Class rptRechnungDruck_MDM
|
||||
CType(Me.txtHandlingATA, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lblHandlingATA, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lblSteuerpflichtigUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lblLeistungUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lblAnzahlUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lblSteuerfreiUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lblAbsenderUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lblAvisiererUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lblEmpfaengerUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtAbsender, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtEmpfaenger, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtAvisierer, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lbl_onlyZR_ZinsenUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lbl_onlyZR_ZahlungsDatUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lbl_onlyZR_FaelligUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lbl_onlyZR_ReDatUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lblSteuerpflichtigUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lblAnzahlUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lblZollbelegNr, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtZollbelegNr, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lblWarenWertUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
@@ -214,6 +215,10 @@ Partial Public Class rptRechnungDruck_MDM
|
||||
CType(Me.txtBef<EFBFBD>rderungsmittel, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lblSendungsdatenUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtSendungsdaten, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lblAbsenderUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lblEmpfaengerUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtAbsender, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtEmpfaenger, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
'
|
||||
'PageHeader
|
||||
@@ -223,8 +228,9 @@ Partial Public Class rptRechnungDruck_MDM
|
||||
'
|
||||
'Detail
|
||||
'
|
||||
Me.Detail.CanShrink = True
|
||||
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblLeistungNr, Me.lblAnzahl, Me.lblSteuerfrei, Me.lblSteuerpflichtig, Me.txtLeistung, Me.Line10, Me.Line11, Me.SubReport})
|
||||
Me.Detail.Height = 0.369286!
|
||||
Me.Detail.Height = 0.3901193!
|
||||
Me.Detail.KeepTogether = True
|
||||
Me.Detail.Name = "Detail"
|
||||
'
|
||||
@@ -307,8 +313,8 @@ Partial Public Class rptRechnungDruck_MDM
|
||||
Me.Line11.LineWeight = 1.0!
|
||||
Me.Line11.Name = "Line11"
|
||||
Me.Line11.Top = 0!
|
||||
Me.Line11.Width = 0!
|
||||
Me.Line11.X1 = 7.476377!
|
||||
Me.Line11.Width = 0.0000009536743!
|
||||
Me.Line11.X1 = 7.476378!
|
||||
Me.Line11.X2 = 7.476377!
|
||||
Me.Line11.Y1 = 0!
|
||||
Me.Line11.Y2 = 0.1712599!
|
||||
@@ -317,12 +323,12 @@ Partial Public Class rptRechnungDruck_MDM
|
||||
'
|
||||
Me.SubReport.CloseBorder = False
|
||||
Me.SubReport.Height = 0.1259843!
|
||||
Me.SubReport.Left = 0.03307087!
|
||||
Me.SubReport.Left = 0!
|
||||
Me.SubReport.Name = "SubReport"
|
||||
Me.SubReport.Report = Nothing
|
||||
Me.SubReport.ReportName = "SubReport1"
|
||||
Me.SubReport.Top = 0.1732284!
|
||||
Me.SubReport.Width = 7.442126!
|
||||
Me.SubReport.Top = 0.1712599!
|
||||
Me.SubReport.Width = 7.066142!
|
||||
'
|
||||
'PageFooter
|
||||
'
|
||||
@@ -420,7 +426,7 @@ Partial Public Class rptRechnungDruck_MDM
|
||||
'ReportHeader1
|
||||
'
|
||||
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblRgNrUeberschrift, Me.Picture1, Me.picVERAG, Me.lblKundenNrUeberschrift, Me.lblUeberschriftRG_GS, Me.lblKundenNr, Me.Line3, Me.lblFirmaOrt, Me.lblFirmaStrasse, Me.lblFirmaTel, Me.lblFirmaFax, Me.lblFirmaEmail, Me.lblFirmaWeb, Me.lblRgDatumUeberschrift, Me.lblRgDatum, Me.lblAbfertigungsNrUeberschrift, Me.lblAbfertigungsNr, Me.lblAbfertigungsDatumUeberschrift, Me.lblAbfertigungsDatum, Me.lblLKWIdUebeschrift, Me.lblLKWId, Me.lblSachbearbeiterUeberschrift, Me.lblSachbearbeiter, Me.lblFirmenbuchUeberschrift, Me.lblFirmenbuch, Me.lblUIDUeberschrift, Me.lblUID, Me.lblEORIUeberschrift, Me.lblEORI, Me.lblRechnung_UID_Ueberschrift, Me.lblRechnung_UID, Me.lblRechnung_Steuernummer_Ueberschrift, Me.lblRechnung_Steuernummer, Me.txtKdAuftragsNr_Ueberschrift, Me.txtKdAuftragsNr, Me.Line15, Me.lblFirma, Me.Label1, Me.Label2, Me.lblRechnungAn, Me.lblRgNr})
|
||||
Me.ReportHeader1.Height = 3.470997!
|
||||
Me.ReportHeader1.Height = 3.36683!
|
||||
Me.ReportHeader1.Name = "ReportHeader1"
|
||||
'
|
||||
'lblRgNrUeberschrift
|
||||
@@ -618,7 +624,7 @@ Partial Public Class rptRechnungDruck_MDM
|
||||
'
|
||||
Me.lblAbfertigungsNr.Height = 0.1574803!
|
||||
Me.lblAbfertigungsNr.HyperLink = Nothing
|
||||
Me.lblAbfertigungsNr.Left = 5.511811!
|
||||
Me.lblAbfertigungsNr.Left = 5.506693!
|
||||
Me.lblAbfertigungsNr.Name = "lblAbfertigungsNr"
|
||||
Me.lblAbfertigungsNr.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
|
||||
"-char-set: 1"
|
||||
@@ -642,7 +648,7 @@ Partial Public Class rptRechnungDruck_MDM
|
||||
'
|
||||
Me.lblAbfertigungsDatum.Height = 0.1574803!
|
||||
Me.lblAbfertigungsDatum.HyperLink = Nothing
|
||||
Me.lblAbfertigungsDatum.Left = 5.511812!
|
||||
Me.lblAbfertigungsDatum.Left = 5.506693!
|
||||
Me.lblAbfertigungsDatum.Name = "lblAbfertigungsDatum"
|
||||
Me.lblAbfertigungsDatum.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
|
||||
"-char-set: 1"
|
||||
@@ -666,12 +672,12 @@ Partial Public Class rptRechnungDruck_MDM
|
||||
'
|
||||
Me.lblLKWId.Height = 0.1574803!
|
||||
Me.lblLKWId.HyperLink = Nothing
|
||||
Me.lblLKWId.Left = 5.511812!
|
||||
Me.lblLKWId.Left = 5.506693!
|
||||
Me.lblLKWId.Name = "lblLKWId"
|
||||
Me.lblLKWId.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
|
||||
"-char-set: 1"
|
||||
Me.lblLKWId.Text = "123456789"
|
||||
Me.lblLKWId.Top = 1.659056!
|
||||
Me.lblLKWId.Top = 1.659055!
|
||||
Me.lblLKWId.Width = 1.958268!
|
||||
'
|
||||
'lblSachbearbeiterUeberschrift
|
||||
@@ -786,7 +792,7 @@ Partial Public Class rptRechnungDruck_MDM
|
||||
'
|
||||
Me.lblRechnung_UID.Height = 0.1574803!
|
||||
Me.lblRechnung_UID.HyperLink = Nothing
|
||||
Me.lblRechnung_UID.Left = 5.511811!
|
||||
Me.lblRechnung_UID.Left = 5.506693!
|
||||
Me.lblRechnung_UID.Name = "lblRechnung_UID"
|
||||
Me.lblRechnung_UID.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
|
||||
"-char-set: 1"
|
||||
@@ -1216,254 +1222,239 @@ Partial Public Class rptRechnungDruck_MDM
|
||||
'
|
||||
'GroupHeader4
|
||||
'
|
||||
Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblSteuerpflichtigUeberschrift, Me.lblLeistungUeberschrift, Me.lblAnzahlUeberschrift, Me.lblSteuerfreiUeberschrift, Me.Line4, Me.lblAbsenderUeberschrift, Me.lblAvisiererUeberschrift, Me.lblEmpfaengerUeberschrift, Me.txtAbsender, Me.txtEmpfaenger, Me.txtAvisierer, Me.lblZollbelegNr, Me.txtZollbelegNr, Me.lblWarenWertUeberschrift, Me.txtWarenwert, Me.txtGrenzeUeberschrift, Me.txtGrenze, Me.txtBef<EFBFBD>rderungsmittelUeberschrift, Me.txtBef<EFBFBD>rderungsmittel, Me.lblSendungsdatenUeberschrift, Me.txtSendungsdaten, Me.Line12, Me.Line13, Me.Line16})
|
||||
Me.GroupHeader4.Height = 1.627275!
|
||||
Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblLeistungUeberschrift, Me.lblSteuerfreiUeberschrift, Me.lbl_onlyZR_ZinsenUeberschrift, Me.lbl_onlyZR_ZahlungsDatUeberschrift, Me.lbl_onlyZR_FaelligUeberschrift, Me.lbl_onlyZR_ReDatUeberschrift, Me.lblSteuerpflichtigUeberschrift, Me.lblAnzahlUeberschrift, Me.Line4, Me.lblZollbelegNr, Me.txtZollbelegNr, Me.lblWarenWertUeberschrift, Me.txtWarenwert, Me.txtGrenzeUeberschrift, Me.txtGrenze, Me.txtBef<EFBFBD>rderungsmittelUeberschrift, Me.txtBef<EFBFBD>rderungsmittel, Me.lblSendungsdatenUeberschrift, Me.txtSendungsdaten, Me.Line12, Me.Line13, Me.Line16, Me.Line18, Me.lblAbsenderUeberschrift, Me.lblEmpfaengerUeberschrift, Me.txtAbsender, Me.txtEmpfaenger})
|
||||
Me.GroupHeader4.Height = 1.284646!
|
||||
Me.GroupHeader4.KeepTogether = True
|
||||
Me.GroupHeader4.Name = "GroupHeader4"
|
||||
'
|
||||
'lblSteuerpflichtigUeberschrift
|
||||
'
|
||||
Me.lblSteuerpflichtigUeberschrift.Height = 0.1511808!
|
||||
Me.lblSteuerpflichtigUeberschrift.HyperLink = Nothing
|
||||
Me.lblSteuerpflichtigUeberschrift.Left = 3.957867!
|
||||
Me.lblSteuerpflichtigUeberschrift.Name = "lblSteuerpflichtigUeberschrift"
|
||||
Me.lblSteuerpflichtigUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" &
|
||||
"r-set: 1"
|
||||
Me.lblSteuerpflichtigUeberschrift.Text = "Steuerpflichtig"
|
||||
Me.lblSteuerpflichtigUeberschrift.Top = 1.415504!
|
||||
Me.lblSteuerpflichtigUeberschrift.Width = 1.554331!
|
||||
'
|
||||
'lblLeistungUeberschrift
|
||||
'
|
||||
Me.lblLeistungUeberschrift.Height = 0.1511808!
|
||||
Me.lblLeistungUeberschrift.HyperLink = Nothing
|
||||
Me.lblLeistungUeberschrift.Left = 0.01455834!
|
||||
Me.lblLeistungUeberschrift.Left = 0.01417323!
|
||||
Me.lblLeistungUeberschrift.Name = "lblLeistungUeberschrift"
|
||||
Me.lblLeistungUeberschrift.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
|
||||
Me.lblLeistungUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
|
||||
"-set: 1"
|
||||
Me.lblLeistungUeberschrift.Text = "Leistung"
|
||||
Me.lblLeistungUeberschrift.Top = 1.415504!
|
||||
Me.lblLeistungUeberschrift.Width = 3.366143!
|
||||
'
|
||||
'lblAnzahlUeberschrift
|
||||
'
|
||||
Me.lblAnzahlUeberschrift.Height = 0.1511808!
|
||||
Me.lblAnzahlUeberschrift.HyperLink = Nothing
|
||||
Me.lblAnzahlUeberschrift.Left = 3.380701!
|
||||
Me.lblAnzahlUeberschrift.Name = "lblAnzahlUeberschrift"
|
||||
Me.lblAnzahlUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" &
|
||||
"r-set: 1"
|
||||
Me.lblAnzahlUeberschrift.Text = "Anzahl"
|
||||
Me.lblAnzahlUeberschrift.Top = 1.415504!
|
||||
Me.lblAnzahlUeberschrift.Width = 0.5771656!
|
||||
Me.lblLeistungUeberschrift.Top = 1.079528!
|
||||
Me.lblLeistungUeberschrift.Width = 0.9220559!
|
||||
'
|
||||
'lblSteuerfreiUeberschrift
|
||||
'
|
||||
Me.lblSteuerfreiUeberschrift.Height = 0.1511807!
|
||||
Me.lblSteuerfreiUeberschrift.HyperLink = Nothing
|
||||
Me.lblSteuerfreiUeberschrift.Left = 5.512198!
|
||||
Me.lblSteuerfreiUeberschrift.Left = 5.511813!
|
||||
Me.lblSteuerfreiUeberschrift.Name = "lblSteuerfreiUeberschrift"
|
||||
Me.lblSteuerfreiUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
|
||||
Me.lblSteuerfreiUeberschrift.Text = "Steuerfrei"
|
||||
Me.lblSteuerfreiUeberschrift.Top = 1.415504!
|
||||
Me.lblSteuerfreiUeberschrift.Top = 1.079528!
|
||||
Me.lblSteuerfreiUeberschrift.Width = 1.554331!
|
||||
'
|
||||
'lbl_onlyZR_ZinsenUeberschrift
|
||||
'
|
||||
Me.lbl_onlyZR_ZinsenUeberschrift.Height = 0.1511808!
|
||||
Me.lbl_onlyZR_ZinsenUeberschrift.HyperLink = Nothing
|
||||
Me.lbl_onlyZR_ZinsenUeberschrift.Left = 5.521663!
|
||||
Me.lbl_onlyZR_ZinsenUeberschrift.Name = "lbl_onlyZR_ZinsenUeberschrift"
|
||||
Me.lbl_onlyZR_ZinsenUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" &
|
||||
"r-set: 1"
|
||||
Me.lbl_onlyZR_ZinsenUeberschrift.Text = "Zinsen p.a."
|
||||
Me.lbl_onlyZR_ZinsenUeberschrift.Top = 1.079378!
|
||||
Me.lbl_onlyZR_ZinsenUeberschrift.Width = 0.8169294!
|
||||
'
|
||||
'lbl_onlyZR_ZahlungsDatUeberschrift
|
||||
'
|
||||
Me.lbl_onlyZR_ZahlungsDatUeberschrift.Height = 0.1511808!
|
||||
Me.lbl_onlyZR_ZahlungsDatUeberschrift.HyperLink = Nothing
|
||||
Me.lbl_onlyZR_ZahlungsDatUeberschrift.Left = 2.492528!
|
||||
Me.lbl_onlyZR_ZahlungsDatUeberschrift.Name = "lbl_onlyZR_ZahlungsDatUeberschrift"
|
||||
Me.lbl_onlyZR_ZahlungsDatUeberschrift.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
|
||||
Me.lbl_onlyZR_ZahlungsDatUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
|
||||
"-set: 1"
|
||||
Me.lbl_onlyZR_ZahlungsDatUeberschrift.Text = "Zahlung"
|
||||
Me.lbl_onlyZR_ZahlungsDatUeberschrift.Top = 1.079378!
|
||||
Me.lbl_onlyZR_ZahlungsDatUeberschrift.Visible = False
|
||||
Me.lbl_onlyZR_ZahlungsDatUeberschrift.Width = 0.9661421!
|
||||
'
|
||||
'lbl_onlyZR_FaelligUeberschrift
|
||||
'
|
||||
Me.lbl_onlyZR_FaelligUeberschrift.Height = 0.1511808!
|
||||
Me.lbl_onlyZR_FaelligUeberschrift.HyperLink = Nothing
|
||||
Me.lbl_onlyZR_FaelligUeberschrift.Left = 2.001584!
|
||||
Me.lbl_onlyZR_FaelligUeberschrift.Name = "lbl_onlyZR_FaelligUeberschrift"
|
||||
Me.lbl_onlyZR_FaelligUeberschrift.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
|
||||
Me.lbl_onlyZR_FaelligUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
|
||||
"-set: 1"
|
||||
Me.lbl_onlyZR_FaelligUeberschrift.Text = "F<EFBFBD>llig"
|
||||
Me.lbl_onlyZR_FaelligUeberschrift.Top = 1.079378!
|
||||
Me.lbl_onlyZR_FaelligUeberschrift.Visible = False
|
||||
Me.lbl_onlyZR_FaelligUeberschrift.Width = 0.490945!
|
||||
'
|
||||
'lbl_onlyZR_ReDatUeberschrift
|
||||
'
|
||||
Me.lbl_onlyZR_ReDatUeberschrift.Height = 0.1511807!
|
||||
Me.lbl_onlyZR_ReDatUeberschrift.HyperLink = Nothing
|
||||
Me.lbl_onlyZR_ReDatUeberschrift.Left = 0.9362291!
|
||||
Me.lbl_onlyZR_ReDatUeberschrift.Name = "lbl_onlyZR_ReDatUeberschrift"
|
||||
Me.lbl_onlyZR_ReDatUeberschrift.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
|
||||
Me.lbl_onlyZR_ReDatUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: center; text-justify: auto; ddo-ch" &
|
||||
"ar-set: 1"
|
||||
Me.lbl_onlyZR_ReDatUeberschrift.Text = "Datum"
|
||||
Me.lbl_onlyZR_ReDatUeberschrift.Top = 1.080166!
|
||||
Me.lbl_onlyZR_ReDatUeberschrift.Visible = False
|
||||
Me.lbl_onlyZR_ReDatUeberschrift.Width = 1.065354!
|
||||
'
|
||||
'lblSteuerpflichtigUeberschrift
|
||||
'
|
||||
Me.lblSteuerpflichtigUeberschrift.Height = 0.1511808!
|
||||
Me.lblSteuerpflichtigUeberschrift.HyperLink = Nothing
|
||||
Me.lblSteuerpflichtigUeberschrift.Left = 3.957482!
|
||||
Me.lblSteuerpflichtigUeberschrift.Name = "lblSteuerpflichtigUeberschrift"
|
||||
Me.lblSteuerpflichtigUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" &
|
||||
"r-set: 1"
|
||||
Me.lblSteuerpflichtigUeberschrift.Text = "Steuerpflichtig"
|
||||
Me.lblSteuerpflichtigUeberschrift.Top = 1.079528!
|
||||
Me.lblSteuerpflichtigUeberschrift.Width = 1.554331!
|
||||
'
|
||||
'lblAnzahlUeberschrift
|
||||
'
|
||||
Me.lblAnzahlUeberschrift.Height = 0.1511807!
|
||||
Me.lblAnzahlUeberschrift.HyperLink = Nothing
|
||||
Me.lblAnzahlUeberschrift.Left = 3.45867!
|
||||
Me.lblAnzahlUeberschrift.Name = "lblAnzahlUeberschrift"
|
||||
Me.lblAnzahlUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" &
|
||||
"r-set: 1"
|
||||
Me.lblAnzahlUeberschrift.Text = "Anzahl"
|
||||
Me.lblAnzahlUeberschrift.Top = 1.079528!
|
||||
Me.lblAnzahlUeberschrift.Width = 0.4988112!
|
||||
'
|
||||
'Line4
|
||||
'
|
||||
Me.Line4.Height = 0!
|
||||
Me.Line4.Left = 0.005503932!
|
||||
Me.Line4.Left = 0.005118821!
|
||||
Me.Line4.LineWeight = 1.0!
|
||||
Me.Line4.Name = "Line4"
|
||||
Me.Line4.Top = 1.566685!
|
||||
Me.Line4.Top = 1.230709!
|
||||
Me.Line4.Width = 7.475194!
|
||||
Me.Line4.X1 = 0.005503932!
|
||||
Me.Line4.X2 = 7.480698!
|
||||
Me.Line4.Y1 = 1.566685!
|
||||
Me.Line4.Y2 = 1.566685!
|
||||
'
|
||||
'lblAbsenderUeberschrift
|
||||
'
|
||||
Me.lblAbsenderUeberschrift.Height = 0.1574803!
|
||||
Me.lblAbsenderUeberschrift.HyperLink = Nothing
|
||||
Me.lblAbsenderUeberschrift.Left = 0!
|
||||
Me.lblAbsenderUeberschrift.Name = "lblAbsenderUeberschrift"
|
||||
Me.lblAbsenderUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" &
|
||||
"har-set: 1"
|
||||
Me.lblAbsenderUeberschrift.Text = "Absender:"
|
||||
Me.lblAbsenderUeberschrift.Top = 0.1732284!
|
||||
Me.lblAbsenderUeberschrift.Width = 0.9366142!
|
||||
'
|
||||
'lblAvisiererUeberschrift
|
||||
'
|
||||
Me.lblAvisiererUeberschrift.Height = 0.1574803!
|
||||
Me.lblAvisiererUeberschrift.HyperLink = Nothing
|
||||
Me.lblAvisiererUeberschrift.Left = 0!
|
||||
Me.lblAvisiererUeberschrift.Name = "lblAvisiererUeberschrift"
|
||||
Me.lblAvisiererUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" &
|
||||
"har-set: 1"
|
||||
Me.lblAvisiererUeberschrift.Text = "Avisierer:"
|
||||
Me.lblAvisiererUeberschrift.Top = 0.46!
|
||||
Me.lblAvisiererUeberschrift.Width = 0.9366142!
|
||||
'
|
||||
'lblEmpfaengerUeberschrift
|
||||
'
|
||||
Me.lblEmpfaengerUeberschrift.Height = 0.1574803!
|
||||
Me.lblEmpfaengerUeberschrift.HyperLink = Nothing
|
||||
Me.lblEmpfaengerUeberschrift.Left = 3.596!
|
||||
Me.lblEmpfaengerUeberschrift.Name = "lblEmpfaengerUeberschrift"
|
||||
Me.lblEmpfaengerUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" &
|
||||
"har-set: 1"
|
||||
Me.lblEmpfaengerUeberschrift.Text = "Empf<EFBFBD>nger:"
|
||||
Me.lblEmpfaengerUeberschrift.Top = 0.173!
|
||||
Me.lblEmpfaengerUeberschrift.Width = 0.9366142!
|
||||
'
|
||||
'txtAbsender
|
||||
'
|
||||
Me.txtAbsender.Height = 0.2720473!
|
||||
Me.txtAbsender.Left = 0.9366142!
|
||||
Me.txtAbsender.Name = "txtAbsender"
|
||||
Me.txtAbsender.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
|
||||
"-set: 1"
|
||||
Me.txtAbsender.Text = "VERAG Spedition AG" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "A 4975 Suben"
|
||||
Me.txtAbsender.Top = 0.1732285!
|
||||
Me.txtAbsender.Width = 2.659449!
|
||||
'
|
||||
'txtEmpfaenger
|
||||
'
|
||||
Me.txtEmpfaenger.Height = 0.2720473!
|
||||
Me.txtEmpfaenger.Left = 4.615614!
|
||||
Me.txtEmpfaenger.Name = "txtEmpfaenger"
|
||||
Me.txtEmpfaenger.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
|
||||
"-set: 1"
|
||||
Me.txtEmpfaenger.Text = "VERAG Spedition AG" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "A 4975 Suben"
|
||||
Me.txtEmpfaenger.Top = 0.173!
|
||||
Me.txtEmpfaenger.Width = 2.659449!
|
||||
'
|
||||
'txtAvisierer
|
||||
'
|
||||
Me.txtAvisierer.Height = 0.1570001!
|
||||
Me.txtAvisierer.Left = 0.937!
|
||||
Me.txtAvisierer.Name = "txtAvisierer"
|
||||
Me.txtAvisierer.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
|
||||
"-set: 1"
|
||||
Me.txtAvisierer.Text = "VERAG Spedition "
|
||||
Me.txtAvisierer.Top = 0.46!
|
||||
Me.txtAvisierer.Width = 2.659!
|
||||
Me.Line4.X1 = 0.005118821!
|
||||
Me.Line4.X2 = 7.480312!
|
||||
Me.Line4.Y1 = 1.230709!
|
||||
Me.Line4.Y2 = 1.230709!
|
||||
'
|
||||
'lblZollbelegNr
|
||||
'
|
||||
Me.lblZollbelegNr.Height = 0.1574803!
|
||||
Me.lblZollbelegNr.HyperLink = Nothing
|
||||
Me.lblZollbelegNr.Left = 0.0003858209!
|
||||
Me.lblZollbelegNr.Left = 0.0000007096678!
|
||||
Me.lblZollbelegNr.Name = "lblZollbelegNr"
|
||||
Me.lblZollbelegNr.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" &
|
||||
"har-set: 1"
|
||||
Me.lblZollbelegNr.Text = "Zollbeleg-Nr.:"
|
||||
Me.lblZollbelegNr.Top = 0.647!
|
||||
Me.lblZollbelegNr.Top = 0.2681103!
|
||||
Me.lblZollbelegNr.Width = 0.9366142!
|
||||
'
|
||||
'txtZollbelegNr
|
||||
'
|
||||
Me.txtZollbelegNr.Height = 0.1574803!
|
||||
Me.txtZollbelegNr.Left = 0.937!
|
||||
Me.txtZollbelegNr.Left = 0.9366149!
|
||||
Me.txtZollbelegNr.Name = "txtZollbelegNr"
|
||||
Me.txtZollbelegNr.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
|
||||
"-set: 1"
|
||||
Me.txtZollbelegNr.Text = "ATC1812345678"
|
||||
Me.txtZollbelegNr.Top = 0.647!
|
||||
Me.txtZollbelegNr.Top = 0.2681103!
|
||||
Me.txtZollbelegNr.Width = 2.659449!
|
||||
'
|
||||
'lblWarenWertUeberschrift
|
||||
'
|
||||
Me.lblWarenWertUeberschrift.Height = 0.1574803!
|
||||
Me.lblWarenWertUeberschrift.HyperLink = Nothing
|
||||
Me.lblWarenWertUeberschrift.Left = 0.0003858209!
|
||||
Me.lblWarenWertUeberschrift.Left = 0.0000007096678!
|
||||
Me.lblWarenWertUeberschrift.Name = "lblWarenWertUeberschrift"
|
||||
Me.lblWarenWertUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" &
|
||||
"har-set: 1"
|
||||
Me.lblWarenWertUeberschrift.Text = "Warenwert:"
|
||||
Me.lblWarenWertUeberschrift.Top = 0.8044803!
|
||||
Me.lblWarenWertUeberschrift.Top = 0.4255906!
|
||||
Me.lblWarenWertUeberschrift.Width = 0.9366142!
|
||||
'
|
||||
'txtWarenwert
|
||||
'
|
||||
Me.txtWarenwert.Height = 0.1574803!
|
||||
Me.txtWarenwert.Left = 0.937001!
|
||||
Me.txtWarenwert.Left = 0.9366159!
|
||||
Me.txtWarenwert.Name = "txtWarenwert"
|
||||
Me.txtWarenwert.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
|
||||
"-set: 1"
|
||||
Me.txtWarenwert.Text = "1.234,56 <20>"
|
||||
Me.txtWarenwert.Top = 0.8044803!
|
||||
Me.txtWarenwert.Top = 0.4255906!
|
||||
Me.txtWarenwert.Width = 2.659449!
|
||||
'
|
||||
'txtGrenzeUeberschrift
|
||||
'
|
||||
Me.txtGrenzeUeberschrift.Height = 0.1574803!
|
||||
Me.txtGrenzeUeberschrift.HyperLink = Nothing
|
||||
Me.txtGrenzeUeberschrift.Left = 3.596449!
|
||||
Me.txtGrenzeUeberschrift.Left = 3.596064!
|
||||
Me.txtGrenzeUeberschrift.Name = "txtGrenzeUeberschrift"
|
||||
Me.txtGrenzeUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" &
|
||||
"har-set: 1"
|
||||
Me.txtGrenzeUeberschrift.Text = "Ort der Leistung:"
|
||||
Me.txtGrenzeUeberschrift.Top = 0.647!
|
||||
Me.txtGrenzeUeberschrift.Top = 0.2681103!
|
||||
Me.txtGrenzeUeberschrift.Width = 1.020079!
|
||||
'
|
||||
'txtGrenze
|
||||
'
|
||||
Me.txtGrenze.Height = 0.1574803!
|
||||
Me.txtGrenze.Left = 4.616528!
|
||||
Me.txtGrenze.Left = 4.616142!
|
||||
Me.txtGrenze.Name = "txtGrenze"
|
||||
Me.txtGrenze.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
|
||||
"-set: 1"
|
||||
Me.txtGrenze.Text = "Suben Autobahngrenze"
|
||||
Me.txtGrenze.Top = 0.647!
|
||||
Me.txtGrenze.Top = 0.2681103!
|
||||
Me.txtGrenze.Width = 2.853938!
|
||||
'
|
||||
'txtBef<65>rderungsmittelUeberschrift
|
||||
'
|
||||
Me.txtBef<EFBFBD>rderungsmittelUeberschrift.Height = 0.1574803!
|
||||
Me.txtBef<EFBFBD>rderungsmittelUeberschrift.HyperLink = Nothing
|
||||
Me.txtBef<EFBFBD>rderungsmittelUeberschrift.Left = 3.596449!
|
||||
Me.txtBef<EFBFBD>rderungsmittelUeberschrift.Left = 3.596064!
|
||||
Me.txtBef<EFBFBD>rderungsmittelUeberschrift.Name = "txtBef<EFBFBD>rderungsmittelUeberschrift"
|
||||
Me.txtBef<EFBFBD>rderungsmittelUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" &
|
||||
"har-set: 1"
|
||||
Me.txtBef<EFBFBD>rderungsmittelUeberschrift.Text = "Bef<EFBFBD>rderungsmittel:"
|
||||
Me.txtBef<EFBFBD>rderungsmittelUeberschrift.Top = 0.8044803!
|
||||
Me.txtBef<EFBFBD>rderungsmittelUeberschrift.Top = 0.4255906!
|
||||
Me.txtBef<EFBFBD>rderungsmittelUeberschrift.Width = 1.020079!
|
||||
'
|
||||
'txtBef<65>rderungsmittel
|
||||
'
|
||||
Me.txtBef<EFBFBD>rderungsmittel.Height = 0.1574803!
|
||||
Me.txtBef<EFBFBD>rderungsmittel.Left = 4.616528!
|
||||
Me.txtBef<EFBFBD>rderungsmittel.Left = 4.616142!
|
||||
Me.txtBef<EFBFBD>rderungsmittel.Name = "txtBef<EFBFBD>rderungsmittel"
|
||||
Me.txtBef<EFBFBD>rderungsmittel.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
|
||||
"-set: 1"
|
||||
Me.txtBef<EFBFBD>rderungsmittel.Text = "SD 456 FD"
|
||||
Me.txtBef<EFBFBD>rderungsmittel.Top = 0.8044803!
|
||||
Me.txtBef<EFBFBD>rderungsmittel.Top = 0.4255906!
|
||||
Me.txtBef<EFBFBD>rderungsmittel.Width = 2.853938!
|
||||
'
|
||||
'lblSendungsdatenUeberschrift
|
||||
'
|
||||
Me.lblSendungsdatenUeberschrift.Height = 0.1574803!
|
||||
Me.lblSendungsdatenUeberschrift.HyperLink = Nothing
|
||||
Me.lblSendungsdatenUeberschrift.Left = 0.0003858209!
|
||||
Me.lblSendungsdatenUeberschrift.Left = 0.0000007096678!
|
||||
Me.lblSendungsdatenUeberschrift.Name = "lblSendungsdatenUeberschrift"
|
||||
Me.lblSendungsdatenUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" &
|
||||
"har-set: 1"
|
||||
Me.lblSendungsdatenUeberschrift.Text = "Sendungs-Daten:"
|
||||
Me.lblSendungsdatenUeberschrift.Top = 1.026921!
|
||||
Me.lblSendungsdatenUeberschrift.Top = 0.6480313!
|
||||
Me.lblSendungsdatenUeberschrift.Width = 0.9366142!
|
||||
'
|
||||
'txtSendungsdaten
|
||||
'
|
||||
Me.txtSendungsdaten.Height = 0.1574803!
|
||||
Me.txtSendungsdaten.Left = 0.937001!
|
||||
Me.txtSendungsdaten.Left = 0.9366159!
|
||||
Me.txtSendungsdaten.Name = "txtSendungsdaten"
|
||||
Me.txtSendungsdaten.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
|
||||
"-set: 1"
|
||||
Me.txtSendungsdaten.Text = "1 Pk. Testartikel; 1.234 kg"
|
||||
Me.txtSendungsdaten.Top = 1.026921!
|
||||
Me.txtSendungsdaten.Top = 0.6480313!
|
||||
Me.txtSendungsdaten.Width = 6.543701!
|
||||
'
|
||||
'Line12
|
||||
@@ -1481,35 +1472,94 @@ Partial Public Class rptRechnungDruck_MDM
|
||||
'
|
||||
'Line13
|
||||
'
|
||||
Me.Line13.Height = 0.204331!
|
||||
Me.Line13.Left = 7.478!
|
||||
Me.Line13.Height = 0.2043307!
|
||||
Me.Line13.Left = 7.476378!
|
||||
Me.Line13.LineWeight = 1.0!
|
||||
Me.Line13.Name = "Line13"
|
||||
Me.Line13.Top = 1.416!
|
||||
Me.Line13.Top = 1.080024!
|
||||
Me.Line13.Width = 0!
|
||||
Me.Line13.X1 = 7.478!
|
||||
Me.Line13.X2 = 7.478!
|
||||
Me.Line13.Y1 = 1.416!
|
||||
Me.Line13.Y2 = 1.620331!
|
||||
Me.Line13.X1 = 7.476378!
|
||||
Me.Line13.X2 = 7.476378!
|
||||
Me.Line13.Y1 = 1.080024!
|
||||
Me.Line13.Y2 = 1.284354!
|
||||
'
|
||||
'Line16
|
||||
'
|
||||
Me.Line16.Height = 0!
|
||||
Me.Line16.Left = 0.003141727!
|
||||
Me.Line16.Left = 0.002756616!
|
||||
Me.Line16.LineWeight = 1.0!
|
||||
Me.Line16.Name = "Line16"
|
||||
Me.Line16.Top = 1.415504!
|
||||
Me.Line16.Top = 1.079528!
|
||||
Me.Line16.Width = 7.475195!
|
||||
Me.Line16.X1 = 0.003141727!
|
||||
Me.Line16.X2 = 7.478337!
|
||||
Me.Line16.Y1 = 1.415504!
|
||||
Me.Line16.Y2 = 1.415504!
|
||||
Me.Line16.X1 = 0.002756616!
|
||||
Me.Line16.X2 = 7.477952!
|
||||
Me.Line16.Y1 = 1.079528!
|
||||
Me.Line16.Y2 = 1.079528!
|
||||
'
|
||||
'Line18
|
||||
'
|
||||
Me.Line18.Height = 0.2043306!
|
||||
Me.Line18.Left = 0.005118111!
|
||||
Me.Line18.LineWeight = 1.0!
|
||||
Me.Line18.Name = "Line18"
|
||||
Me.Line18.Top = 1.080315!
|
||||
Me.Line18.Width = 0!
|
||||
Me.Line18.X1 = 0.005118111!
|
||||
Me.Line18.X2 = 0.005118111!
|
||||
Me.Line18.Y1 = 1.080315!
|
||||
Me.Line18.Y2 = 1.284646!
|
||||
'
|
||||
'GroupFooter4
|
||||
'
|
||||
Me.GroupFooter4.Height = 0!
|
||||
Me.GroupFooter4.Name = "GroupFooter4"
|
||||
'
|
||||
'lblAbsenderUeberschrift
|
||||
'
|
||||
Me.lblAbsenderUeberschrift.Height = 0.1574803!
|
||||
Me.lblAbsenderUeberschrift.HyperLink = Nothing
|
||||
Me.lblAbsenderUeberschrift.Left = 0.019032!
|
||||
Me.lblAbsenderUeberschrift.Name = "lblAbsenderUeberschrift"
|
||||
Me.lblAbsenderUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" &
|
||||
"har-set: 1"
|
||||
Me.lblAbsenderUeberschrift.Text = "Absender:"
|
||||
Me.lblAbsenderUeberschrift.Top = 0.000228405!
|
||||
Me.lblAbsenderUeberschrift.Width = 0.9366139!
|
||||
'
|
||||
'lblEmpfaengerUeberschrift
|
||||
'
|
||||
Me.lblEmpfaengerUeberschrift.Height = 0.1574803!
|
||||
Me.lblEmpfaengerUeberschrift.HyperLink = Nothing
|
||||
Me.lblEmpfaengerUeberschrift.Left = 3.615032!
|
||||
Me.lblEmpfaengerUeberschrift.Name = "lblEmpfaengerUeberschrift"
|
||||
Me.lblEmpfaengerUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" &
|
||||
"har-set: 1"
|
||||
Me.lblEmpfaengerUeberschrift.Text = "Empf<EFBFBD>nger:"
|
||||
Me.lblEmpfaengerUeberschrift.Top = 0!
|
||||
Me.lblEmpfaengerUeberschrift.Width = 0.9366139!
|
||||
'
|
||||
'txtAbsender
|
||||
'
|
||||
Me.txtAbsender.Height = 0.2720473!
|
||||
Me.txtAbsender.Left = 0.9556459!
|
||||
Me.txtAbsender.Name = "txtAbsender"
|
||||
Me.txtAbsender.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
|
||||
"-set: 1"
|
||||
Me.txtAbsender.Text = "VERAG Spedition AG" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "A 4975 Suben"
|
||||
Me.txtAbsender.Top = 0.0002284944!
|
||||
Me.txtAbsender.Width = 2.659449!
|
||||
'
|
||||
'txtEmpfaenger
|
||||
'
|
||||
Me.txtEmpfaenger.Height = 0.2720473!
|
||||
Me.txtEmpfaenger.Left = 4.634646!
|
||||
Me.txtEmpfaenger.Name = "txtEmpfaenger"
|
||||
Me.txtEmpfaenger.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
|
||||
"-set: 1"
|
||||
Me.txtEmpfaenger.Text = "VERAG Spedition AG" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "A 4975 Suben"
|
||||
Me.txtEmpfaenger.Top = 0!
|
||||
Me.txtEmpfaenger.Width = 2.659449!
|
||||
'
|
||||
'rptRechnungDruck_MDM
|
||||
'
|
||||
Me.MasterReport = False
|
||||
@@ -1599,16 +1649,14 @@ Partial Public Class rptRechnungDruck_MDM
|
||||
CType(Me.txtHandlingATA, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lblHandlingATA, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lblSteuerpflichtigUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lblLeistungUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lblAnzahlUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lblSteuerfreiUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lblAbsenderUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lblAvisiererUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lblEmpfaengerUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtAbsender, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtEmpfaenger, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtAvisierer, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lbl_onlyZR_ZinsenUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lbl_onlyZR_ZahlungsDatUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lbl_onlyZR_FaelligUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lbl_onlyZR_ReDatUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lblSteuerpflichtigUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lblAnzahlUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lblZollbelegNr, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtZollbelegNr, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lblWarenWertUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
@@ -1619,6 +1667,10 @@ Partial Public Class rptRechnungDruck_MDM
|
||||
CType(Me.txtBef<EFBFBD>rderungsmittel, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lblSendungsdatenUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtSendungsdaten, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lblAbsenderUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lblEmpfaengerUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtAbsender, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtEmpfaenger, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
|
||||
End Sub
|
||||
@@ -1635,11 +1687,11 @@ Partial Public Class rptRechnungDruck_MDM
|
||||
Public WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
|
||||
Private WithEvents GroupHeader4 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
|
||||
Private WithEvents Line4 As GrapeCity.ActiveReports.SectionReportModel.Line
|
||||
Private WithEvents lblSteuerfreiUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Private WithEvents lblAnzahlUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Private WithEvents lblLeistungUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Public WithEvents lblSteuerfreiUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Public WithEvents lblAnzahlUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Public WithEvents lblLeistungUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Private WithEvents GroupFooter4 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
|
||||
Private WithEvents lblSteuerpflichtigUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Public WithEvents lblSteuerpflichtigUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Public WithEvents lblSteuerfrei As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Public WithEvents lblSteuerfreiGes As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line
|
||||
@@ -1659,9 +1711,6 @@ Partial Public Class rptRechnungDruck_MDM
|
||||
Public WithEvents lblSachbearbeiter As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Public WithEvents lblFirmenbuch As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Public WithEvents lblUID As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Public WithEvents txtAbsender As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtEmpfaenger As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtAvisierer As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtZollbelegNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtWarenwert As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtGrenze As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
@@ -1694,9 +1743,6 @@ Partial Public Class rptRechnungDruck_MDM
|
||||
Public WithEvents lblFirmaWeb As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Public WithEvents lblRechnung_UID_Ueberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Public WithEvents lblRechnung_Steuernummer_Ueberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Public WithEvents lblAbsenderUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Public WithEvents lblAvisiererUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Public WithEvents lblEmpfaengerUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Public WithEvents txtGrenzeUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Private WithEvents Line6 As GrapeCity.ActiveReports.SectionReportModel.Line
|
||||
Private WithEvents Line12 As GrapeCity.ActiveReports.SectionReportModel.Line
|
||||
@@ -1731,4 +1777,13 @@ Partial Public Class rptRechnungDruck_MDM
|
||||
Public WithEvents Line15 As GrapeCity.ActiveReports.SectionReportModel.Line
|
||||
Public WithEvents txtBank3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents SubReport As GrapeCity.ActiveReports.SectionReportModel.SubReport
|
||||
Public WithEvents lbl_onlyZR_FaelligUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Public WithEvents lbl_onlyZR_ReDatUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Public WithEvents lbl_onlyZR_ZahlungsDatUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Public WithEvents lbl_onlyZR_ZinsenUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Private WithEvents Line18 As GrapeCity.ActiveReports.SectionReportModel.Line
|
||||
Public WithEvents lblAbsenderUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Public WithEvents lblEmpfaengerUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Public WithEvents txtAbsender As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtEmpfaenger As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
End Class
|
||||
|
||||
@@ -3,6 +3,9 @@ Imports GrapeCity.ActiveReports.Document
|
||||
|
||||
Public Class rptRechnungDruck_MDM
|
||||
Public _LAN = ""
|
||||
Dim _OPTION = ""
|
||||
Dim _FIRMAID As Integer = -1
|
||||
|
||||
Sub New()
|
||||
InitializeComponent()
|
||||
End Sub
|
||||
@@ -12,12 +15,24 @@ Public Class rptRechnungDruck_MDM
|
||||
Me._LAN = _LAN
|
||||
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
End Sub
|
||||
|
||||
|
||||
Sub New(_LAN, _OPTION, _FIRMAID)
|
||||
' Dieser Aufruf ist f<>r den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
Me._LAN = _LAN
|
||||
Me._OPTION = _OPTION
|
||||
Me._FIRMAID = _FIRMAID
|
||||
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub rptRechnungDruck_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
|
||||
If _LAN.replace("DE", "") <> "" Then
|
||||
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.ReportHeader1.Controls, _LAN, "rptRechnungDruck_MDM")
|
||||
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.ReportFooter1.Controls, _LAN, "rptRechnungDruck_MDM")
|
||||
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.GroupHeader4.Controls, _LAN, "rptRechnungDruck_MDM")
|
||||
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.PageFooter.Controls, _LAN, "rptRechnungDruck_MDM")
|
||||
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.ReportHeader1.Controls, _LAN, "rptRechnungDruck_MDM", _OPTION, _FIRMAID)
|
||||
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.ReportFooter1.Controls, _LAN, "rptRechnungDruck_MDM", _OPTION, _FIRMAID)
|
||||
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.GroupHeader4.Controls, _LAN, "rptRechnungDruck_MDM", _OPTION, _FIRMAID)
|
||||
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.PageFooter.Controls, _LAN, "rptRechnungDruck_MDM", _OPTION, _FIRMAID)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -26,6 +26,7 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
|
||||
Me.txtTage = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtZinsen = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtVZ = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtFaellig = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
|
||||
Me.GroupHeader4 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
|
||||
Me.lblReNr = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
@@ -35,8 +36,10 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
|
||||
Me.lblTage = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.lblZinsen = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.lblVZ = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.GroupFooter4 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
|
||||
Me.Line18 = New GrapeCity.ActiveReports.SectionReportModel.Line()
|
||||
Me.txt_Anmerkung = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
CType(Me.txtREnr, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtReDat, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtZE, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
@@ -44,6 +47,7 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
|
||||
CType(Me.txtTage, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtZinsen, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtVZ, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtFaellig, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lblReNr, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lblReDat, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lblReBetrag, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
@@ -51,6 +55,8 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
|
||||
CType(Me.lblTage, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lblZinsen, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lblVZ, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txt_Anmerkung, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
'
|
||||
'PageHeader
|
||||
@@ -61,7 +67,7 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
|
||||
'Detail
|
||||
'
|
||||
Me.Detail.CanGrow = False
|
||||
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtREnr, Me.txtReDat, Me.txtZE, Me.txtReBetrag, Me.txtTage, Me.txtZinsen, Me.txtVZ})
|
||||
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txt_Anmerkung, Me.txtREnr, Me.txtReDat, Me.txtZE, Me.txtReBetrag, Me.txtTage, Me.txtZinsen, Me.txtVZ, Me.txtFaellig})
|
||||
Me.Detail.Height = 0.1755249!
|
||||
Me.Detail.KeepTogether = True
|
||||
Me.Detail.Name = "Detail"
|
||||
@@ -72,76 +78,95 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
|
||||
Me.txtREnr.Left = 0.005119062!
|
||||
Me.txtREnr.Name = "txtREnr"
|
||||
Me.txtREnr.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
|
||||
Me.txtREnr.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0"
|
||||
Me.txtREnr.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: center; ddo-ch" &
|
||||
"ar-set: 0"
|
||||
Me.txtREnr.Text = "-"
|
||||
Me.txtREnr.Top = 0!
|
||||
Me.txtREnr.Width = 1.562204!
|
||||
Me.txtREnr.Width = 0.8244095!
|
||||
'
|
||||
'txtReDat
|
||||
'
|
||||
Me.txtReDat.Height = 0.1338583!
|
||||
Me.txtReDat.Left = 1.567323!
|
||||
Me.txtReDat.Left = 0.9232284!
|
||||
Me.txtReDat.Name = "txtReDat"
|
||||
Me.txtReDat.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
|
||||
Me.txtReDat.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0"
|
||||
Me.txtReDat.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: center; ddo-ch" &
|
||||
"ar-set: 0"
|
||||
Me.txtReDat.Text = "-"
|
||||
Me.txtReDat.Top = 0!
|
||||
Me.txtReDat.Width = 1.562204!
|
||||
Me.txtReDat.Width = 0.8657481!
|
||||
'
|
||||
'txtZE
|
||||
'
|
||||
Me.txtZE.Height = 0.1338583!
|
||||
Me.txtZE.Left = 4.691732!
|
||||
Me.txtZE.Left = 2.405118!
|
||||
Me.txtZE.Name = "txtZE"
|
||||
Me.txtZE.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
|
||||
Me.txtZE.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0"
|
||||
Me.txtZE.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: center; ddo-ch" &
|
||||
"ar-set: 0"
|
||||
Me.txtZE.Text = "-"
|
||||
Me.txtZE.Top = 0!
|
||||
Me.txtZE.Width = 0.8539373!
|
||||
Me.txtZE.Width = 0.9661418!
|
||||
'
|
||||
'txtReBetrag
|
||||
'
|
||||
Me.txtReBetrag.Height = 0.1338583!
|
||||
Me.txtReBetrag.Left = 3.129528!
|
||||
Me.txtReBetrag.Left = 3.948426!
|
||||
Me.txtReBetrag.Name = "txtReBetrag"
|
||||
Me.txtReBetrag.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
|
||||
Me.txtReBetrag.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0"
|
||||
Me.txtReBetrag.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: right; ddo-cha" &
|
||||
"r-set: 0"
|
||||
Me.txtReBetrag.Text = "-"
|
||||
Me.txtReBetrag.Top = 0!
|
||||
Me.txtReBetrag.Width = 1.562204!
|
||||
Me.txtReBetrag.Width = 0.9708654!
|
||||
'
|
||||
'txtTage
|
||||
'
|
||||
Me.txtTage.Height = 0.1338583!
|
||||
Me.txtTage.Left = 5.54567!
|
||||
Me.txtTage.Left = 3.37126!
|
||||
Me.txtTage.Name = "txtTage"
|
||||
Me.txtTage.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
|
||||
Me.txtTage.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0"
|
||||
Me.txtTage.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: right; ddo-cha" &
|
||||
"r-set: 0"
|
||||
Me.txtTage.Text = "-"
|
||||
Me.txtTage.Top = 0!
|
||||
Me.txtTage.Width = 0.6039373!
|
||||
Me.txtTage.Width = 0.5771654!
|
||||
'
|
||||
'txtZinsen
|
||||
'
|
||||
Me.txtZinsen.Height = 0.1338583!
|
||||
Me.txtZinsen.Left = 6.149607!
|
||||
Me.txtZinsen.Left = 6.319685!
|
||||
Me.txtZinsen.Name = "txtZinsen"
|
||||
Me.txtZinsen.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
|
||||
Me.txtZinsen.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0"
|
||||
Me.txtZinsen.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: right; ddo-cha" &
|
||||
"r-set: 0"
|
||||
Me.txtZinsen.Text = "-"
|
||||
Me.txtZinsen.Top = 0!
|
||||
Me.txtZinsen.Width = 0.6039373!
|
||||
Me.txtZinsen.Width = 0.7374016!
|
||||
'
|
||||
'txtVZ
|
||||
'
|
||||
Me.txtVZ.Height = 0.1338583!
|
||||
Me.txtVZ.Left = 6.753544!
|
||||
Me.txtVZ.Left = 5.502756!
|
||||
Me.txtVZ.Name = "txtVZ"
|
||||
Me.txtVZ.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
|
||||
Me.txtVZ.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0"
|
||||
Me.txtVZ.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: center; ddo-ch" &
|
||||
"ar-set: 0"
|
||||
Me.txtVZ.Text = "-"
|
||||
Me.txtVZ.Top = 0!
|
||||
Me.txtVZ.Width = 0.6988189!
|
||||
Me.txtVZ.Width = 0.8169292!
|
||||
'
|
||||
'txtFaellig
|
||||
'
|
||||
Me.txtFaellig.Height = 0.1338583!
|
||||
Me.txtFaellig.Left = 1.788977!
|
||||
Me.txtFaellig.Name = "txtFaellig"
|
||||
Me.txtFaellig.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
|
||||
Me.txtFaellig.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: center; ddo-ch" &
|
||||
"ar-set: 0"
|
||||
Me.txtFaellig.Text = "-"
|
||||
Me.txtFaellig.Top = 0!
|
||||
Me.txtFaellig.Width = 0.6161416!
|
||||
'
|
||||
'PageFooter
|
||||
'
|
||||
@@ -150,10 +175,11 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
|
||||
'
|
||||
'GroupHeader4
|
||||
'
|
||||
Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblReNr, Me.lblReDat, Me.lblReBetrag, Me.lblZahlungsdat, Me.lblTage, Me.lblZinsen, Me.lblVZ})
|
||||
Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblReNr, Me.lblReDat, Me.lblReBetrag, Me.lblZahlungsdat, Me.lblTage, Me.lblZinsen, Me.lblVZ, Me.Label1})
|
||||
Me.GroupHeader4.Height = 0.1433071!
|
||||
Me.GroupHeader4.KeepTogether = True
|
||||
Me.GroupHeader4.Name = "GroupHeader4"
|
||||
Me.GroupHeader4.Visible = False
|
||||
'
|
||||
'lblReNr
|
||||
'
|
||||
@@ -165,79 +191,99 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
|
||||
"har-set: 0"
|
||||
Me.lblReNr.Text = "RechnungsNr"
|
||||
Me.lblReNr.Top = 0!
|
||||
Me.lblReNr.Width = 1.562205!
|
||||
Me.lblReNr.Visible = False
|
||||
Me.lblReNr.Width = 0.8244095!
|
||||
'
|
||||
'lblReDat
|
||||
'
|
||||
Me.lblReDat.Height = 0.1433071!
|
||||
Me.lblReDat.HyperLink = Nothing
|
||||
Me.lblReDat.Left = 1.567323!
|
||||
Me.lblReDat.Left = 0.8295276!
|
||||
Me.lblReDat.Name = "lblReDat"
|
||||
Me.lblReDat.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" &
|
||||
"har-set: 0"
|
||||
Me.lblReDat.Text = "Rechnungsdatum"
|
||||
Me.lblReDat.Top = 0!
|
||||
Me.lblReDat.Width = 1.562205!
|
||||
Me.lblReDat.Visible = False
|
||||
Me.lblReDat.Width = 1.084646!
|
||||
'
|
||||
'lblReBetrag
|
||||
'
|
||||
Me.lblReBetrag.Height = 0.1433071!
|
||||
Me.lblReBetrag.HyperLink = Nothing
|
||||
Me.lblReBetrag.Left = 3.129528!
|
||||
Me.lblReBetrag.Left = 3.948426!
|
||||
Me.lblReBetrag.Name = "lblReBetrag"
|
||||
Me.lblReBetrag.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" &
|
||||
"har-set: 0"
|
||||
Me.lblReBetrag.Text = "Rechnungsbetrag"
|
||||
Me.lblReBetrag.Text = "Zahlungsbetrag"
|
||||
Me.lblReBetrag.Top = 0!
|
||||
Me.lblReBetrag.Width = 1.562205!
|
||||
Me.lblReBetrag.Visible = False
|
||||
Me.lblReBetrag.Width = 1.554331!
|
||||
'
|
||||
'lblZahlungsdat
|
||||
'
|
||||
Me.lblZahlungsdat.Height = 0.1433071!
|
||||
Me.lblZahlungsdat.HyperLink = Nothing
|
||||
Me.lblZahlungsdat.Left = 4.691732!
|
||||
Me.lblZahlungsdat.Left = 2.405118!
|
||||
Me.lblZahlungsdat.Name = "lblZahlungsdat"
|
||||
Me.lblZahlungsdat.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" &
|
||||
"har-set: 0"
|
||||
Me.lblZahlungsdat.Text = "Zahlungsdatum"
|
||||
Me.lblZahlungsdat.Top = 0!
|
||||
Me.lblZahlungsdat.Width = 0.8539371!
|
||||
Me.lblZahlungsdat.Visible = False
|
||||
Me.lblZahlungsdat.Width = 0.9661418!
|
||||
'
|
||||
'lblTage
|
||||
'
|
||||
Me.lblTage.Height = 0.1433071!
|
||||
Me.lblTage.HyperLink = Nothing
|
||||
Me.lblTage.Left = 5.518111!
|
||||
Me.lblTage.Left = 3.37126!
|
||||
Me.lblTage.Name = "lblTage"
|
||||
Me.lblTage.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" &
|
||||
"har-set: 0"
|
||||
Me.lblTage.Text = "Tage"
|
||||
Me.lblTage.Top = 0!
|
||||
Me.lblTage.Width = 0.6314961!
|
||||
Me.lblTage.Visible = False
|
||||
Me.lblTage.Width = 0.5771654!
|
||||
'
|
||||
'lblZinsen
|
||||
'
|
||||
Me.lblZinsen.Height = 0.1433071!
|
||||
Me.lblZinsen.HyperLink = Nothing
|
||||
Me.lblZinsen.Left = 6.149607!
|
||||
Me.lblZinsen.Left = 6.319685!
|
||||
Me.lblZinsen.Name = "lblZinsen"
|
||||
Me.lblZinsen.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" &
|
||||
"har-set: 0"
|
||||
Me.lblZinsen.Text = "Zinsen"
|
||||
Me.lblZinsen.Text = "Zinsen p.a."
|
||||
Me.lblZinsen.Top = 0!
|
||||
Me.lblZinsen.Width = 0.6039373!
|
||||
Me.lblZinsen.Visible = False
|
||||
Me.lblZinsen.Width = 0.7374016!
|
||||
'
|
||||
'lblVZ
|
||||
'
|
||||
Me.lblVZ.Height = 0.1433071!
|
||||
Me.lblVZ.HyperLink = Nothing
|
||||
Me.lblVZ.Left = 6.753544!
|
||||
Me.lblVZ.Left = 5.502756!
|
||||
Me.lblVZ.Name = "lblVZ"
|
||||
Me.lblVZ.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" &
|
||||
"har-set: 0"
|
||||
Me.lblVZ.Text = "Verzugszinsen"
|
||||
Me.lblVZ.Top = 0!
|
||||
Me.lblVZ.Width = 0.6988189!
|
||||
Me.lblVZ.Visible = False
|
||||
Me.lblVZ.Width = 0.8169292!
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.Height = 0.1433071!
|
||||
Me.Label1.HyperLink = Nothing
|
||||
Me.Label1.Left = 1.914173!
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" &
|
||||
"har-set: 0"
|
||||
Me.Label1.Text = "F<EFBFBD>llig"
|
||||
Me.Label1.Top = 0!
|
||||
Me.Label1.Visible = False
|
||||
Me.Label1.Width = 0.4909448!
|
||||
'
|
||||
'GroupFooter4
|
||||
'
|
||||
@@ -259,6 +305,19 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
|
||||
Me.Line18.Y1 = 0.09375003!
|
||||
Me.Line18.Y2 = 0.0937008!
|
||||
'
|
||||
'txt_Anmerkung
|
||||
'
|
||||
Me.txt_Anmerkung.Height = 0.1338583!
|
||||
Me.txt_Anmerkung.Left = 1.788977!
|
||||
Me.txt_Anmerkung.Name = "txt_Anmerkung"
|
||||
Me.txt_Anmerkung.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
|
||||
Me.txt_Anmerkung.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: center; ddo-ch" &
|
||||
"ar-set: 0"
|
||||
Me.txt_Anmerkung.Text = "-"
|
||||
Me.txt_Anmerkung.Top = 0.02083332!
|
||||
Me.txt_Anmerkung.Visible = False
|
||||
Me.txt_Anmerkung.Width = 3.713779!
|
||||
'
|
||||
'rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
|
||||
'
|
||||
Me.MasterReport = False
|
||||
@@ -287,6 +346,7 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
|
||||
CType(Me.txtTage, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtZinsen, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtVZ, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtFaellig, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lblReNr, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lblReDat, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lblReBetrag, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
@@ -294,6 +354,8 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
|
||||
CType(Me.lblTage, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lblZinsen, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lblVZ, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txt_Anmerkung, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
|
||||
End Sub
|
||||
@@ -315,4 +377,7 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
|
||||
Private WithEvents lblTage As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Private WithEvents lblZinsen As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Private WithEvents lblVZ As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Public WithEvents txtFaellig As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Public WithEvents txt_Anmerkung As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
End Class
|
||||
|
||||
@@ -1,15 +1,20 @@
|
||||
Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
|
||||
Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
|
||||
Dim _LAN = ""
|
||||
Dim RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang = Nothing
|
||||
Dim LeistungsText As String
|
||||
Dim Anzahl As Integer
|
||||
Dim Betrag As Double
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Sub New(_LAN As String, RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, LeistungsText As String)
|
||||
' Dieser Aufruf ist f<>r den Designer erforderlich.
|
||||
Sub New(_LAN As String, RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, LeistungsText As String, Anzahl As Integer, Betrag As Double)
|
||||
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
Me._LAN = _LAN
|
||||
Me.RECHNUNG = RECHNUNG
|
||||
Me.LeistungsText = LeistungsText
|
||||
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
Me.Anzahl = Anzahl
|
||||
Me.Betrag = Betrag
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
End Sub
|
||||
Private Sub rptRechnungDruck_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
|
||||
If _LAN.replace("DE", "") <> "" Then
|
||||
@@ -29,15 +34,33 @@ Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
|
||||
txtTage.Text = ""
|
||||
txtZinsen.Text = ""
|
||||
txtVZ.Text = ""
|
||||
txtFaellig.Text = ""
|
||||
txt_Anmerkung.Text = ""
|
||||
|
||||
If Me.Fields.Item("clmnReNr") IsNot Nothing AndAlso Me.Fields.Item("clmnReNr").Value IsNot Nothing Then txtREnr.Text &= Me.Fields.Item("clmnReNr").Value.ToString
|
||||
If Me.Fields.Item("clmnReDatum") IsNot Nothing AndAlso Me.Fields.Item("clmnReDatum").Value IsNot Nothing AndAlso IsDate(Me.Fields.Item("clmnReDatum").Value) Then txtReDat.Text &= CDate(Me.Fields.Item("clmnReDatum").Value).ToShortDateString
|
||||
If Me.Fields.Item("clmnReBetrag") IsNot Nothing AndAlso Me.Fields.Item("clmnReBetrag").Value IsNot Nothing AndAlso CDbl(Me.Fields.Item("clmnReBetrag").Value) <> 0 Then txtReBetrag.Text &= Me.Fields.Item("clmnReBetrag").Value.ToString()
|
||||
|
||||
If Me.Fields.Item("clmnZE") IsNot Nothing AndAlso Me.Fields.Item("clmnZE").Value IsNot Nothing AndAlso IsDate(Me.Fields.Item("clmnZE").Value) Then txtZE.Text &= CDate(Me.Fields.Item("clmnZE").Value).ToShortDateString
|
||||
If Me.Fields.Item("clmnReBetrag") IsNot Nothing AndAlso Me.Fields.Item("clmnReBetrag").Value IsNot Nothing AndAlso IsNumeric(Me.Fields.Item("clmnReBetrag").Value) AndAlso CDbl(Me.Fields.Item("clmnReBetrag").Value) <> 0 Then txtReBetrag.Text &= CDbl(Me.Fields.Item("clmnReBetrag").Value).ToString("N2")
|
||||
If Me.Fields.Item("clmnFaellig") IsNot Nothing AndAlso Me.Fields.Item("clmnFaellig").Value IsNot Nothing AndAlso IsDate(Me.Fields.Item("clmnFaellig").Value) Then txtFaellig.Text &= CDate(Me.Fields.Item("clmnFaellig").Value).ToShortDateString
|
||||
If Me.Fields.Item("clmnZE") IsNot Nothing AndAlso Me.Fields.Item("clmnZE").Value IsNot Nothing Then
|
||||
If IsDate(Me.Fields.Item("clmnZE").Value) Then
|
||||
txtZE.Text &= CDate(Me.Fields.Item("clmnZE").Value).ToShortDateString
|
||||
txt_Anmerkung.Visible = False
|
||||
txtZE.Visible = True
|
||||
txtFaellig.Visible = True
|
||||
txtTage.Visible = True
|
||||
txtReBetrag.Visible = True
|
||||
Else
|
||||
txt_Anmerkung.Text &= Me.Fields.Item("clmnZE").Value
|
||||
txt_Anmerkung.Visible = True
|
||||
txtZE.Visible = False
|
||||
txtFaellig.Visible = False
|
||||
txtTage.Visible = False
|
||||
txtReBetrag.Visible = False
|
||||
End If
|
||||
End If
|
||||
If Me.Fields.Item("clmnTage") IsNot Nothing AndAlso Me.Fields.Item("clmnTage").Value IsNot Nothing Then txtTage.Text &= Me.Fields.Item("clmnTage").Value.ToString
|
||||
If Me.Fields.Item("clmnZinsen") IsNot Nothing AndAlso Me.Fields.Item("clmnZinsen").Value IsNot Nothing AndAlso CDbl(Me.Fields.Item("clmnZinsen").Value) <> 0 Then txtZinsen.Text &= Me.Fields.Item("clmnZinsen").Value.ToString()
|
||||
If Me.Fields.Item("clmnVZ") IsNot Nothing AndAlso Me.Fields.Item("clmnVZ").Value IsNot Nothing Then txtVZ.Text &= Me.Fields.Item("clmnVZ").Value.ToString
|
||||
If Me.Fields.Item("clmnZinsen") IsNot Nothing AndAlso Me.Fields.Item("clmnZinsen").Value IsNot Nothing AndAlso IsNumeric(Me.Fields.Item("clmnZinsen").Value) AndAlso CDbl(Me.Fields.Item("clmnZinsen").Value) <> 0 Then txtZinsen.Text &= CDbl(Me.Fields.Item("clmnZinsen").Value).ToString("N2")
|
||||
If Me.Fields.Item("clmnVZ") IsNot Nothing AndAlso Me.Fields.Item("clmnVZ").Value IsNot Nothing AndAlso IsNumeric(Me.Fields.Item("clmnVZ").Value) Then txtVZ.Text &= Me.Fields.Item("clmnVZ").Value.ToString() & " %"
|
||||
|
||||
End If
|
||||
End Sub
|
||||
@@ -55,19 +78,42 @@ Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
|
||||
dt.Columns.Add("clmnTage")
|
||||
dt.Columns.Add("clmnZinsen")
|
||||
dt.Columns.Add("clmnVZ")
|
||||
dt.Columns.Add("clmnFaellig")
|
||||
|
||||
RECHNUNG.ORDER_POSITIONEN()
|
||||
|
||||
For Each POS In RECHNUNG.POSITIONEN
|
||||
If RECHNUNG.POSITIONEN.Any() Then
|
||||
|
||||
If Anzahl > 0 AndAlso Betrag < 0 Then
|
||||
|
||||
Dim Rabatt As String = "Rabatt"
|
||||
|
||||
Select Case RECHNUNG.RechnungSprache
|
||||
Case "EN" : Rabatt = "Discount"
|
||||
Case "RO" : Rabatt = "Reducere"
|
||||
Case "TR" : Rabatt = "İndirim"
|
||||
Case Else
|
||||
Rabatt = "Rabatt"
|
||||
|
||||
End Select
|
||||
|
||||
|
||||
dt.Rows.Add("0", Rabatt, RECHNUNG.Abfertigungsdatum.ToShortDateString, "", "", LeistungsText.ToString, "", Betrag.ToString, "", "")
|
||||
'dt.Rows.Add(rg.Item("clmnID"), rg.Item("clmnReNr"), rg.Item("clmnReDatum"), rg.Item("clmnAbfNr"), rg.Item("clmnReBetrag"), rg.Item("clmnZE"), rg.Item("clmnTage"), rg.Item("clmnZinsen"), rg.Item("clmnVZ"), rg.Item("clmnFaellig"))
|
||||
|
||||
Else
|
||||
|
||||
Dim dtTemp As DataTable
|
||||
dtTemp = SQL.loadDgvBySql_Param("select [id] as clmnID,[belegNr] as clmnReNr,[buchungstext] as clmnAbfNr,[zinssatz] clmnVZ,[belegZahlungsziel],[ueberschreitungInTagen] clmnTage,[zinsbetrag] clmnZinsen,[belegDatum] as clmnReDatum,[zahlungsBetrag] as clmnReBetrag,[zahlungDatum] as clmnZE from tblMDM_Zinsberechnung where RK_ID =" & POS.RK_ID & " and id = " & POS.NachzahlungsID & " AND buchungstext like '" & LeistungsText.Trim() & "%'", "FMZOLL")
|
||||
dtTemp = SQL.loadDgvBySql_Param("select [id] as clmnID,[belegNr] as clmnReNr,[buchungstext] as clmnAbfNr,[zinssatz] clmnVZ,[belegZahlungsziel],[ueberschreitungInTagen] clmnTage,[zinsbetrag] clmnZinsen,[belegDatum] as clmnReDatum,[zahlungsBetrag] as clmnReBetrag,[zahlungDatum] as clmnZE, [faelligkeitsDatum] as clmnFaellig from tblMDM_Zinsberechnung where RK_ID =" & RECHNUNG.RK_ID & " and FORMAT(id, '00000') +'-'+ buchungstext like '" & LeistungsText.Trim() & "%'", "FMZOLL")
|
||||
|
||||
For Each rg As DataRow In dtTemp.Rows
|
||||
dt.Rows.Add(rg.Item("clmnID"), rg.Item("clmnReNr"), rg.Item("clmnReDatum"), rg.Item("clmnAbfNr"), rg.Item("clmnReBetrag"), rg.Item("clmnZE"), rg.Item("clmnTage"), rg.Item("clmnZinsen"), rg.Item("clmnVZ"))
|
||||
dt.Rows.Add(rg.Item("clmnID"), rg.Item("clmnReNr"), rg.Item("clmnReDatum"), rg.Item("clmnAbfNr"), rg.Item("clmnReBetrag"), rg.Item("clmnZE"), rg.Item("clmnTage"), rg.Item("clmnZinsen"), rg.Item("clmnVZ"), rg.Item("clmnFaellig"))
|
||||
Next
|
||||
|
||||
Next
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
Me.DataSource = dt
|
||||
|
||||
|
||||
@@ -1885,8 +1885,10 @@ Public Class usrCntlFaktAbrechnung
|
||||
If FIRMA.Firma_ID = 19 AndAlso SPEDBUCH.ErfassungsNr <> "" AndAlso SPEDBUCH.ErfassungsNr > 0 AndAlso (SPEDBUCH.Abfertigungsart = 114 Or SPEDBUCH.Abfertigungsart = 115 Or SPEDBUCH.Abfertigungsart = 10) Then
|
||||
|
||||
Dim func As New cMDMFunctionsAllgemein()
|
||||
Dim dt = SQL.loadDgvBySql("SELECT UStVPo_daId, UStVPo_ID,UStVPo_SchnittstellenNr, UStVPo_ReNr, UStVPo_ReDat FROM tblUStVPositionen where UStVAn_ID='" & SPEDBUCH.ErfassungsNr & "' AND UStVPo_SchnittstellenNr <> 1 order by UStVPo_ID", "FMZOLL")
|
||||
Dim dt = SQL.loadDgvBySql("SELECT UStVPo_daId, UStVPo_ID,UStVPo_SchnittstellenNr, UStVPo_ReNr, UStVPo_ReDat FROM tblUStVPositionen where UStVAn_ID='" & SPEDBUCH.ErfassungsNr & "' AND UStVPo_SchnittstellenNr <> 1 " & IIf(isVZ, " And UStVPo_VZ = 1 And UStVPo_VZ_RKID Is null", "") & " order by UStVPo_ID", "FMZOLL")
|
||||
Dim USTV As New cUSTVAntrag(SPEDBUCH.ErfassungsNr)
|
||||
Dim Antrag_LandKz = ""
|
||||
If USTV.UStVAn_ID > 0 Then Antrag_LandKz = SQL.DLookup("LandKz", "[Länderverzeichnis für die Außenhandelsstatistik]", "Landnr='" & USTV.UStVAn_LandNr & "'", "FMZOLL")
|
||||
|
||||
'soll immer alle POS bekommen! laut Lidya! 28.04.2025 - aber nicht im Excel-Format sondern als PDF-Batinic 15.05.2025
|
||||
Dim dtPOSList As New DataTable
|
||||
@@ -1977,12 +1979,13 @@ Public Class usrCntlFaktAbrechnung
|
||||
If dt IsNot Nothing Then
|
||||
For Each r In dt.Rows
|
||||
|
||||
'WARUM NOCHMAL not null??? -> weil laut lydia erst ab 2025 (und ab diesem Datum wird die daid in der USTVA_POS befüllt) die Dokumente digital mitgeschickt werden, vorher noch alles per POST!!!!!!!!!!!!!!!!!!
|
||||
If Not IsDBNull(r("UStVPo_daId")) Then
|
||||
|
||||
If RECHNUNG.ANHAENGE IsNot Nothing AndAlso Not RECHNUNG.ANHAENGE.Exists(Function(c) c.dsId = r("UStVPo_daId")) Then 'wenn der Anhang schon existiert!
|
||||
|
||||
Dim DAID As String = ""
|
||||
DAID = func.getPDF(r("UStVPo_SchnittstellenNr"), r("UStVPo_ReNr"), r("UStVPo_ReDat"), r("UStVPo_daId"), False, True, USTV.UStVAn_LandKz, USTV, New cFakturierung, True)
|
||||
DAID = func.getPDF(r("UStVPo_SchnittstellenNr"), r("UStVPo_ReNr"), r("UStVPo_ReDat"), r("UStVPo_daId"), False, True, Antrag_LandKz, USTV, New cFakturierung, True)
|
||||
|
||||
Dim nameLief As String = ""
|
||||
|
||||
@@ -2007,7 +2010,6 @@ Public Class usrCntlFaktAbrechnung
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
@@ -2058,15 +2060,25 @@ Public Class usrCntlFaktAbrechnung
|
||||
Case 19 'MDM
|
||||
|
||||
Select Case RECHNUNG.RechnungSprache
|
||||
Case "DE" : RECHNUNG.Anlage_1 = "Rechnung" : RECHNUNG.Anlage_2 = "Lief.-Rechn." : RECHNUNG.Anlage_3 = "POS-Liste"
|
||||
Case "EN" : RECHNUNG.Anlage_1 = "Invoice" : RECHNUNG.Anlage_2 = "Supplier Invoice(s)" : RECHNUNG.Anlage_3 = "Item List"
|
||||
Case "RO" : RECHNUNG.Anlage_1 = "Factura" : RECHNUNG.Anlage_2 = "Factura furnizorului" : RECHNUNG.Anlage_3 = "Lista articolelor"
|
||||
Case "DE"
|
||||
If If(RECHNUNG.FilialenNr, String.Empty) <> "8001" Then RECHNUNG.Anlage_1 = "Rechnung"
|
||||
If If(RECHNUNG.FilialenNr, String.Empty) <> "8001" Then RECHNUNG.Anlage_2 = "Lief.-Rechn."
|
||||
If If(RECHNUNG.FilialenNr, String.Empty) <> "8001" Then RECHNUNG.Anlage_3 = "POS-Liste"
|
||||
Case "EN"
|
||||
If If(RECHNUNG.FilialenNr, String.Empty) <> "8001" Then RECHNUNG.Anlage_1 = "Invoice"
|
||||
If If(RECHNUNG.FilialenNr, String.Empty) <> "8001" Then RECHNUNG.Anlage_2 = "Supplier Invoice(s)"
|
||||
If If(RECHNUNG.FilialenNr, String.Empty) <> "8001" Then RECHNUNG.Anlage_3 = "Item List"
|
||||
Case "RO"
|
||||
If If(RECHNUNG.FilialenNr, String.Empty) <> "8001" Then RECHNUNG.Anlage_1 = "Factura"
|
||||
If If(RECHNUNG.FilialenNr, String.Empty) <> "8001" Then RECHNUNG.Anlage_2 = "Factura furnizorului"
|
||||
If If(RECHNUNG.FilialenNr, String.Empty) <> "8001" Then RECHNUNG.Anlage_3 = "Lista articolelor"
|
||||
End Select
|
||||
|
||||
|
||||
RECHNUNG.Anlage_4 = ""
|
||||
RECHNUNG.Anlage_5 = ""
|
||||
|
||||
|
||||
Case Else
|
||||
If SPEDBUCH IsNot Nothing Then
|
||||
Select Case SPEDBUCH.Abfertigungsart
|
||||
@@ -2349,10 +2361,14 @@ Public Class usrCntlFaktAbrechnung
|
||||
RECHNUNG.Vorkasse = kdFirmaRechnungAn.KdData_KUNDE.Vorkasse
|
||||
End If
|
||||
|
||||
|
||||
If RECHNUNG.FilialenNr = 8001 AndAlso RECHNUNG.Firma_ID = 19 Then
|
||||
RECHNUNG.Nettozahlungsziel = IIf(kdFirmaRechnungAn.KdData_KUNDE.Zahlungsziel > 14, 14, kdFirmaRechnungAn.KdData_KUNDE.Zahlungsziel)
|
||||
Else
|
||||
RECHNUNG.Nettozahlungsziel = kdFirmaRechnungAn.KdData_KUNDE.Zahlungsziel
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
RECHNUNG.Steuerschlüssel = cProgramFunctions.isLeerNothing(cboSteuerschlüssel._value)
|
||||
@@ -3981,15 +3997,21 @@ Nächste_Textzeile_lesen:
|
||||
If vbYes = MsgBox("Möchten Sie diese ungedruckte Rechnung wirklich löschen?", vbYesNoCancel) Then
|
||||
If RECHNUNG IsNot Nothing AndAlso RECHNUNG.Status = 0 Then
|
||||
If RECHNUNG.DELETE() Then
|
||||
If FIRMA IsNot Nothing AndAlso FIRMA.Firma_ID = 19 AndAlso SPEDBUCH IsNot Nothing AndAlso SPEDBUCH.FilialenNr = 4817 Then
|
||||
If FIRMA IsNot Nothing AndAlso FIRMA.Firma_ID = 19 AndAlso SPEDBUCH IsNot Nothing Then
|
||||
If SPEDBUCH.FilialenNr = 4817 Then
|
||||
Dim UST_ID As Integer = -1
|
||||
UST_ID = CInt(SQL.getValueTxtBySql("SELECT [UStVAn_ID] FROM [tblUStVPositionen] WHERE [UStVPo_VZ] = 1 and isnull(UStVPo_VZ_RKID,0) =" & RECHNUNG.RK_ID, "FMZOLL",,, 0))
|
||||
If UST_ID > 0 Then
|
||||
SQL.doSQL("UPDATE [tblUStVPositionen] SET UStVPo_VZ_RKID = NULL WHERE [UStVPo_VZ] = 1 and isnull(UStVPo_VZ_RKID,0) =" & RECHNUNG.RK_ID, "FMZOLL")
|
||||
SQL.doSQL("UPDATE [tblUStVAntrag] SET UStVAn_VZoffen = 1 WHERE [UStVAn_ID] IN (SELECT distinct([UStVAn_ID]) FROM [tblUStVPositionen] WHERE isnull([UStVPo_VZ],0) = 1 and isnull([UStVPo_VZ_RKID],0) = 0 AND [UStVAn_ID] = " & UST_ID & " )", "FMZOLL")
|
||||
End If
|
||||
|
||||
ElseIf SPEDBUCH.FilialenNr = 8001 Then
|
||||
SQL.doSQL("UPDATE [tblMDM_Zinsberechnung] SET RK_ID = NULL, verrechnet = NULL WHERE isnull(RK_ID,0) =" & RECHNUNG.RK_ID, "FMZOLL")
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
RaiseEvent EVENT_DELETED()
|
||||
End If
|
||||
End If
|
||||
@@ -4279,11 +4301,11 @@ Nächste_Textzeile_lesen:
|
||||
If If(SPEDBUCH.AtlasBezNrEZA, "") <> "" Then
|
||||
|
||||
If bool_SendAbrechung(SPEDBUCH.SendungID, kdFirmaRechnungAn.KdNr, "EUST") Then
|
||||
loadEUST()
|
||||
If RECHNUNG.Sammelrechnung = 0 Then loadEUST()
|
||||
End If
|
||||
|
||||
If bool_SendAbrechung(SPEDBUCH.SendungID, kdFirmaRechnungAn.KdNr, "ZOLL") Then
|
||||
loadZOLL()
|
||||
If RECHNUNG.Sammelrechnung = 0 Then loadZOLL()
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -4389,8 +4411,8 @@ Nächste_Textzeile_lesen:
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
loadEUST()
|
||||
loadZOLL()
|
||||
If RECHNUNG.Sammelrechnung = 0 Then loadEUST()
|
||||
If RECHNUNG.Sammelrechnung = 0 Then loadZOLL()
|
||||
loadBerechnungsArt_jePosition()
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
|
||||
' übernehmen, indem Sie "*" eingeben:
|
||||
' <Assembly: AssemblyVersion("1.0.*")>
|
||||
|
||||
<Assembly: AssemblyVersion("1.4.7.4")>
|
||||
<Assembly: AssemblyFileVersion("1.4.7.4")>
|
||||
<Assembly: AssemblyVersion("1.4.8.5")>
|
||||
<Assembly: AssemblyFileVersion("1.4.8.5")>
|
||||
|
||||
707
SDL/Reports/MDM/rpt_3470.Designer.vb
generated
Normal file
707
SDL/Reports/MDM/rpt_3470.Designer.vb
generated
Normal file
@@ -0,0 +1,707 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Public Class rpt_3470
|
||||
Inherits GrapeCity.ActiveReports.SectionReport
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing Then
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'NOTE: The following procedure is required by the ActiveReports Designer
|
||||
'It can be modified using the ActiveReports Designer.
|
||||
'Do not modify it using the code editor.
|
||||
Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader
|
||||
Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rpt_3470))
|
||||
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
|
||||
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
|
||||
Me.lblTimeperiod = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.lblKDNumber = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.lblKDName = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.lblCountry = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.lblAmount = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.lblWaehrung = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.lblCreditNodeNo = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
|
||||
Me.Label28 = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
|
||||
Me.ReportInfo2 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
|
||||
Me.lblDat = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
|
||||
Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
|
||||
Me.Label3 = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
|
||||
Me.lblWaehrung_Ges = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.lblSumGesamt = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.Line3 = New GrapeCity.ActiveReports.SectionReportModel.Line()
|
||||
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
|
||||
Me.TextBox2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.lblKdName_Head = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.lblKdNr_Head = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.lblTimePeriod_Head = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.lblCountry_Head = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.lblAmount_Head = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.Line12 = New GrapeCity.ActiveReports.SectionReportModel.Line()
|
||||
Me.Line14 = New GrapeCity.ActiveReports.SectionReportModel.Line()
|
||||
Me.Line15 = New GrapeCity.ActiveReports.SectionReportModel.Line()
|
||||
Me.Line16 = New GrapeCity.ActiveReports.SectionReportModel.Line()
|
||||
Me.Line17 = New GrapeCity.ActiveReports.SectionReportModel.Line()
|
||||
Me.Line18 = New GrapeCity.ActiveReports.SectionReportModel.Line()
|
||||
Me.Line19 = New GrapeCity.ActiveReports.SectionReportModel.Line()
|
||||
Me.Line20 = New GrapeCity.ActiveReports.SectionReportModel.Line()
|
||||
Me.Line4 = New GrapeCity.ActiveReports.SectionReportModel.Line()
|
||||
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
|
||||
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
|
||||
Me.lblSumme = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.lblWahrung = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.lblGroup1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.GroupHeader2 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
|
||||
Me.lblFirma = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.GroupFooter2 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
|
||||
CType(Me.lblTimeperiod, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lblKDNumber, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lblKDName, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lblCountry, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lblAmount, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lblWaehrung, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lblCreditNodeNo, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.Label28, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lblDat, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.Label3, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lblWaehrung_Ges, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lblSumGesamt, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lblKdName_Head, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lblKdNr_Head, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lblTimePeriod_Head, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lblCountry_Head, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lblAmount_Head, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lblSumme, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lblWahrung, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lblGroup1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
'
|
||||
'PageHeader
|
||||
'
|
||||
Me.PageHeader.Height = 0.06249999!
|
||||
Me.PageHeader.Name = "PageHeader"
|
||||
'
|
||||
'Detail
|
||||
'
|
||||
Me.Detail.BackColor = System.Drawing.Color.White
|
||||
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblTimeperiod, Me.lblKDNumber, Me.lblKDName, Me.lblCountry, Me.lblAmount, Me.lblWaehrung, Me.lblCreditNodeNo})
|
||||
Me.Detail.Height = 0.200361!
|
||||
Me.Detail.KeepTogether = True
|
||||
Me.Detail.Name = "Detail"
|
||||
'
|
||||
'lblTimeperiod
|
||||
'
|
||||
Me.lblTimeperiod.Height = 0.1795276!
|
||||
Me.lblTimeperiod.HyperLink = Nothing
|
||||
Me.lblTimeperiod.Left = 2.822047!
|
||||
Me.lblTimeperiod.MultiLine = False
|
||||
Me.lblTimeperiod.Name = "lblTimeperiod"
|
||||
Me.lblTimeperiod.Style = "color: Black; font-size: 8pt; font-weight: normal; text-align: center; ddo-char-s" &
|
||||
"et: 1"
|
||||
Me.lblTimeperiod.Text = "-"
|
||||
Me.lblTimeperiod.Top = 0!
|
||||
Me.lblTimeperiod.Width = 1.986221!
|
||||
'
|
||||
'lblKDNumber
|
||||
'
|
||||
Me.lblKDNumber.DataField = ""
|
||||
Me.lblKDNumber.Height = 0.1795276!
|
||||
Me.lblKDNumber.HyperLink = Nothing
|
||||
Me.lblKDNumber.Left = 0.005118111!
|
||||
Me.lblKDNumber.Name = "lblKDNumber"
|
||||
Me.lblKDNumber.Style = "color: Black; font-size: 8pt; font-weight: normal; text-align: center; vertical-a" &
|
||||
"lign: middle; ddo-char-set: 1"
|
||||
Me.lblKDNumber.Text = "-"
|
||||
Me.lblKDNumber.Top = 0!
|
||||
Me.lblKDNumber.Width = 0.8649607!
|
||||
'
|
||||
'lblKDName
|
||||
'
|
||||
Me.lblKDName.DataField = ""
|
||||
Me.lblKDName.Height = 0.1795276!
|
||||
Me.lblKDName.HyperLink = Nothing
|
||||
Me.lblKDName.Left = 0.8700788!
|
||||
Me.lblKDName.MultiLine = False
|
||||
Me.lblKDName.Name = "lblKDName"
|
||||
Me.lblKDName.Style = "color: Black; font-size: 8pt; font-weight: normal; text-align: left; ddo-char-set" &
|
||||
": 1"
|
||||
Me.lblKDName.Text = "-"
|
||||
Me.lblKDName.Top = 0!
|
||||
Me.lblKDName.Width = 1.951969!
|
||||
'
|
||||
'lblCountry
|
||||
'
|
||||
Me.lblCountry.DataField = ""
|
||||
Me.lblCountry.DistinctField = ""
|
||||
Me.lblCountry.Height = 0.1795276!
|
||||
Me.lblCountry.Left = 4.808268!
|
||||
Me.lblCountry.MultiLine = False
|
||||
Me.lblCountry.Name = "lblCountry"
|
||||
Me.lblCountry.Style = "color: Black; font-size: 8pt; text-align: center; ddo-char-set: 1"
|
||||
Me.lblCountry.SummaryGroup = ""
|
||||
Me.lblCountry.Text = Nothing
|
||||
Me.lblCountry.Top = 0!
|
||||
Me.lblCountry.Width = 0.6129925!
|
||||
'
|
||||
'lblAmount
|
||||
'
|
||||
Me.lblAmount.DataField = ""
|
||||
Me.lblAmount.DistinctField = ""
|
||||
Me.lblAmount.Height = 0.1795276!
|
||||
Me.lblAmount.Left = 7.481497!
|
||||
Me.lblAmount.Name = "lblAmount"
|
||||
Me.lblAmount.Style = "color: Black; font-size: 8pt; text-align: right; vertical-align: middle; ddo-char" &
|
||||
"-set: 1"
|
||||
Me.lblAmount.SummaryGroup = ""
|
||||
Me.lblAmount.Text = Nothing
|
||||
Me.lblAmount.Top = 0!
|
||||
Me.lblAmount.Width = 0.8161411!
|
||||
'
|
||||
'lblWaehrung
|
||||
'
|
||||
Me.lblWaehrung.DistinctField = ""
|
||||
Me.lblWaehrung.Height = 0.1795276!
|
||||
Me.lblWaehrung.Left = 7.099607!
|
||||
Me.lblWaehrung.Name = "lblWaehrung"
|
||||
Me.lblWaehrung.Style = "color: Black; font-size: 8pt; text-align: left; vertical-align: middle; ddo-char-" &
|
||||
"set: 1"
|
||||
Me.lblWaehrung.SummaryGroup = ""
|
||||
Me.lblWaehrung.Text = Nothing
|
||||
Me.lblWaehrung.Top = 0!
|
||||
Me.lblWaehrung.Width = 0.3401577!
|
||||
'
|
||||
'lblCreditNodeNo
|
||||
'
|
||||
Me.lblCreditNodeNo.DistinctField = ""
|
||||
Me.lblCreditNodeNo.Height = 0.1795276!
|
||||
Me.lblCreditNodeNo.Left = 5.42126!
|
||||
Me.lblCreditNodeNo.Name = "lblCreditNodeNo"
|
||||
Me.lblCreditNodeNo.Style = "color: Black; font-size: 8pt; text-align: right; vertical-align: middle; ddo-char" &
|
||||
"-set: 1"
|
||||
Me.lblCreditNodeNo.SummaryGroup = ""
|
||||
Me.lblCreditNodeNo.Text = Nothing
|
||||
Me.lblCreditNodeNo.Top = 0!
|
||||
Me.lblCreditNodeNo.Width = 1.678346!
|
||||
'
|
||||
'PageFooter
|
||||
'
|
||||
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label28, Me.Line2, Me.ReportInfo2, Me.lblDat})
|
||||
Me.PageFooter.Name = "PageFooter"
|
||||
'
|
||||
'Label28
|
||||
'
|
||||
Me.Label28.Height = 0.1330709!
|
||||
Me.Label28.HyperLink = Nothing
|
||||
Me.Label28.Left = 2.014173!
|
||||
Me.Label28.Name = "Label28"
|
||||
Me.Label28.Style = "font-size: 8pt; font-weight: bold; text-align: center; ddo-char-set: 1"
|
||||
Me.Label28.Text = "VERAG 360 GmbH"
|
||||
Me.Label28.Top = 0.08622048!
|
||||
Me.Label28.Width = 2.794095!
|
||||
'
|
||||
'Line2
|
||||
'
|
||||
Me.Line2.Height = 3.72529E-9!
|
||||
Me.Line2.Left = 0!
|
||||
Me.Line2.LineWeight = 1.0!
|
||||
Me.Line2.Name = "Line2"
|
||||
Me.Line2.Top = 0.03070866!
|
||||
Me.Line2.Width = 8.297638!
|
||||
Me.Line2.X1 = 0!
|
||||
Me.Line2.X2 = 8.297638!
|
||||
Me.Line2.Y1 = 0.03070866!
|
||||
Me.Line2.Y2 = 0.03070866!
|
||||
'
|
||||
'ReportInfo2
|
||||
'
|
||||
Me.ReportInfo2.FormatString = "Page {PageNumber} from {PageCount} Pages"
|
||||
Me.ReportInfo2.Height = 0.1330709!
|
||||
Me.ReportInfo2.Left = 5.829922!
|
||||
Me.ReportInfo2.Name = "ReportInfo2"
|
||||
Me.ReportInfo2.Style = "font-size: 8pt; text-align: right"
|
||||
Me.ReportInfo2.Top = 0.08622048!
|
||||
Me.ReportInfo2.Width = 2.467716!
|
||||
'
|
||||
'lblDat
|
||||
'
|
||||
Me.lblDat.Height = 0.1330708!
|
||||
Me.lblDat.HyperLink = Nothing
|
||||
Me.lblDat.Left = 0.01023622!
|
||||
Me.lblDat.Name = "lblDat"
|
||||
Me.lblDat.Style = "font-size: 8pt; text-align: left"
|
||||
Me.lblDat.Text = "Mittwoch, 02.11.2016"
|
||||
Me.lblDat.Top = 0.08622044!
|
||||
Me.lblDat.Width = 2.649606!
|
||||
'
|
||||
'ReportHeader1
|
||||
'
|
||||
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picVERAG, Me.Label3})
|
||||
Me.ReportHeader1.Height = 0.719817!
|
||||
Me.ReportHeader1.Name = "ReportHeader1"
|
||||
'
|
||||
'picVERAG
|
||||
'
|
||||
Me.picVERAG.Height = 0.3751969!
|
||||
Me.picVERAG.HyperLink = Nothing
|
||||
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
|
||||
Me.picVERAG.Left = 0!
|
||||
Me.picVERAG.Name = "picVERAG"
|
||||
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
|
||||
Me.picVERAG.Top = 0!
|
||||
Me.picVERAG.Width = 2.240158!
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.Height = 0.2311024!
|
||||
Me.Label3.HyperLink = Nothing
|
||||
Me.Label3.Left = 0.01023622!
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Style = "font-size: 12pt; font-weight: normal; text-align: left; ddo-char-set: 0"
|
||||
Me.Label3.Text = "Account No. 3470"
|
||||
Me.Label3.Top = 0.4275591!
|
||||
Me.Label3.Width = 3.559843!
|
||||
'
|
||||
'ReportFooter1
|
||||
'
|
||||
Me.ReportFooter1.CanShrink = True
|
||||
Me.ReportFooter1.Height = 0!
|
||||
Me.ReportFooter1.KeepTogether = True
|
||||
Me.ReportFooter1.Name = "ReportFooter1"
|
||||
'
|
||||
'lblWaehrung_Ges
|
||||
'
|
||||
Me.lblWaehrung_Ges.DistinctField = ""
|
||||
Me.lblWaehrung_Ges.Height = 0.1795276!
|
||||
Me.lblWaehrung_Ges.Left = 6.155118!
|
||||
Me.lblWaehrung_Ges.Name = "lblWaehrung_Ges"
|
||||
Me.lblWaehrung_Ges.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set:" &
|
||||
" 1"
|
||||
Me.lblWaehrung_Ges.SummaryGroup = ""
|
||||
Me.lblWaehrung_Ges.Text = Nothing
|
||||
Me.lblWaehrung_Ges.Top = 9.313226E-9!
|
||||
Me.lblWaehrung_Ges.Width = 1.05!
|
||||
'
|
||||
'lblSumGesamt
|
||||
'
|
||||
Me.lblSumGesamt.DistinctField = ""
|
||||
Me.lblSumGesamt.Height = 0.1795276!
|
||||
Me.lblSumGesamt.Left = 7.205119!
|
||||
Me.lblSumGesamt.Name = "lblSumGesamt"
|
||||
Me.lblSumGesamt.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set:" &
|
||||
" 1"
|
||||
Me.lblSumGesamt.SummaryGroup = ""
|
||||
Me.lblSumGesamt.Text = "10.000.000"
|
||||
Me.lblSumGesamt.Top = 0.08070867!
|
||||
Me.lblSumGesamt.Width = 1.092519!
|
||||
'
|
||||
'Line3
|
||||
'
|
||||
Me.Line3.Height = 0.00000002235174!
|
||||
Me.Line3.Left = 5.529528!
|
||||
Me.Line3.LineWeight = 1.0!
|
||||
Me.Line3.Name = "Line3"
|
||||
Me.Line3.Top = 0.08070867!
|
||||
Me.Line3.Width = 2.76811!
|
||||
Me.Line3.X1 = 5.529528!
|
||||
Me.Line3.X2 = 8.297638!
|
||||
Me.Line3.Y1 = 0.08070869!
|
||||
Me.Line3.Y2 = 0.08070867!
|
||||
'
|
||||
'GroupHeader1
|
||||
'
|
||||
Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox2, Me.lblKdName_Head, Me.lblKdNr_Head, Me.lblTimePeriod_Head, Me.lblCountry_Head, Me.lblAmount_Head, Me.Line12, Me.Line14, Me.Line15, Me.Line16, Me.Line17, Me.Line18, Me.Line19, Me.Line20, Me.Line4})
|
||||
Me.GroupHeader1.Height = 0.227592!
|
||||
Me.GroupHeader1.KeepTogether = True
|
||||
Me.GroupHeader1.Name = "GroupHeader1"
|
||||
'
|
||||
'TextBox2
|
||||
'
|
||||
Me.TextBox2.DistinctField = ""
|
||||
Me.TextBox2.Height = 0.1795276!
|
||||
Me.TextBox2.Left = 5.42126!
|
||||
Me.TextBox2.Name = "TextBox2"
|
||||
Me.TextBox2.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: center; ddo-char-set" &
|
||||
": 1"
|
||||
Me.TextBox2.SummaryGroup = ""
|
||||
Me.TextBox2.Text = "Credit Node No."
|
||||
Me.TextBox2.Top = 0.003937008!
|
||||
Me.TextBox2.Width = 1.678346!
|
||||
'
|
||||
'lblKdName_Head
|
||||
'
|
||||
Me.lblKdName_Head.Height = 0.1795276!
|
||||
Me.lblKdName_Head.HyperLink = Nothing
|
||||
Me.lblKdName_Head.Left = 0.8700788!
|
||||
Me.lblKdName_Head.Name = "lblKdName_Head"
|
||||
Me.lblKdName_Head.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
|
||||
Me.lblKdName_Head.Text = "Name"
|
||||
Me.lblKdName_Head.Top = 0!
|
||||
Me.lblKdName_Head.Width = 1.951969!
|
||||
'
|
||||
'lblKdNr_Head
|
||||
'
|
||||
Me.lblKdNr_Head.Height = 0.1795276!
|
||||
Me.lblKdNr_Head.HyperLink = Nothing
|
||||
Me.lblKdNr_Head.Left = 0.01023622!
|
||||
Me.lblKdNr_Head.Name = "lblKdNr_Head"
|
||||
Me.lblKdNr_Head.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
|
||||
Me.lblKdNr_Head.Text = "Customer No."
|
||||
Me.lblKdNr_Head.Top = 0!
|
||||
Me.lblKdNr_Head.Width = 0.8598426!
|
||||
'
|
||||
'lblTimePeriod_Head
|
||||
'
|
||||
Me.lblTimePeriod_Head.DataField = ""
|
||||
Me.lblTimePeriod_Head.DistinctField = ""
|
||||
Me.lblTimePeriod_Head.Height = 0.1795276!
|
||||
Me.lblTimePeriod_Head.Left = 2.822835!
|
||||
Me.lblTimePeriod_Head.Name = "lblTimePeriod_Head"
|
||||
Me.lblTimePeriod_Head.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: center; ddo-char-set" &
|
||||
": 1"
|
||||
Me.lblTimePeriod_Head.SummaryGroup = ""
|
||||
Me.lblTimePeriod_Head.Text = "Time Period"
|
||||
Me.lblTimePeriod_Head.Top = 0!
|
||||
Me.lblTimePeriod_Head.Width = 1.985433!
|
||||
'
|
||||
'lblCountry_Head
|
||||
'
|
||||
Me.lblCountry_Head.DataField = ""
|
||||
Me.lblCountry_Head.DistinctField = ""
|
||||
Me.lblCountry_Head.Height = 0.1795276!
|
||||
Me.lblCountry_Head.Left = 4.808268!
|
||||
Me.lblCountry_Head.Name = "lblCountry_Head"
|
||||
Me.lblCountry_Head.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: center; ddo-char-set" &
|
||||
": 1"
|
||||
Me.lblCountry_Head.SummaryGroup = ""
|
||||
Me.lblCountry_Head.Text = "Country"
|
||||
Me.lblCountry_Head.Top = 0.003937008!
|
||||
Me.lblCountry_Head.Width = 0.612992!
|
||||
'
|
||||
'lblAmount_Head
|
||||
'
|
||||
Me.lblAmount_Head.DataField = ""
|
||||
Me.lblAmount_Head.DistinctField = ""
|
||||
Me.lblAmount_Head.Height = 0.1795276!
|
||||
Me.lblAmount_Head.Left = 7.148032!
|
||||
Me.lblAmount_Head.Name = "lblAmount_Head"
|
||||
Me.lblAmount_Head.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: center; ddo-char-set" &
|
||||
": 1"
|
||||
Me.lblAmount_Head.SummaryGroup = ""
|
||||
Me.lblAmount_Head.Text = "Amount"
|
||||
Me.lblAmount_Head.Top = 0!
|
||||
Me.lblAmount_Head.Width = 1.149607!
|
||||
'
|
||||
'Line12
|
||||
'
|
||||
Me.Line12.Height = 0.1795276!
|
||||
Me.Line12.Left = 0.01023622!
|
||||
Me.Line12.LineWeight = 1.0!
|
||||
Me.Line12.Name = "Line12"
|
||||
Me.Line12.Top = 0!
|
||||
Me.Line12.Width = 0!
|
||||
Me.Line12.X1 = 0.01023622!
|
||||
Me.Line12.X2 = 0.01023622!
|
||||
Me.Line12.Y1 = 0.1795276!
|
||||
Me.Line12.Y2 = 0!
|
||||
'
|
||||
'Line14
|
||||
'
|
||||
Me.Line14.Height = 0.1795276!
|
||||
Me.Line14.Left = 7.099607!
|
||||
Me.Line14.LineWeight = 1.0!
|
||||
Me.Line14.Name = "Line14"
|
||||
Me.Line14.Top = 0.00000004470348!
|
||||
Me.Line14.Width = 0!
|
||||
Me.Line14.X1 = 7.099607!
|
||||
Me.Line14.X2 = 7.099607!
|
||||
Me.Line14.Y1 = 0.1795276!
|
||||
Me.Line14.Y2 = 0.00000004470348!
|
||||
'
|
||||
'Line15
|
||||
'
|
||||
Me.Line15.Height = 0.1755905!
|
||||
Me.Line15.Left = 8.297638!
|
||||
Me.Line15.LineWeight = 1.0!
|
||||
Me.Line15.Name = "Line15"
|
||||
Me.Line15.Top = 0.003937106!
|
||||
Me.Line15.Width = 0!
|
||||
Me.Line15.X1 = 8.297638!
|
||||
Me.Line15.X2 = 8.297638!
|
||||
Me.Line15.Y1 = 0.1795276!
|
||||
Me.Line15.Y2 = 0.003937106!
|
||||
'
|
||||
'Line16
|
||||
'
|
||||
Me.Line16.Height = 0.1795276!
|
||||
Me.Line16.Left = 0.8700787!
|
||||
Me.Line16.LineWeight = 1.0!
|
||||
Me.Line16.Name = "Line16"
|
||||
Me.Line16.Top = 0!
|
||||
Me.Line16.Width = 0.000787437!
|
||||
Me.Line16.X1 = 0.8708662!
|
||||
Me.Line16.X2 = 0.8700787!
|
||||
Me.Line16.Y1 = 0.1795276!
|
||||
Me.Line16.Y2 = 0!
|
||||
'
|
||||
'Line17
|
||||
'
|
||||
Me.Line17.Height = 0.1795275!
|
||||
Me.Line17.Left = 4.808268!
|
||||
Me.Line17.LineWeight = 1.0!
|
||||
Me.Line17.Name = "Line17"
|
||||
Me.Line17.Top = 0.00000008940698!
|
||||
Me.Line17.Width = 0!
|
||||
Me.Line17.X1 = 4.808268!
|
||||
Me.Line17.X2 = 4.808268!
|
||||
Me.Line17.Y1 = 0.1795276!
|
||||
Me.Line17.Y2 = 0.00000008940698!
|
||||
'
|
||||
'Line18
|
||||
'
|
||||
Me.Line18.Height = 0.003937008!
|
||||
Me.Line18.Left = 0!
|
||||
Me.Line18.LineWeight = 1.0!
|
||||
Me.Line18.Name = "Line18"
|
||||
Me.Line18.Top = 0!
|
||||
Me.Line18.Width = 8.297638!
|
||||
Me.Line18.X1 = 0!
|
||||
Me.Line18.X2 = 8.297638!
|
||||
Me.Line18.Y1 = 0.003937008!
|
||||
Me.Line18.Y2 = 0!
|
||||
'
|
||||
'Line19
|
||||
'
|
||||
Me.Line19.Height = 0!
|
||||
Me.Line19.Left = 0!
|
||||
Me.Line19.LineWeight = 1.0!
|
||||
Me.Line19.Name = "Line19"
|
||||
Me.Line19.Top = 0.1795276!
|
||||
Me.Line19.Width = 8.297638!
|
||||
Me.Line19.X1 = 0!
|
||||
Me.Line19.X2 = 8.297638!
|
||||
Me.Line19.Y1 = 0.1795276!
|
||||
Me.Line19.Y2 = 0.1795276!
|
||||
'
|
||||
'Line20
|
||||
'
|
||||
Me.Line20.Height = 0.1795276!
|
||||
Me.Line20.Left = 2.822047!
|
||||
Me.Line20.LineWeight = 1.0!
|
||||
Me.Line20.Name = "Line20"
|
||||
Me.Line20.Top = 0!
|
||||
Me.Line20.Width = 0.0007882118!
|
||||
Me.Line20.X1 = 2.822835!
|
||||
Me.Line20.X2 = 2.822047!
|
||||
Me.Line20.Y1 = 0.1795276!
|
||||
Me.Line20.Y2 = 0!
|
||||
'
|
||||
'Line4
|
||||
'
|
||||
Me.Line4.Height = 0.1795276!
|
||||
Me.Line4.Left = 5.42126!
|
||||
Me.Line4.LineWeight = 1.0!
|
||||
Me.Line4.Name = "Line4"
|
||||
Me.Line4.Top = 0!
|
||||
Me.Line4.Width = 0!
|
||||
Me.Line4.X1 = 5.42126!
|
||||
Me.Line4.X2 = 5.42126!
|
||||
Me.Line4.Y1 = 0.1795276!
|
||||
Me.Line4.Y2 = 0!
|
||||
'
|
||||
'GroupFooter1
|
||||
'
|
||||
Me.GroupFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line1, Me.lblSumme, Me.lblWahrung, Me.lblGroup1})
|
||||
Me.GroupFooter1.Height = 0.2917323!
|
||||
Me.GroupFooter1.Name = "GroupFooter1"
|
||||
'
|
||||
'Line1
|
||||
'
|
||||
Me.Line1.Height = 0!
|
||||
Me.Line1.Left = 5.542126!
|
||||
Me.Line1.LineWeight = 1.0!
|
||||
Me.Line1.Name = "Line1"
|
||||
Me.Line1.Top = 0.09251969!
|
||||
Me.Line1.Width = 2.755512!
|
||||
Me.Line1.X1 = 5.542126!
|
||||
Me.Line1.X2 = 8.297638!
|
||||
Me.Line1.Y1 = 0.09251969!
|
||||
Me.Line1.Y2 = 0.09251969!
|
||||
'
|
||||
'lblSumme
|
||||
'
|
||||
Me.lblSumme.DataField = ""
|
||||
Me.lblSumme.DistinctField = ""
|
||||
Me.lblSumme.Height = 0.1795276!
|
||||
Me.lblSumme.Left = 7.217717!
|
||||
Me.lblSumme.Name = "lblSumme"
|
||||
Me.lblSumme.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set:" &
|
||||
" 1"
|
||||
Me.lblSumme.SummaryGroup = ""
|
||||
Me.lblSumme.Text = "10.000.000"
|
||||
Me.lblSumme.Top = 0.1122047!
|
||||
Me.lblSumme.Width = 1.079921!
|
||||
'
|
||||
'lblWahrung
|
||||
'
|
||||
Me.lblWahrung.DataField = ""
|
||||
Me.lblWahrung.DistinctField = ""
|
||||
Me.lblWahrung.Height = 0.1795276!
|
||||
Me.lblWahrung.Left = 6.560236!
|
||||
Me.lblWahrung.Name = "lblWahrung"
|
||||
Me.lblWahrung.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set:" &
|
||||
" 1"
|
||||
Me.lblWahrung.SummaryGroup = ""
|
||||
Me.lblWahrung.Text = Nothing
|
||||
Me.lblWahrung.Top = 0.1122047!
|
||||
Me.lblWahrung.Width = 0.4874015!
|
||||
'
|
||||
'lblGroup1
|
||||
'
|
||||
Me.lblGroup1.DistinctField = ""
|
||||
Me.lblGroup1.Height = 0.1795276!
|
||||
Me.lblGroup1.Left = 5.542126!
|
||||
Me.lblGroup1.Name = "lblGroup1"
|
||||
Me.lblGroup1.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set:" &
|
||||
" 1"
|
||||
Me.lblGroup1.SummaryGroup = ""
|
||||
Me.lblGroup1.Text = Nothing
|
||||
Me.lblGroup1.Top = 0.1122047!
|
||||
Me.lblGroup1.Width = 0.4874015!
|
||||
'
|
||||
'GroupHeader2
|
||||
'
|
||||
Me.GroupHeader2.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblFirma})
|
||||
Me.GroupHeader2.Height = 0.1944717!
|
||||
Me.GroupHeader2.Name = "GroupHeader2"
|
||||
'
|
||||
'lblFirma
|
||||
'
|
||||
Me.lblFirma.Height = 0.2070866!
|
||||
Me.lblFirma.HyperLink = Nothing
|
||||
Me.lblFirma.Left = 0!
|
||||
Me.lblFirma.Name = "lblFirma"
|
||||
Me.lblFirma.Padding = New GrapeCity.ActiveReports.PaddingEx(5, 0, 0, 0)
|
||||
Me.lblFirma.Style = "background-color: #003680; color: White; font-size: 10pt; font-weight: bold; text" &
|
||||
"-align: left; vertical-align: middle"
|
||||
Me.lblFirma.Text = ""
|
||||
Me.lblFirma.Top = 0!
|
||||
Me.lblFirma.Width = 8.297638!
|
||||
'
|
||||
'GroupFooter2
|
||||
'
|
||||
Me.GroupFooter2.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblWaehrung_Ges, Me.lblSumGesamt, Me.Line3})
|
||||
Me.GroupFooter2.Height = 0.2604167!
|
||||
Me.GroupFooter2.KeepTogether = True
|
||||
Me.GroupFooter2.Name = "GroupFooter2"
|
||||
'
|
||||
'rpt_3470
|
||||
'
|
||||
Me.MasterReport = False
|
||||
Me.PageSettings.DefaultPaperSize = False
|
||||
Me.PageSettings.Margins.Bottom = 0.1968504!
|
||||
Me.PageSettings.Margins.Left = 0.1968504!
|
||||
Me.PageSettings.Margins.Right = 0.1968504!
|
||||
Me.PageSettings.Margins.Top = 0.1968504!
|
||||
Me.PageSettings.Orientation = GrapeCity.ActiveReports.Document.Section.PageOrientation.Portrait
|
||||
Me.PageSettings.PaperHeight = 11.69291!
|
||||
Me.PageSettings.PaperKind = GrapeCity.ActiveReports.Printing.PaperKind.A4
|
||||
Me.PageSettings.PaperWidth = 8.267716!
|
||||
Me.PrintWidth = 8.816929!
|
||||
Me.Sections.Add(Me.ReportHeader1)
|
||||
Me.Sections.Add(Me.PageHeader)
|
||||
Me.Sections.Add(Me.GroupHeader2)
|
||||
Me.Sections.Add(Me.GroupHeader1)
|
||||
Me.Sections.Add(Me.Detail)
|
||||
Me.Sections.Add(Me.GroupFooter1)
|
||||
Me.Sections.Add(Me.GroupFooter2)
|
||||
Me.Sections.Add(Me.PageFooter)
|
||||
Me.Sections.Add(Me.ReportFooter1)
|
||||
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
|
||||
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
|
||||
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
|
||||
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
|
||||
"lic", "Heading2", "Normal"))
|
||||
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
|
||||
CType(Me.lblTimeperiod, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lblKDNumber, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lblKDName, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lblCountry, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lblAmount, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lblWaehrung, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lblCreditNodeNo, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.Label28, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lblDat, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.Label3, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lblWaehrung_Ges, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lblSumGesamt, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lblKdName_Head, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lblKdNr_Head, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lblTimePeriod_Head, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lblCountry_Head, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lblAmount_Head, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lblSumme, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lblWahrung, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lblGroup1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
|
||||
End Sub
|
||||
Public WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
|
||||
Public WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
|
||||
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
|
||||
Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
|
||||
Public WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
|
||||
Public WithEvents Label28 As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Public WithEvents ReportInfo2 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
|
||||
Public WithEvents lblDat As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Public WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
|
||||
Public WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
|
||||
Public WithEvents lblKDNumber As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Public WithEvents lblKDName As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Private WithEvents lblKdNr_Head As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Public WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture
|
||||
Public WithEvents GroupFooter2 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
|
||||
Public WithEvents GroupHeader2 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
|
||||
Public WithEvents lblFirma As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Private WithEvents lblTimePeriod_Head As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Private WithEvents lblCountry_Head As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents lblSumme As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents lblCountry As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents lblAmount As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Private WithEvents lblAmount_Head As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents lblWahrung As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Private WithEvents Line12 As GrapeCity.ActiveReports.SectionReportModel.Line
|
||||
Private WithEvents Line14 As GrapeCity.ActiveReports.SectionReportModel.Line
|
||||
Private WithEvents Line15 As GrapeCity.ActiveReports.SectionReportModel.Line
|
||||
Private WithEvents Line16 As GrapeCity.ActiveReports.SectionReportModel.Line
|
||||
Private WithEvents Line17 As GrapeCity.ActiveReports.SectionReportModel.Line
|
||||
Private WithEvents Line18 As GrapeCity.ActiveReports.SectionReportModel.Line
|
||||
Private WithEvents Line19 As GrapeCity.ActiveReports.SectionReportModel.Line
|
||||
Private WithEvents lblKdName_Head As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Private WithEvents Line20 As GrapeCity.ActiveReports.SectionReportModel.Line
|
||||
Public WithEvents lblTimeperiod As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Public WithEvents Label3 As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Public WithEvents lblWaehrung As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents lblSumGesamt As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line
|
||||
Public WithEvents lblWaehrung_Ges As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents lblGroup1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents lblCreditNodeNo As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Private WithEvents TextBox2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Private WithEvents Line4 As GrapeCity.ActiveReports.SectionReportModel.Line
|
||||
End Class
|
||||
129
SDL/Reports/MDM/rpt_3470.resx
Normal file
129
SDL/Reports/MDM/rpt_3470.resx
Normal file
File diff suppressed because one or more lines are too long
8
SDL/Reports/MDM/rpt_3470.vb
Normal file
8
SDL/Reports/MDM/rpt_3470.vb
Normal file
@@ -0,0 +1,8 @@
|
||||
Imports GrapeCity.ActiveReports
|
||||
Imports GrapeCity.ActiveReports.Document
|
||||
|
||||
Public Class rpt_3470
|
||||
Private Sub rptMWSTListe_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
@@ -493,6 +493,12 @@
|
||||
<Compile Include="Administration\frmKasseAbschliessen.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Administration\frmIDS_Stationen.Designer.vb">
|
||||
<DependentUpon>frmIDS_Stationen.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Administration\frmIDS_Stationen.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Administration\frmZinsnachberechnung.Designer.vb">
|
||||
<DependentUpon>frmZinsnachberechnung.vb</DependentUpon>
|
||||
</Compile>
|
||||
@@ -1014,6 +1020,12 @@
|
||||
<DesignTime>True</DesignTime>
|
||||
<DependentUpon>Resources.resx</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Reports\MDM\rpt_3470.Designer.vb">
|
||||
<DependentUpon>rpt_3470.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Reports\MDM\rpt_3470.vb">
|
||||
<SubType>Component</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Reports\MDM\rptMWSTListe.Designer.vb">
|
||||
<DependentUpon>rptMWSTListe.vb</DependentUpon>
|
||||
</Compile>
|
||||
@@ -3323,6 +3335,9 @@
|
||||
<EmbeddedResource Include="Administration\frmKasseAbschliessen.resx">
|
||||
<DependentUpon>frmKasseAbschliessen.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Administration\frmIDS_Stationen.resx">
|
||||
<DependentUpon>frmIDS_Stationen.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Administration\frmZinsnachberechnung.resx">
|
||||
<DependentUpon>frmZinsnachberechnung.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
@@ -3603,6 +3618,9 @@
|
||||
<EmbeddedResource Include="Reports\MDM\BriefSDl\subrptBriefSDL_PLOSE_MEDPASS.resx">
|
||||
<DependentUpon>subrptBriefSDL_PLOSE_MEDPASS.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Reports\MDM\rpt_3470.resx">
|
||||
<DependentUpon>rpt_3470.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Reports\MDM\rptMWSTListe.resx">
|
||||
<DependentUpon>rptMWSTListe.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
|
||||
@@ -121,6 +121,7 @@ Partial Class frmNacherfassungNEU
|
||||
Me.Label34 = New System.Windows.Forms.Label()
|
||||
Me.btnFertig = New System.Windows.Forms.Button()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.Label66 = New System.Windows.Forms.Label()
|
||||
Me.cboAbfertigungsLand = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.cbxEIDR = New System.Windows.Forms.CheckBox()
|
||||
Me.Button4 = New System.Windows.Forms.Button()
|
||||
@@ -236,7 +237,6 @@ Partial Class frmNacherfassungNEU
|
||||
Me.DataGridViewTextBoxColumn5 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.KopierenZwischenablageToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.Label66 = New System.Windows.Forms.Label()
|
||||
Me.pnl.SuspendLayout()
|
||||
Me.Panel3.SuspendLayout()
|
||||
Me.GroupBox4.SuspendLayout()
|
||||
@@ -1572,6 +1572,17 @@ Partial Class frmNacherfassungNEU
|
||||
Me.Panel1.Size = New System.Drawing.Size(883, 818)
|
||||
Me.Panel1.TabIndex = 1
|
||||
'
|
||||
'Label66
|
||||
'
|
||||
Me.Label66.AutoSize = True
|
||||
Me.Label66.ForeColor = System.Drawing.Color.Red
|
||||
Me.Label66.Location = New System.Drawing.Point(491, 613)
|
||||
Me.Label66.Name = "Label66"
|
||||
Me.Label66.Size = New System.Drawing.Size(105, 13)
|
||||
Me.Label66.TabIndex = 94
|
||||
Me.Label66.Text = "Antrags-ID angeben!"
|
||||
Me.Label66.Visible = False
|
||||
'
|
||||
'cboAbfertigungsLand
|
||||
'
|
||||
Me.cboAbfertigungsLand._allowedValuesFreiText = Nothing
|
||||
@@ -3444,17 +3455,6 @@ Partial Class frmNacherfassungNEU
|
||||
Me.KopierenZwischenablageToolStripMenuItem.Size = New System.Drawing.Size(217, 22)
|
||||
Me.KopierenZwischenablageToolStripMenuItem.Text = "Kopieren (Zwischenablage)"
|
||||
'
|
||||
'Label66
|
||||
'
|
||||
Me.Label66.AutoSize = True
|
||||
Me.Label66.ForeColor = System.Drawing.Color.Red
|
||||
Me.Label66.Location = New System.Drawing.Point(491, 613)
|
||||
Me.Label66.Name = "Label66"
|
||||
Me.Label66.Size = New System.Drawing.Size(105, 13)
|
||||
Me.Label66.TabIndex = 94
|
||||
Me.Label66.Text = "Antrags-ID angeben!"
|
||||
Me.Label66.Visible = False
|
||||
'
|
||||
'frmNacherfassungNEU
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
|
||||
@@ -1,6 +1,7 @@
|
||||
Imports GrapeCity.ActiveReports
|
||||
Imports Gemeinsames
|
||||
Imports System.Web.UI.WebControls.Expressions
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
Public Class frmNacherfassungNEU
|
||||
|
||||
@@ -1511,8 +1512,17 @@ Public Class frmNacherfassungNEU
|
||||
End If
|
||||
ElseIf tbcntrRg.SelectedTab Is TabPage2 Then
|
||||
If dgvBelege.SelectedRows.Count = 0 Then Exit Sub
|
||||
If dgvBelege.SelectedRows(0).Cells("RK_ID").Value > 0 Then
|
||||
Dim rechnugn As New cRechnungsausgang(dgvBelege.SelectedRows(0).Cells("RK_ID").Value)
|
||||
If rechnugn.DruckDatumZeit IsNot Nothing Then
|
||||
Dim f As New frmKundenUebersichtZollRgDetails(dgvBelege.SelectedRows(0).Cells("RK_ID").Value)
|
||||
f.ShowDialog()
|
||||
Else
|
||||
MsgBox("Rechnung kann nicht geöffnet werden, weil sie noch nicht gedruckt wurde!")
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
ElseIf tbcntrRg.SelectedTab Is TabPage3 Then
|
||||
Try
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
@@ -1668,6 +1678,7 @@ Public Class frmNacherfassungNEU
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
Class cSpedBuch_Aktendeckel
|
||||
|
||||
50
SDL/USTV/usrCntlUSTV.Designer.vb
generated
50
SDL/USTV/usrCntlUSTV.Designer.vb
generated
@@ -71,6 +71,8 @@ Partial Class usrCntlUSTV
|
||||
Me.btnUSTVAloeschen = New System.Windows.Forms.Button()
|
||||
Me.Panel2 = New System.Windows.Forms.Panel()
|
||||
Me.Panel3 = New System.Windows.Forms.Panel()
|
||||
Me.btn3470 = New System.Windows.Forms.Button()
|
||||
Me.Button4 = New System.Windows.Forms.Button()
|
||||
Me.Button3 = New System.Windows.Forms.Button()
|
||||
Me.Button2 = New System.Windows.Forms.Button()
|
||||
Me.btnVorschau = New System.Windows.Forms.Button()
|
||||
@@ -81,7 +83,7 @@ Partial Class usrCntlUSTV
|
||||
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.ContextMenuStrip3 = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.Button4 = New System.Windows.Forms.Button()
|
||||
Me.ContextMenuStrip4 = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
CType(Me.dgvUSTV, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.Panel1.SuspendLayout()
|
||||
Me.Panel2.SuspendLayout()
|
||||
@@ -770,6 +772,7 @@ Partial Class usrCntlUSTV
|
||||
'Panel3
|
||||
'
|
||||
Me.Panel3.AutoSize = True
|
||||
Me.Panel3.Controls.Add(Me.btn3470)
|
||||
Me.Panel3.Controls.Add(Me.Button4)
|
||||
Me.Panel3.Controls.Add(Me.Button3)
|
||||
Me.Panel3.Controls.Add(Me.Button2)
|
||||
@@ -787,6 +790,33 @@ Partial Class usrCntlUSTV
|
||||
Me.Panel3.Size = New System.Drawing.Size(1627, 77)
|
||||
Me.Panel3.TabIndex = 0
|
||||
'
|
||||
'btn3470
|
||||
'
|
||||
Me.btn3470.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.btn3470.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btn3470.ForeColor = System.Drawing.Color.Black
|
||||
Me.btn3470.Location = New System.Drawing.Point(862, 5)
|
||||
Me.btn3470.Name = "btn3470"
|
||||
Me.btn3470.Size = New System.Drawing.Size(114, 39)
|
||||
Me.btn3470.TabIndex = 30
|
||||
Me.btn3470.Text = "3470"
|
||||
Me.btn3470.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button4
|
||||
'
|
||||
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button4.Image = Global.SDL.My.Resources.Resources.statistik_small
|
||||
Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button4.Location = New System.Drawing.Point(367, 7)
|
||||
Me.Button4.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.Button4.Name = "Button4"
|
||||
Me.Button4.Size = New System.Drawing.Size(128, 41)
|
||||
Me.Button4.TabIndex = 29
|
||||
Me.Button4.Text = "Nicht Eingereichte Anträge"
|
||||
Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.Button4.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText
|
||||
Me.Button4.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button3
|
||||
'
|
||||
Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
@@ -897,20 +927,10 @@ Partial Class usrCntlUSTV
|
||||
Me.ContextMenuStrip3.Name = "ContextMenuStrip1"
|
||||
Me.ContextMenuStrip3.Size = New System.Drawing.Size(61, 4)
|
||||
'
|
||||
'Button4
|
||||
'ContextMenuStrip4
|
||||
'
|
||||
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button4.Image = Global.SDL.My.Resources.Resources.statistik_small
|
||||
Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button4.Location = New System.Drawing.Point(367, 7)
|
||||
Me.Button4.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.Button4.Name = "Button4"
|
||||
Me.Button4.Size = New System.Drawing.Size(128, 41)
|
||||
Me.Button4.TabIndex = 29
|
||||
Me.Button4.Text = "Nicht Eingereichte Anträge"
|
||||
Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.Button4.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText
|
||||
Me.Button4.UseVisualStyleBackColor = True
|
||||
Me.ContextMenuStrip4.Name = "ContextMenuStrip1"
|
||||
Me.ContextMenuStrip4.Size = New System.Drawing.Size(61, 4)
|
||||
'
|
||||
'usrCntlUSTV
|
||||
'
|
||||
@@ -987,4 +1007,6 @@ Partial Class usrCntlUSTV
|
||||
Friend WithEvents lblID As Label
|
||||
Friend WithEvents Button3 As Button
|
||||
Friend WithEvents Button4 As Button
|
||||
Friend WithEvents btn3470 As Button
|
||||
Friend WithEvents ContextMenuStrip4 As ContextMenuStrip
|
||||
End Class
|
||||
|
||||
@@ -769,7 +769,7 @@
|
||||
XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS
|
||||
fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+
|
||||
tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/
|
||||
6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALDwAACw8BkvkDpQAAB4JJREFUSEu9lntM1FcW
|
||||
6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALDAAACwwBP0AiyAAAB4JJREFUSEu9lntM1FcW
|
||||
x0+yNWpdBURGEJ0ZXtVqZX0hFJAB5gVILVbQTRCQ1wwDw7wYGMSCgiI+IoivtbpBwOLqqnUXq30YlVrX
|
||||
bXAFu6Ua2ShG0jVoq1ZFwQffzb3zhG22/+0vOZnf3Nz8Pjn3nPs9X1qx10yqpnWU27iOEuo0pG6qpMKP
|
||||
qyljXxkpt6hozdF6qvxkN2XuW0OymiwqO1I33tBUPTNhsypTUpVuydhTOi5jTynNL08mQUEkiQwyEhql
|
||||
@@ -935,4 +935,7 @@
|
||||
<metadata name="ContextMenuStrip3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>331, 17</value>
|
||||
</metadata>
|
||||
<metadata name="ContextMenuStrip4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>487, 17</value>
|
||||
</metadata>
|
||||
</root>
|
||||
@@ -1,4 +1,7 @@
|
||||
Imports System.ComponentModel
|
||||
Imports com.sun.org.apache.bcel.internal.generic
|
||||
Imports com.sun.xml.internal.rngom
|
||||
Imports DocumentFormat.OpenXml.Drawing
|
||||
Imports Microsoft.Office.Interop
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
@@ -591,7 +594,7 @@ Public Class usrCntlUSTV
|
||||
|
||||
|
||||
|
||||
Private Sub btn2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
||||
Private Sub btn2_Click(sender As Object, e As EventArgs) Handles btn3470.Click
|
||||
|
||||
|
||||
If Not ContextMenuStrip3.Items.ContainsKey("dgv") Then
|
||||
@@ -600,8 +603,6 @@ Public Class usrCntlUSTV
|
||||
ContextMenuStrip3.Items.Add(dgv)
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If Not ContextMenuStrip3.Items.ContainsKey("excel") Then
|
||||
Dim excel = New ToolStripMenuItem() With {.Text = "Excelauswertung starten", .Name = "excel", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
|
||||
ContextMenuStrip3.Items.Add(excel)
|
||||
@@ -620,6 +621,36 @@ Public Class usrCntlUSTV
|
||||
ContextMenuStrip3.Show(Cursor.Position)
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub btn3470_Click(sender As Object, e As EventArgs) Handles btn3470.Click
|
||||
|
||||
|
||||
If Not ContextMenuStrip4.Items.ContainsKey("excel") Then
|
||||
Dim excel = New ToolStripMenuItem() With {.Text = "Excelauswertung starten", .Name = "excel", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
|
||||
ContextMenuStrip4.Items.Add(excel)
|
||||
AddHandler excel.Click, AddressOf mnuItem4_Clicked
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If Not ContextMenuStrip4.Items.ContainsKey("pdf") Then
|
||||
Dim pdf = New ToolStripMenuItem() With {.Text = "PDF", .Name = "pdf", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
|
||||
ContextMenuStrip4.Items.Add(pdf)
|
||||
AddHandler pdf.Click, AddressOf mnuItem4_Clicked
|
||||
End If
|
||||
|
||||
If Not ContextMenuStrip4.Items.ContainsKey("mail") Then
|
||||
Dim mail = New ToolStripMenuItem() With {.Text = "Email generieren", .Name = "mail", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
|
||||
AddHandler mail.Click, AddressOf mnuItem4_Clicked
|
||||
ContextMenuStrip4.Items.Add(mail)
|
||||
End If
|
||||
|
||||
|
||||
|
||||
ContextMenuStrip4.Show(Cursor.Position)
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -1352,6 +1383,176 @@ Public Class usrCntlUSTV
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub mnuItem4_Clicked(sender As Object, e As EventArgs)
|
||||
|
||||
Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem)
|
||||
|
||||
If item IsNot Nothing Then
|
||||
|
||||
Dim KdNr_Auswahl As Integer = -1
|
||||
|
||||
If kdNr > 0 Then
|
||||
KdNr_Auswahl = kdNr
|
||||
ElseIf KdSearchBox1 IsNot Nothing AndAlso KdSearchBox1.KdNr > 0 Then
|
||||
KdNr_Auswahl = KdSearchBox1.KdNr
|
||||
End If
|
||||
|
||||
|
||||
Dim sql_Query As String = "SELECT [UStVAn_KuNr] AS 'Customer No.', [UStVAn_Name] As Name, UStVAn_LandKz as 'Customer Country', [UStVAn_ReDatVon] As 'from', [UStVAn_ReDatBis] As 'to', LandKz As Country, [UStVAn_3470] As Amount,
|
||||
STUFF((
|
||||
SELECT ', ' + CAST(e.GutschriftsNr AS VARCHAR(50))
|
||||
From tblUStVErstattung e
|
||||
Where e.UStVAn_ID = a.UStVAn_ID
|
||||
FOR XML PATH(''), TYPE
|
||||
).value('.', 'NVARCHAR(MAX)'), 1, 2, '') AS 'Credit Note No.'
|
||||
FROM [tblUStVAntrag] a
|
||||
INNER JOIN [Länderverzeichnis für die Außenhandelsstatistik] l ON a.UStVAn_LandNr = l.Landnr
|
||||
WHERE ISNULL([UStVAn_3470], 0) <> 0 " & IIf(KdNr_Auswahl > 0, "AND [UStVAn_KuNr] = " & KdNr_Auswahl & "", "") & "
|
||||
ORDER BY UStVAn_KuNr,UStVAn_Name, DATEPART(YEAR, [UStVAn_ReDatVon]) ASC,LandKz,[UStVAn_ReDatVon] ASC"
|
||||
|
||||
|
||||
Dim dtVorschau_3470 As DataTable = SQL.loadDgvBySql(sql_Query, "FMZOLL")
|
||||
|
||||
If item.Name = "excel" Then
|
||||
|
||||
cProgramFunctions.genExcelFromDT_NEW(dtVorschau_3470, {"F1:F" & (dtVorschau_3470.Rows.Count + 1)}, False,,,, True)
|
||||
|
||||
ElseIf item.Name = "mail" Then
|
||||
|
||||
Try
|
||||
|
||||
|
||||
|
||||
Dim outl As New Outlook.Application
|
||||
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
|
||||
Mail = outl.CreateItem(0)
|
||||
Dim groupField = ""
|
||||
If KdNr_Auswahl > 0 Then
|
||||
groupField = "Customer Country"
|
||||
Dim ADR As New cAdressen(KdNr_Auswahl)
|
||||
Mail.To = ADR.E_Mail
|
||||
If Mail.To <> "" AndAlso ADR.E_Mail2 <> "" Then Mail.To &= ";" & ADR.E_Mail2
|
||||
Else
|
||||
groupField = "Customer No."
|
||||
End If
|
||||
|
||||
|
||||
Dim filePathExcel = cProgramFunctions.genExcelFromDT_NEW(dtVorschau_3470, {"F1:F" & (dtVorschau_3470.Rows.Count + 1)}, False,,,, True,,,, False)
|
||||
Dim FilePath_PDF = create3470Report(dtVorschau_3470, groupField)
|
||||
|
||||
Mail.Attachments.Add(filePathExcel, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue,, "AccountNo_3470.xslx")
|
||||
Mail.Attachments.Add(FilePath_PDF, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue,, "AccountNo_3470.pdf")
|
||||
Mail.Display()
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!")
|
||||
End Try
|
||||
|
||||
ElseIf item.Name = "pdf" Then
|
||||
Dim groupField = ""
|
||||
|
||||
If KdNr_Auswahl > 0 Then
|
||||
groupField = "Customer Country"
|
||||
Else
|
||||
groupField = "Customer No."
|
||||
|
||||
End If
|
||||
|
||||
|
||||
create3470Report(dtVorschau_3470, groupField, True)
|
||||
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Function create3470Report(dt As DataTable, GroupField As String, Optional open As Boolean = False) As String
|
||||
|
||||
Dim rpt As New rpt_3470
|
||||
|
||||
rpt.DataSource = dt
|
||||
|
||||
rpt.GroupHeader1.DataField = GroupField 'Gruppierung
|
||||
rpt.GroupHeader2.DataField = Nothing
|
||||
|
||||
If rpt.DataSource.rows.count > 0 Then
|
||||
|
||||
Dim sum As Double = 0
|
||||
Dim sumGroup As Double = 0
|
||||
rpt.lblDat.Text = Now.ToShortDateString
|
||||
|
||||
|
||||
|
||||
|
||||
AddHandler rpt.ReportHeader1.Format, Sub()
|
||||
If GroupField = "Customer Country" Then
|
||||
rpt.Label3.Text &= " - " & rpt.Fields.Item("Customer Country").Value()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
AddHandler rpt.Detail.Format, Sub()
|
||||
|
||||
rpt.lblKDName.Text = rpt.Fields.Item("Name").Value()
|
||||
rpt.lblKDNumber.Text = rpt.Fields.Item("Customer No.").Value()
|
||||
rpt.lblCountry.Text = rpt.Fields.Item("Country").Value()
|
||||
rpt.lblAmount.Text = CDbl(rpt.Fields.Item("Amount").Value()).ToString("N2") & " €"
|
||||
rpt.lblCreditNodeNo.Text = IIf(Not IsDBNull(rpt.Fields.Item("Credit Note No.").Value()), rpt.Fields.Item("Credit Note No.").Value(), "-")
|
||||
rpt.lblTimeperiod.Text = CDate((rpt.Fields.Item("from").Value())).ToShortDateString & " - " & CDate((rpt.Fields.Item("to").Value())).ToShortDateString
|
||||
|
||||
sum += CDbl(rpt.Fields.Item("Amount").Value()).ToString("N2")
|
||||
sumGroup += CDbl(rpt.Fields.Item("Amount").Value()).ToString("N2")
|
||||
End Sub
|
||||
|
||||
|
||||
AddHandler rpt.GroupFooter1.Format, Sub()
|
||||
|
||||
If GroupField = "Customer Country" Then
|
||||
'rpt.lblGroup1.Text = rpt.Fields.Item("UStVAn_LandKz").Value()
|
||||
rpt.lblWahrung.Text = rpt.Fields.Item("Customer Country").Value()
|
||||
End If
|
||||
|
||||
rpt.lblSumme.Text = sumGroup.ToString("N2") & " €"
|
||||
'rpt.lblWahrung.Text = "EUR" 'rpt.Fields.Item("Währung").Value()
|
||||
sumGroup = 0
|
||||
End Sub
|
||||
|
||||
AddHandler rpt.GroupFooter2.Format, Sub()
|
||||
|
||||
rpt.lblSumGesamt.Text = sum.ToString("N2") & " €"
|
||||
'rpt.lblWaehrung_Ges.Text = "EUR"
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("Konto_3470" & Now.ToString("TMP_ddMMyyyy_HHmmSS") & ".pdf", ".pdf", , False)
|
||||
Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
|
||||
rpt.Run(False)
|
||||
p.NeverEmbedFonts = ""
|
||||
p.Export(rpt.Document, tmpPath)
|
||||
|
||||
If open Then Process.Start(tmpPath)
|
||||
|
||||
rpt.Dispose()
|
||||
|
||||
Return tmpPath
|
||||
|
||||
Else
|
||||
Return ""
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
End Function
|
||||
|
||||
Private Sub btnWikiStatusmails_Click(sender As Object, e As EventArgs) Handles btnWikiStatusmails.Click
|
||||
|
||||
Dim webAddress As String = "https://wiki.verag.ag/software/sdl/ustva"
|
||||
|
||||
@@ -456,7 +456,7 @@ Public Class frmBU_Mahnlauf
|
||||
'If rpt.lblKundenAuftragsnummer.Text = String.Empty Then rpt.lblKundenAuftragsnummerUeberschrift.Visible = False
|
||||
|
||||
|
||||
rpt.lblSachbearbeiter.Text = cFakturierung.getSBRgName(FIRMA.Firma_ID, VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) 'If(RECHNUNG.Sachbearbeiter, "")
|
||||
rpt.lblSachbearbeiter.Text = cFakturierung.getSBRgName(FIRMA.Firma_ID, VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) '
|
||||
|
||||
Select Case FIRMA.Firma_ID
|
||||
Case 19
|
||||
|
||||
406
SDL/buchhaltung/usrCntlBH.Designer.vb
generated
406
SDL/buchhaltung/usrCntlBH.Designer.vb
generated
@@ -25,11 +25,30 @@ Partial Class usrCntlBH
|
||||
Me.Label6 = New System.Windows.Forms.Label()
|
||||
Me.pnl = New System.Windows.Forms.Panel()
|
||||
Me.TabPage1 = New System.Windows.Forms.TabPage()
|
||||
Me.lblUID_zupruefen = New System.Windows.Forms.Label()
|
||||
Me.Label53 = New System.Windows.Forms.Label()
|
||||
Me.GroupBox12 = New System.Windows.Forms.GroupBox()
|
||||
Me.cbx_nur_ungueltige = New System.Windows.Forms.CheckBox()
|
||||
Me.txtUID_Jahr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtUID_Monat = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label56 = New System.Windows.Forms.Label()
|
||||
Me.Label55 = New System.Windows.Forms.Label()
|
||||
Me.Label54 = New System.Windows.Forms.Label()
|
||||
Me.cbxFirmaUID = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.Button14 = New System.Windows.Forms.Button()
|
||||
Me.GroupBox11 = New System.Windows.Forms.GroupBox()
|
||||
Me.btnDel_ = New VERAG_PROG_ALLGEMEIN.FlatButton()
|
||||
Me.btnWikiStatusmails = New System.Windows.Forms.Button()
|
||||
Me.txtAbBetragAbrechnen = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label52 = New System.Windows.Forms.Label()
|
||||
Me.btnZNBverrechnen = New System.Windows.Forms.Button()
|
||||
Me.Label51 = New System.Windows.Forms.Label()
|
||||
Me.txtnichtabrechneteKunden = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label49 = New System.Windows.Forms.Label()
|
||||
Me.btnZinsbelastung = New System.Windows.Forms.Button()
|
||||
Me.Button13 = New System.Windows.Forms.Button()
|
||||
Me.txtZinssatz = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.lblnichtabgerechneteZNB = New System.Windows.Forms.Label()
|
||||
Me.Label45 = New System.Windows.Forms.Label()
|
||||
Me.Label48 = New System.Windows.Forms.Label()
|
||||
Me.txtKdNrvon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
@@ -42,12 +61,8 @@ Partial Class usrCntlBH
|
||||
Me.txtZRbis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label42 = New System.Windows.Forms.Label()
|
||||
Me.GroupBox10 = New System.Windows.Forms.GroupBox()
|
||||
Me.btnZNBverrechnen = New System.Windows.Forms.Button()
|
||||
Me.txtnichtabrechneteKunden = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label43 = New System.Windows.Forms.Label()
|
||||
Me.Button13 = New System.Windows.Forms.Button()
|
||||
Me.Button12 = New System.Windows.Forms.Button()
|
||||
Me.lblnichtabgerechneteZNB = New System.Windows.Forms.Label()
|
||||
Me.Label34 = New System.Windows.Forms.Label()
|
||||
Me.GroupBox8 = New System.Windows.Forms.GroupBox()
|
||||
Me.Label36 = New System.Windows.Forms.Label()
|
||||
@@ -146,9 +161,10 @@ Partial Class usrCntlBH
|
||||
Me.Label30 = New System.Windows.Forms.Label()
|
||||
Me.Label29 = New System.Windows.Forms.Label()
|
||||
Me.Button7 = New System.Windows.Forms.Button()
|
||||
Me.Label52 = New System.Windows.Forms.Label()
|
||||
Me.btn_fehlendeUID = New System.Windows.Forms.Button()
|
||||
Me.pnl.SuspendLayout()
|
||||
Me.TabPage1.SuspendLayout()
|
||||
Me.GroupBox12.SuspendLayout()
|
||||
Me.GroupBox11.SuspendLayout()
|
||||
Me.GroupBox10.SuspendLayout()
|
||||
Me.GroupBox8.SuspendLayout()
|
||||
@@ -190,6 +206,10 @@ Partial Class usrCntlBH
|
||||
'TabPage1
|
||||
'
|
||||
Me.TabPage1.AutoScroll = True
|
||||
Me.TabPage1.Controls.Add(Me.btn_fehlendeUID)
|
||||
Me.TabPage1.Controls.Add(Me.lblUID_zupruefen)
|
||||
Me.TabPage1.Controls.Add(Me.Label53)
|
||||
Me.TabPage1.Controls.Add(Me.GroupBox12)
|
||||
Me.TabPage1.Controls.Add(Me.GroupBox11)
|
||||
Me.TabPage1.Controls.Add(Me.Label42)
|
||||
Me.TabPage1.Controls.Add(Me.GroupBox10)
|
||||
@@ -214,8 +234,159 @@ Partial Class usrCntlBH
|
||||
Me.TabPage1.Text = "Allgemein"
|
||||
Me.TabPage1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'lblUID_zupruefen
|
||||
'
|
||||
Me.lblUID_zupruefen.AutoSize = True
|
||||
Me.lblUID_zupruefen.Location = New System.Drawing.Point(625, 106)
|
||||
Me.lblUID_zupruefen.Name = "lblUID_zupruefen"
|
||||
Me.lblUID_zupruefen.Size = New System.Drawing.Size(0, 13)
|
||||
Me.lblUID_zupruefen.TabIndex = 35
|
||||
'
|
||||
'Label53
|
||||
'
|
||||
Me.Label53.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label53.ForeColor = System.Drawing.SystemColors.ControlDarkDark
|
||||
Me.Label53.Location = New System.Drawing.Point(479, 104)
|
||||
Me.Label53.Name = "Label53"
|
||||
Me.Label53.Size = New System.Drawing.Size(298, 18)
|
||||
Me.Label53.TabIndex = 36
|
||||
Me.Label53.Text = "UID PRÜFUNGEN"
|
||||
'
|
||||
'GroupBox12
|
||||
'
|
||||
Me.GroupBox12.Controls.Add(Me.cbx_nur_ungueltige)
|
||||
Me.GroupBox12.Controls.Add(Me.txtUID_Jahr)
|
||||
Me.GroupBox12.Controls.Add(Me.txtUID_Monat)
|
||||
Me.GroupBox12.Controls.Add(Me.Label56)
|
||||
Me.GroupBox12.Controls.Add(Me.Label55)
|
||||
Me.GroupBox12.Controls.Add(Me.Label54)
|
||||
Me.GroupBox12.Controls.Add(Me.cbxFirmaUID)
|
||||
Me.GroupBox12.Controls.Add(Me.Button14)
|
||||
Me.GroupBox12.Location = New System.Drawing.Point(478, 116)
|
||||
Me.GroupBox12.Name = "GroupBox12"
|
||||
Me.GroupBox12.Size = New System.Drawing.Size(374, 77)
|
||||
Me.GroupBox12.TabIndex = 37
|
||||
Me.GroupBox12.TabStop = False
|
||||
'
|
||||
'cbx_nur_ungueltige
|
||||
'
|
||||
Me.cbx_nur_ungueltige.AutoSize = True
|
||||
Me.cbx_nur_ungueltige.Checked = True
|
||||
Me.cbx_nur_ungueltige.CheckState = System.Windows.Forms.CheckState.Checked
|
||||
Me.cbx_nur_ungueltige.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.cbx_nur_ungueltige.Location = New System.Drawing.Point(226, 13)
|
||||
Me.cbx_nur_ungueltige.Name = "cbx_nur_ungueltige"
|
||||
Me.cbx_nur_ungueltige.Size = New System.Drawing.Size(87, 17)
|
||||
Me.cbx_nur_ungueltige.TabIndex = 29
|
||||
Me.cbx_nur_ungueltige.Text = "nur ungültige"
|
||||
Me.cbx_nur_ungueltige.UseVisualStyleBackColor = True
|
||||
'
|
||||
'txtUID_Jahr
|
||||
'
|
||||
Me.txtUID_Jahr._DateTimeOnly = False
|
||||
Me.txtUID_Jahr._numbersOnly = True
|
||||
Me.txtUID_Jahr._numbersOnlyKommastellen = ""
|
||||
Me.txtUID_Jahr._numbersOnlyTrennzeichen = False
|
||||
Me.txtUID_Jahr._Prozent = False
|
||||
Me.txtUID_Jahr._ShortDateNew = False
|
||||
Me.txtUID_Jahr._ShortDateOnly = False
|
||||
Me.txtUID_Jahr._TimeOnly = False
|
||||
Me.txtUID_Jahr._TimeOnly_Seconds = False
|
||||
Me.txtUID_Jahr._value = ""
|
||||
Me.txtUID_Jahr._Waehrung = False
|
||||
Me.txtUID_Jahr._WaehrungZeichen = False
|
||||
Me.txtUID_Jahr.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtUID_Jahr.Location = New System.Drawing.Point(202, 32)
|
||||
Me.txtUID_Jahr.MaxLength = 4
|
||||
Me.txtUID_Jahr.MaxLineLength = -1
|
||||
Me.txtUID_Jahr.MaxLines_Warning = ""
|
||||
Me.txtUID_Jahr.MaxLines_Warning_Label = Nothing
|
||||
Me.txtUID_Jahr.Name = "txtUID_Jahr"
|
||||
Me.txtUID_Jahr.Size = New System.Drawing.Size(64, 20)
|
||||
Me.txtUID_Jahr.TabIndex = 34
|
||||
Me.txtUID_Jahr.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
|
||||
'
|
||||
'txtUID_Monat
|
||||
'
|
||||
Me.txtUID_Monat._DateTimeOnly = False
|
||||
Me.txtUID_Monat._numbersOnly = True
|
||||
Me.txtUID_Monat._numbersOnlyKommastellen = ""
|
||||
Me.txtUID_Monat._numbersOnlyTrennzeichen = False
|
||||
Me.txtUID_Monat._Prozent = False
|
||||
Me.txtUID_Monat._ShortDateNew = False
|
||||
Me.txtUID_Monat._ShortDateOnly = False
|
||||
Me.txtUID_Monat._TimeOnly = False
|
||||
Me.txtUID_Monat._TimeOnly_Seconds = False
|
||||
Me.txtUID_Monat._value = ""
|
||||
Me.txtUID_Monat._Waehrung = False
|
||||
Me.txtUID_Monat._WaehrungZeichen = False
|
||||
Me.txtUID_Monat.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtUID_Monat.Location = New System.Drawing.Point(168, 32)
|
||||
Me.txtUID_Monat.MaxLength = 2
|
||||
Me.txtUID_Monat.MaxLineLength = -1
|
||||
Me.txtUID_Monat.MaxLines_Warning = ""
|
||||
Me.txtUID_Monat.MaxLines_Warning_Label = Nothing
|
||||
Me.txtUID_Monat.Name = "txtUID_Monat"
|
||||
Me.txtUID_Monat.Size = New System.Drawing.Size(24, 20)
|
||||
Me.txtUID_Monat.TabIndex = 21
|
||||
Me.txtUID_Monat.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
|
||||
'
|
||||
'Label56
|
||||
'
|
||||
Me.Label56.AutoSize = True
|
||||
Me.Label56.Location = New System.Drawing.Point(100, 35)
|
||||
Me.Label56.Name = "Label56"
|
||||
Me.Label56.Size = New System.Drawing.Size(62, 13)
|
||||
Me.Label56.TabIndex = 33
|
||||
Me.Label56.Text = "Monat/Jahr"
|
||||
'
|
||||
'Label55
|
||||
'
|
||||
Me.Label55.AutoSize = True
|
||||
Me.Label55.Location = New System.Drawing.Point(100, 57)
|
||||
Me.Label55.Name = "Label55"
|
||||
Me.Label55.Size = New System.Drawing.Size(35, 13)
|
||||
Me.Label55.TabIndex = 32
|
||||
Me.Label55.Text = "Firma:"
|
||||
'
|
||||
'Label54
|
||||
'
|
||||
Me.Label54.Location = New System.Drawing.Point(100, 12)
|
||||
Me.Label54.Name = "Label54"
|
||||
Me.Label54.Size = New System.Drawing.Size(224, 17)
|
||||
Me.Label54.TabIndex = 3
|
||||
Me.Label54.Text = "alle UID-Prüfungen"
|
||||
'
|
||||
'cbxFirmaUID
|
||||
'
|
||||
Me.cbxFirmaUID._allowedValuesFreiText = Nothing
|
||||
Me.cbxFirmaUID._allowFreiText = False
|
||||
Me.cbxFirmaUID._value = ""
|
||||
Me.cbxFirmaUID.FormattingEnabled = True
|
||||
Me.cbxFirmaUID.Location = New System.Drawing.Point(141, 53)
|
||||
Me.cbxFirmaUID.Name = "cbxFirmaUID"
|
||||
Me.cbxFirmaUID.Size = New System.Drawing.Size(125, 21)
|
||||
Me.cbxFirmaUID.TabIndex = 31
|
||||
'
|
||||
'Button14
|
||||
'
|
||||
Me.Button14.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button14.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.Button14.Image = Global.SDL.My.Resources.Resources.Excel_logo
|
||||
Me.Button14.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button14.Location = New System.Drawing.Point(6, 12)
|
||||
Me.Button14.Name = "Button14"
|
||||
Me.Button14.Size = New System.Drawing.Size(88, 36)
|
||||
Me.Button14.TabIndex = 1
|
||||
Me.Button14.Text = "Excel"
|
||||
Me.Button14.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.Button14.UseVisualStyleBackColor = True
|
||||
'
|
||||
'GroupBox11
|
||||
'
|
||||
Me.GroupBox11.Controls.Add(Me.btnDel_)
|
||||
Me.GroupBox11.Controls.Add(Me.btnWikiStatusmails)
|
||||
Me.GroupBox11.Controls.Add(Me.txtAbBetragAbrechnen)
|
||||
Me.GroupBox11.Controls.Add(Me.Label52)
|
||||
Me.GroupBox11.Controls.Add(Me.btnZNBverrechnen)
|
||||
Me.GroupBox11.Controls.Add(Me.Label51)
|
||||
@@ -241,6 +412,82 @@ Partial Class usrCntlBH
|
||||
Me.GroupBox11.TabIndex = 35
|
||||
Me.GroupBox11.TabStop = False
|
||||
'
|
||||
'btnDel_
|
||||
'
|
||||
Me.btnDel_.allowBorder = False
|
||||
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_.FlatAppearance.BorderSize = 0
|
||||
Me.btnDel_.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnDel_.ForeColor = System.Drawing.Color.Black
|
||||
Me.btnDel_.Location = New System.Drawing.Point(814, 42)
|
||||
Me.btnDel_.Name = "btnDel_"
|
||||
Me.btnDel_.Size = New System.Drawing.Size(20, 20)
|
||||
Me.btnDel_.TabIndex = 74
|
||||
Me.btnDel_.UseVisualStyleBackColor = True
|
||||
Me.btnDel_.Visible = False
|
||||
'
|
||||
'btnWikiStatusmails
|
||||
'
|
||||
Me.btnWikiStatusmails.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen
|
||||
Me.btnWikiStatusmails.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.btnWikiStatusmails.FlatAppearance.BorderSize = 0
|
||||
Me.btnWikiStatusmails.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnWikiStatusmails.Location = New System.Drawing.Point(814, 10)
|
||||
Me.btnWikiStatusmails.Name = "btnWikiStatusmails"
|
||||
Me.btnWikiStatusmails.Size = New System.Drawing.Size(25, 20)
|
||||
Me.btnWikiStatusmails.TabIndex = 73
|
||||
Me.btnWikiStatusmails.UseVisualStyleBackColor = True
|
||||
'
|
||||
'txtAbBetragAbrechnen
|
||||
'
|
||||
Me.txtAbBetragAbrechnen._DateTimeOnly = False
|
||||
Me.txtAbBetragAbrechnen._numbersOnly = True
|
||||
Me.txtAbBetragAbrechnen._numbersOnlyKommastellen = ""
|
||||
Me.txtAbBetragAbrechnen._numbersOnlyTrennzeichen = True
|
||||
Me.txtAbBetragAbrechnen._Prozent = False
|
||||
Me.txtAbBetragAbrechnen._ShortDateNew = False
|
||||
Me.txtAbBetragAbrechnen._ShortDateOnly = False
|
||||
Me.txtAbBetragAbrechnen._TimeOnly = False
|
||||
Me.txtAbBetragAbrechnen._TimeOnly_Seconds = False
|
||||
Me.txtAbBetragAbrechnen._value = "0"
|
||||
Me.txtAbBetragAbrechnen._Waehrung = False
|
||||
Me.txtAbBetragAbrechnen._WaehrungZeichen = False
|
||||
Me.txtAbBetragAbrechnen.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtAbBetragAbrechnen.Location = New System.Drawing.Point(665, 43)
|
||||
Me.txtAbBetragAbrechnen.MaxLineLength = -1
|
||||
Me.txtAbBetragAbrechnen.MaxLines_Warning = ""
|
||||
Me.txtAbBetragAbrechnen.MaxLines_Warning_Label = Nothing
|
||||
Me.txtAbBetragAbrechnen.Name = "txtAbBetragAbrechnen"
|
||||
Me.txtAbBetragAbrechnen.Size = New System.Drawing.Size(34, 20)
|
||||
Me.txtAbBetragAbrechnen.TabIndex = 42
|
||||
Me.txtAbBetragAbrechnen.Text = "20"
|
||||
Me.txtAbBetragAbrechnen.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
|
||||
'
|
||||
'Label52
|
||||
'
|
||||
Me.Label52.AutoSize = True
|
||||
Me.Label52.Location = New System.Drawing.Point(521, 46)
|
||||
Me.Label52.Name = "Label52"
|
||||
Me.Label52.Size = New System.Drawing.Size(138, 13)
|
||||
Me.Label52.TabIndex = 41
|
||||
Me.Label52.Text = "*wenn nicht im Kd hinterlegt"
|
||||
'
|
||||
'btnZNBverrechnen
|
||||
'
|
||||
Me.btnZNBverrechnen.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
||||
Me.btnZNBverrechnen.Enabled = False
|
||||
Me.btnZNBverrechnen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnZNBverrechnen.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.btnZNBverrechnen.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnZNBverrechnen.Location = New System.Drawing.Point(710, 39)
|
||||
Me.btnZNBverrechnen.Name = "btnZNBverrechnen"
|
||||
Me.btnZNBverrechnen.Size = New System.Drawing.Size(98, 26)
|
||||
Me.btnZNBverrechnen.TabIndex = 40
|
||||
Me.btnZNBverrechnen.Text = "verrechnen"
|
||||
Me.btnZNBverrechnen.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label51
|
||||
'
|
||||
Me.Label51.AutoSize = True
|
||||
@@ -252,6 +499,32 @@ Partial Class usrCntlBH
|
||||
Me.Label51.TabIndex = 36
|
||||
Me.Label51.Text = "Zinsnachberechnung"
|
||||
'
|
||||
'txtnichtabrechneteKunden
|
||||
'
|
||||
Me.txtnichtabrechneteKunden._DateTimeOnly = False
|
||||
Me.txtnichtabrechneteKunden._numbersOnly = False
|
||||
Me.txtnichtabrechneteKunden._numbersOnlyKommastellen = ""
|
||||
Me.txtnichtabrechneteKunden._numbersOnlyTrennzeichen = True
|
||||
Me.txtnichtabrechneteKunden._Prozent = False
|
||||
Me.txtnichtabrechneteKunden._ShortDateNew = False
|
||||
Me.txtnichtabrechneteKunden._ShortDateOnly = False
|
||||
Me.txtnichtabrechneteKunden._TimeOnly = False
|
||||
Me.txtnichtabrechneteKunden._TimeOnly_Seconds = False
|
||||
Me.txtnichtabrechneteKunden._value = "0"
|
||||
Me.txtnichtabrechneteKunden._Waehrung = False
|
||||
Me.txtnichtabrechneteKunden._WaehrungZeichen = True
|
||||
Me.txtnichtabrechneteKunden.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtnichtabrechneteKunden.Location = New System.Drawing.Point(665, 16)
|
||||
Me.txtnichtabrechneteKunden.MaxLineLength = -1
|
||||
Me.txtnichtabrechneteKunden.MaxLines_Warning = ""
|
||||
Me.txtnichtabrechneteKunden.MaxLines_Warning_Label = Nothing
|
||||
Me.txtnichtabrechneteKunden.Name = "txtnichtabrechneteKunden"
|
||||
Me.txtnichtabrechneteKunden.ReadOnly = True
|
||||
Me.txtnichtabrechneteKunden.Size = New System.Drawing.Size(34, 20)
|
||||
Me.txtnichtabrechneteKunden.TabIndex = 39
|
||||
Me.txtnichtabrechneteKunden.Text = "0"
|
||||
Me.txtnichtabrechneteKunden.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
|
||||
'
|
||||
'Label49
|
||||
'
|
||||
Me.Label49.AutoSize = True
|
||||
@@ -274,6 +547,19 @@ Partial Class usrCntlBH
|
||||
Me.btnZinsbelastung.Text = "Zinsbelastung erstellen"
|
||||
Me.btnZinsbelastung.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button13
|
||||
'
|
||||
Me.Button13.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
||||
Me.Button13.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button13.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.Button13.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button13.Location = New System.Drawing.Point(710, 10)
|
||||
Me.Button13.Name = "Button13"
|
||||
Me.Button13.Size = New System.Drawing.Size(98, 26)
|
||||
Me.Button13.TabIndex = 38
|
||||
Me.Button13.Text = "Übersicht"
|
||||
Me.Button13.UseVisualStyleBackColor = True
|
||||
'
|
||||
'txtZinssatz
|
||||
'
|
||||
Me.txtZinssatz._DateTimeOnly = False
|
||||
@@ -298,6 +584,15 @@ Partial Class usrCntlBH
|
||||
Me.txtZinssatz.TabIndex = 31
|
||||
Me.txtZinssatz.Text = "9.5"
|
||||
'
|
||||
'lblnichtabgerechneteZNB
|
||||
'
|
||||
Me.lblnichtabgerechneteZNB.AutoSize = True
|
||||
Me.lblnichtabgerechneteZNB.Location = New System.Drawing.Point(521, 19)
|
||||
Me.lblnichtabgerechneteZNB.Name = "lblnichtabgerechneteZNB"
|
||||
Me.lblnichtabgerechneteZNB.Size = New System.Drawing.Size(144, 13)
|
||||
Me.lblnichtabgerechneteZNB.TabIndex = 37
|
||||
Me.lblnichtabgerechneteZNB.Text = "Nicht abgerechnete Kunden:"
|
||||
'
|
||||
'Label45
|
||||
'
|
||||
Me.Label45.AutoSize = True
|
||||
@@ -482,46 +777,6 @@ Partial Class usrCntlBH
|
||||
Me.GroupBox10.TabIndex = 18
|
||||
Me.GroupBox10.TabStop = False
|
||||
'
|
||||
'btnZNBverrechnen
|
||||
'
|
||||
Me.btnZNBverrechnen.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
||||
Me.btnZNBverrechnen.Enabled = False
|
||||
Me.btnZNBverrechnen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnZNBverrechnen.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.btnZNBverrechnen.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnZNBverrechnen.Location = New System.Drawing.Point(743, 39)
|
||||
Me.btnZNBverrechnen.Name = "btnZNBverrechnen"
|
||||
Me.btnZNBverrechnen.Size = New System.Drawing.Size(98, 26)
|
||||
Me.btnZNBverrechnen.TabIndex = 40
|
||||
Me.btnZNBverrechnen.Text = "verrechnen"
|
||||
Me.btnZNBverrechnen.UseVisualStyleBackColor = True
|
||||
'
|
||||
'txtnichtabrechneteKunden
|
||||
'
|
||||
Me.txtnichtabrechneteKunden._DateTimeOnly = False
|
||||
Me.txtnichtabrechneteKunden._numbersOnly = False
|
||||
Me.txtnichtabrechneteKunden._numbersOnlyKommastellen = ""
|
||||
Me.txtnichtabrechneteKunden._numbersOnlyTrennzeichen = True
|
||||
Me.txtnichtabrechneteKunden._Prozent = False
|
||||
Me.txtnichtabrechneteKunden._ShortDateNew = False
|
||||
Me.txtnichtabrechneteKunden._ShortDateOnly = False
|
||||
Me.txtnichtabrechneteKunden._TimeOnly = False
|
||||
Me.txtnichtabrechneteKunden._TimeOnly_Seconds = False
|
||||
Me.txtnichtabrechneteKunden._value = "0"
|
||||
Me.txtnichtabrechneteKunden._Waehrung = False
|
||||
Me.txtnichtabrechneteKunden._WaehrungZeichen = True
|
||||
Me.txtnichtabrechneteKunden.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtnichtabrechneteKunden.Location = New System.Drawing.Point(698, 16)
|
||||
Me.txtnichtabrechneteKunden.MaxLineLength = -1
|
||||
Me.txtnichtabrechneteKunden.MaxLines_Warning = ""
|
||||
Me.txtnichtabrechneteKunden.MaxLines_Warning_Label = Nothing
|
||||
Me.txtnichtabrechneteKunden.Name = "txtnichtabrechneteKunden"
|
||||
Me.txtnichtabrechneteKunden.ReadOnly = True
|
||||
Me.txtnichtabrechneteKunden.Size = New System.Drawing.Size(34, 20)
|
||||
Me.txtnichtabrechneteKunden.TabIndex = 39
|
||||
Me.txtnichtabrechneteKunden.Text = "0"
|
||||
Me.txtnichtabrechneteKunden.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
|
||||
'
|
||||
'Label43
|
||||
'
|
||||
Me.Label43.AutoSize = True
|
||||
@@ -531,19 +786,6 @@ Partial Class usrCntlBH
|
||||
Me.Label43.TabIndex = 2
|
||||
Me.Label43.Text = "Sachkontenzuweisung für Syska."
|
||||
'
|
||||
'Button13
|
||||
'
|
||||
Me.Button13.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
||||
Me.Button13.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button13.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.Button13.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button13.Location = New System.Drawing.Point(743, 10)
|
||||
Me.Button13.Name = "Button13"
|
||||
Me.Button13.Size = New System.Drawing.Size(98, 26)
|
||||
Me.Button13.TabIndex = 38
|
||||
Me.Button13.Text = "Übersicht"
|
||||
Me.Button13.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button12
|
||||
'
|
||||
Me.Button12.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
||||
@@ -557,15 +799,6 @@ Partial Class usrCntlBH
|
||||
Me.Button12.Text = "Sachkonten"
|
||||
Me.Button12.UseVisualStyleBackColor = True
|
||||
'
|
||||
'lblnichtabgerechneteZNB
|
||||
'
|
||||
Me.lblnichtabgerechneteZNB.AutoSize = True
|
||||
Me.lblnichtabgerechneteZNB.Location = New System.Drawing.Point(554, 19)
|
||||
Me.lblnichtabgerechneteZNB.Name = "lblnichtabgerechneteZNB"
|
||||
Me.lblnichtabgerechneteZNB.Size = New System.Drawing.Size(144, 13)
|
||||
Me.lblnichtabgerechneteZNB.TabIndex = 37
|
||||
Me.lblnichtabgerechneteZNB.Text = "Nicht abgerechnete Kunden:"
|
||||
'
|
||||
'Label34
|
||||
'
|
||||
Me.Label34.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
@@ -646,7 +879,7 @@ Partial Class usrCntlBH
|
||||
Me.GroupBox7.Controls.Add(Me.Button6)
|
||||
Me.GroupBox7.Location = New System.Drawing.Point(6, 116)
|
||||
Me.GroupBox7.Name = "GroupBox7"
|
||||
Me.GroupBox7.Size = New System.Drawing.Size(847, 69)
|
||||
Me.GroupBox7.Size = New System.Drawing.Size(369, 69)
|
||||
Me.GroupBox7.TabIndex = 13
|
||||
Me.GroupBox7.TabStop = False
|
||||
'
|
||||
@@ -654,7 +887,7 @@ Partial Class usrCntlBH
|
||||
'
|
||||
Me.Label33.Location = New System.Drawing.Point(145, 30)
|
||||
Me.Label33.Name = "Label33"
|
||||
Me.Label33.Size = New System.Drawing.Size(327, 17)
|
||||
Me.Label33.Size = New System.Drawing.Size(224, 17)
|
||||
Me.Label33.TabIndex = 3
|
||||
Me.Label33.Text = "Mahnsystem gekoppelt mit der FIBU (Syska)"
|
||||
'
|
||||
@@ -1821,14 +2054,18 @@ Partial Class usrCntlBH
|
||||
Me.Button7.Text = "Importieren"
|
||||
Me.Button7.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label52
|
||||
'btn_fehlendeUID
|
||||
'
|
||||
Me.Label52.AutoSize = True
|
||||
Me.Label52.Location = New System.Drawing.Point(554, 46)
|
||||
Me.Label52.Name = "Label52"
|
||||
Me.Label52.Size = New System.Drawing.Size(138, 13)
|
||||
Me.Label52.TabIndex = 41
|
||||
Me.Label52.Text = "*wenn nicht im Kd hinterlegt"
|
||||
Me.btn_fehlendeUID.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btn_fehlendeUID.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.btn_fehlendeUID.Image = Global.SDL.My.Resources.Resources.Excel_logo
|
||||
Me.btn_fehlendeUID.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btn_fehlendeUID.Location = New System.Drawing.Point(810, 102)
|
||||
Me.btn_fehlendeUID.Name = "btn_fehlendeUID"
|
||||
Me.btn_fehlendeUID.Size = New System.Drawing.Size(43, 20)
|
||||
Me.btn_fehlendeUID.TabIndex = 35
|
||||
Me.btn_fehlendeUID.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.btn_fehlendeUID.UseVisualStyleBackColor = True
|
||||
'
|
||||
'usrCntlBH
|
||||
'
|
||||
@@ -1843,6 +2080,8 @@ Partial Class usrCntlBH
|
||||
Me.pnl.PerformLayout()
|
||||
Me.TabPage1.ResumeLayout(False)
|
||||
Me.TabPage1.PerformLayout()
|
||||
Me.GroupBox12.ResumeLayout(False)
|
||||
Me.GroupBox12.PerformLayout()
|
||||
Me.GroupBox11.ResumeLayout(False)
|
||||
Me.GroupBox11.PerformLayout()
|
||||
Me.GroupBox10.ResumeLayout(False)
|
||||
@@ -2001,4 +2240,19 @@ Partial Class usrCntlBH
|
||||
Friend WithEvents txtnichtabrechneteKunden As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents btnZNBverrechnen As Button
|
||||
Friend WithEvents Label52 As Label
|
||||
Friend WithEvents Label53 As Label
|
||||
Friend WithEvents GroupBox12 As GroupBox
|
||||
Friend WithEvents txtUID_Jahr As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents txtUID_Monat As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label56 As Label
|
||||
Friend WithEvents Label55 As Label
|
||||
Friend WithEvents Label54 As Label
|
||||
Friend WithEvents cbxFirmaUID As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents Button14 As Button
|
||||
Friend WithEvents cbx_nur_ungueltige As CheckBox
|
||||
Friend WithEvents lblUID_zupruefen As Label
|
||||
Friend WithEvents txtAbBetragAbrechnen As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents btnWikiStatusmails As Button
|
||||
Friend WithEvents btnDel_ As VERAG_PROG_ALLGEMEIN.FlatButton
|
||||
Friend WithEvents btn_fehlendeUID As Button
|
||||
End Class
|
||||
|
||||
@@ -1,7 +1,10 @@
|
||||
Imports System.Globalization
|
||||
Imports System.Text
|
||||
Imports System.Windows.Media.Animation
|
||||
Imports com.sun.crypto.provider
|
||||
Imports com.sun.xml.internal.rngom
|
||||
Imports GrapeCity.ActiveReports.ReportsCore.Tools
|
||||
Imports jdk.nashorn.internal.objects.annotations
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
Public Class usrCntlBH
|
||||
@@ -28,11 +31,20 @@ Public Class usrCntlBH
|
||||
Private Sub usrCntlBH_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
'MyComboBox1.fillWithSQL(" SELECT tblUStVAntrag.UStVAn_LandKz,tblUStVAntrag.UStVAn_LandKz FROM tblUStVAntrag GROUP BY tblUStVAntrag.UStVAn_LandKz HAVING (((tblUStVAntrag.UStVAn_LandKz) Is Not Null)) ", False, "FMZOLL", True)
|
||||
|
||||
|
||||
|
||||
cboAbfVerbFirma.fillWithSQL(" SELECT distinct([Firma]) FROM [VERAG].[dbo].[Filialen] order by [Firma]", False, "FMZOLL", True)
|
||||
cboAbfVerbFirma.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
|
||||
|
||||
cbxFirmaUID.Items.Add(New MyListItem("AMBAR", "AMBAR"))
|
||||
cbxFirmaUID.Items.Add(New MyListItem("IMEX", "IMEX"))
|
||||
cbxFirmaUID.Items.Add(New MyListItem("ATILLA", "ATILLA"))
|
||||
cbxFirmaUID.Items.Add(New MyListItem("UNISPED", "UNISPED"))
|
||||
cbxFirmaUID.Items.Add(New MyListItem("VERAG", "VERAG"))
|
||||
cbxFirmaUID.Items.Add(New MyListItem("", ""))
|
||||
cbxFirmaUID.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
|
||||
|
||||
txtUID_Jahr.Text = Now().Year
|
||||
txtUID_Monat.Text = Now().Month
|
||||
|
||||
MyComboBox1.fillWithSQL(" SELECT Währungstabelle.LandKz, [Länderverzeichnis für die Außenhandelsstatistik].LandKz + ' - ' + [Länderverzeichnis für die Außenhandelsstatistik].LandBez AS LandKzISO2 " &
|
||||
" FROM [Länderverzeichnis für die Außenhandelsstatistik] LEFT JOIN Währungstabelle ON [Länderverzeichnis für die Außenhandelsstatistik].LandNr = Währungstabelle.Währungsschlüssel " &
|
||||
" where [Länderverzeichnis für die Außenhandelsstatistik].LandKz IN ('DE','AT','BA','BE','BG','FR','HR','MK','MD','ME','NL','RO','CH','SK','SI','RS','TR','HU') " &
|
||||
@@ -49,7 +61,17 @@ Public Class usrCntlBH
|
||||
|
||||
Dim isMDM As Boolean = False
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung = "MDM" OrElse VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_nname = "Breimaier" Then isMDM = True
|
||||
If isMDM Then txtnichtabrechneteKunden.Text = SQL.getValueTxtBySql("SELECT count(distinct(kundenNr)) FROM [VERAG].[dbo].[tblMDM_Zinsberechnung] where verrechnet is null", "FMZOLL",,, "0")
|
||||
If isMDM Then
|
||||
txtnichtabrechneteKunden.Text = SQL.getValueTxtBySql("SELECT count(distinct(kundenNr)) FROM [VERAG].[dbo].[tblMDM_Zinsberechnung] where verrechnet is null", "FMZOLL",,, "0")
|
||||
If IsNumeric(txtnichtabrechneteKunden.Text) AndAlso CInt(txtnichtabrechneteKunden.Text) > 0 Then
|
||||
btnDel_.Visible = True
|
||||
Else
|
||||
btnDel_.Visible = False
|
||||
End If
|
||||
|
||||
Else
|
||||
|
||||
End If
|
||||
|
||||
MyListBox1.fillWithSQL("SELECT [Firma_ID],[Firma_Bez] FROM [VERAG].[dbo].[tblFirma] where Firma_ID NOT IN (20) order by [Firma_ID] ", False, "FMZOLL")
|
||||
|
||||
@@ -815,39 +837,42 @@ Public Class usrCntlBH
|
||||
Dim toleranztage As Integer = CInt(txtTolInTagen.Text)
|
||||
|
||||
|
||||
Dim sqlStr_FIBU = "declare @KundeVon as Integer = " & txtKdNrvon.Text & "
|
||||
Dim sqlStr_FIBU =
|
||||
"declare @KundeVon as Integer = " & txtKdNrvon.Text & "
|
||||
declare @KundeBis as Integer = " & txtKdNrbis.Text & "
|
||||
declare @ZahlungVon as Date = '" & CDate(txtZRvon.Text).ToShortDateString & "'
|
||||
declare @ZahlungBis as Date = '" & CDate(txtZRbis.Text).ToShortDateString & "'
|
||||
declare @ZahlungVon as Date = '" & CDate(txtZRvon.Text).ToString("yyyy-MM-dd") & "'
|
||||
declare @ZahlungBis as Date = '" & CDate(txtZRbis.Text).ToString("yyyy-MM-dd") & "'
|
||||
declare @MandantNr as Integer = 19
|
||||
|
||||
|
||||
SELECT
|
||||
op_debitor.i_personenkonto AS KDNR,
|
||||
[Adressen].Ordnungsbegriff as Name,
|
||||
op_debitor.c_urbelegid AS BelegNr,
|
||||
op_debitor.i_personenkonto AS KundenNr,
|
||||
op_debitor.c_bemerkung AS Buchungstext,
|
||||
op_debitor.d_rechnung AS Belegdatum,
|
||||
ISNULL(op_debitor.OWNFIELD_Belegdatum, '01.01.2000') AS origbelegdatum,
|
||||
op_debitor.eur_bruttobetrag AS Bruttobetrag,
|
||||
op_debitor.eur_zahlung AS Zahlungsbetrag,
|
||||
op_debitor.d_netto AS Nettodatum,
|
||||
op_debitor.c_bemerkung AS buchungstext,
|
||||
op_debitor.d_netto AS Fällig,
|
||||
op_debitor.d_zahlung AS Zahlungsdatum,
|
||||
ISNULL(op_debitor.c_zahlziel, '0/0/14') AS ZZ_in_OP,
|
||||
--ISNULL(op_debitor.OWNFIELD_Belegdatum, '01.01.2000') AS origbelegdatum,
|
||||
DATEDIFF(DAY, DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + 0 ), op_debitor.d_rechnung), op_debitor.d_zahlung) as ÜberschreitungInTagen,
|
||||
op_debitor.eur_zahlung AS Zahlungsbetrag,
|
||||
isnull(kde_zinssatz," & zinssatz.ToString.Replace(",", ".") & ") AS Zinssatz_Kunde,
|
||||
ISNULL(fibu_konto.c_zahlziel, '0/0/14') AS ZZ_in_Debitor,
|
||||
case when isnull(dbo.fibu_zahlziel.si_ntage,14) >= 14 then 14 else isnull(dbo.fibu_zahlziel.si_ntage,14) end as ZZinTage,
|
||||
DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & "), op_debitor.d_rechnung) as ReZielZahlungsdatum,
|
||||
DATEDIFF(DAY, DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & " ), op_debitor.d_rechnung), op_debitor.d_zahlung) as ÜberschreitungInTagen,
|
||||
case when DATEDIFF(DAY, DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & " ), op_debitor.d_rechnung), op_debitor.d_zahlung) > 0 then
|
||||
|
||||
case when DATEDIFF(DAY, DATEADD(DAY, (select case when isnull(dbo.fibu_zahlziel.si_ntage,0) >= 14 then 14 else isnull(dbo.fibu_zahlziel.si_ntage,0) end + 0), op_debitor.d_rechnung), op_debitor.d_zahlung) > 0 then
|
||||
|
||||
op_debitor.eur_bruttobetrag * isnull(kde_zinssatz," & zinssatz.ToString.Replace(",", ".") & ") / 100 * DATEDIFF(DAY, DATEADD(DAY, (select case when isnull(dbo.fibu_zahlziel.si_ntage,0) >= 14 then 14 else isnull(dbo.fibu_zahlziel.si_ntage,0) end + " & toleranztage & " ), op_debitor.d_rechnung), op_debitor.d_zahlung) / 360
|
||||
Round(op_debitor.eur_bruttobetrag * isnull(kde_zinssatz,9.5) / 100 * DATEDIFF(DAY, DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) ), op_debitor.d_rechnung), op_debitor.d_zahlung) / 360,2)
|
||||
|
||||
else 0 end as Zinsbetrag,
|
||||
cast(0 as bit) as abgerechnet,
|
||||
|
||||
op_debitor.eur_bruttobetrag AS Bruttobetrag,
|
||||
ISNULL(op_debitor.c_zahlziel, '0/0/20') AS ZZ_in_OP,
|
||||
ISNULL(fibu_konto.c_zahlziel, '0/0/20') AS ZZ_in_Debitor,
|
||||
ISNULL(dbo.fibu_zahlziel.si_ntage,20) as ZZinTage,
|
||||
DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & "), op_debitor.d_rechnung) as ReZielZahlungsdatum
|
||||
|
||||
cast(0 as bit) as abgerechnet
|
||||
|
||||
FROM op_debitor INNER JOIN fibu_konto ON (op_debitor.i_personenkonto = fibu_konto.i_konto)
|
||||
inner join [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[Adressen] on [Adressen].AdressenNr = op_debitor.i_personenkonto
|
||||
inner join [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[tblKundenErweitert] on kde_KundenNr = op_debitor.i_personenkonto
|
||||
left join fibu_zahlziel on dbo.fibu_zahlziel.i_firm_refid = dbo.op_debitor.i_firm_refid and dbo.fibu_zahlziel.c_zahlziel = ISNULL(fibu_konto.c_zahlziel, '0/0/20')
|
||||
|
||||
@@ -858,8 +883,10 @@ Public Class usrCntlBH
|
||||
AND op_debitor.i_personenkonto >= @KundeVon AND op_debitor.i_personenkonto <= @KundeBis
|
||||
AND op_debitor.d_zahlung >= @ZahlungVon AND op_debitor.d_zahlung <= @ZahlungBis
|
||||
AND DATEDIFF(DAY, DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & "), op_debitor.d_rechnung), op_debitor.d_zahlung) > 0
|
||||
AND Left(op_debitor.c_bemerkung,2) <> 'AR' AND Left(op_debitor.c_bemerkung,2) <> 'DA' AND Left(op_debitor.c_bemerkung,2) <> 'AU' AND Left(op_debitor.c_bemerkung,2) <> 'RE' AND Left(op_debitor.c_bemerkung,2) <> 'VI' AND Left(op_debitor.c_bemerkung,2) <> 'Ha'
|
||||
AND op_debitor.c_bemerkung not like '%nicht verzinsen%'
|
||||
|
||||
ORDER BY op_debitor.i_personenkonto, op_debitor.d_rechnung, ISNULL(op_debitor.OWNFIELD_Belegdatum, '01.01.2000'), op_debitor.c_urbelegid"
|
||||
ORDER BY op_debitor.i_personenkonto, op_debitor.c_urbelegid desc, op_debitor.d_rechnung, ISNULL(op_debitor.OWNFIELD_Belegdatum, '01.01.2000')"
|
||||
|
||||
|
||||
Dim dt = SQL.loadDgvBySql(sqlStr_FIBU, "FIBU")
|
||||
@@ -874,7 +901,7 @@ Public Class usrCntlBH
|
||||
|
||||
If r.Item("Zinsbetrag") > 0 Then
|
||||
|
||||
Dim zins As New cMDMZinsberechnung(r.Item("KundenNr"), r.Item("BelegNr"))
|
||||
Dim zins As New cMDMZinsberechnung(r.Item("KDNR"), r.Item("BelegNr"))
|
||||
|
||||
If zins.hasEntry AndAlso zins.verrechnet IsNot Nothing Then
|
||||
counter += 1
|
||||
@@ -885,7 +912,7 @@ Public Class usrCntlBH
|
||||
|
||||
Else
|
||||
|
||||
zins.buchungstext = r.Item("buchungstext")
|
||||
zins.buchungstext = r.Item("Buchungstext")
|
||||
zins.kundeZahlungsziel = r.Item("ZZ_in_Debitor")
|
||||
zins.zinssatz = r.Item("Zinssatz_Kunde")
|
||||
zins.belegZahlungsziel = r.Item("ZZinTage")
|
||||
@@ -895,6 +922,7 @@ Public Class usrCntlBH
|
||||
zins.belegDatum = r.Item("Belegdatum")
|
||||
zins.zahlungsBetrag = r.Item("Zahlungsbetrag")
|
||||
zins.zahlungDatum = r.Item("Zahlungsdatum")
|
||||
zins.faelligkeitsDatum = CDate(r.Item("Belegdatum")).AddDays(CInt(r.Item("ZZinTage")))
|
||||
zins.zahlungsperiode_start = CDate(txtZRvon.Text).ToShortDateString
|
||||
zins.zahlungsperiode_ende = CDate(txtZRbis.Text).ToShortDateString
|
||||
zins.SAVE()
|
||||
@@ -906,15 +934,48 @@ Public Class usrCntlBH
|
||||
Next
|
||||
|
||||
If counter > 0 Then
|
||||
MsgBox("In der Zinsberechnung befinden sich " & counter & " Positionen, die bereits abgerechnet wurden!" & vbNewLine & "Diese wurden ")
|
||||
MsgBox("In der Zinsberechnung befinden sich " & counter & " Positionen, die bereits abgerechnet wurden!" & vbNewLine & "Diese werden übersprungen bzw. nicht nochmals verrechnet!")
|
||||
End If
|
||||
|
||||
Dim dtTemp As New DataTable
|
||||
|
||||
dtTemp = dt.Select("Zinsbetrag > 0").CopyToDataTable
|
||||
If dtTemp.Rows.Count > 0 Then
|
||||
cProgramFunctions.genExcelFromDT_NEW(dtTemp, {"E1:E" & (dt.Rows.Count + 1), "F1:F" & (dt.Rows.Count + 1), "P1:P" & (dt.Rows.Count + 1)})
|
||||
|
||||
If dtTemp.Columns.Contains("Bruttobetrag") Then dtTemp.Columns.Remove("Bruttobetrag")
|
||||
If dtTemp.Columns.Contains("ZZ_in_OP") Then dtTemp.Columns.Remove("ZZ_in_OP")
|
||||
If dtTemp.Columns.Contains("ZZ_in_Debitor") Then dtTemp.Columns.Remove("ZZ_in_Debitor")
|
||||
If dtTemp.Columns.Contains("ZZinTage") Then dtTemp.Columns.Remove("ZZinTage")
|
||||
If dtTemp.Columns.Contains("ReZielZahlungsdatum") Then dtTemp.Columns.Remove("ReZielZahlungsdatum")
|
||||
|
||||
Dim dtTemp2 As New DataTable
|
||||
dtTemp2.Columns.Add("KDNR", GetType(Int32))
|
||||
dtTemp2.Columns.Add("Name", GetType(String))
|
||||
dtTemp2.Columns.Add("Zinsbetrag", GetType(Decimal))
|
||||
|
||||
Dim query = From row In dtTemp.AsEnumerable()
|
||||
Group row By key = row.Field(Of Int32)("KDNR") Into grp = Group
|
||||
Select New With {
|
||||
.GroupValue = key,
|
||||
.KDName = grp.First().Field(Of String)("Name"),
|
||||
.SumValue = grp.Sum(Function(r) Convert.ToDecimal(r("Zinsbetrag")))
|
||||
}
|
||||
|
||||
' Fill the new DataTable
|
||||
For Each item In query
|
||||
dtTemp2.Rows.Add(item.GroupValue, item.KDName, item.SumValue)
|
||||
Next
|
||||
|
||||
|
||||
If dtTemp.Rows.Count > 0 AndAlso dtTemp2.Rows.Count > 0 Then
|
||||
cProgramFunctions.genExcelFromMultibleDT_NEW(New List(Of DataTable) From {dtTemp, dtTemp2}, {"H1:H" & (dt.Rows.Count + 1), "J1:J" & (dt.Rows.Count + 1)})
|
||||
txtnichtabrechneteKunden.Text = SQL.getValueTxtBySql("SELECT count(distinct(kundenNr)) FROM [VERAG].[dbo].[tblMDM_Zinsberechnung] where verrechnet is null", "FMZOLL",,, "0")
|
||||
|
||||
If IsNumeric(txtnichtabrechneteKunden.Text) AndAlso CInt(txtnichtabrechneteKunden.Text) > 0 Then
|
||||
btnDel_.Visible = True
|
||||
Else
|
||||
btnDel_.Visible = False
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
@@ -975,7 +1036,7 @@ Public Class usrCntlBH
|
||||
|
||||
End Function
|
||||
|
||||
Function gen_RECHNUNG_BySPEDBUCH(KdNr As String, SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, ByRef RK_ID As Integer)
|
||||
Function gen_RECHNUNG_BySPEDBUCH(KdNr As String, SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, ByRef RK_ID As Integer, ByRef Fusstext As String)
|
||||
Try
|
||||
|
||||
If KdNr = "" Then Return False
|
||||
@@ -1035,7 +1096,6 @@ Public Class usrCntlBH
|
||||
RG.Vorlageprovision_Proz = KD.Vorlageprovision
|
||||
RG.Kreditaufwendungen_Proz = KD.Kreditaufwendungen
|
||||
RG.RechnungSprache = "DE"
|
||||
RG.Packstücke_und_Warenbezeichnung = ""
|
||||
|
||||
RG.Anlage_2 = ""
|
||||
RG.Anlage_3 = ""
|
||||
@@ -1043,11 +1103,13 @@ Public Class usrCntlBH
|
||||
RG.Anlage_5 = ""
|
||||
RG.Anlage_6 = ""
|
||||
|
||||
RG.Text = ""
|
||||
RG.EMailRechnungstext = Nothing ' ""
|
||||
RG.Packstücke_und_Warenbezeichnung = "NACHBERECHNUNG VON VERZUGSZINSEN" & vbNewLine & SPEDBUCH.Vermerk
|
||||
'RG.EMailRechnungstext = Fusstext
|
||||
|
||||
|
||||
RG.Nettozahlungsziel = KD.Zahlungsziel
|
||||
If Not IsDBNull(KD.Zahlungsziel) AndAlso IsNumeric(KD.Zahlungsziel) Then
|
||||
Dim Zahlungsziel As Integer = CInt(KD.Zahlungsziel)
|
||||
RG.Nettozahlungsziel = IIf(Zahlungsziel > 14, 14, KD.Zahlungsziel)
|
||||
End If
|
||||
|
||||
RG.SteuerpflichtigerGesamtbetrag = 0
|
||||
RG.SteuerfreierGesamtbetrag = 0
|
||||
@@ -1071,8 +1133,6 @@ Public Class usrCntlBH
|
||||
|
||||
Dim dt As New DataTable
|
||||
cMDMZinsberechnung.GET_NICHTABGERECHNETE_ZB(dt, KdNr)
|
||||
'Dim zahlungsperiodeStart
|
||||
'Dim zahlungsperiodeEnde
|
||||
|
||||
For Each r In dt.Rows
|
||||
|
||||
@@ -1091,13 +1151,12 @@ Public Class usrCntlBH
|
||||
Dim LeistungsNr As Integer = 950
|
||||
Dim LeistungsBezAdd As String = ""
|
||||
If r("buchungstext") <> "" Then
|
||||
LeistungsBezAdd &= r("buchungstext")
|
||||
LeistungsBezAdd &= id.ToString("D5") & "-" & r("buchungstext")
|
||||
If LeistungsBezAdd.Length > 30 Then
|
||||
LeistungsBezAdd = LeistungsBezAdd.ToString.Substring(0, 30)
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
allPos(RG, OFFERTE, LeistungsNr, NettoBetrag, BruttoBetrag, UstBetrag, LeistungsBezAdd, id)
|
||||
|
||||
Next
|
||||
@@ -1111,9 +1170,6 @@ Public Class usrCntlBH
|
||||
|
||||
RG.Text = (cFakturierung.przRechnungstextTXT(RG, SPEDBUCH) & vbNewLine & cFakturierung.przRechnungstextZZ(RG)).Trim
|
||||
|
||||
'SPEDBUCH.Vermerk = "NACHBERECHNUNG VON VERZUGSZINSEN" & vbNewLine & "Zahlungen von " & CDate(zahlungsperiodeStart).ToShortDateString & " bis " & CDate(zahlungsperiodeEnde).ToShortDateString
|
||||
'SPEDBUCH.SAVE()
|
||||
|
||||
If RG.SAVE Then
|
||||
RK_ID = RG.RK_ID
|
||||
Return True
|
||||
@@ -1156,7 +1212,7 @@ Public Class usrCntlBH
|
||||
POS.SteuerfreierBetrag = BruttoBetrag
|
||||
POS.Preis = BruttoBetrag
|
||||
End If
|
||||
POS.NachzahlungsID = nachzahlungsID
|
||||
'POS.NachzahlungsID = nachzahlungsID 'nix gut
|
||||
POS.BGebLeistungsNr = o.BGebLeistungsNr
|
||||
POS.BGebProzent = o.BGebProzent
|
||||
POS.BGebMinBetrag = o.BGebMinBetrag
|
||||
@@ -1189,7 +1245,18 @@ Public Class usrCntlBH
|
||||
|
||||
Private Sub btnZNBverrechnen_Click(sender As Object, e As EventArgs) Handles btnZNBverrechnen.Click
|
||||
|
||||
Dim dt_Main As DataTable = SQL.loadDgvBySql_Param("Select [kundenNr], zahlungsperiode_start,zahlungsperiode_ende FROM [VERAG].[dbo].[tblMDM_Zinsberechnung] where [verrechnet] Is null group by [kundenNr], zahlungsperiode_start, zahlungsperiode_ende ", "FMZOLL")
|
||||
If txtZRbis.Text = "" OrElse Not IsDate(txtZRbis.Text) Then
|
||||
MsgBox("Abrechnungdatum setzen!")
|
||||
txtZRbis.Focus()
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Dim LimitBEtrag As Integer = -1
|
||||
If txtAbBetragAbrechnen._value <> "" AndAlso IsNumeric(txtAbBetragAbrechnen._value) Then
|
||||
LimitBEtrag = CInt(txtAbBetragAbrechnen._value)
|
||||
End If
|
||||
|
||||
Dim dt_Main As DataTable = SQL.loadDgvBySql_Param("Select [kundenNr],SUM([zinsbetrag]) as Zinsbetrag, zahlungsperiode_start,zahlungsperiode_ende FROM [VERAG].[dbo].[tblMDM_Zinsberechnung] where [verrechnet] Is null group by [kundenNr], zahlungsperiode_start, zahlungsperiode_ende" & IIf(LimitBEtrag > 0, " having SUM([zinsbetrag]) >= " & LimitBEtrag, ""), "FMZOLL")
|
||||
|
||||
If dt_Main.Rows.Count > 0 Then
|
||||
Dim kundenNr As String = ""
|
||||
@@ -1216,13 +1283,21 @@ Public Class usrCntlBH
|
||||
|
||||
Dim dtfehlendeOfferten As DataTable = SQL.loadDgvBySql(sqlStringFehlendeOffertenNr, "FMZOLL")
|
||||
If dtfehlendeOfferten.Rows.Count > 0 Then
|
||||
MsgBox("Es fehlen bei " & dtfehlendeOfferten.Rows.Count & " Kunden das Offert 95, bitte hinterlegen ansonsten wird die Position nicht verrechnet!" & "Vorgang wird abgebrochen!")
|
||||
If Not vbYes = MsgBox("Es fehlen bei " & dtfehlendeOfferten.Rows.Count & " Kunden das Offert 95, bitte hinterlegen ansonsten wird die Position nicht verrechnet!" & vbNewLine & "Möchten Sie trotzdem fortfahren!", vbYesNoCancel) Then
|
||||
cProgramFunctions.genExcelCSVFromDT(dtfehlendeOfferten, True)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
If dt_Main.Rows.Count = 0 Then
|
||||
MsgBox("keine zu verrechnenden Datensätze!")
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
|
||||
If vbYes = MsgBox("Möchten Sie für " & dt_Main.Rows.Count & " Kunden die Zinsbelastung mit Abrechnungsdatum " & CDate(txtZRbis.Text).ToShortDateString & " verrechnen?" & vbNewLine & "Es werden nur Rechnungen erstellt, deren Gesamtbelastung über " & LimitBEtrag & " EUR liegt!", vbYesNoCancel) Then
|
||||
|
||||
If vbYes = MsgBox("Möchten Sie für " & dt_Main.Rows.Count & " Kunden die Zinsbelastung verrechnen?", vbYesNoCancel) Then
|
||||
|
||||
|
||||
For Each R In dt_Main.Rows
|
||||
@@ -1230,13 +1305,21 @@ Public Class usrCntlBH
|
||||
Dim startDate As String = CDate(R("zahlungsperiode_start")).ToShortDateString
|
||||
Dim EndDate As String = CDate(R("zahlungsperiode_ende")).ToShortDateString
|
||||
|
||||
Dim vermerk As String = "Abrechnungsperiode von " & startDate & " bis " & EndDate
|
||||
Dim vermerk As String = "Zahlungen vom " & startDate & " - " & EndDate 'max 50 Zeichen!!!
|
||||
Dim Fußtext As String = ""
|
||||
|
||||
'Fußtext = "Sehr geehrte Damen und Herren," & vbNewLine & "
|
||||
' Sie erhalten unten eine Aufstellung jener Rechnungen, deren Zahlungseingänge nach der gesetzten Zahlungsfrist von 14 Tagen gelegen ist." & vbNewLine & "
|
||||
' Bitte haben Sie Verständnis dafür, dass wir Ihnen die dadurch entstehenden Verzugszinsen nachberechnen müssen." & vbNewLine & "
|
||||
' Wir erwarten Ihre Zahlung über den untenstehenden Endbetrag wieder innerhalb von 14 Tagen."
|
||||
|
||||
|
||||
|
||||
Dim verarbOK As Boolean = True
|
||||
Dim SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing
|
||||
Dim RK_ID As Integer = -1
|
||||
If Not gen_SPEDBUCH_ByKdNr(R("kundenNr"), SPEDBUCH, Now(), vermerk) Then verarbOK = False
|
||||
If Not gen_RECHNUNG_BySPEDBUCH(R("kundenNr"), SPEDBUCH, RK_ID) Then verarbOK = False
|
||||
If Not gen_SPEDBUCH_ByKdNr(R("kundenNr"), SPEDBUCH, CDate(txtZRbis.Text).ToShortDateString, vermerk) Then verarbOK = False
|
||||
If Not gen_RECHNUNG_BySPEDBUCH(R("kundenNr"), SPEDBUCH, RK_ID, Fußtext) Then verarbOK = False
|
||||
|
||||
If verarbOK Then
|
||||
SQL.doSQL("UPDATE [tblMDM_Zinsberechnung] SET [verrechnet]=GETDATE(), RK_ID = " & RK_ID & " WHERE [verrechnet] Is null And kundenNr='" & R("kundenNr") & "' ", "FMZOLL")
|
||||
@@ -1254,5 +1337,102 @@ Public Class usrCntlBH
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
|
||||
|
||||
Try
|
||||
|
||||
|
||||
|
||||
If txtUID_Jahr.Text <> "" AndAlso IsNumeric(txtUID_Jahr.Text) AndAlso txtUID_Jahr.Text.Length = 4 Then
|
||||
|
||||
If txtUID_Monat.Text = "" OrElse txtUID_Monat.Text <> "" AndAlso IsNumeric(txtUID_Monat.Text) AndAlso CInt(txtUID_Monat.Text) > 0 AndAlso CInt(txtUID_Monat.Text) < 13 Then
|
||||
|
||||
Dim SQL_UID As String = "SELECT [uid_KundenNr] as KdNr , Adressen.[Name 1],[uid_UstIdKz] as UstIdKz,[uid_UstIdNr] as UstIdnr, case when [uid_valid] = 1 then 'GUELTIG' else 'UNGUELTIG' end as Ergebnis, cast([uid_Datum] as date) as Pruefdatum,Convert(varchar(8), [uid_Datum], 108) As Pruefzeit, [tblUIDPruefung].[firma] as Firma, cast(Adressen.UstIdGeprüft as date) as [letzte Prüfung], uid_pruefungstool as Quelle, uid_Sachbearbeiter as Sachbearbeiter, Filialen.FilialenNr
|
||||
FROM [VERAG].[dbo].[tblUIDPruefung] inner join Adressen on Adressen.AdressenNr = [uid_KundenNr] inner Join kunden On KundenNr=AdressenNr inner join Filialen On Filialen.FilialenNr=Kunden.FilialenNr
|
||||
where YEAR(uid_Datum) = " & txtUID_Jahr.Text & IIf(txtUID_Monat.Text <> "", " AND MONTH(uid_Datum) = " & txtUID_Monat.Text, "") & IIf(cbxFirmaUID._value <> "", " And [tblUIDPruefung].[firma] = '" & cbxFirmaUID._value & "'", "") & IIf(cbx_nur_ungueltige.Checked, " AND [uid_valid] = 0 ", "") & " ORDER BY Filialen.FilialenNr "
|
||||
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Dim dt_UID As DataTable = SQL.loadDgvBySql(SQL_UID, "FMZOLL")
|
||||
If dt_UID.Rows.Count > 0 Then
|
||||
cProgramFunctions.genExcelFromDT_NEW(dt_UID)
|
||||
Me.Cursor = Cursors.Default
|
||||
Else
|
||||
MsgBox("keine Daten für den ausgewählten Zeitraum!")
|
||||
Me.Cursor = Cursors.Default
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
Me.Cursor = Cursors.Default
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub txtUID_Monat_TextChanged(sender As Object, e As EventArgs) Handles txtUID_Monat.TextChanged
|
||||
countIDPruefungen()
|
||||
End Sub
|
||||
|
||||
Private Sub cbxFirmaUID_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbxFirmaUID.SelectedIndexChanged
|
||||
countIDPruefungen()
|
||||
End Sub
|
||||
|
||||
Private Sub countIDPruefungen()
|
||||
|
||||
btn_fehlendeUID.Tag = ""
|
||||
|
||||
If txtUID_Jahr.Text <> "" AndAlso IsNumeric(txtUID_Jahr.Text) AndAlso txtUID_Jahr.Text.Length = 4 Then
|
||||
|
||||
If txtUID_Monat.Text = "" OrElse txtUID_Monat.Text <> "" AndAlso IsNumeric(txtUID_Monat.Text) AndAlso CInt(txtUID_Monat.Text) > 0 AndAlso CInt(txtUID_Monat.Text) < 13 Then
|
||||
|
||||
Dim dt As New DataTable
|
||||
|
||||
Dim Month As Integer = CInt(txtUID_Monat.Text).ToString("D2")
|
||||
Dim Year As Integer = CInt(txtUID_Jahr.Text)
|
||||
|
||||
Dim datum = CDate("15." & Month & "." & Year).AddMonths(-1)
|
||||
|
||||
dt = VERAG_PROG_ALLGEMEIN.cUIDPruefung.get_zupruefendeKunden(-1, datum, cbxFirmaUID._value)
|
||||
|
||||
lblUID_zupruefen.Text = "nicht geprüft: " & dt.Rows.Count
|
||||
|
||||
If dt.Rows.Count > 0 Then
|
||||
Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False, "fehlende UID-Prüfungen_" & IIf(cbxFirmaUID._value <> "", cbxFirmaUID._value, "ALLE") & "_" & datum.ToShortDateString)
|
||||
btn_fehlendeUID.Tag = path
|
||||
btn_fehlendeUID.Visible = True
|
||||
Else
|
||||
btn_fehlendeUID.Visible = False
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnWikiStatusmails_Click(sender As Object, e As EventArgs) Handles btnWikiStatusmails.Click
|
||||
|
||||
Dim webAddress As String = "https://wiki.verag.ag/software/sdl/zinsnachberechnung"
|
||||
Process.Start(webAddress)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub btnDel__Click(sender As Object, e As EventArgs) Handles btnDel_.Click
|
||||
|
||||
If vbYes = MsgBox("Möchten Sie die alle nicht verrechneten Zinsbelastungen löschen?", vbYesNoCancel) Then
|
||||
If SQL.doSQL("delete from [tblMDM_Zinsberechnung] WHERE [verrechnet] Is null", "FMZOLL") Then
|
||||
txtnichtabrechneteKunden.Text = SQL.getValueTxtBySql("SELECT count(distinct(kundenNr)) FROM [VERAG].[dbo].[tblMDM_Zinsberechnung] where verrechnet is null", "FMZOLL",,, "0")
|
||||
End If
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub btn_fehlendeUID_Click(sender As Object, e As EventArgs) Handles btn_fehlendeUID.Click
|
||||
If sender.tag <> "" Then
|
||||
Try : Process.Start(sender.tag) : Catch : End Try
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
@@ -1192,6 +1192,89 @@ Public Class cProgramFunctions
|
||||
|
||||
|
||||
|
||||
Dim filename As String = sPath & "tmp_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
|
||||
wb.SaveAs(filename)
|
||||
|
||||
|
||||
If openFile Then Process.Start(filename)
|
||||
|
||||
Return filename
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Shared Function genExcelFromMultibleDT_NEW(datatables As IEnumerable(Of DataTable), Optional rangeAsWaehrung() As String = Nothing, Optional ShowAutoFilter As Boolean = True, Optional HeaderTxt As String = "", Optional HeaderTxt2 As String = "", Optional waehrungsZeichen As String = "€", Optional fitCellsToContent As Boolean = False, Optional mergeHeadersToCell As Char = "", Optional Landscape As Boolean = False, Optional fitToOnePage As Boolean = False, Optional openFile As Boolean = True, Optional fitWideToOnePage As Boolean = False) As String
|
||||
Try
|
||||
|
||||
Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\SDL\tmp\" ' My.Computer.FileSystem.GetTempFileName
|
||||
If Not My.Computer.FileSystem.DirectoryExists(sPath) Then
|
||||
My.Computer.FileSystem.CreateDirectory(sPath)
|
||||
End If
|
||||
|
||||
Dim wb As New XLWorkbook
|
||||
Dim counter = 0
|
||||
For Each dt In datatables
|
||||
wb.Worksheets.Add(dt, "DATEN" & IIf(counter > 0, "_" & counter, ""))
|
||||
wb.Worksheets(counter).Tables.FirstOrDefault().ShowAutoFilter = ShowAutoFilter
|
||||
|
||||
|
||||
If rangeAsWaehrung IsNot Nothing Then
|
||||
For Each r In rangeAsWaehrung
|
||||
Try
|
||||
wb.Worksheets(counter).Range(r).Style.NumberFormat.SetFormat("###,###,##0.00 " & waehrungsZeichen)
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
Next
|
||||
End If
|
||||
|
||||
If HeaderTxt <> "" Then
|
||||
wb.Worksheets(counter).FirstRow.InsertRowsAbove(2)
|
||||
wb.Worksheets(counter).Range("A1").Value = HeaderTxt
|
||||
wb.Worksheets(counter).Range("A1").Style.Font.Bold = True
|
||||
|
||||
If mergeHeadersToCell <> "" Then
|
||||
wb.Worksheets(counter).Range("A1:" & mergeHeadersToCell & "1").Merge()
|
||||
wb.Worksheets(counter).Range("A1:" & mergeHeadersToCell & "1").Style.Alignment.Horizontal = XLAlignmentHorizontalValues.Center
|
||||
wb.Worksheets(counter).Range("A1:" & mergeHeadersToCell & "1").Style.Alignment.Vertical = XLAlignmentVerticalValues.Center
|
||||
wb.Worksheets(counter).Range("A1:" & mergeHeadersToCell & "1").Style.Alignment.WrapText = True
|
||||
End If
|
||||
|
||||
If HeaderTxt2 <> "" Then
|
||||
wb.Worksheets(counter).Range("A2").Value = HeaderTxt2
|
||||
wb.Worksheets(counter).Row(2).InsertRowsBelow(1)
|
||||
|
||||
If mergeHeadersToCell <> "" Then
|
||||
wb.Worksheets(counter).Range("A2:" & mergeHeadersToCell & "2").Merge()
|
||||
wb.Worksheets(counter).Range("A2:" & mergeHeadersToCell & "2").Style.Alignment.Horizontal = XLAlignmentHorizontalValues.Center
|
||||
wb.Worksheets(counter).Range("A2:" & mergeHeadersToCell & "2").Style.Alignment.Vertical = XLAlignmentVerticalValues.Center
|
||||
wb.Worksheets(counter).Range("A2:" & mergeHeadersToCell & "2").Style.Alignment.WrapText = True
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
If fitCellsToContent Then
|
||||
wb.Worksheets(counter).Columns().AdjustToContents()
|
||||
wb.Worksheets(counter).Rows().AdjustToContents()
|
||||
End If
|
||||
|
||||
If Landscape Then
|
||||
wb.Worksheets(counter).PageSetup.PageOrientation = XLPageOrientation.Landscape
|
||||
Else
|
||||
wb.Worksheets(counter).PageSetup.PageOrientation = XLPageOrientation.Default
|
||||
End If
|
||||
|
||||
If fitToOnePage Then wb.Worksheets(counter).PageSetup.PagesWide = 1 : wb.Worksheets(counter).PageSetup.PagesTall = 1 ' In die Höhe/Breite auf eine Seite anpassen
|
||||
If fitWideToOnePage Then wb.Worksheets(counter).PageSetup.PagesWide = 1
|
||||
|
||||
counter += 1
|
||||
Next
|
||||
|
||||
|
||||
Dim filename As String = sPath & "tmp_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
|
||||
wb.SaveAs(filename)
|
||||
|
||||
@@ -1425,7 +1508,12 @@ Public Class cProgramFunctions
|
||||
's... SubContainer
|
||||
'c... Control
|
||||
Dim MEname = reportName 'rpt.Name (geht ned) '"rptRechnungDruck"
|
||||
Dim TextTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.TRANSLATE.list.FindAll(Function(x) x.trs_object = MEname And x.trs_sprache = lan)
|
||||
'Dim TextTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.TRANSLATE.list.FindAll(Function(x) x.trs_object = MEname And x.trs_sprache = lan)
|
||||
Dim TextTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.TRANSLATE.list _
|
||||
.Where(Function(x) x.trs_object = MEname AndAlso x.trs_sprache = lan) _
|
||||
.OrderBy(Function(x) If(IsDBNull(x.trs_Option) OrElse x.trs_Option Is Nothing, IIf(_option <> "", 0, 1), IIf(_option <> "", 1, 0))) _
|
||||
.ThenBy(Function(x) x.trs_Option) _
|
||||
.ToList()
|
||||
|
||||
If TextTmp IsNot Nothing Then
|
||||
For Each TXT As VERAG_PROG_ALLGEMEIN.cTranslate In TextTmp
|
||||
@@ -1435,11 +1523,13 @@ Public Class cProgramFunctions
|
||||
|
||||
If Not IsDBNull(TXT.trs_FirmaID) AndAlso TXT.trs_FirmaID > 0 Then
|
||||
If TXT.trs_FirmaID = _firmenid Then
|
||||
If IsDBNull(TXT.trs_Option) AndAlso TXT.trs_Option = "" Then
|
||||
If IsDBNull(TXT.trs_Option) OrElse TXT.trs_Option = "" Then
|
||||
found = search
|
||||
GoTo gefunden
|
||||
Else
|
||||
If _option = TXT.trs_Option Then
|
||||
found = search
|
||||
GoTo gefunden
|
||||
End If
|
||||
|
||||
End If
|
||||
@@ -1450,9 +1540,11 @@ Public Class cProgramFunctions
|
||||
|
||||
If IsDBNull(TXT.trs_Option) OrElse TXT.trs_Option = "" Then
|
||||
found = search
|
||||
GoTo gefunden
|
||||
Else
|
||||
If _option = TXT.trs_Option Then
|
||||
found = search
|
||||
GoTo gefunden
|
||||
End If
|
||||
|
||||
End If
|
||||
@@ -1465,12 +1557,13 @@ Public Class cProgramFunctions
|
||||
|
||||
Next
|
||||
|
||||
' MsgBox(TXT.trs_control)
|
||||
gefunden:
|
||||
If found IsNot Nothing Then
|
||||
' MsgBox("JA")
|
||||
Dim obj As GrapeCity.ActiveReports.SectionReportModel.ARControl = found
|
||||
If obj IsNot Nothing Then
|
||||
If (TypeOf obj Is GrapeCity.ActiveReports.SectionReportModel.Label) Then
|
||||
'If DirectCast(obj, GrapeCity.ActiveReports.SectionReportModel.Label).Text = TXT.trs Then
|
||||
DirectCast(obj, GrapeCity.ActiveReports.SectionReportModel.Label).Text = TXT.trs_text
|
||||
|
||||
If dict IsNot Nothing Then
|
||||
|
||||
18
SDL/frmdynMailvorlage.Designer.vb
generated
18
SDL/frmdynMailvorlage.Designer.vb
generated
@@ -66,9 +66,12 @@ Partial Class frmdynMailvorlagen
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.cbxFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.dgvMailvorlagen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.KopierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.mainPanel.SuspendLayout()
|
||||
Me.pnlTop.SuspendLayout()
|
||||
CType(Me.dgvMailvorlagen, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.ContextMenuStrip1.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'mainPanel
|
||||
@@ -562,6 +565,18 @@ Partial Class frmdynMailvorlagen
|
||||
Me.dgvMailvorlagen.Size = New System.Drawing.Size(1283, 365)
|
||||
Me.dgvMailvorlagen.TabIndex = 104
|
||||
'
|
||||
'ContextMenuStrip1
|
||||
'
|
||||
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KopierenToolStripMenuItem})
|
||||
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
|
||||
Me.ContextMenuStrip1.Size = New System.Drawing.Size(181, 48)
|
||||
'
|
||||
'KopierenToolStripMenuItem
|
||||
'
|
||||
Me.KopierenToolStripMenuItem.Name = "KopierenToolStripMenuItem"
|
||||
Me.KopierenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
|
||||
Me.KopierenToolStripMenuItem.Text = "Kopieren"
|
||||
'
|
||||
'frmdynMailvorlagen
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
@@ -580,6 +595,7 @@ Partial Class frmdynMailvorlagen
|
||||
Me.pnlTop.ResumeLayout(False)
|
||||
Me.pnlTop.PerformLayout()
|
||||
CType(Me.dgvMailvorlagen, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ContextMenuStrip1.ResumeLayout(False)
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
@@ -626,4 +642,6 @@ Partial Class frmdynMailvorlagen
|
||||
Friend WithEvents cbxTyp As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents Label13 As Label
|
||||
Friend WithEvents TextBox2 As TextBox
|
||||
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
|
||||
Friend WithEvents KopierenToolStripMenuItem As ToolStripMenuItem
|
||||
End Class
|
||||
|
||||
@@ -117,4 +117,7 @@
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
</root>
|
||||
@@ -1,8 +1,4 @@
|
||||
Imports System.Windows.Controls
|
||||
Imports System.Windows.Documents
|
||||
Imports DocumentFormat.OpenXml.Drawing.Charts
|
||||
Imports GrapeCity.ActiveReports.SectionReportModel
|
||||
Imports Microsoft.Office.Interop
|
||||
Imports Microsoft.Office.Interop
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
Public Class frmdynMailvorlagen
|
||||
@@ -57,11 +53,83 @@ Public Class frmdynMailvorlagen
|
||||
cbxFirma.Enabled = editall
|
||||
btnDelete.Enabled = editall
|
||||
|
||||
|
||||
For Each firmen_temp In cbxFirma.Items
|
||||
If firmen_temp.ToString <> "" Then
|
||||
If Not KopierenToolStripMenuItem.DropDownItems.ContainsKey(firmen_temp.ToString) Then
|
||||
|
||||
If Not editall AndAlso firmen_temp.ToString = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then
|
||||
Dim menuItem = New ToolStripMenuItem() With {.Text = firmen_temp.ToString, .Name = firmen_temp.ToString}
|
||||
KopierenToolStripMenuItem.DropDownItems.Add(menuItem)
|
||||
AddHandler menuItem.Click, AddressOf mnusubItem_Click
|
||||
|
||||
ElseIf editall Then
|
||||
Dim menuItem = New ToolStripMenuItem() With {.Text = firmen_temp.ToString, .Name = firmen_temp.ToString}
|
||||
KopierenToolStripMenuItem.DropDownItems.Add(menuItem)
|
||||
AddHandler menuItem.Click, AddressOf mnusubItem_Click
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
initDGVMailvorlagen(cbxFirma._value,, cbxSpracheSelected._value)
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub mnusubItem_Click(sender As Object, e As EventArgs)
|
||||
ContextMenuStrip1.Hide()
|
||||
Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem)
|
||||
|
||||
Try
|
||||
Dim Info As String = "Möchten Sie diesen Mailvorlage für die Firma " & item.Name & " kopieren?"
|
||||
|
||||
If dgvMailvorlagen.SelectedRows(0).Cells("txt_FIRMA").Value = item.Name Then
|
||||
Info &= vbNewLine & "Die ausgewählte Vorlage existiert bereits für die Firma " & item.Name
|
||||
End If
|
||||
|
||||
If vbYes = MsgBox(Info, vbYesNo) Then
|
||||
|
||||
|
||||
txtkonserve = New cTextkonserve(dgvMailvorlagen.SelectedRows(0).Cells("txt_id").Value)
|
||||
|
||||
Dim txtkonserve_new = New cTextkonserve()
|
||||
|
||||
txtkonserve_new.txt_text = txtkonserve.txt_text
|
||||
txtkonserve_new.txt_bezeichnung = txtkonserve.txt_bezeichnung
|
||||
txtkonserve_new.txt_betreff = txtkonserve.txt_betreff
|
||||
txtkonserve_new.txt_dynMailvorlage = txtkonserve.txt_dynMailvorlage
|
||||
txtkonserve_new.txt_sprache = txtkonserve.txt_sprache
|
||||
txtkonserve_new.txt_sendungsvermerk = txtkonserve.txt_sendungsvermerk
|
||||
txtkonserve_new.txt_sendungsvermerkId = txtkonserve.txt_sendungsvermerkId
|
||||
txtkonserve_new.txt_sendungsvermerkText = txtkonserve.txt_sendungsvermerkText
|
||||
txtkonserve_new.txt_fixerEmpfaengerEmail = txtkonserve.txt_fixerEmpfaengerEmail
|
||||
txtkonserve_new.txt_FIRMA = item.Name
|
||||
txtkonserve_new.txt_kategorie = txtkonserve.txt_kategorie
|
||||
txtkonserve_new.txt_typ = txtkonserve.txt_typ
|
||||
txtkonserve_new.txt_letzteAenderungUser = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
txtkonserve_new.txt_letzteAenderung = DateTime.Now
|
||||
|
||||
txtkonserve_new.SAVE()
|
||||
initDGVMailvorlagen(item.ToString)
|
||||
End If
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
|
||||
|
||||
|
||||
End Try
|
||||
|
||||
|
||||
End sub
|
||||
|
||||
|
||||
Private Sub initDGVMailvorlagen(Optional firma As String = "", Optional searchparam As String = "", Optional sprache As String = "")
|
||||
|
||||
lblWarning.Text = ""
|
||||
@@ -464,4 +532,36 @@ Public Class frmdynMailvorlagen
|
||||
End Select
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub dgvMailvorlagen_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgvMailvorlagen.CellMouseClick
|
||||
|
||||
If e.RowIndex < 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt
|
||||
If e.ColumnIndex < 0 Then Exit Sub
|
||||
|
||||
DirectCast(sender, DataGridView).Rows(e.RowIndex).Selected = True
|
||||
If e.Button = MouseButtons.Right Then
|
||||
|
||||
If dgvMailvorlagen.SelectedRows.Count = 1 Then
|
||||
|
||||
If (dgvMailvorlagen.SelectedRows(0).Cells("txt_FIRMA").Value Is DBNull.Value Or dgvMailvorlagen.SelectedRows(0).Cells("txt_FIRMA").Value Is Nothing Or dgvMailvorlagen.SelectedRows(0).Cells("txt_FIRMA").Value = "") Then
|
||||
|
||||
ContextMenuStrip1.Show(Cursor.Position)
|
||||
|
||||
Else
|
||||
|
||||
ContextMenuStrip1.Show(Cursor.Position)
|
||||
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
@@ -97,6 +97,7 @@ Partial Class frmKassenbuchSuche
|
||||
Me.EintragLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.pnlOpt = New System.Windows.Forms.Panel()
|
||||
Me.pnl = New System.Windows.Forms.Panel()
|
||||
Me.Button3 = New System.Windows.Forms.Button()
|
||||
Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.Label21 = New System.Windows.Forms.Label()
|
||||
Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
@@ -113,7 +114,8 @@ Partial Class frmKassenbuchSuche
|
||||
Me.Label22 = New System.Windows.Forms.Label()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.pnlTop = New System.Windows.Forms.Panel()
|
||||
Me.Button3 = New System.Windows.Forms.Button()
|
||||
Me.Label12 = New System.Windows.Forms.Label()
|
||||
Me.cbxZahlungsmittel = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SplitContainer.Panel1.SuspendLayout()
|
||||
Me.SplitContainer.Panel2.SuspendLayout()
|
||||
@@ -217,6 +219,8 @@ Partial Class frmKassenbuchSuche
|
||||
'
|
||||
'SplitContainer1.Panel2
|
||||
'
|
||||
Me.SplitContainer1.Panel2.Controls.Add(Me.Label12)
|
||||
Me.SplitContainer1.Panel2.Controls.Add(Me.cbxZahlungsmittel)
|
||||
Me.SplitContainer1.Panel2.Controls.Add(Me.Label6)
|
||||
Me.SplitContainer1.Panel2.Controls.Add(Me.btnDGVBelege)
|
||||
Me.SplitContainer1.Panel2.Controls.Add(Me.btnDGVKassenbuch)
|
||||
@@ -376,10 +380,12 @@ Partial Class frmKassenbuchSuche
|
||||
Me.MyTextBox1._DateTimeOnly = False
|
||||
Me.MyTextBox1._numbersOnly = False
|
||||
Me.MyTextBox1._numbersOnlyKommastellen = ""
|
||||
Me.MyTextBox1._numbersOnlyTrennzeichen = True
|
||||
Me.MyTextBox1._Prozent = False
|
||||
Me.MyTextBox1._ShortDateNew = False
|
||||
Me.MyTextBox1._ShortDateOnly = False
|
||||
Me.MyTextBox1._TimeOnly = False
|
||||
Me.MyTextBox1._TimeOnly_Seconds = False
|
||||
Me.MyTextBox1._value = Nothing
|
||||
Me.MyTextBox1._Waehrung = False
|
||||
Me.MyTextBox1._WaehrungZeichen = True
|
||||
@@ -399,10 +405,12 @@ Partial Class frmKassenbuchSuche
|
||||
Me.MyTextBox2._DateTimeOnly = False
|
||||
Me.MyTextBox2._numbersOnly = False
|
||||
Me.MyTextBox2._numbersOnlyKommastellen = ""
|
||||
Me.MyTextBox2._numbersOnlyTrennzeichen = True
|
||||
Me.MyTextBox2._Prozent = False
|
||||
Me.MyTextBox2._ShortDateNew = False
|
||||
Me.MyTextBox2._ShortDateOnly = False
|
||||
Me.MyTextBox2._TimeOnly = False
|
||||
Me.MyTextBox2._TimeOnly_Seconds = False
|
||||
Me.MyTextBox2._value = Nothing
|
||||
Me.MyTextBox2._Waehrung = False
|
||||
Me.MyTextBox2._WaehrungZeichen = True
|
||||
@@ -464,7 +472,7 @@ Partial Class frmKassenbuchSuche
|
||||
'
|
||||
Me.btnSuche.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btnSuche.Image = Global.SDL.My.Resources.search
|
||||
Me.btnSuche.Image = Global.SDL.My.Resources.Resources.search
|
||||
Me.btnSuche.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnSuche.Location = New System.Drawing.Point(1043, 6)
|
||||
Me.btnSuche.Name = "btnSuche"
|
||||
@@ -478,10 +486,12 @@ Partial Class frmKassenbuchSuche
|
||||
Me.txtAbfertDat._DateTimeOnly = False
|
||||
Me.txtAbfertDat._numbersOnly = False
|
||||
Me.txtAbfertDat._numbersOnlyKommastellen = ""
|
||||
Me.txtAbfertDat._numbersOnlyTrennzeichen = True
|
||||
Me.txtAbfertDat._Prozent = False
|
||||
Me.txtAbfertDat._ShortDateNew = False
|
||||
Me.txtAbfertDat._ShortDateOnly = True
|
||||
Me.txtAbfertDat._TimeOnly = False
|
||||
Me.txtAbfertDat._TimeOnly_Seconds = False
|
||||
Me.txtAbfertDat._value = ""
|
||||
Me.txtAbfertDat._Waehrung = False
|
||||
Me.txtAbfertDat._WaehrungZeichen = True
|
||||
@@ -600,7 +610,7 @@ Partial Class frmKassenbuchSuche
|
||||
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button4.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
|
||||
Me.Button4.ForeColor = System.Drawing.Color.White
|
||||
Me.Button4.Image = Global.SDL.My.Resources.pfeil_unten
|
||||
Me.Button4.Image = Global.SDL.My.Resources.Resources.pfeil_unten
|
||||
Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button4.Location = New System.Drawing.Point(1043, 57)
|
||||
Me.Button4.Margin = New System.Windows.Forms.Padding(0)
|
||||
@@ -616,10 +626,12 @@ Partial Class frmKassenbuchSuche
|
||||
Me.txtAbfertDatBis._DateTimeOnly = False
|
||||
Me.txtAbfertDatBis._numbersOnly = False
|
||||
Me.txtAbfertDatBis._numbersOnlyKommastellen = ""
|
||||
Me.txtAbfertDatBis._numbersOnlyTrennzeichen = True
|
||||
Me.txtAbfertDatBis._Prozent = False
|
||||
Me.txtAbfertDatBis._ShortDateNew = False
|
||||
Me.txtAbfertDatBis._ShortDateOnly = True
|
||||
Me.txtAbfertDatBis._TimeOnly = False
|
||||
Me.txtAbfertDatBis._TimeOnly_Seconds = False
|
||||
Me.txtAbfertDatBis._value = ""
|
||||
Me.txtAbfertDatBis._Waehrung = False
|
||||
Me.txtAbfertDatBis._WaehrungZeichen = True
|
||||
@@ -711,10 +723,12 @@ Partial Class frmKassenbuchSuche
|
||||
Me.txtUnterNr._DateTimeOnly = False
|
||||
Me.txtUnterNr._numbersOnly = False
|
||||
Me.txtUnterNr._numbersOnlyKommastellen = ""
|
||||
Me.txtUnterNr._numbersOnlyTrennzeichen = True
|
||||
Me.txtUnterNr._Prozent = False
|
||||
Me.txtUnterNr._ShortDateNew = False
|
||||
Me.txtUnterNr._ShortDateOnly = False
|
||||
Me.txtUnterNr._TimeOnly = False
|
||||
Me.txtUnterNr._TimeOnly_Seconds = False
|
||||
Me.txtUnterNr._value = Nothing
|
||||
Me.txtUnterNr._Waehrung = False
|
||||
Me.txtUnterNr._WaehrungZeichen = True
|
||||
@@ -743,10 +757,12 @@ Partial Class frmKassenbuchSuche
|
||||
Me.txtAbfertigungsnummerBis._DateTimeOnly = False
|
||||
Me.txtAbfertigungsnummerBis._numbersOnly = False
|
||||
Me.txtAbfertigungsnummerBis._numbersOnlyKommastellen = ""
|
||||
Me.txtAbfertigungsnummerBis._numbersOnlyTrennzeichen = True
|
||||
Me.txtAbfertigungsnummerBis._Prozent = False
|
||||
Me.txtAbfertigungsnummerBis._ShortDateNew = False
|
||||
Me.txtAbfertigungsnummerBis._ShortDateOnly = False
|
||||
Me.txtAbfertigungsnummerBis._TimeOnly = False
|
||||
Me.txtAbfertigungsnummerBis._TimeOnly_Seconds = False
|
||||
Me.txtAbfertigungsnummerBis._value = Nothing
|
||||
Me.txtAbfertigungsnummerBis._Waehrung = False
|
||||
Me.txtAbfertigungsnummerBis._WaehrungZeichen = True
|
||||
@@ -766,10 +782,12 @@ Partial Class frmKassenbuchSuche
|
||||
Me.txtAbfertigungsnummer._DateTimeOnly = False
|
||||
Me.txtAbfertigungsnummer._numbersOnly = False
|
||||
Me.txtAbfertigungsnummer._numbersOnlyKommastellen = ""
|
||||
Me.txtAbfertigungsnummer._numbersOnlyTrennzeichen = True
|
||||
Me.txtAbfertigungsnummer._Prozent = False
|
||||
Me.txtAbfertigungsnummer._ShortDateNew = False
|
||||
Me.txtAbfertigungsnummer._ShortDateOnly = False
|
||||
Me.txtAbfertigungsnummer._TimeOnly = False
|
||||
Me.txtAbfertigungsnummer._TimeOnly_Seconds = False
|
||||
Me.txtAbfertigungsnummer._value = Nothing
|
||||
Me.txtAbfertigungsnummer._Waehrung = False
|
||||
Me.txtAbfertigungsnummer._WaehrungZeichen = True
|
||||
@@ -834,6 +852,7 @@ Partial Class frmKassenbuchSuche
|
||||
'
|
||||
'KdFrachtfuehrer
|
||||
'
|
||||
Me.KdFrachtfuehrer._AlleFirmenCLUSTER = False
|
||||
Me.KdFrachtfuehrer._AllowSetValue = True
|
||||
Me.KdFrachtfuehrer._autoSizeGross = False
|
||||
Me.KdFrachtfuehrer._display_Name1 = False
|
||||
@@ -842,6 +861,8 @@ Partial Class frmKassenbuchSuche
|
||||
Me.KdFrachtfuehrer._displayWoelflKd = False
|
||||
Me.KdFrachtfuehrer._hideIfListEmpty = True
|
||||
Me.KdFrachtfuehrer._loadKdData = False
|
||||
Me.KdFrachtfuehrer._searchName1 = True
|
||||
Me.KdFrachtfuehrer._UseFIRMA = ""
|
||||
Me.KdFrachtfuehrer._ValueKdAndName = True
|
||||
Me.KdFrachtfuehrer.dgvpos = "LEFT"
|
||||
Me.KdFrachtfuehrer.KdName = ""
|
||||
@@ -854,6 +875,7 @@ Partial Class frmKassenbuchSuche
|
||||
Me.KdFrachtfuehrer.searchActive = True
|
||||
Me.KdFrachtfuehrer.Size = New System.Drawing.Size(261, 20)
|
||||
Me.KdFrachtfuehrer.TabIndex = 46
|
||||
Me.KdFrachtfuehrer.TIMER_SEARCH = True
|
||||
Me.KdFrachtfuehrer.usrcntl = Nothing
|
||||
'
|
||||
'Label37
|
||||
@@ -871,10 +893,12 @@ Partial Class frmKassenbuchSuche
|
||||
Me.KdFrachtfuehrerKdnr._DateTimeOnly = False
|
||||
Me.KdFrachtfuehrerKdnr._numbersOnly = False
|
||||
Me.KdFrachtfuehrerKdnr._numbersOnlyKommastellen = ""
|
||||
Me.KdFrachtfuehrerKdnr._numbersOnlyTrennzeichen = True
|
||||
Me.KdFrachtfuehrerKdnr._Prozent = False
|
||||
Me.KdFrachtfuehrerKdnr._ShortDateNew = False
|
||||
Me.KdFrachtfuehrerKdnr._ShortDateOnly = False
|
||||
Me.KdFrachtfuehrerKdnr._TimeOnly = False
|
||||
Me.KdFrachtfuehrerKdnr._TimeOnly_Seconds = False
|
||||
Me.KdFrachtfuehrerKdnr._value = Nothing
|
||||
Me.KdFrachtfuehrerKdnr._Waehrung = False
|
||||
Me.KdFrachtfuehrerKdnr._WaehrungZeichen = True
|
||||
@@ -1017,10 +1041,12 @@ Partial Class frmKassenbuchSuche
|
||||
Me.txtLKWKennzeichen._DateTimeOnly = False
|
||||
Me.txtLKWKennzeichen._numbersOnly = False
|
||||
Me.txtLKWKennzeichen._numbersOnlyKommastellen = ""
|
||||
Me.txtLKWKennzeichen._numbersOnlyTrennzeichen = True
|
||||
Me.txtLKWKennzeichen._Prozent = False
|
||||
Me.txtLKWKennzeichen._ShortDateNew = False
|
||||
Me.txtLKWKennzeichen._ShortDateOnly = False
|
||||
Me.txtLKWKennzeichen._TimeOnly = False
|
||||
Me.txtLKWKennzeichen._TimeOnly_Seconds = False
|
||||
Me.txtLKWKennzeichen._value = Nothing
|
||||
Me.txtLKWKennzeichen._Waehrung = False
|
||||
Me.txtLKWKennzeichen._WaehrungZeichen = True
|
||||
@@ -1068,6 +1094,7 @@ Partial Class frmKassenbuchSuche
|
||||
'
|
||||
'kdtxtAuftraggeber
|
||||
'
|
||||
Me.kdtxtAuftraggeber._AlleFirmenCLUSTER = False
|
||||
Me.kdtxtAuftraggeber._AllowSetValue = True
|
||||
Me.kdtxtAuftraggeber._autoSizeGross = False
|
||||
Me.kdtxtAuftraggeber._display_Name1 = False
|
||||
@@ -1076,6 +1103,8 @@ Partial Class frmKassenbuchSuche
|
||||
Me.kdtxtAuftraggeber._displayWoelflKd = False
|
||||
Me.kdtxtAuftraggeber._hideIfListEmpty = True
|
||||
Me.kdtxtAuftraggeber._loadKdData = False
|
||||
Me.kdtxtAuftraggeber._searchName1 = True
|
||||
Me.kdtxtAuftraggeber._UseFIRMA = ""
|
||||
Me.kdtxtAuftraggeber._ValueKdAndName = True
|
||||
Me.kdtxtAuftraggeber.dgvpos = "LEFT"
|
||||
Me.kdtxtAuftraggeber.KdName = ""
|
||||
@@ -1088,6 +1117,7 @@ Partial Class frmKassenbuchSuche
|
||||
Me.kdtxtAuftraggeber.searchActive = True
|
||||
Me.kdtxtAuftraggeber.Size = New System.Drawing.Size(261, 20)
|
||||
Me.kdtxtAuftraggeber.TabIndex = 17
|
||||
Me.kdtxtAuftraggeber.TIMER_SEARCH = True
|
||||
Me.kdtxtAuftraggeber.usrcntl = Nothing
|
||||
'
|
||||
'txtAuftraggeberKdnr
|
||||
@@ -1095,10 +1125,12 @@ Partial Class frmKassenbuchSuche
|
||||
Me.txtAuftraggeberKdnr._DateTimeOnly = False
|
||||
Me.txtAuftraggeberKdnr._numbersOnly = False
|
||||
Me.txtAuftraggeberKdnr._numbersOnlyKommastellen = ""
|
||||
Me.txtAuftraggeberKdnr._numbersOnlyTrennzeichen = True
|
||||
Me.txtAuftraggeberKdnr._Prozent = False
|
||||
Me.txtAuftraggeberKdnr._ShortDateNew = False
|
||||
Me.txtAuftraggeberKdnr._ShortDateOnly = False
|
||||
Me.txtAuftraggeberKdnr._TimeOnly = False
|
||||
Me.txtAuftraggeberKdnr._TimeOnly_Seconds = False
|
||||
Me.txtAuftraggeberKdnr._value = Nothing
|
||||
Me.txtAuftraggeberKdnr._Waehrung = False
|
||||
Me.txtAuftraggeberKdnr._WaehrungZeichen = True
|
||||
@@ -1119,10 +1151,12 @@ Partial Class frmKassenbuchSuche
|
||||
Me.txtBelegId._DateTimeOnly = False
|
||||
Me.txtBelegId._numbersOnly = False
|
||||
Me.txtBelegId._numbersOnlyKommastellen = ""
|
||||
Me.txtBelegId._numbersOnlyTrennzeichen = True
|
||||
Me.txtBelegId._Prozent = False
|
||||
Me.txtBelegId._ShortDateNew = False
|
||||
Me.txtBelegId._ShortDateOnly = False
|
||||
Me.txtBelegId._TimeOnly = False
|
||||
Me.txtBelegId._TimeOnly_Seconds = False
|
||||
Me.txtBelegId._value = Nothing
|
||||
Me.txtBelegId._Waehrung = False
|
||||
Me.txtBelegId._WaehrungZeichen = True
|
||||
@@ -1211,6 +1245,21 @@ Partial Class frmKassenbuchSuche
|
||||
Me.pnl.Size = New System.Drawing.Size(1047, 78)
|
||||
Me.pnl.TabIndex = 5
|
||||
'
|
||||
'Button3
|
||||
'
|
||||
Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button3.Image = Global.SDL.My.Resources.Resources.statistik_small
|
||||
Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button3.Location = New System.Drawing.Point(283, 32)
|
||||
Me.Button3.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.Button3.Name = "Button3"
|
||||
Me.Button3.Size = New System.Drawing.Size(156, 39)
|
||||
Me.Button3.TabIndex = 47
|
||||
Me.Button3.Text = "SollHaben Auswertung"
|
||||
Me.Button3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.Button3.UseVisualStyleBackColor = True
|
||||
'
|
||||
'MyComboBox2
|
||||
'
|
||||
Me.MyComboBox2._allowedValuesFreiText = Nothing
|
||||
@@ -1251,7 +1300,7 @@ Partial Class frmKassenbuchSuche
|
||||
'
|
||||
Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button1.Image = Global.SDL.My.Resources.statistik_small
|
||||
Me.Button1.Image = Global.SDL.My.Resources.Resources.statistik_small
|
||||
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button1.Location = New System.Drawing.Point(832, 10)
|
||||
Me.Button1.Margin = New System.Windows.Forms.Padding(0)
|
||||
@@ -1316,7 +1365,7 @@ Partial Class frmKassenbuchSuche
|
||||
'
|
||||
Me.Button8.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||
Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button8.Image = Global.SDL.My.Resources.statistik_small
|
||||
Me.Button8.Image = Global.SDL.My.Resources.Resources.statistik_small
|
||||
Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button8.Location = New System.Drawing.Point(16, 32)
|
||||
Me.Button8.Margin = New System.Windows.Forms.Padding(0)
|
||||
@@ -1340,7 +1389,7 @@ Partial Class frmKassenbuchSuche
|
||||
'btnExcel
|
||||
'
|
||||
Me.btnExcel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||
Me.btnExcel.BackgroundImage = Global.SDL.My.Resources.Excel_logo
|
||||
Me.btnExcel.BackgroundImage = Global.SDL.My.Resources.Resources.Excel_logo
|
||||
Me.btnExcel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
||||
Me.btnExcel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnExcel.Location = New System.Drawing.Point(1117, 37)
|
||||
@@ -1352,7 +1401,7 @@ Partial Class frmKassenbuchSuche
|
||||
'FlatButton7
|
||||
'
|
||||
Me.FlatButton7.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||
Me.FlatButton7.BackgroundImage = Global.SDL.My.Resources.refresh
|
||||
Me.FlatButton7.BackgroundImage = Global.SDL.My.Resources.Resources.refresh
|
||||
Me.FlatButton7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.FlatButton7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.FlatButton7.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
@@ -1405,20 +1454,28 @@ Partial Class frmKassenbuchSuche
|
||||
Me.pnlTop.Size = New System.Drawing.Size(1211, 48)
|
||||
Me.pnlTop.TabIndex = 0
|
||||
'
|
||||
'Button3
|
||||
'Label12
|
||||
'
|
||||
Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button3.Image = Global.SDL.My.Resources.statistik_small
|
||||
Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button3.Location = New System.Drawing.Point(283, 32)
|
||||
Me.Button3.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.Button3.Name = "Button3"
|
||||
Me.Button3.Size = New System.Drawing.Size(156, 39)
|
||||
Me.Button3.TabIndex = 47
|
||||
Me.Button3.Text = "SollHaben Auswertung"
|
||||
Me.Button3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.Button3.UseVisualStyleBackColor = True
|
||||
Me.Label12.AutoSize = True
|
||||
Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label12.Location = New System.Drawing.Point(384, 114)
|
||||
Me.Label12.Name = "Label12"
|
||||
Me.Label12.Size = New System.Drawing.Size(89, 13)
|
||||
Me.Label12.TabIndex = 423
|
||||
Me.Label12.Text = "Zahlungsmittel"
|
||||
'
|
||||
'cbxZahlungsmittel
|
||||
'
|
||||
Me.cbxZahlungsmittel._allowedValuesFreiText = Nothing
|
||||
Me.cbxZahlungsmittel._allowFreiText = False
|
||||
Me.cbxZahlungsmittel._value = ""
|
||||
Me.cbxZahlungsmittel.DropDownWidth = 250
|
||||
Me.cbxZahlungsmittel.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.cbxZahlungsmittel.FormattingEnabled = True
|
||||
Me.cbxZahlungsmittel.Location = New System.Drawing.Point(389, 130)
|
||||
Me.cbxZahlungsmittel.Name = "cbxZahlungsmittel"
|
||||
Me.cbxZahlungsmittel.Size = New System.Drawing.Size(98, 22)
|
||||
Me.cbxZahlungsmittel.TabIndex = 424
|
||||
'
|
||||
'frmKassenbuchSuche
|
||||
'
|
||||
@@ -1546,4 +1603,6 @@ Partial Class frmKassenbuchSuche
|
||||
Friend WithEvents Label24 As Label
|
||||
Friend WithEvents CheckBox1 As CheckBox
|
||||
Friend WithEvents Button3 As Button
|
||||
Friend WithEvents Label12 As Label
|
||||
Friend WithEvents cbxZahlungsmittel As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
End Class
|
||||
|
||||
@@ -71,7 +71,7 @@ Public Class frmKassenbuchSuche
|
||||
|
||||
|
||||
|
||||
Dim sqlstr = "SELECT [JournalNr],[BelegDat],[BelegNr],CASE WHEN Belegart=1 THEN 'E' ELSE 'A' END as Belegart,[Buchungstext],([Betrag]+[Steuerbetrag]) as Brutto,[Konto],[Soll],[Haben],Steuerbetrag as Steuer,tblKassenbuch.Benutzer " &
|
||||
Dim sqlstr = "SELECT [JournalNr],[BelegDat],[BelegNr],CASE WHEN Belegart=1 THEN 'E' ELSE 'A' END as Belegart,[Buchungstext],([Betrag]+[Steuerbetrag]) as Brutto,[Konto],[Soll],[Haben],Steuerbetrag as Steuer,tblKassenbuch.Benutzer, isnull([Finanzwege], '-') as ZM " &
|
||||
" FROM Personal INNER JOIN tblKassenbuch ON Personal.ID = tblKassenbuch.Benutzer " &
|
||||
" WHERE 1=1 "
|
||||
|
||||
@@ -95,6 +95,7 @@ Public Class frmKassenbuchSuche
|
||||
.Columns("Buchungstext").MinimumWidth = 60
|
||||
.Columns("Buchungstext").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
.Columns("Konto").Width = 40
|
||||
.Columns("ZM").Width = 40
|
||||
.Columns("Soll").Width = 80
|
||||
.Columns("Soll").DefaultCellStyle.Format = "C"
|
||||
.Columns("Haben").Width = 80
|
||||
@@ -152,6 +153,8 @@ Public Class frmKassenbuchSuche
|
||||
If cboFiliale._value <> "" Then sqlstr &= " AND [FilialenNr] LIKE @FilialenNr "
|
||||
If cboKassier._value <> "" Then sqlstr &= " AND [Benutzer] = @Benutzer "
|
||||
|
||||
If cbxZahlungsmittel._value <> "" Then sqlstr &= " AND [Finanzwege] = @Zahlungsmittel "
|
||||
|
||||
If txtLKWKennzeichen.Text <> "" Then sqlstr &= " AND [LKW Kennzeichen] LIKE @LKW "
|
||||
|
||||
' If txtSachbearbeiter.Text <> "" Then sqlstr &= " AND [Sachbearbeiter] = @Sachbearbeiter "
|
||||
@@ -179,6 +182,7 @@ Public Class frmKassenbuchSuche
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNr", cboFiliale._value))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Benutzer", cboKassier._value))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LKW", txtLKWKennzeichen.Text.Replace("*", "%").ToUpper))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zahlungsmittel", cbxZahlungsmittel._value))
|
||||
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachbearbeiter", txtSachbearbeiter.Text))
|
||||
Return list
|
||||
|
||||
@@ -265,6 +269,7 @@ Public Class frmKassenbuchSuche
|
||||
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachbearbeiter", txtSachbearbeiter.Text))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PreislistenNr", cboPreisliste._value))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Niederlassung", cboNiederlassung.Text))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zahlungsmittel", cbxZahlungsmittel._value))
|
||||
|
||||
Return list
|
||||
|
||||
@@ -301,6 +306,7 @@ Public Class frmKassenbuchSuche
|
||||
cboPreisliste.fillWithSQL("SELECT [PreislistenNr],[PreislistenBez] FROM [tblPreislisten] ORDER BY PreislistenBez ", False, "FMZOLL", True)
|
||||
' cboStatistik_Preisliste.fillWithSQL("SELECT [PreislistenNr],[PreislistenBez] FROM [tblPreislisten] ORDER BY PreislistenBez ", False, "FMZOLL", True)
|
||||
|
||||
cbxZahlungsmittel.fillWithSQL("SELECT distinct([Finanzwege]) FROM [tblKassenbuch] where isnull(Finanzwege,'') <> '' ORDER BY Finanzwege ", False, "FMZOLL", True)
|
||||
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me) Then
|
||||
|
||||
@@ -1,12 +1,7 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Drawing.Printing
|
||||
Imports System.Drawing.Printing
|
||||
Imports System.Globalization
|
||||
Imports com.sun.org.apache.xpath.internal.operations
|
||||
Imports com.sun.xml.internal.ws.api.model
|
||||
Imports DAKOSY_Worker.DEXPRD
|
||||
Imports Microsoft.Win32
|
||||
Imports SDL.RKSVServer
|
||||
Imports VERAG_PROG_ALLGEMEIN.TESTJSON
|
||||
|
||||
Public Class frmBelegNeu
|
||||
Implements System.ComponentModel.INotifyPropertyChanged
|
||||
@@ -1050,7 +1045,7 @@ Public Class frmBelegNeu
|
||||
End Sub
|
||||
Private Sub btnEinnahmeBeleg_Click(sender As Object, e As EventArgs) Handles btnEinnahmeBeleg.Click
|
||||
If BELEG.POS.Count > 0 Then
|
||||
If vbYes <> MsgBox("Es wurden bereits Positionen angelegt, sollen diese geslöscht werden?", MsgBoxStyle.YesNoCancel) Then
|
||||
If vbYes <> MsgBox("Es wurden bereits Positionen angelegt, sollen diese gelöscht werden?", MsgBoxStyle.YesNoCancel) Then
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
@@ -1063,7 +1058,7 @@ Public Class frmBelegNeu
|
||||
|
||||
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnAusgabebeleg.Click
|
||||
If BELEG.POS.Count > 0 Then
|
||||
If vbYes <> MsgBox("Es wurden bereits Positionen angelegt, sollen diese geslöscht werden?", MsgBoxStyle.YesNoCancel) Then
|
||||
If vbYes <> MsgBox("Es wurden bereits Positionen angelegt, sollen diese gelöscht werden?", MsgBoxStyle.YesNoCancel) Then
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
|
||||
327
SDL/kassenbuch/frmNacherfassungLeihgeld.Designer.vb
generated
327
SDL/kassenbuch/frmNacherfassungLeihgeld.Designer.vb
generated
@@ -24,8 +24,11 @@ Partial Class frmNacherfassungLeihgeld
|
||||
Private Sub InitializeComponent()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmNacherfassungLeihgeld))
|
||||
Me.pnl = New System.Windows.Forms.Panel()
|
||||
Me.txtDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.btnNeueAbfertigungNrVergeben = New System.Windows.Forms.Button()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.txtAbfertigungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.Label16 = New System.Windows.Forms.Label()
|
||||
Me.lblAbfertigungsdatum = New System.Windows.Forms.Label()
|
||||
@@ -46,16 +49,16 @@ Partial Class frmNacherfassungLeihgeld
|
||||
Me.Label11 = New System.Windows.Forms.Label()
|
||||
Me.cbxProvisionAuftraggeber = New System.Windows.Forms.CheckBox()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.Panel2 = New System.Windows.Forms.Panel()
|
||||
Me.Label44 = New System.Windows.Forms.Label()
|
||||
Me.txtOpLeihgeld = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.cboPrinter = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.cboPrinterProvisionBeleg = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.txtAuftrProvision = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.cboProvisionBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.cboProvisionStaffel = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.txtProvisionProzent = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.cboProvisionStaffelArt = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.Panel2 = New System.Windows.Forms.Panel()
|
||||
Me.cboPrinter = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.cboPrinterProvisionBeleg = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.Label44 = New System.Windows.Forms.Label()
|
||||
Me.txtOpLeihgeld = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtKdAuftragsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.kdFrachtführer = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
|
||||
Me.ksFrachtführerKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
@@ -64,10 +67,8 @@ Partial Class frmNacherfassungLeihgeld
|
||||
Me.txtBarzahlungsbetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtAuftraggeberKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.MyTextBoxLKWKz = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtAbfertigungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.txtFahrer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.cbxOP_sofort_buchen = New System.Windows.Forms.CheckBox()
|
||||
Me.pnl.SuspendLayout()
|
||||
Me.Panel1.SuspendLayout()
|
||||
Me.Panel2.SuspendLayout()
|
||||
@@ -91,6 +92,33 @@ Partial Class frmNacherfassungLeihgeld
|
||||
Me.pnl.Size = New System.Drawing.Size(441, 94)
|
||||
Me.pnl.TabIndex = 0
|
||||
'
|
||||
'txtDatum
|
||||
'
|
||||
Me.txtDatum._DateTimeOnly = False
|
||||
Me.txtDatum._numbersOnly = False
|
||||
Me.txtDatum._numbersOnlyKommastellen = ""
|
||||
Me.txtDatum._numbersOnlyTrennzeichen = True
|
||||
Me.txtDatum._Prozent = False
|
||||
Me.txtDatum._ShortDateNew = False
|
||||
Me.txtDatum._ShortDateOnly = False
|
||||
Me.txtDatum._TimeOnly = False
|
||||
Me.txtDatum._TimeOnly_Seconds = False
|
||||
Me.txtDatum._value = "01.01.2017"
|
||||
Me.txtDatum._Waehrung = False
|
||||
Me.txtDatum._WaehrungZeichen = True
|
||||
Me.txtDatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||
Me.txtDatum.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtDatum.Location = New System.Drawing.Point(17, 57)
|
||||
Me.txtDatum.MaxLength = 25
|
||||
Me.txtDatum.MaxLineLength = -1
|
||||
Me.txtDatum.MaxLines_Warning = ""
|
||||
Me.txtDatum.MaxLines_Warning_Label = Nothing
|
||||
Me.txtDatum.Name = "txtDatum"
|
||||
Me.txtDatum.ReadOnly = True
|
||||
Me.txtDatum.Size = New System.Drawing.Size(115, 23)
|
||||
Me.txtDatum.TabIndex = 4
|
||||
Me.txtDatum.Text = "01.01.2017"
|
||||
'
|
||||
'btnNeueAbfertigungNrVergeben
|
||||
'
|
||||
Me.btnNeueAbfertigungNrVergeben.BackColor = System.Drawing.Color.Gainsboro
|
||||
@@ -111,6 +139,44 @@ Partial Class frmNacherfassungLeihgeld
|
||||
Me.Label2.TabIndex = 3
|
||||
Me.Label2.Text = "Abfertigungsnummer"
|
||||
'
|
||||
'txtAbfertigungsnummer
|
||||
'
|
||||
Me.txtAbfertigungsnummer._DateTimeOnly = False
|
||||
Me.txtAbfertigungsnummer._numbersOnly = False
|
||||
Me.txtAbfertigungsnummer._numbersOnlyKommastellen = ""
|
||||
Me.txtAbfertigungsnummer._numbersOnlyTrennzeichen = True
|
||||
Me.txtAbfertigungsnummer._Prozent = False
|
||||
Me.txtAbfertigungsnummer._ShortDateNew = False
|
||||
Me.txtAbfertigungsnummer._ShortDateOnly = False
|
||||
Me.txtAbfertigungsnummer._TimeOnly = False
|
||||
Me.txtAbfertigungsnummer._TimeOnly_Seconds = False
|
||||
Me.txtAbfertigungsnummer._value = Nothing
|
||||
Me.txtAbfertigungsnummer._Waehrung = False
|
||||
Me.txtAbfertigungsnummer._WaehrungZeichen = True
|
||||
Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Tai Le", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(281, 57)
|
||||
Me.txtAbfertigungsnummer.MaxLength = 8
|
||||
Me.txtAbfertigungsnummer.MaxLineLength = -1
|
||||
Me.txtAbfertigungsnummer.MaxLines_Warning = ""
|
||||
Me.txtAbfertigungsnummer.MaxLines_Warning_Label = Nothing
|
||||
Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer"
|
||||
Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(145, 24)
|
||||
Me.txtAbfertigungsnummer.TabIndex = 7
|
||||
'
|
||||
'cboFiliale
|
||||
'
|
||||
Me.cboFiliale._allowedValuesFreiText = Nothing
|
||||
Me.cboFiliale._allowFreiText = False
|
||||
Me.cboFiliale._value = ""
|
||||
Me.cboFiliale.DropDownWidth = 280
|
||||
Me.cboFiliale.Enabled = False
|
||||
Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Tai Le", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.cboFiliale.FormattingEnabled = True
|
||||
Me.cboFiliale.Location = New System.Drawing.Point(196, 56)
|
||||
Me.cboFiliale.Name = "cboFiliale"
|
||||
Me.cboFiliale.Size = New System.Drawing.Size(80, 24)
|
||||
Me.cboFiliale.TabIndex = 5
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
@@ -324,87 +390,17 @@ Partial Class frmNacherfassungLeihgeld
|
||||
Me.Panel1.Size = New System.Drawing.Size(441, 122)
|
||||
Me.Panel1.TabIndex = 20
|
||||
'
|
||||
'Panel2
|
||||
'
|
||||
Me.Panel2.Controls.Add(Me.Label6)
|
||||
Me.Panel2.Controls.Add(Me.Label7)
|
||||
Me.Panel2.Controls.Add(Me.cboPrinter)
|
||||
Me.Panel2.Controls.Add(Me.cboPrinterProvisionBeleg)
|
||||
Me.Panel2.Location = New System.Drawing.Point(213, 467)
|
||||
Me.Panel2.Name = "Panel2"
|
||||
Me.Panel2.Size = New System.Drawing.Size(228, 59)
|
||||
Me.Panel2.TabIndex = 21
|
||||
'
|
||||
'Label44
|
||||
'
|
||||
Me.Label44.AutoSize = True
|
||||
Me.Label44.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label44.Location = New System.Drawing.Point(288, 140)
|
||||
Me.Label44.Name = "Label44"
|
||||
Me.Label44.Size = New System.Drawing.Size(127, 13)
|
||||
Me.Label44.TabIndex = 211
|
||||
Me.Label44.Text = "Offene Posten - Leihgeld:"
|
||||
Me.Label44.Visible = False
|
||||
'
|
||||
'txtOpLeihgeld
|
||||
'
|
||||
Me.txtOpLeihgeld._DateTimeOnly = False
|
||||
Me.txtOpLeihgeld._numbersOnly = False
|
||||
Me.txtOpLeihgeld._numbersOnlyKommastellen = ""
|
||||
Me.txtOpLeihgeld._Prozent = False
|
||||
Me.txtOpLeihgeld._ShortDateNew = False
|
||||
Me.txtOpLeihgeld._ShortDateOnly = False
|
||||
Me.txtOpLeihgeld._TimeOnly = False
|
||||
Me.txtOpLeihgeld._value = Nothing
|
||||
Me.txtOpLeihgeld._Waehrung = False
|
||||
Me.txtOpLeihgeld._WaehrungZeichen = True
|
||||
Me.txtOpLeihgeld.BackColor = System.Drawing.Color.White
|
||||
Me.txtOpLeihgeld.BorderStyle = System.Windows.Forms.BorderStyle.None
|
||||
Me.txtOpLeihgeld.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.txtOpLeihgeld.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtOpLeihgeld.Location = New System.Drawing.Point(289, 159)
|
||||
Me.txtOpLeihgeld.MaxLineLength = -1
|
||||
Me.txtOpLeihgeld.MaxLines_Warning = ""
|
||||
Me.txtOpLeihgeld.MaxLines_Warning_Label = Nothing
|
||||
Me.txtOpLeihgeld.Name = "txtOpLeihgeld"
|
||||
Me.txtOpLeihgeld.ReadOnly = True
|
||||
Me.txtOpLeihgeld.Size = New System.Drawing.Size(115, 13)
|
||||
Me.txtOpLeihgeld.TabIndex = 212
|
||||
Me.txtOpLeihgeld.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
|
||||
Me.txtOpLeihgeld.Visible = False
|
||||
'
|
||||
'cboPrinter
|
||||
'
|
||||
Me.cboPrinter._allowedValuesFreiText = Nothing
|
||||
Me.cboPrinter._allowFreiText = False
|
||||
Me.cboPrinter._value = ""
|
||||
Me.cboPrinter.FormattingEnabled = True
|
||||
Me.cboPrinter.Location = New System.Drawing.Point(83, 6)
|
||||
Me.cboPrinter.Name = "cboPrinter"
|
||||
Me.cboPrinter.Size = New System.Drawing.Size(131, 21)
|
||||
Me.cboPrinter.TabIndex = 1
|
||||
'
|
||||
'cboPrinterProvisionBeleg
|
||||
'
|
||||
Me.cboPrinterProvisionBeleg._allowedValuesFreiText = Nothing
|
||||
Me.cboPrinterProvisionBeleg._allowFreiText = False
|
||||
Me.cboPrinterProvisionBeleg._value = ""
|
||||
Me.cboPrinterProvisionBeleg.Enabled = False
|
||||
Me.cboPrinterProvisionBeleg.FormattingEnabled = True
|
||||
Me.cboPrinterProvisionBeleg.Location = New System.Drawing.Point(83, 30)
|
||||
Me.cboPrinterProvisionBeleg.Name = "cboPrinterProvisionBeleg"
|
||||
Me.cboPrinterProvisionBeleg.Size = New System.Drawing.Size(131, 21)
|
||||
Me.cboPrinterProvisionBeleg.TabIndex = 3
|
||||
'
|
||||
'txtAuftrProvision
|
||||
'
|
||||
Me.txtAuftrProvision._DateTimeOnly = False
|
||||
Me.txtAuftrProvision._numbersOnly = False
|
||||
Me.txtAuftrProvision._numbersOnlyKommastellen = ""
|
||||
Me.txtAuftrProvision._numbersOnlyTrennzeichen = True
|
||||
Me.txtAuftrProvision._Prozent = True
|
||||
Me.txtAuftrProvision._ShortDateNew = False
|
||||
Me.txtAuftrProvision._ShortDateOnly = False
|
||||
Me.txtAuftrProvision._TimeOnly = False
|
||||
Me.txtAuftrProvision._TimeOnly_Seconds = False
|
||||
Me.txtAuftrProvision._value = Nothing
|
||||
Me.txtAuftrProvision._Waehrung = False
|
||||
Me.txtAuftrProvision._WaehrungZeichen = True
|
||||
@@ -423,10 +419,12 @@ Partial Class frmNacherfassungLeihgeld
|
||||
Me.cboProvisionBetrag._DateTimeOnly = False
|
||||
Me.cboProvisionBetrag._numbersOnly = False
|
||||
Me.cboProvisionBetrag._numbersOnlyKommastellen = ""
|
||||
Me.cboProvisionBetrag._numbersOnlyTrennzeichen = True
|
||||
Me.cboProvisionBetrag._Prozent = False
|
||||
Me.cboProvisionBetrag._ShortDateNew = False
|
||||
Me.cboProvisionBetrag._ShortDateOnly = False
|
||||
Me.cboProvisionBetrag._TimeOnly = False
|
||||
Me.cboProvisionBetrag._TimeOnly_Seconds = False
|
||||
Me.cboProvisionBetrag._value = Nothing
|
||||
Me.cboProvisionBetrag._Waehrung = True
|
||||
Me.cboProvisionBetrag._WaehrungZeichen = True
|
||||
@@ -457,10 +455,12 @@ Partial Class frmNacherfassungLeihgeld
|
||||
Me.txtProvisionProzent._DateTimeOnly = False
|
||||
Me.txtProvisionProzent._numbersOnly = False
|
||||
Me.txtProvisionProzent._numbersOnlyKommastellen = ""
|
||||
Me.txtProvisionProzent._numbersOnlyTrennzeichen = True
|
||||
Me.txtProvisionProzent._Prozent = True
|
||||
Me.txtProvisionProzent._ShortDateNew = False
|
||||
Me.txtProvisionProzent._ShortDateOnly = False
|
||||
Me.txtProvisionProzent._TimeOnly = False
|
||||
Me.txtProvisionProzent._TimeOnly_Seconds = False
|
||||
Me.txtProvisionProzent._value = Nothing
|
||||
Me.txtProvisionProzent._Waehrung = False
|
||||
Me.txtProvisionProzent._WaehrungZeichen = True
|
||||
@@ -486,15 +486,91 @@ Partial Class frmNacherfassungLeihgeld
|
||||
Me.cboProvisionStaffelArt.Size = New System.Drawing.Size(156, 21)
|
||||
Me.cboProvisionStaffelArt.TabIndex = 3
|
||||
'
|
||||
'Panel2
|
||||
'
|
||||
Me.Panel2.Controls.Add(Me.Label6)
|
||||
Me.Panel2.Controls.Add(Me.Label7)
|
||||
Me.Panel2.Controls.Add(Me.cboPrinter)
|
||||
Me.Panel2.Controls.Add(Me.cboPrinterProvisionBeleg)
|
||||
Me.Panel2.Location = New System.Drawing.Point(213, 467)
|
||||
Me.Panel2.Name = "Panel2"
|
||||
Me.Panel2.Size = New System.Drawing.Size(228, 59)
|
||||
Me.Panel2.TabIndex = 21
|
||||
'
|
||||
'cboPrinter
|
||||
'
|
||||
Me.cboPrinter._allowedValuesFreiText = Nothing
|
||||
Me.cboPrinter._allowFreiText = False
|
||||
Me.cboPrinter._value = ""
|
||||
Me.cboPrinter.FormattingEnabled = True
|
||||
Me.cboPrinter.Location = New System.Drawing.Point(83, 6)
|
||||
Me.cboPrinter.Name = "cboPrinter"
|
||||
Me.cboPrinter.Size = New System.Drawing.Size(131, 21)
|
||||
Me.cboPrinter.TabIndex = 1
|
||||
'
|
||||
'cboPrinterProvisionBeleg
|
||||
'
|
||||
Me.cboPrinterProvisionBeleg._allowedValuesFreiText = Nothing
|
||||
Me.cboPrinterProvisionBeleg._allowFreiText = False
|
||||
Me.cboPrinterProvisionBeleg._value = ""
|
||||
Me.cboPrinterProvisionBeleg.Enabled = False
|
||||
Me.cboPrinterProvisionBeleg.FormattingEnabled = True
|
||||
Me.cboPrinterProvisionBeleg.Location = New System.Drawing.Point(83, 30)
|
||||
Me.cboPrinterProvisionBeleg.Name = "cboPrinterProvisionBeleg"
|
||||
Me.cboPrinterProvisionBeleg.Size = New System.Drawing.Size(131, 21)
|
||||
Me.cboPrinterProvisionBeleg.TabIndex = 3
|
||||
'
|
||||
'Label44
|
||||
'
|
||||
Me.Label44.AutoSize = True
|
||||
Me.Label44.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label44.Location = New System.Drawing.Point(288, 140)
|
||||
Me.Label44.Name = "Label44"
|
||||
Me.Label44.Size = New System.Drawing.Size(127, 13)
|
||||
Me.Label44.TabIndex = 211
|
||||
Me.Label44.Text = "Offene Posten - Leihgeld:"
|
||||
Me.Label44.Visible = False
|
||||
'
|
||||
'txtOpLeihgeld
|
||||
'
|
||||
Me.txtOpLeihgeld._DateTimeOnly = False
|
||||
Me.txtOpLeihgeld._numbersOnly = False
|
||||
Me.txtOpLeihgeld._numbersOnlyKommastellen = ""
|
||||
Me.txtOpLeihgeld._numbersOnlyTrennzeichen = True
|
||||
Me.txtOpLeihgeld._Prozent = False
|
||||
Me.txtOpLeihgeld._ShortDateNew = False
|
||||
Me.txtOpLeihgeld._ShortDateOnly = False
|
||||
Me.txtOpLeihgeld._TimeOnly = False
|
||||
Me.txtOpLeihgeld._TimeOnly_Seconds = False
|
||||
Me.txtOpLeihgeld._value = Nothing
|
||||
Me.txtOpLeihgeld._Waehrung = False
|
||||
Me.txtOpLeihgeld._WaehrungZeichen = True
|
||||
Me.txtOpLeihgeld.BackColor = System.Drawing.Color.White
|
||||
Me.txtOpLeihgeld.BorderStyle = System.Windows.Forms.BorderStyle.None
|
||||
Me.txtOpLeihgeld.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.txtOpLeihgeld.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtOpLeihgeld.Location = New System.Drawing.Point(289, 159)
|
||||
Me.txtOpLeihgeld.MaxLineLength = -1
|
||||
Me.txtOpLeihgeld.MaxLines_Warning = ""
|
||||
Me.txtOpLeihgeld.MaxLines_Warning_Label = Nothing
|
||||
Me.txtOpLeihgeld.Name = "txtOpLeihgeld"
|
||||
Me.txtOpLeihgeld.ReadOnly = True
|
||||
Me.txtOpLeihgeld.Size = New System.Drawing.Size(115, 13)
|
||||
Me.txtOpLeihgeld.TabIndex = 212
|
||||
Me.txtOpLeihgeld.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
|
||||
Me.txtOpLeihgeld.Visible = False
|
||||
'
|
||||
'txtKdAuftragsnummer
|
||||
'
|
||||
Me.txtKdAuftragsnummer._DateTimeOnly = False
|
||||
Me.txtKdAuftragsnummer._numbersOnly = False
|
||||
Me.txtKdAuftragsnummer._numbersOnlyKommastellen = ""
|
||||
Me.txtKdAuftragsnummer._numbersOnlyTrennzeichen = True
|
||||
Me.txtKdAuftragsnummer._Prozent = False
|
||||
Me.txtKdAuftragsnummer._ShortDateNew = False
|
||||
Me.txtKdAuftragsnummer._ShortDateOnly = False
|
||||
Me.txtKdAuftragsnummer._TimeOnly = False
|
||||
Me.txtKdAuftragsnummer._TimeOnly_Seconds = False
|
||||
Me.txtKdAuftragsnummer._value = Nothing
|
||||
Me.txtKdAuftragsnummer._Waehrung = False
|
||||
Me.txtKdAuftragsnummer._WaehrungZeichen = True
|
||||
@@ -519,6 +595,7 @@ Partial Class frmNacherfassungLeihgeld
|
||||
Me.kdFrachtführer._displayWoelflKd = False
|
||||
Me.kdFrachtführer._hideIfListEmpty = True
|
||||
Me.kdFrachtführer._loadKdData = False
|
||||
Me.kdFrachtführer._searchName1 = True
|
||||
Me.kdFrachtführer._UseFIRMA = ""
|
||||
Me.kdFrachtführer._ValueKdAndName = False
|
||||
Me.kdFrachtführer.dgvpos = "LEFT"
|
||||
@@ -534,6 +611,7 @@ Partial Class frmNacherfassungLeihgeld
|
||||
Me.kdFrachtführer.searchActive = True
|
||||
Me.kdFrachtführer.Size = New System.Drawing.Size(265, 23)
|
||||
Me.kdFrachtführer.TabIndex = 2
|
||||
Me.kdFrachtführer.TIMER_SEARCH = True
|
||||
Me.kdFrachtführer.usrcntl = Nothing
|
||||
'
|
||||
'ksFrachtführerKdNr
|
||||
@@ -541,10 +619,12 @@ Partial Class frmNacherfassungLeihgeld
|
||||
Me.ksFrachtführerKdNr._DateTimeOnly = False
|
||||
Me.ksFrachtführerKdNr._numbersOnly = False
|
||||
Me.ksFrachtführerKdNr._numbersOnlyKommastellen = ""
|
||||
Me.ksFrachtführerKdNr._numbersOnlyTrennzeichen = True
|
||||
Me.ksFrachtführerKdNr._Prozent = False
|
||||
Me.ksFrachtführerKdNr._ShortDateNew = False
|
||||
Me.ksFrachtführerKdNr._ShortDateOnly = False
|
||||
Me.ksFrachtführerKdNr._TimeOnly = False
|
||||
Me.ksFrachtführerKdNr._TimeOnly_Seconds = False
|
||||
Me.ksFrachtführerKdNr._value = Nothing
|
||||
Me.ksFrachtführerKdNr._Waehrung = False
|
||||
Me.ksFrachtführerKdNr._WaehrungZeichen = True
|
||||
@@ -563,10 +643,12 @@ Partial Class frmNacherfassungLeihgeld
|
||||
Me.txtPassnummer._DateTimeOnly = False
|
||||
Me.txtPassnummer._numbersOnly = False
|
||||
Me.txtPassnummer._numbersOnlyKommastellen = ""
|
||||
Me.txtPassnummer._numbersOnlyTrennzeichen = True
|
||||
Me.txtPassnummer._Prozent = False
|
||||
Me.txtPassnummer._ShortDateNew = False
|
||||
Me.txtPassnummer._ShortDateOnly = False
|
||||
Me.txtPassnummer._TimeOnly = False
|
||||
Me.txtPassnummer._TimeOnly_Seconds = False
|
||||
Me.txtPassnummer._value = Nothing
|
||||
Me.txtPassnummer._Waehrung = False
|
||||
Me.txtPassnummer._WaehrungZeichen = True
|
||||
@@ -591,6 +673,7 @@ Partial Class frmNacherfassungLeihgeld
|
||||
Me.txtAuftraggeber._displayWoelflKd = False
|
||||
Me.txtAuftraggeber._hideIfListEmpty = True
|
||||
Me.txtAuftraggeber._loadKdData = True
|
||||
Me.txtAuftraggeber._searchName1 = True
|
||||
Me.txtAuftraggeber._UseFIRMA = ""
|
||||
Me.txtAuftraggeber._ValueKdAndName = False
|
||||
Me.txtAuftraggeber.dgvpos = "LEFT"
|
||||
@@ -607,6 +690,7 @@ Partial Class frmNacherfassungLeihgeld
|
||||
Me.txtAuftraggeber.searchActive = True
|
||||
Me.txtAuftraggeber.Size = New System.Drawing.Size(265, 23)
|
||||
Me.txtAuftraggeber.TabIndex = 12
|
||||
Me.txtAuftraggeber.TIMER_SEARCH = True
|
||||
Me.txtAuftraggeber.usrcntl = Nothing
|
||||
'
|
||||
'txtBarzahlungsbetrag
|
||||
@@ -614,10 +698,12 @@ Partial Class frmNacherfassungLeihgeld
|
||||
Me.txtBarzahlungsbetrag._DateTimeOnly = False
|
||||
Me.txtBarzahlungsbetrag._numbersOnly = False
|
||||
Me.txtBarzahlungsbetrag._numbersOnlyKommastellen = ""
|
||||
Me.txtBarzahlungsbetrag._numbersOnlyTrennzeichen = True
|
||||
Me.txtBarzahlungsbetrag._Prozent = False
|
||||
Me.txtBarzahlungsbetrag._ShortDateNew = False
|
||||
Me.txtBarzahlungsbetrag._ShortDateOnly = False
|
||||
Me.txtBarzahlungsbetrag._TimeOnly = False
|
||||
Me.txtBarzahlungsbetrag._TimeOnly_Seconds = False
|
||||
Me.txtBarzahlungsbetrag._value = Nothing
|
||||
Me.txtBarzahlungsbetrag._Waehrung = True
|
||||
Me.txtBarzahlungsbetrag._WaehrungZeichen = True
|
||||
@@ -635,10 +721,12 @@ Partial Class frmNacherfassungLeihgeld
|
||||
Me.txtAuftraggeberKdNr._DateTimeOnly = False
|
||||
Me.txtAuftraggeberKdNr._numbersOnly = False
|
||||
Me.txtAuftraggeberKdNr._numbersOnlyKommastellen = ""
|
||||
Me.txtAuftraggeberKdNr._numbersOnlyTrennzeichen = True
|
||||
Me.txtAuftraggeberKdNr._Prozent = False
|
||||
Me.txtAuftraggeberKdNr._ShortDateNew = False
|
||||
Me.txtAuftraggeberKdNr._ShortDateOnly = False
|
||||
Me.txtAuftraggeberKdNr._TimeOnly = False
|
||||
Me.txtAuftraggeberKdNr._TimeOnly_Seconds = False
|
||||
Me.txtAuftraggeberKdNr._value = Nothing
|
||||
Me.txtAuftraggeberKdNr._Waehrung = False
|
||||
Me.txtAuftraggeberKdNr._WaehrungZeichen = True
|
||||
@@ -657,10 +745,12 @@ Partial Class frmNacherfassungLeihgeld
|
||||
Me.MyTextBoxLKWKz._DateTimeOnly = False
|
||||
Me.MyTextBoxLKWKz._numbersOnly = False
|
||||
Me.MyTextBoxLKWKz._numbersOnlyKommastellen = ""
|
||||
Me.MyTextBoxLKWKz._numbersOnlyTrennzeichen = True
|
||||
Me.MyTextBoxLKWKz._Prozent = False
|
||||
Me.MyTextBoxLKWKz._ShortDateNew = False
|
||||
Me.MyTextBoxLKWKz._ShortDateOnly = False
|
||||
Me.MyTextBoxLKWKz._TimeOnly = False
|
||||
Me.MyTextBoxLKWKz._TimeOnly_Seconds = False
|
||||
Me.MyTextBoxLKWKz._value = Nothing
|
||||
Me.MyTextBoxLKWKz._Waehrung = False
|
||||
Me.MyTextBoxLKWKz._WaehrungZeichen = True
|
||||
@@ -674,76 +764,17 @@ Partial Class frmNacherfassungLeihgeld
|
||||
Me.MyTextBoxLKWKz.Size = New System.Drawing.Size(265, 20)
|
||||
Me.MyTextBoxLKWKz.TabIndex = 5
|
||||
'
|
||||
'txtDatum
|
||||
'
|
||||
Me.txtDatum._DateTimeOnly = False
|
||||
Me.txtDatum._numbersOnly = False
|
||||
Me.txtDatum._numbersOnlyKommastellen = ""
|
||||
Me.txtDatum._Prozent = False
|
||||
Me.txtDatum._ShortDateNew = False
|
||||
Me.txtDatum._ShortDateOnly = False
|
||||
Me.txtDatum._TimeOnly = False
|
||||
Me.txtDatum._value = "01.01.2017"
|
||||
Me.txtDatum._Waehrung = False
|
||||
Me.txtDatum._WaehrungZeichen = True
|
||||
Me.txtDatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||
Me.txtDatum.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtDatum.Location = New System.Drawing.Point(17, 57)
|
||||
Me.txtDatum.MaxLength = 25
|
||||
Me.txtDatum.MaxLineLength = -1
|
||||
Me.txtDatum.MaxLines_Warning = ""
|
||||
Me.txtDatum.MaxLines_Warning_Label = Nothing
|
||||
Me.txtDatum.Name = "txtDatum"
|
||||
Me.txtDatum.ReadOnly = True
|
||||
Me.txtDatum.Size = New System.Drawing.Size(115, 23)
|
||||
Me.txtDatum.TabIndex = 4
|
||||
Me.txtDatum.Text = "01.01.2017"
|
||||
'
|
||||
'txtAbfertigungsnummer
|
||||
'
|
||||
Me.txtAbfertigungsnummer._DateTimeOnly = False
|
||||
Me.txtAbfertigungsnummer._numbersOnly = False
|
||||
Me.txtAbfertigungsnummer._numbersOnlyKommastellen = ""
|
||||
Me.txtAbfertigungsnummer._Prozent = False
|
||||
Me.txtAbfertigungsnummer._ShortDateNew = False
|
||||
Me.txtAbfertigungsnummer._ShortDateOnly = False
|
||||
Me.txtAbfertigungsnummer._TimeOnly = False
|
||||
Me.txtAbfertigungsnummer._value = Nothing
|
||||
Me.txtAbfertigungsnummer._Waehrung = False
|
||||
Me.txtAbfertigungsnummer._WaehrungZeichen = True
|
||||
Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Tai Le", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(281, 57)
|
||||
Me.txtAbfertigungsnummer.MaxLength = 8
|
||||
Me.txtAbfertigungsnummer.MaxLineLength = -1
|
||||
Me.txtAbfertigungsnummer.MaxLines_Warning = ""
|
||||
Me.txtAbfertigungsnummer.MaxLines_Warning_Label = Nothing
|
||||
Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer"
|
||||
Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(145, 24)
|
||||
Me.txtAbfertigungsnummer.TabIndex = 7
|
||||
'
|
||||
'cboFiliale
|
||||
'
|
||||
Me.cboFiliale._allowedValuesFreiText = Nothing
|
||||
Me.cboFiliale._allowFreiText = False
|
||||
Me.cboFiliale._value = ""
|
||||
Me.cboFiliale.DropDownWidth = 280
|
||||
Me.cboFiliale.Enabled = False
|
||||
Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Tai Le", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.cboFiliale.FormattingEnabled = True
|
||||
Me.cboFiliale.Location = New System.Drawing.Point(196, 56)
|
||||
Me.cboFiliale.Name = "cboFiliale"
|
||||
Me.cboFiliale.Size = New System.Drawing.Size(80, 24)
|
||||
Me.cboFiliale.TabIndex = 5
|
||||
'
|
||||
'txtFahrer
|
||||
'
|
||||
Me.txtFahrer._DateTimeOnly = False
|
||||
Me.txtFahrer._numbersOnly = False
|
||||
Me.txtFahrer._numbersOnlyKommastellen = ""
|
||||
Me.txtFahrer._numbersOnlyTrennzeichen = True
|
||||
Me.txtFahrer._Prozent = False
|
||||
Me.txtFahrer._ShortDateNew = False
|
||||
Me.txtFahrer._ShortDateOnly = False
|
||||
Me.txtFahrer._TimeOnly = False
|
||||
Me.txtFahrer._TimeOnly_Seconds = False
|
||||
Me.txtFahrer._value = Nothing
|
||||
Me.txtFahrer._Waehrung = False
|
||||
Me.txtFahrer._WaehrungZeichen = True
|
||||
@@ -757,12 +788,25 @@ Partial Class frmNacherfassungLeihgeld
|
||||
Me.txtFahrer.Size = New System.Drawing.Size(265, 20)
|
||||
Me.txtFahrer.TabIndex = 8
|
||||
'
|
||||
'cbxOP_sofort_buchen
|
||||
'
|
||||
Me.cbxOP_sofort_buchen.AutoSize = True
|
||||
Me.cbxOP_sofort_buchen.Checked = True
|
||||
Me.cbxOP_sofort_buchen.CheckState = System.Windows.Forms.CheckState.Checked
|
||||
Me.cbxOP_sofort_buchen.Location = New System.Drawing.Point(291, 290)
|
||||
Me.cbxOP_sofort_buchen.Name = "cbxOP_sofort_buchen"
|
||||
Me.cbxOP_sofort_buchen.Size = New System.Drawing.Size(117, 17)
|
||||
Me.cbxOP_sofort_buchen.TabIndex = 213
|
||||
Me.cbxOP_sofort_buchen.Text = "OP sofort erzeugen"
|
||||
Me.cbxOP_sofort_buchen.UseVisualStyleBackColor = True
|
||||
'
|
||||
'frmNacherfassungLeihgeld
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.BackColor = System.Drawing.Color.White
|
||||
Me.ClientSize = New System.Drawing.Size(441, 526)
|
||||
Me.Controls.Add(Me.cbxOP_sofort_buchen)
|
||||
Me.Controls.Add(Me.txtOpLeihgeld)
|
||||
Me.Controls.Add(Me.Label44)
|
||||
Me.Controls.Add(Me.Label11)
|
||||
@@ -848,4 +892,5 @@ Partial Class frmNacherfassungLeihgeld
|
||||
Friend WithEvents Panel2 As System.Windows.Forms.Panel
|
||||
Friend WithEvents txtOpLeihgeld As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label44 As Label
|
||||
Public WithEvents cbxOP_sofort_buchen As CheckBox
|
||||
End Class
|
||||
|
||||
@@ -1,6 +1,7 @@
|
||||
|
||||
Imports com.sun.tools.javac.util
|
||||
Imports com.sun.xml.internal.ws.api.pipe
|
||||
Imports GrapeCity.ActiveReports
|
||||
Imports SDL
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
Public Class frmNacherfassungLeihgeld
|
||||
Dim cOptionenDAL As New cOptionenDAL
|
||||
@@ -30,6 +31,7 @@ Public Class frmNacherfassungLeihgeld
|
||||
End Sub
|
||||
|
||||
Dim SQL As New SQL
|
||||
Dim VERAG_SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Private Sub frmNacherfassungLeihgeld_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
txtDatum.Text = Now.ToShortDateString
|
||||
@@ -140,6 +142,7 @@ Public Class frmNacherfassungLeihgeld
|
||||
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Sub init()
|
||||
@@ -321,7 +324,7 @@ Public Class frmNacherfassungLeihgeld
|
||||
|
||||
|
||||
Dim JournalNr = 0
|
||||
If Not cRKSV.insertKB(PERSONAL, BELEG, KASSE.rksv_id, RKSV_Beleg_Id, (KASSE.rksv_aktiv Or KASSE.rksvDE_aktiv), JournalNr, KASSE.rksv_firma, -1) Then
|
||||
If Not cRKSV.insertKB(PERSONAL, BELEG, KASSE.rksv_id, RKSV_Beleg_Id, (KASSE.rksv_aktiv Or KASSE.rksvDE_aktiv), JournalNr, KASSE.rksv_firma, -1,, cbxOP_sofort_buchen.Checked) Then
|
||||
Me.Cursor = Cursors.Default : Me.Close() : Exit Sub
|
||||
End If
|
||||
|
||||
@@ -425,6 +428,15 @@ Public Class frmNacherfassungLeihgeld
|
||||
End If
|
||||
|
||||
|
||||
'If cbxOP_sofort_buchen.Checked Then
|
||||
|
||||
' If Not createSyskaBuchung(PERSONAL_LG, BELEG, True) Then
|
||||
' MsgBox("Fehler beim Erzeugen der Buchung in der FIBU")
|
||||
' End If
|
||||
|
||||
'End If
|
||||
|
||||
|
||||
Me.Close()
|
||||
Me.DialogResult = Windows.Forms.DialogResult.OK
|
||||
Me.Cursor = Cursors.Default
|
||||
@@ -514,6 +526,8 @@ Public Class frmNacherfassungLeihgeld
|
||||
' f.Close()
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Sub printLGAktendeckel(art, Optional barbetrag = Nothing, Optional BelegNrProvision = Nothing)
|
||||
Try
|
||||
Dim imgpath = ""
|
||||
@@ -803,4 +817,35 @@ Public Class frmNacherfassungLeihgeld
|
||||
Private Sub kdFrachtführer_TextChanged(sender As Object, e As System.ComponentModel.PropertyChangedEventArgs) Handles kdFrachtführer.PropertyChanged
|
||||
|
||||
End Sub
|
||||
|
||||
Private Function getSachkonto(pos As EABelegPositionen)
|
||||
|
||||
|
||||
' Dim SQL = New VERAG_PROG_ALLGEMEIN.SQL
|
||||
' Dim RE As New cRechnungsausgang(pos.RK_ID)
|
||||
|
||||
' If RE.RechnungsLandKz Is Nothing OrElse RE.RechnungsLandKz Is DBNull.Value OrElse RE.RechnungsLandKz.trim = "" _
|
||||
' OrElse RE.RechnungsLandKz = "A" _
|
||||
' OrElse RE.RechnungsLandKz = "AT" Then
|
||||
' If CBool(pos.Steuerpflichtig) Then
|
||||
' getSachkonto = If(SQL.DLookup("[SachkontoInlandSteuerpflichtig]", "Leistungen", "[LeistungsNr]=" & pos.LeistungsNr, "FMZOLL"), "")
|
||||
|
||||
' Else
|
||||
' getSachkonto = If(SQL.DLookup("[SachkontoInlandSteuerfrei]", "Leistungen", "[LeistungsNr]=" & pos.LeistungsNr, "FMZOLL"), "")
|
||||
' End If
|
||||
' Else
|
||||
' If SQL.DLookup("[MitgliedslandEU]", "[Währungstabelle]", "[LandKz]='" & RE.RechnungsLandKz & "'", "FMZOLL", False) Then
|
||||
' If pos.LeistungsNr Then
|
||||
' getSachkonto = If(SQL.DLookup("[SachkontoEUSteuerpflichtig]", "Leistungen", "[LeistungsNr]=" & pos.LeistungsNr, "FMZOLL"), "")
|
||||
' Else
|
||||
' getSachkonto = If(SQL.DLookup("[SachkontoEUSteuerfrei]", "Leistungen", "[LeistungsNr]=" & pos.LeistungsNr, "FMZOLL"), "")
|
||||
' End If
|
||||
' Else
|
||||
' getSachkonto = If(SQL.DLookup("[Sachkonto3Land]", "Leistungen", "[LeistungsNr]=" & pos.LeistungsNr, "FMZOLL"), "")
|
||||
' End If
|
||||
' End If
|
||||
' If getSachkonto = "" Then getSachkonto = "4000" 'DEFAULT!
|
||||
|
||||
End Function
|
||||
|
||||
End Class
|
||||
176
SDL/kunden/frmKundenZOLLVollmachten.Designer.vb
generated
176
SDL/kunden/frmKundenZOLLVollmachten.Designer.vb
generated
@@ -29,6 +29,14 @@ Partial Class frmKundenZOLLVollmachten
|
||||
Me.btnNeu = New System.Windows.Forms.Button()
|
||||
Me.dgvVollmachtenEmbedded = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||
Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.pb_merge = New System.Windows.Forms.PictureBox()
|
||||
Me.picDeletePDF2 = New System.Windows.Forms.PictureBox()
|
||||
Me.picPDF2 = New System.Windows.Forms.PictureBox()
|
||||
Me.picDeleteEmail = New System.Windows.Forms.PictureBox()
|
||||
Me.picEmail = New System.Windows.Forms.PictureBox()
|
||||
Me.picDeletePDF = New System.Windows.Forms.PictureBox()
|
||||
Me.picPDF = New System.Windows.Forms.PictureBox()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.cbxErhaltenAm = New System.Windows.Forms.CheckBox()
|
||||
@@ -39,11 +47,6 @@ Partial Class frmKundenZOLLVollmachten
|
||||
Me.cbxVMarchivieren = New System.Windows.Forms.CheckBox()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.picDeleteEmail = New System.Windows.Forms.PictureBox()
|
||||
Me.picEmail = New System.Windows.Forms.PictureBox()
|
||||
Me.picDeletePDF = New System.Windows.Forms.PictureBox()
|
||||
Me.picPDF = New System.Windows.Forms.PictureBox()
|
||||
Me.lblGueltigBis = New System.Windows.Forms.Label()
|
||||
Me.txtGueltigVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtGueltigBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
@@ -55,17 +58,21 @@ Partial Class frmKundenZOLLVollmachten
|
||||
Me.LöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.pnl.SuspendLayout()
|
||||
CType(Me.dgvVollmachtenEmbedded, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.pnlDetails.SuspendLayout()
|
||||
Me.Panel1.SuspendLayout()
|
||||
CType(Me.pb_merge, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.picDeletePDF2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.picPDF2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.picDeleteEmail, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.picEmail, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.picDeletePDF, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.picPDF, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.pnlDetails.SuspendLayout()
|
||||
Me.ContextMenuStrip1.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'pnl
|
||||
'
|
||||
Me.pnl.AllowDrop = True
|
||||
Me.pnl.BackColor = System.Drawing.Color.White
|
||||
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.pnl.Controls.Add(Me.lblPDFavailable)
|
||||
@@ -135,6 +142,98 @@ Partial Class frmKundenZOLLVollmachten
|
||||
Me.MyComboBox1.TabIndex = 15
|
||||
Me.MyComboBox1.Visible = False
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.AllowDrop = True
|
||||
Me.Panel1.Controls.Add(Me.pb_merge)
|
||||
Me.Panel1.Controls.Add(Me.picDeletePDF2)
|
||||
Me.Panel1.Controls.Add(Me.picPDF2)
|
||||
Me.Panel1.Controls.Add(Me.picDeleteEmail)
|
||||
Me.Panel1.Controls.Add(Me.picEmail)
|
||||
Me.Panel1.Controls.Add(Me.picDeletePDF)
|
||||
Me.Panel1.Controls.Add(Me.picPDF)
|
||||
Me.Panel1.Location = New System.Drawing.Point(233, 190)
|
||||
Me.Panel1.Name = "Panel1"
|
||||
Me.Panel1.Size = New System.Drawing.Size(204, 74)
|
||||
Me.Panel1.TabIndex = 17
|
||||
Me.Panel1.Visible = False
|
||||
'
|
||||
'pb_merge
|
||||
'
|
||||
Me.pb_merge.BackgroundImage = Global.SDL.My.Resources.Resources.picboxPrevious_Enter
|
||||
Me.pb_merge.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
|
||||
Me.pb_merge.Location = New System.Drawing.Point(125, 38)
|
||||
Me.pb_merge.Name = "pb_merge"
|
||||
Me.pb_merge.Size = New System.Drawing.Size(19, 13)
|
||||
Me.pb_merge.TabIndex = 22
|
||||
Me.pb_merge.TabStop = False
|
||||
Me.pb_merge.Visible = False
|
||||
'
|
||||
'picDeletePDF2
|
||||
'
|
||||
Me.picDeletePDF2.Image = Global.SDL.My.Resources.Resources.del
|
||||
Me.picDeletePDF2.Location = New System.Drawing.Point(159, 1)
|
||||
Me.picDeletePDF2.Name = "picDeletePDF2"
|
||||
Me.picDeletePDF2.Size = New System.Drawing.Size(20, 20)
|
||||
Me.picDeletePDF2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
|
||||
Me.picDeletePDF2.TabIndex = 21
|
||||
Me.picDeletePDF2.TabStop = False
|
||||
Me.picDeletePDF2.Visible = False
|
||||
'
|
||||
'picPDF2
|
||||
'
|
||||
Me.picPDF2.Image = Global.SDL.My.Resources.Resources.pdf_gray
|
||||
Me.picPDF2.Location = New System.Drawing.Point(146, 23)
|
||||
Me.picPDF2.Name = "picPDF2"
|
||||
Me.picPDF2.Size = New System.Drawing.Size(44, 48)
|
||||
Me.picPDF2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
|
||||
Me.picPDF2.TabIndex = 20
|
||||
Me.picPDF2.TabStop = False
|
||||
Me.picPDF2.Visible = False
|
||||
'
|
||||
'picDeleteEmail
|
||||
'
|
||||
Me.picDeleteEmail.Image = Global.SDL.My.Resources.Resources.del
|
||||
Me.picDeleteEmail.Location = New System.Drawing.Point(27, 0)
|
||||
Me.picDeleteEmail.Name = "picDeleteEmail"
|
||||
Me.picDeleteEmail.Size = New System.Drawing.Size(20, 20)
|
||||
Me.picDeleteEmail.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
|
||||
Me.picDeleteEmail.TabIndex = 19
|
||||
Me.picDeleteEmail.TabStop = False
|
||||
Me.picDeleteEmail.Visible = False
|
||||
'
|
||||
'picEmail
|
||||
'
|
||||
Me.picEmail.Image = Global.SDL.My.Resources.Resources.email_big_gray
|
||||
Me.picEmail.Location = New System.Drawing.Point(13, 23)
|
||||
Me.picEmail.Name = "picEmail"
|
||||
Me.picEmail.Size = New System.Drawing.Size(44, 48)
|
||||
Me.picEmail.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
|
||||
Me.picEmail.TabIndex = 18
|
||||
Me.picEmail.TabStop = False
|
||||
'
|
||||
'picDeletePDF
|
||||
'
|
||||
Me.picDeletePDF.Image = Global.SDL.My.Resources.Resources.del
|
||||
Me.picDeletePDF.Location = New System.Drawing.Point(90, 1)
|
||||
Me.picDeletePDF.Name = "picDeletePDF"
|
||||
Me.picDeletePDF.Size = New System.Drawing.Size(20, 20)
|
||||
Me.picDeletePDF.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
|
||||
Me.picDeletePDF.TabIndex = 16
|
||||
Me.picDeletePDF.TabStop = False
|
||||
Me.picDeletePDF.Visible = False
|
||||
'
|
||||
'picPDF
|
||||
'
|
||||
Me.picPDF.Image = Global.SDL.My.Resources.Resources.pdf_gray
|
||||
Me.picPDF.Location = New System.Drawing.Point(79, 23)
|
||||
Me.picPDF.Name = "picPDF"
|
||||
Me.picPDF.Size = New System.Drawing.Size(44, 48)
|
||||
Me.picPDF.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
|
||||
Me.picPDF.TabIndex = 17
|
||||
Me.picPDF.TabStop = False
|
||||
Me.picPDF.Visible = False
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
@@ -265,61 +364,6 @@ Partial Class frmKundenZOLLVollmachten
|
||||
Me.txtVermerk.Size = New System.Drawing.Size(364, 23)
|
||||
Me.txtVermerk.TabIndex = 25
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.Controls.Add(Me.picDeleteEmail)
|
||||
Me.Panel1.Controls.Add(Me.picEmail)
|
||||
Me.Panel1.Controls.Add(Me.picDeletePDF)
|
||||
Me.Panel1.Controls.Add(Me.picPDF)
|
||||
Me.Panel1.Location = New System.Drawing.Point(307, 190)
|
||||
Me.Panel1.Name = "Panel1"
|
||||
Me.Panel1.Size = New System.Drawing.Size(130, 74)
|
||||
Me.Panel1.TabIndex = 17
|
||||
Me.Panel1.Visible = False
|
||||
'
|
||||
'picDeleteEmail
|
||||
'
|
||||
Me.picDeleteEmail.Image = Global.SDL.My.Resources.Resources.del
|
||||
Me.picDeleteEmail.Location = New System.Drawing.Point(27, 0)
|
||||
Me.picDeleteEmail.Name = "picDeleteEmail"
|
||||
Me.picDeleteEmail.Size = New System.Drawing.Size(20, 20)
|
||||
Me.picDeleteEmail.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
|
||||
Me.picDeleteEmail.TabIndex = 19
|
||||
Me.picDeleteEmail.TabStop = False
|
||||
Me.picDeleteEmail.Visible = False
|
||||
'
|
||||
'picEmail
|
||||
'
|
||||
Me.picEmail.Image = Global.SDL.My.Resources.Resources.email_big_gray
|
||||
Me.picEmail.Location = New System.Drawing.Point(13, 23)
|
||||
Me.picEmail.Name = "picEmail"
|
||||
Me.picEmail.Size = New System.Drawing.Size(44, 48)
|
||||
Me.picEmail.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
|
||||
Me.picEmail.TabIndex = 18
|
||||
Me.picEmail.TabStop = False
|
||||
'
|
||||
'picDeletePDF
|
||||
'
|
||||
Me.picDeletePDF.Image = Global.SDL.My.Resources.Resources.del
|
||||
Me.picDeletePDF.Location = New System.Drawing.Point(90, 1)
|
||||
Me.picDeletePDF.Name = "picDeletePDF"
|
||||
Me.picDeletePDF.Size = New System.Drawing.Size(20, 20)
|
||||
Me.picDeletePDF.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
|
||||
Me.picDeletePDF.TabIndex = 16
|
||||
Me.picDeletePDF.TabStop = False
|
||||
Me.picDeletePDF.Visible = False
|
||||
'
|
||||
'picPDF
|
||||
'
|
||||
Me.picPDF.Image = Global.SDL.My.Resources.Resources.pdf_gray
|
||||
Me.picPDF.Location = New System.Drawing.Point(79, 23)
|
||||
Me.picPDF.Name = "picPDF"
|
||||
Me.picPDF.Size = New System.Drawing.Size(44, 48)
|
||||
Me.picPDF.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
|
||||
Me.picPDF.TabIndex = 17
|
||||
Me.picPDF.TabStop = False
|
||||
Me.picPDF.Visible = False
|
||||
'
|
||||
'lblGueltigBis
|
||||
'
|
||||
Me.lblGueltigBis.AutoSize = True
|
||||
@@ -448,13 +492,16 @@ Partial Class frmKundenZOLLVollmachten
|
||||
Me.pnl.ResumeLayout(False)
|
||||
Me.pnl.PerformLayout()
|
||||
CType(Me.dgvVollmachtenEmbedded, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.pnlDetails.ResumeLayout(False)
|
||||
Me.pnlDetails.PerformLayout()
|
||||
Me.Panel1.ResumeLayout(False)
|
||||
CType(Me.pb_merge, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.picDeletePDF2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.picPDF2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.picDeleteEmail, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.picEmail, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.picDeletePDF, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.picPDF, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.pnlDetails.ResumeLayout(False)
|
||||
Me.pnlDetails.PerformLayout()
|
||||
Me.ContextMenuStrip1.ResumeLayout(False)
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
@@ -488,4 +535,7 @@ Partial Class frmKundenZOLLVollmachten
|
||||
Friend WithEvents lblWarning As Label
|
||||
Friend WithEvents picDeleteEmail As PictureBox
|
||||
Friend WithEvents picEmail As PictureBox
|
||||
Friend WithEvents picDeletePDF2 As PictureBox
|
||||
Friend WithEvents picPDF2 As PictureBox
|
||||
Friend WithEvents pb_merge As PictureBox
|
||||
End Class
|
||||
|
||||
@@ -1,5 +1,10 @@
|
||||
|
||||
|
||||
Imports System.IO
|
||||
Imports System.Text
|
||||
Imports GrapeCity.ActiveReports.ReportsCore.Tools
|
||||
Imports GrapeCity.Viewer.Common.Model
|
||||
|
||||
Public Class frmKundenZOLLVollmachten
|
||||
Public kdnr As Integer = -1
|
||||
Public filePath As String
|
||||
@@ -203,7 +208,7 @@ Public Class frmKundenZOLLVollmachten
|
||||
.Columns.Clear()
|
||||
|
||||
|
||||
.DataSource = ksql.loadDgvBySql("SELECT abf.kdvm_Id,art.kdvma_Id, art.kdvma_Bezeichnung, abf.[kdvm_KundenNr], abf.[kdvm_erhalten],abf.[kdvm_erhalten_Datum], abf.kdvm_datenarchivId,abf.kdvm_Info, abf.[kdvm_archiviert], abf.[kdvm_gueltig_bis], abf.[kdvm_vermerk], abf.[kdvm_geloescht]" &
|
||||
.DataSource = ksql.loadDgvBySql("SELECT abf.kdvm_Id,art.kdvma_Id, art.kdvma_Bezeichnung, abf.[kdvm_KundenNr], abf.[kdvm_erhalten],abf.[kdvm_erhalten_Datum], abf.kdvm_datenarchivId, kdvm_datenarchivId_2,abf.kdvm_Info, abf.[kdvm_archiviert], abf.[kdvm_gueltig_bis], abf.[kdvm_vermerk], abf.[kdvm_geloescht]" &
|
||||
" FROM [tblKundenVollmachtenArt] as art " &
|
||||
" INNER JOIN (select * from [tblKundenVollmachten]) as abf on art.[kdvma_Id]=abf.[kdvm_kdvmaId]" &
|
||||
" WHERE art.kdvma_visible=1 AND abf.kdvm_erhalten = 1 AND ISNULL(abf.[kdvm_geloescht],0) != 1 AND [kdvm_KundenNr]='" & kdnr & "' AND [kdvm_kdvmaId]='" & vollmachtartId & "'" & where &
|
||||
@@ -214,6 +219,7 @@ Public Class frmKundenZOLLVollmachten
|
||||
.Columns("kdvma_Id").Visible = False
|
||||
.Columns("kdvm_KundenNr").Visible = False
|
||||
.Columns("kdvm_datenarchivId").Visible = False
|
||||
.Columns("kdvm_datenarchivId_2").Visible = False
|
||||
.Columns("kdvma_Bezeichnung").Visible = False
|
||||
.Columns("kdvma_Bezeichnung").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
.Columns("kdvma_Bezeichnung").HeaderText = "Bezeichnung"
|
||||
@@ -360,18 +366,48 @@ Public Class frmKundenZOLLVollmachten
|
||||
|
||||
Sub checkPDFisPresent()
|
||||
|
||||
'pdf2 nur anzeigen, wenn pdf1 befüllt!
|
||||
|
||||
If currentVM.kdvm_datenarchivId > 0 Then
|
||||
picDeletePDF.Visible = True
|
||||
picPDF.Visible = True
|
||||
picPDF.Image = My.Resources.pdf
|
||||
picPDF.AllowDrop = False
|
||||
picPDF.Cursor = Cursors.Default
|
||||
|
||||
picPDF2.Visible = True
|
||||
picPDF2.Image = My.Resources.pdf_gray
|
||||
picPDF2.AllowDrop = True
|
||||
picPDF2.Cursor = Cursors.Hand
|
||||
|
||||
Else
|
||||
picDeletePDF.Visible = False
|
||||
picPDF.Visible = True
|
||||
picPDF.Image = My.Resources.pdf_gray
|
||||
picPDF.AllowDrop = True
|
||||
picPDF.Cursor = Cursors.Hand
|
||||
|
||||
picDeletePDF2.Visible = False
|
||||
picPDF2.Visible = False
|
||||
|
||||
End If
|
||||
|
||||
If currentVM.kdvm_datenarchivId_2 > 0 Then
|
||||
|
||||
picDeletePDF2.Visible = True
|
||||
picPDF2.Visible = True
|
||||
picPDF2.Image = My.Resources.pdf
|
||||
picPDF2.AllowDrop = False
|
||||
picPDF2.Cursor = Cursors.Default
|
||||
|
||||
End If
|
||||
|
||||
If currentVM.kdvm_datenarchivId_2 > 0 AndAlso currentVM.kdvm_datenarchivId > 0 Then
|
||||
pb_merge.Visible = True
|
||||
Else
|
||||
pb_merge.Visible = False
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Sub checkEmailIsPresent()
|
||||
@@ -507,12 +543,33 @@ Public Class frmKundenZOLLVollmachten
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub picPDF_Click(sender As Object, e As EventArgs) Handles picPDF.Click
|
||||
Private Sub picPDF_Click(sender As Object, e As EventArgs) Handles picPDF.Click, picPDF2.Click
|
||||
|
||||
If Me.MyComboBox1._value < 0 Then Exit Sub
|
||||
|
||||
Dim DS As Object
|
||||
|
||||
Select Case sender.Name
|
||||
Case "picPDF2"
|
||||
|
||||
If currentVM.kdvm_datenarchivId_2 > 0 Then
|
||||
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER(currentVM.kdvm_datenarchivId_2)
|
||||
DS.OPEN_SINGLE()
|
||||
'MsgBox("Open PDF")
|
||||
Else
|
||||
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VOLLMACHTEN", "VMID_" & vmId, "", "", "PDF_" & MyComboBox1.Text & "_2", kdnr)
|
||||
Dim path = DS.uploadDataToDATENSERVERFileDialog()
|
||||
|
||||
If path <> "" Then
|
||||
currentVM.kdvm_datenarchivId_2 = DS.da_id
|
||||
End If
|
||||
|
||||
picDeletePDF2.Visible = True = (currentVM.kdvm_datenarchivId_2 > 0)
|
||||
saveVM(currentVM)
|
||||
End If
|
||||
|
||||
Case Else
|
||||
|
||||
If currentVM.kdvm_datenarchivId > 0 Then
|
||||
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER(currentVM.kdvm_datenarchivId)
|
||||
DS.OPEN_SINGLE()
|
||||
@@ -529,15 +586,40 @@ Public Class frmKundenZOLLVollmachten
|
||||
saveVM(currentVM)
|
||||
End If
|
||||
|
||||
End Select
|
||||
|
||||
|
||||
|
||||
dgvVollmachtenEmbedded.GetOrder()
|
||||
initDGVVollmachtenEmbedded(True)
|
||||
dgvVollmachtenEmbedded.SetOrder()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub picDeletePDF_Click(sender As Object, e As EventArgs) Handles picDeletePDF.Click
|
||||
Private Sub picDeletePDF_Click(sender As Object, e As EventArgs) Handles picDeletePDF.Click, picDeletePDF2.Click
|
||||
|
||||
lblPDFavailable.Cursor = Cursors.WaitCursor
|
||||
|
||||
Select Case sender.Name
|
||||
Case "picDeletePDF2"
|
||||
|
||||
If (currentVM.kdvm_datenarchivId_2 > 0) Then
|
||||
If vbYes = MsgBox("Möchten Sie das PDF wirklich löschen?", vbYesNoCancel) Then
|
||||
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(currentVM.kdvm_datenarchivId_2)
|
||||
DS.DELETE_COMPLETE()
|
||||
|
||||
currentVM.kdvm_datenarchivId_2 = -1
|
||||
If currentVM.SAVE Then
|
||||
currentVM.kdvm_datenarchivId_2 = -1 : picDeletePDF2.Visible = False
|
||||
picPDF2.Image = My.Resources.pdf_gray
|
||||
picPDF2.AllowDrop = True
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
Case Else
|
||||
|
||||
If (currentVM.kdvm_datenarchivId > 0) Then
|
||||
If vbYes = MsgBox("Möchten Sie das PDF wirklich löschen?", vbYesNoCancel) Then
|
||||
|
||||
@@ -548,9 +630,14 @@ Public Class frmKundenZOLLVollmachten
|
||||
If currentVM.SAVE Then
|
||||
currentVM.kdvm_datenarchivId = -1 : picDeletePDF.Visible = False
|
||||
picPDF.Image = My.Resources.pdf_gray
|
||||
picPDF.AllowDrop = True
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
End Select
|
||||
|
||||
|
||||
lblPDFavailable.Cursor = Cursors.Default
|
||||
|
||||
dgvVollmachtenEmbedded.GetOrder()
|
||||
@@ -622,9 +709,67 @@ Public Class frmKundenZOLLVollmachten
|
||||
picPDF.Visible = False
|
||||
picDeleteEmail.Visible = False
|
||||
picEmail.Visible = False
|
||||
|
||||
picDeletePDF2.Visible = False
|
||||
picPDF2.Visible = False
|
||||
|
||||
pb_merge.Visible = False
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub btnUploadPDF_Click(sender As Object, e As EventArgs)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub pb_merge_Click(sender As Object, e As EventArgs) Handles pb_merge.Click
|
||||
|
||||
If currentVM.kdvm_datenarchivId_2 > 0 AndAlso currentVM.kdvm_datenarchivId > 0 Then
|
||||
|
||||
If vbYes = MsgBox("Möchten sie die zwei PDF-Dokumente miteinander verbinden?", vbYesNoCancel) Then
|
||||
|
||||
|
||||
Dim list As New List(Of String)
|
||||
|
||||
Dim path_File1 As String = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(currentVM.kdvm_datenarchivId)
|
||||
Dim path_File2 As String = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(currentVM.kdvm_datenarchivId_2)
|
||||
|
||||
list.Add(path_File1)
|
||||
list.Add(path_File2)
|
||||
|
||||
Dim pathPDF = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("Vollmachten_" & Now.ToString("ddMMyyyyHHmmss") & ".pdf", ".pdf", False, False)
|
||||
|
||||
If FormularManagerNEU.MergePdfFiles(list, pathPDF) Then
|
||||
|
||||
Dim DS1 As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(currentVM.kdvm_datenarchivId)
|
||||
DS1.DELETE_COMPLETE()
|
||||
currentVM.kdvm_datenarchivId = -1
|
||||
|
||||
Dim DS2 As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(currentVM.kdvm_datenarchivId_2)
|
||||
DS2.DELETE_COMPLETE()
|
||||
currentVM.kdvm_datenarchivId_2 = -1
|
||||
|
||||
|
||||
Dim DS_NEW = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VOLLMACHTEN", "VMID_" & vmId, "", "", "PDF_" & MyComboBox1.Text, kdnr)
|
||||
If DS_NEW.uploadDataToDATENSERVER(pathPDF) Then
|
||||
If pathPDF <> "" Then
|
||||
currentVM.kdvm_datenarchivId = DS_NEW.da_id
|
||||
End If
|
||||
End If
|
||||
|
||||
If currentVM.SAVE Then
|
||||
currentVM.kdvm_datenarchivId_2 = -1 : picDeletePDF2.Visible = False
|
||||
picPDF2.Image = My.Resources.pdf_gray
|
||||
picPDF2.AllowDrop = True
|
||||
End If
|
||||
|
||||
picDeletePDF.Visible = True = (currentVM.kdvm_datenarchivId > 0)
|
||||
checkPDFisPresent()
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
215
SDL/kunden/frmKundenblatt.Designer.vb
generated
215
SDL/kunden/frmKundenblatt.Designer.vb
generated
@@ -56,6 +56,9 @@ Partial Class frmKundenblatt
|
||||
Me.UsrcntlKundeBearbeitenFull1 = New SDL.usrcntlKundeBearbeitenFull()
|
||||
Me.tbcntrMain = New System.Windows.Forms.TabControl()
|
||||
Me.tbAllgemein = New System.Windows.Forms.TabPage()
|
||||
Me.txtEmailRE = New System.Windows.Forms.TextBox()
|
||||
Me.TextBox1 = New System.Windows.Forms.TextBox()
|
||||
Me.PictureBox8 = New System.Windows.Forms.PictureBox()
|
||||
Me.FlatButton6 = New VERAG_PROG_ALLGEMEIN.FlatButton()
|
||||
Me.lblBonitaet = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label39 = New System.Windows.Forms.Label()
|
||||
@@ -198,6 +201,7 @@ Partial Class frmKundenblatt
|
||||
Me.tbUSTVAntrage = New System.Windows.Forms.TabPage()
|
||||
Me.UsrCntlUSTV = New SDL.usrCntlUSTV()
|
||||
Me.tbFIBU = New System.Windows.Forms.TabPage()
|
||||
Me.txtZinsbelastungNew = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.btn_FIBU_speichern = New System.Windows.Forms.Button()
|
||||
Me.lblZNB_verrechnet = New System.Windows.Forms.Label()
|
||||
Me.lblZNB_offen = New System.Windows.Forms.Label()
|
||||
@@ -206,7 +210,6 @@ Partial Class frmKundenblatt
|
||||
Me.dgvZinsnachberechnung = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||
Me.Label15 = New System.Windows.Forms.Label()
|
||||
Me.Label14 = New System.Windows.Forms.Label()
|
||||
Me.txtZinsbelastung = New System.Windows.Forms.TextBox()
|
||||
Me.Label12 = New System.Windows.Forms.Label()
|
||||
Me.rtbGespreachsbericht = New System.Windows.Forms.RichTextBox()
|
||||
Me.Label9 = New System.Windows.Forms.Label()
|
||||
@@ -246,11 +249,13 @@ Partial Class frmKundenblatt
|
||||
Me.tbiKartenverwaltung = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.tbiLKW = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.tbiVERAGCard = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.txtEmailRE2 = New System.Windows.Forms.TextBox()
|
||||
Me.pnlInfo.SuspendLayout()
|
||||
Me.tbFirmendaten.SuspendLayout()
|
||||
Me.Panel4.SuspendLayout()
|
||||
Me.tbcntrMain.SuspendLayout()
|
||||
Me.tbAllgemein.SuspendLayout()
|
||||
CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.TabControl1.SuspendLayout()
|
||||
Me.TabPage1.SuspendLayout()
|
||||
CType(Me.dgvOffenePosten, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
@@ -334,7 +339,7 @@ Partial Class frmKundenblatt
|
||||
Me.tbFirmendaten.Location = New System.Drawing.Point(4, 25)
|
||||
Me.tbFirmendaten.Name = "tbFirmendaten"
|
||||
Me.tbFirmendaten.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.tbFirmendaten.Size = New System.Drawing.Size(1644, 928)
|
||||
Me.tbFirmendaten.Size = New System.Drawing.Size(1644, 962)
|
||||
Me.tbFirmendaten.TabIndex = 3
|
||||
Me.tbFirmendaten.Text = "Firmendaten"
|
||||
'
|
||||
@@ -344,7 +349,7 @@ Partial Class frmKundenblatt
|
||||
Me.Panel4.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.Panel4.Location = New System.Drawing.Point(3, 3)
|
||||
Me.Panel4.Name = "Panel4"
|
||||
Me.Panel4.Size = New System.Drawing.Size(1638, 922)
|
||||
Me.Panel4.Size = New System.Drawing.Size(1638, 956)
|
||||
Me.Panel4.TabIndex = 0
|
||||
'
|
||||
'UsrcntlKundeBearbeitenFull1
|
||||
@@ -354,7 +359,7 @@ Partial Class frmKundenblatt
|
||||
Me.UsrcntlKundeBearbeitenFull1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.UsrcntlKundeBearbeitenFull1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
|
||||
Me.UsrcntlKundeBearbeitenFull1.Name = "UsrcntlKundeBearbeitenFull1"
|
||||
Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1638, 922)
|
||||
Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1638, 956)
|
||||
Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0
|
||||
'
|
||||
'tbcntrMain
|
||||
@@ -374,12 +379,16 @@ Partial Class frmKundenblatt
|
||||
Me.tbcntrMain.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.tbcntrMain.Name = "tbcntrMain"
|
||||
Me.tbcntrMain.SelectedIndex = 0
|
||||
Me.tbcntrMain.Size = New System.Drawing.Size(1652, 957)
|
||||
Me.tbcntrMain.Size = New System.Drawing.Size(1652, 991)
|
||||
Me.tbcntrMain.TabIndex = 3
|
||||
'
|
||||
'tbAllgemein
|
||||
'
|
||||
Me.tbAllgemein.BackColor = System.Drawing.Color.White
|
||||
Me.tbAllgemein.Controls.Add(Me.txtEmailRE2)
|
||||
Me.tbAllgemein.Controls.Add(Me.txtEmailRE)
|
||||
Me.tbAllgemein.Controls.Add(Me.TextBox1)
|
||||
Me.tbAllgemein.Controls.Add(Me.PictureBox8)
|
||||
Me.tbAllgemein.Controls.Add(Me.FlatButton6)
|
||||
Me.tbAllgemein.Controls.Add(Me.lblBonitaet)
|
||||
Me.tbAllgemein.Controls.Add(Me.Label39)
|
||||
@@ -415,10 +424,47 @@ Partial Class frmKundenblatt
|
||||
Me.tbAllgemein.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.tbAllgemein.Name = "tbAllgemein"
|
||||
Me.tbAllgemein.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.tbAllgemein.Size = New System.Drawing.Size(1644, 928)
|
||||
Me.tbAllgemein.Size = New System.Drawing.Size(1644, 962)
|
||||
Me.tbAllgemein.TabIndex = 0
|
||||
Me.tbAllgemein.Text = "Allgemein"
|
||||
'
|
||||
'txtEmailRE
|
||||
'
|
||||
Me.txtEmailRE.BackColor = System.Drawing.Color.White
|
||||
Me.txtEmailRE.BorderStyle = System.Windows.Forms.BorderStyle.None
|
||||
Me.txtEmailRE.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.txtEmailRE.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.txtEmailRE.Location = New System.Drawing.Point(38, 385)
|
||||
Me.txtEmailRE.Name = "txtEmailRE"
|
||||
Me.txtEmailRE.ReadOnly = True
|
||||
Me.txtEmailRE.Size = New System.Drawing.Size(384, 19)
|
||||
Me.txtEmailRE.TabIndex = 194
|
||||
Me.txtEmailRE.Text = "email-Rechnung"
|
||||
'
|
||||
'TextBox1
|
||||
'
|
||||
Me.TextBox1.BackColor = System.Drawing.Color.White
|
||||
Me.TextBox1.BorderStyle = System.Windows.Forms.BorderStyle.None
|
||||
Me.TextBox1.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.TextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.TextBox1.Location = New System.Drawing.Point(36, 360)
|
||||
Me.TextBox1.Name = "TextBox1"
|
||||
Me.TextBox1.ReadOnly = True
|
||||
Me.TextBox1.Size = New System.Drawing.Size(384, 19)
|
||||
Me.TextBox1.TabIndex = 193
|
||||
Me.TextBox1.Text = "Rechnungen an:"
|
||||
'
|
||||
'PictureBox8
|
||||
'
|
||||
Me.PictureBox8.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
|
||||
Me.PictureBox8.Image = Global.SDL.My.Resources.Resources.email
|
||||
Me.PictureBox8.Location = New System.Drawing.Point(8, 360)
|
||||
Me.PictureBox8.Name = "PictureBox8"
|
||||
Me.PictureBox8.Size = New System.Drawing.Size(22, 18)
|
||||
Me.PictureBox8.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
|
||||
Me.PictureBox8.TabIndex = 192
|
||||
Me.PictureBox8.TabStop = False
|
||||
'
|
||||
'FlatButton6
|
||||
'
|
||||
Me.FlatButton6.allowBorder = False
|
||||
@@ -427,7 +473,7 @@ Partial Class frmKundenblatt
|
||||
Me.FlatButton6.FlatAppearance.BorderSize = 0
|
||||
Me.FlatButton6.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.FlatButton6.ForeColor = System.Drawing.Color.Black
|
||||
Me.FlatButton6.Location = New System.Drawing.Point(708, 547)
|
||||
Me.FlatButton6.Location = New System.Drawing.Point(700, 451)
|
||||
Me.FlatButton6.Name = "FlatButton6"
|
||||
Me.FlatButton6.Size = New System.Drawing.Size(15, 12)
|
||||
Me.FlatButton6.TabIndex = 191
|
||||
@@ -451,7 +497,7 @@ Partial Class frmKundenblatt
|
||||
Me.lblBonitaet.BorderStyle = System.Windows.Forms.BorderStyle.None
|
||||
Me.lblBonitaet.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblBonitaet.ForeColor = System.Drawing.Color.Black
|
||||
Me.lblBonitaet.Location = New System.Drawing.Point(648, 546)
|
||||
Me.lblBonitaet.Location = New System.Drawing.Point(640, 450)
|
||||
Me.lblBonitaet.MaxLineLength = -1
|
||||
Me.lblBonitaet.MaxLines_Warning = ""
|
||||
Me.lblBonitaet.MaxLines_Warning_Label = Nothing
|
||||
@@ -465,7 +511,7 @@ Partial Class frmKundenblatt
|
||||
'
|
||||
Me.Label39.AutoSize = True
|
||||
Me.Label39.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label39.Location = New System.Drawing.Point(591, 546)
|
||||
Me.Label39.Location = New System.Drawing.Point(583, 450)
|
||||
Me.Label39.Name = "Label39"
|
||||
Me.Label39.Size = New System.Drawing.Size(43, 13)
|
||||
Me.Label39.TabIndex = 188
|
||||
@@ -479,7 +525,7 @@ Partial Class frmKundenblatt
|
||||
Me.btnBonitaetBearbeiten.FlatAppearance.BorderSize = 0
|
||||
Me.btnBonitaetBearbeiten.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnBonitaetBearbeiten.ForeColor = System.Drawing.Color.Black
|
||||
Me.btnBonitaetBearbeiten.Location = New System.Drawing.Point(568, 546)
|
||||
Me.btnBonitaetBearbeiten.Location = New System.Drawing.Point(560, 450)
|
||||
Me.btnBonitaetBearbeiten.Name = "btnBonitaetBearbeiten"
|
||||
Me.btnBonitaetBearbeiten.Size = New System.Drawing.Size(15, 12)
|
||||
Me.btnBonitaetBearbeiten.TabIndex = 187
|
||||
@@ -493,10 +539,10 @@ Partial Class frmKundenblatt
|
||||
Me.TabControl1.Controls.Add(Me.TabPage1)
|
||||
Me.TabControl1.Controls.Add(Me.TabPage2)
|
||||
Me.TabControl1.Controls.Add(Me.TabPage3)
|
||||
Me.TabControl1.Location = New System.Drawing.Point(8, 582)
|
||||
Me.TabControl1.Location = New System.Drawing.Point(8, 474)
|
||||
Me.TabControl1.Name = "TabControl1"
|
||||
Me.TabControl1.SelectedIndex = 0
|
||||
Me.TabControl1.Size = New System.Drawing.Size(718, 340)
|
||||
Me.TabControl1.Size = New System.Drawing.Size(718, 482)
|
||||
Me.TabControl1.TabIndex = 186
|
||||
'
|
||||
'TabPage1
|
||||
@@ -508,7 +554,7 @@ Partial Class frmKundenblatt
|
||||
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
|
||||
Me.TabPage1.Name = "TabPage1"
|
||||
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.TabPage1.Size = New System.Drawing.Size(710, 314)
|
||||
Me.TabPage1.Size = New System.Drawing.Size(710, 456)
|
||||
Me.TabPage1.TabIndex = 0
|
||||
Me.TabPage1.Text = "Offene Posten"
|
||||
Me.TabPage1.UseVisualStyleBackColor = True
|
||||
@@ -567,7 +613,7 @@ Partial Class frmKundenblatt
|
||||
Me.dgvOffenePosten.RowHeadersDefaultCellStyle = DataGridViewCellStyle4
|
||||
Me.dgvOffenePosten.RowHeadersVisible = False
|
||||
Me.dgvOffenePosten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
|
||||
Me.dgvOffenePosten.Size = New System.Drawing.Size(707, 282)
|
||||
Me.dgvOffenePosten.Size = New System.Drawing.Size(707, 424)
|
||||
Me.dgvOffenePosten.TabIndex = 175
|
||||
'
|
||||
'Label10
|
||||
@@ -600,7 +646,7 @@ Partial Class frmKundenblatt
|
||||
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
|
||||
Me.TabPage2.Name = "TabPage2"
|
||||
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.TabPage2.Size = New System.Drawing.Size(710, 314)
|
||||
Me.TabPage2.Size = New System.Drawing.Size(710, 456)
|
||||
Me.TabPage2.TabIndex = 1
|
||||
Me.TabPage2.Text = "Umsatzbericht"
|
||||
Me.TabPage2.UseVisualStyleBackColor = True
|
||||
@@ -645,7 +691,7 @@ Partial Class frmKundenblatt
|
||||
Me.dgvUmsaetze.RowHeadersDefaultCellStyle = DataGridViewCellStyle8
|
||||
Me.dgvUmsaetze.RowHeadersVisible = False
|
||||
Me.dgvUmsaetze.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
|
||||
Me.dgvUmsaetze.Size = New System.Drawing.Size(707, 292)
|
||||
Me.dgvUmsaetze.Size = New System.Drawing.Size(707, 451)
|
||||
Me.dgvUmsaetze.TabIndex = 182
|
||||
'
|
||||
'Label13
|
||||
@@ -693,7 +739,7 @@ Partial Class frmKundenblatt
|
||||
Me.TabPage3.Controls.Add(Me.dgvUmsatzNachLeistngsNr)
|
||||
Me.TabPage3.Location = New System.Drawing.Point(4, 22)
|
||||
Me.TabPage3.Name = "TabPage3"
|
||||
Me.TabPage3.Size = New System.Drawing.Size(710, 314)
|
||||
Me.TabPage3.Size = New System.Drawing.Size(710, 456)
|
||||
Me.TabPage3.TabIndex = 2
|
||||
Me.TabPage3.Text = "Umsatz nach LeistungsNr"
|
||||
Me.TabPage3.UseVisualStyleBackColor = True
|
||||
@@ -749,7 +795,7 @@ Partial Class frmKundenblatt
|
||||
Me.dgvUmsatzNachLeistngsNr.RowHeadersDefaultCellStyle = DataGridViewCellStyle12
|
||||
Me.dgvUmsatzNachLeistngsNr.RowHeadersVisible = False
|
||||
Me.dgvUmsatzNachLeistngsNr.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
|
||||
Me.dgvUmsatzNachLeistngsNr.Size = New System.Drawing.Size(705, 291)
|
||||
Me.dgvUmsatzNachLeistngsNr.Size = New System.Drawing.Size(705, 450)
|
||||
Me.dgvUmsatzNachLeistngsNr.TabIndex = 183
|
||||
'
|
||||
'lblAdressenzusatz
|
||||
@@ -768,7 +814,7 @@ Partial Class frmKundenblatt
|
||||
'
|
||||
Me.Label11.AutoSize = True
|
||||
Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label11.Location = New System.Drawing.Point(17, 546)
|
||||
Me.Label11.Location = New System.Drawing.Point(9, 450)
|
||||
Me.Label11.Name = "Label11"
|
||||
Me.Label11.Size = New System.Drawing.Size(82, 13)
|
||||
Me.Label11.TabIndex = 178
|
||||
@@ -781,7 +827,7 @@ Partial Class frmKundenblatt
|
||||
Me.cboFirmaFMZOLL._value = ""
|
||||
Me.cboFirmaFMZOLL.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.cboFirmaFMZOLL.FormattingEnabled = True
|
||||
Me.cboFirmaFMZOLL.Location = New System.Drawing.Point(100, 543)
|
||||
Me.cboFirmaFMZOLL.Location = New System.Drawing.Point(92, 447)
|
||||
Me.cboFirmaFMZOLL.Name = "cboFirmaFMZOLL"
|
||||
Me.cboFirmaFMZOLL.Size = New System.Drawing.Size(184, 21)
|
||||
Me.cboFirmaFMZOLL.TabIndex = 179
|
||||
@@ -836,7 +882,7 @@ Partial Class frmKundenblatt
|
||||
Me.picLogo.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.picLogo.Image = Global.SDL.My.Resources.Resources.person_default
|
||||
Me.picLogo.ImageLocation = ""
|
||||
Me.picLogo.Location = New System.Drawing.Point(62, 423)
|
||||
Me.picLogo.Location = New System.Drawing.Point(788, 839)
|
||||
Me.picLogo.Name = "picLogo"
|
||||
Me.picLogo.Size = New System.Drawing.Size(287, 114)
|
||||
Me.picLogo.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
|
||||
@@ -845,11 +891,12 @@ Partial Class frmKundenblatt
|
||||
'
|
||||
'Button4
|
||||
'
|
||||
Me.Button4.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||
Me.Button4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button4.Image = Global.SDL.My.Resources.Resources.statistik_small
|
||||
Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.Button4.Location = New System.Drawing.Point(590, 378)
|
||||
Me.Button4.Location = New System.Drawing.Point(1058, 792)
|
||||
Me.Button4.Name = "Button4"
|
||||
Me.Button4.Size = New System.Drawing.Size(136, 32)
|
||||
Me.Button4.TabIndex = 21
|
||||
@@ -1004,14 +1051,16 @@ Partial Class frmKundenblatt
|
||||
'
|
||||
'GroupBox5
|
||||
'
|
||||
Me.GroupBox5.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.GroupBox5.Controls.Add(Me.lblStat_SdlLeistungen_Maut)
|
||||
Me.GroupBox5.Controls.Add(Me.lblStat_SdlLeistungen_Diesel)
|
||||
Me.GroupBox5.Controls.Add(Me.lblStat_SdlLeistungen)
|
||||
Me.GroupBox5.Controls.Add(Me.lblStat_Lkws)
|
||||
Me.GroupBox5.Controls.Add(Me.PictureBox5)
|
||||
Me.GroupBox5.Location = New System.Drawing.Point(12, 416)
|
||||
Me.GroupBox5.Location = New System.Drawing.Point(738, 832)
|
||||
Me.GroupBox5.Name = "GroupBox5"
|
||||
Me.GroupBox5.Size = New System.Drawing.Size(714, 121)
|
||||
Me.GroupBox5.Size = New System.Drawing.Size(456, 121)
|
||||
Me.GroupBox5.TabIndex = 22
|
||||
Me.GroupBox5.TabStop = False
|
||||
Me.GroupBox5.Text = "Statistik"
|
||||
@@ -1021,10 +1070,10 @@ Partial Class frmKundenblatt
|
||||
'
|
||||
Me.lblStat_SdlLeistungen_Maut.AutoSize = True
|
||||
Me.lblStat_SdlLeistungen_Maut.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.lblStat_SdlLeistungen_Maut.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblStat_SdlLeistungen_Maut.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblStat_SdlLeistungen_Maut.Location = New System.Drawing.Point(12, 90)
|
||||
Me.lblStat_SdlLeistungen_Maut.Name = "lblStat_SdlLeistungen_Maut"
|
||||
Me.lblStat_SdlLeistungen_Maut.Size = New System.Drawing.Size(32, 20)
|
||||
Me.lblStat_SdlLeistungen_Maut.Size = New System.Drawing.Size(27, 16)
|
||||
Me.lblStat_SdlLeistungen_Maut.TabIndex = 3
|
||||
Me.lblStat_SdlLeistungen_Maut.Text = "Sdl"
|
||||
'
|
||||
@@ -1032,10 +1081,10 @@ Partial Class frmKundenblatt
|
||||
'
|
||||
Me.lblStat_SdlLeistungen_Diesel.AutoSize = True
|
||||
Me.lblStat_SdlLeistungen_Diesel.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.lblStat_SdlLeistungen_Diesel.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblStat_SdlLeistungen_Diesel.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblStat_SdlLeistungen_Diesel.Location = New System.Drawing.Point(12, 70)
|
||||
Me.lblStat_SdlLeistungen_Diesel.Name = "lblStat_SdlLeistungen_Diesel"
|
||||
Me.lblStat_SdlLeistungen_Diesel.Size = New System.Drawing.Size(32, 20)
|
||||
Me.lblStat_SdlLeistungen_Diesel.Size = New System.Drawing.Size(27, 16)
|
||||
Me.lblStat_SdlLeistungen_Diesel.TabIndex = 2
|
||||
Me.lblStat_SdlLeistungen_Diesel.Text = "Sdl"
|
||||
'
|
||||
@@ -1043,10 +1092,10 @@ Partial Class frmKundenblatt
|
||||
'
|
||||
Me.lblStat_SdlLeistungen.AutoSize = True
|
||||
Me.lblStat_SdlLeistungen.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.lblStat_SdlLeistungen.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblStat_SdlLeistungen.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblStat_SdlLeistungen.Location = New System.Drawing.Point(12, 50)
|
||||
Me.lblStat_SdlLeistungen.Name = "lblStat_SdlLeistungen"
|
||||
Me.lblStat_SdlLeistungen.Size = New System.Drawing.Size(32, 20)
|
||||
Me.lblStat_SdlLeistungen.Size = New System.Drawing.Size(27, 16)
|
||||
Me.lblStat_SdlLeistungen.TabIndex = 1
|
||||
Me.lblStat_SdlLeistungen.Text = "Sdl"
|
||||
'
|
||||
@@ -1054,10 +1103,10 @@ Partial Class frmKundenblatt
|
||||
'
|
||||
Me.lblStat_Lkws.AutoSize = True
|
||||
Me.lblStat_Lkws.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.lblStat_Lkws.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblStat_Lkws.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblStat_Lkws.Location = New System.Drawing.Point(12, 30)
|
||||
Me.lblStat_Lkws.Name = "lblStat_Lkws"
|
||||
Me.lblStat_Lkws.Size = New System.Drawing.Size(37, 20)
|
||||
Me.lblStat_Lkws.Size = New System.Drawing.Size(30, 16)
|
||||
Me.lblStat_Lkws.TabIndex = 0
|
||||
Me.lblStat_Lkws.Text = "Lkw"
|
||||
'
|
||||
@@ -1065,7 +1114,7 @@ Partial Class frmKundenblatt
|
||||
'
|
||||
Me.PictureBox5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
|
||||
Me.PictureBox5.Image = Global.SDL.My.Resources.Resources.statistik
|
||||
Me.PictureBox5.Location = New System.Drawing.Point(676, 0)
|
||||
Me.PictureBox5.Location = New System.Drawing.Point(409, 7)
|
||||
Me.PictureBox5.Name = "PictureBox5"
|
||||
Me.PictureBox5.Size = New System.Drawing.Size(38, 39)
|
||||
Me.PictureBox5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
|
||||
@@ -1085,8 +1134,7 @@ Partial Class frmKundenblatt
|
||||
'
|
||||
'dgvSperrliste
|
||||
'
|
||||
Me.dgvSperrliste.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
||||
Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Me.dgvSperrliste.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.dgvSperrliste.BackgroundColor = System.Drawing.Color.White
|
||||
DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
@@ -1110,7 +1158,7 @@ Partial Class frmKundenblatt
|
||||
Me.dgvSperrliste.Name = "dgvSperrliste"
|
||||
Me.dgvSperrliste.ReadOnly = True
|
||||
Me.dgvSperrliste.RowHeadersDefaultCellStyle = DataGridViewCellStyle15
|
||||
Me.dgvSperrliste.Size = New System.Drawing.Size(446, 884)
|
||||
Me.dgvSperrliste.Size = New System.Drawing.Size(462, 629)
|
||||
Me.dgvSperrliste.TabIndex = 23
|
||||
'
|
||||
'PictureBox2
|
||||
@@ -1164,7 +1212,7 @@ Partial Class frmKundenblatt
|
||||
Me.tbZoll.Location = New System.Drawing.Point(4, 25)
|
||||
Me.tbZoll.Name = "tbZoll"
|
||||
Me.tbZoll.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.tbZoll.Size = New System.Drawing.Size(1644, 928)
|
||||
Me.tbZoll.Size = New System.Drawing.Size(1644, 962)
|
||||
Me.tbZoll.TabIndex = 9
|
||||
Me.tbZoll.Text = "ZOLL"
|
||||
Me.tbZoll.UseVisualStyleBackColor = True
|
||||
@@ -1176,7 +1224,7 @@ Partial Class frmKundenblatt
|
||||
Me.tbcntrZOLL.Location = New System.Drawing.Point(3, 3)
|
||||
Me.tbcntrZOLL.Name = "tbcntrZOLL"
|
||||
Me.tbcntrZOLL.SelectedIndex = 0
|
||||
Me.tbcntrZOLL.Size = New System.Drawing.Size(1638, 922)
|
||||
Me.tbcntrZOLL.Size = New System.Drawing.Size(1638, 956)
|
||||
Me.tbcntrZOLL.TabIndex = 0
|
||||
'
|
||||
'tabZoll_Artikel
|
||||
@@ -1184,7 +1232,7 @@ Partial Class frmKundenblatt
|
||||
Me.tabZoll_Artikel.Location = New System.Drawing.Point(4, 22)
|
||||
Me.tabZoll_Artikel.Name = "tabZoll_Artikel"
|
||||
Me.tabZoll_Artikel.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.tabZoll_Artikel.Size = New System.Drawing.Size(1630, 896)
|
||||
Me.tabZoll_Artikel.Size = New System.Drawing.Size(1630, 930)
|
||||
Me.tabZoll_Artikel.TabIndex = 1
|
||||
Me.tabZoll_Artikel.Text = "Artikel"
|
||||
Me.tabZoll_Artikel.UseVisualStyleBackColor = True
|
||||
@@ -1195,7 +1243,7 @@ Partial Class frmKundenblatt
|
||||
Me.tbMdm.Location = New System.Drawing.Point(4, 25)
|
||||
Me.tbMdm.Name = "tbMdm"
|
||||
Me.tbMdm.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.tbMdm.Size = New System.Drawing.Size(1644, 928)
|
||||
Me.tbMdm.Size = New System.Drawing.Size(1644, 962)
|
||||
Me.tbMdm.TabIndex = 10
|
||||
Me.tbMdm.Text = "MDM"
|
||||
Me.tbMdm.UseVisualStyleBackColor = True
|
||||
@@ -1214,7 +1262,7 @@ Partial Class frmKundenblatt
|
||||
Me.tbcntrMDM.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.tbcntrMDM.Name = "tbcntrMDM"
|
||||
Me.tbcntrMDM.SelectedIndex = 0
|
||||
Me.tbcntrMDM.Size = New System.Drawing.Size(1638, 922)
|
||||
Me.tbcntrMDM.Size = New System.Drawing.Size(1638, 956)
|
||||
Me.tbcntrMDM.TabIndex = 0
|
||||
'
|
||||
'tbSDL
|
||||
@@ -1226,7 +1274,7 @@ Partial Class frmKundenblatt
|
||||
Me.tbSDL.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.tbSDL.Name = "tbSDL"
|
||||
Me.tbSDL.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.tbSDL.Size = New System.Drawing.Size(1630, 896)
|
||||
Me.tbSDL.Size = New System.Drawing.Size(1630, 930)
|
||||
Me.tbSDL.TabIndex = 5
|
||||
Me.tbSDL.Text = "SDL-Leistungen"
|
||||
Me.tbSDL.UseVisualStyleBackColor = True
|
||||
@@ -1268,7 +1316,7 @@ Partial Class frmKundenblatt
|
||||
DataGridViewCellStyle21.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvSDLLeistungenFull.RowHeadersDefaultCellStyle = DataGridViewCellStyle21
|
||||
Me.dgvSDLLeistungenFull.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
|
||||
Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1624, 700)
|
||||
Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1624, 734)
|
||||
Me.dgvSDLLeistungenFull.TabIndex = 5
|
||||
'
|
||||
'Panel6
|
||||
@@ -1374,7 +1422,7 @@ Partial Class frmKundenblatt
|
||||
Me.Panel5.Controls.Add(Me.lblLetzterSA_SDL)
|
||||
Me.Panel5.Controls.Add(Me.rtbVermerke)
|
||||
Me.Panel5.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.Panel5.Location = New System.Drawing.Point(3, 750)
|
||||
Me.Panel5.Location = New System.Drawing.Point(3, 784)
|
||||
Me.Panel5.Name = "Panel5"
|
||||
Me.Panel5.Size = New System.Drawing.Size(1624, 143)
|
||||
Me.Panel5.TabIndex = 177
|
||||
@@ -2270,7 +2318,7 @@ Partial Class frmKundenblatt
|
||||
Me.tbOfferte.Location = New System.Drawing.Point(4, 25)
|
||||
Me.tbOfferte.Margin = New System.Windows.Forms.Padding(2)
|
||||
Me.tbOfferte.Name = "tbOfferte"
|
||||
Me.tbOfferte.Size = New System.Drawing.Size(1644, 928)
|
||||
Me.tbOfferte.Size = New System.Drawing.Size(1644, 962)
|
||||
Me.tbOfferte.TabIndex = 11
|
||||
Me.tbOfferte.Text = "Offerte"
|
||||
Me.tbOfferte.UseVisualStyleBackColor = True
|
||||
@@ -2282,7 +2330,7 @@ Partial Class frmKundenblatt
|
||||
Me.UsrCntlOfferte1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(1)
|
||||
Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1"
|
||||
Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1644, 928)
|
||||
Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1644, 962)
|
||||
Me.UsrCntlOfferte1.TabIndex = 0
|
||||
'
|
||||
'tbUSTV
|
||||
@@ -2290,7 +2338,7 @@ Partial Class frmKundenblatt
|
||||
Me.tbUSTV.Controls.Add(Me.tbcntrUSTV)
|
||||
Me.tbUSTV.Location = New System.Drawing.Point(4, 25)
|
||||
Me.tbUSTV.Name = "tbUSTV"
|
||||
Me.tbUSTV.Size = New System.Drawing.Size(1644, 928)
|
||||
Me.tbUSTV.Size = New System.Drawing.Size(1644, 962)
|
||||
Me.tbUSTV.TabIndex = 12
|
||||
Me.tbUSTV.Text = "USTV"
|
||||
Me.tbUSTV.UseVisualStyleBackColor = True
|
||||
@@ -2304,7 +2352,7 @@ Partial Class frmKundenblatt
|
||||
Me.tbcntrUSTV.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.tbcntrUSTV.Name = "tbcntrUSTV"
|
||||
Me.tbcntrUSTV.SelectedIndex = 0
|
||||
Me.tbcntrUSTV.Size = New System.Drawing.Size(1644, 928)
|
||||
Me.tbcntrUSTV.Size = New System.Drawing.Size(1644, 962)
|
||||
Me.tbcntrUSTV.TabIndex = 1
|
||||
'
|
||||
'tbUSTVDokumente
|
||||
@@ -2317,7 +2365,7 @@ Partial Class frmKundenblatt
|
||||
Me.tbUSTVDokumente.Controls.Add(Me.scanUSTVVollmachten)
|
||||
Me.tbUSTVDokumente.Location = New System.Drawing.Point(4, 22)
|
||||
Me.tbUSTVDokumente.Name = "tbUSTVDokumente"
|
||||
Me.tbUSTVDokumente.Size = New System.Drawing.Size(1636, 902)
|
||||
Me.tbUSTVDokumente.Size = New System.Drawing.Size(1636, 936)
|
||||
Me.tbUSTVDokumente.TabIndex = 8
|
||||
Me.tbUSTVDokumente.Text = "Dokumente"
|
||||
Me.tbUSTVDokumente.UseVisualStyleBackColor = True
|
||||
@@ -2433,6 +2481,7 @@ Partial Class frmKundenblatt
|
||||
'
|
||||
'tbFIBU
|
||||
'
|
||||
Me.tbFIBU.Controls.Add(Me.txtZinsbelastungNew)
|
||||
Me.tbFIBU.Controls.Add(Me.btn_FIBU_speichern)
|
||||
Me.tbFIBU.Controls.Add(Me.lblZNB_verrechnet)
|
||||
Me.tbFIBU.Controls.Add(Me.lblZNB_offen)
|
||||
@@ -2441,18 +2490,41 @@ Partial Class frmKundenblatt
|
||||
Me.tbFIBU.Controls.Add(Me.dgvZinsnachberechnung)
|
||||
Me.tbFIBU.Controls.Add(Me.Label15)
|
||||
Me.tbFIBU.Controls.Add(Me.Label14)
|
||||
Me.tbFIBU.Controls.Add(Me.txtZinsbelastung)
|
||||
Me.tbFIBU.Controls.Add(Me.Label12)
|
||||
Me.tbFIBU.Controls.Add(Me.rtbGespreachsbericht)
|
||||
Me.tbFIBU.Controls.Add(Me.Label9)
|
||||
Me.tbFIBU.Controls.Add(Me.txtFIBUKuerzel)
|
||||
Me.tbFIBU.Location = New System.Drawing.Point(4, 25)
|
||||
Me.tbFIBU.Name = "tbFIBU"
|
||||
Me.tbFIBU.Size = New System.Drawing.Size(1644, 928)
|
||||
Me.tbFIBU.Size = New System.Drawing.Size(1644, 962)
|
||||
Me.tbFIBU.TabIndex = 13
|
||||
Me.tbFIBU.Text = "FIBU"
|
||||
Me.tbFIBU.UseVisualStyleBackColor = True
|
||||
'
|
||||
'txtZinsbelastungNew
|
||||
'
|
||||
Me.txtZinsbelastungNew._DateTimeOnly = False
|
||||
Me.txtZinsbelastungNew._numbersOnly = True
|
||||
Me.txtZinsbelastungNew._numbersOnlyKommastellen = "2"
|
||||
Me.txtZinsbelastungNew._numbersOnlyTrennzeichen = True
|
||||
Me.txtZinsbelastungNew._Prozent = False
|
||||
Me.txtZinsbelastungNew._ShortDateNew = False
|
||||
Me.txtZinsbelastungNew._ShortDateOnly = False
|
||||
Me.txtZinsbelastungNew._TimeOnly = False
|
||||
Me.txtZinsbelastungNew._TimeOnly_Seconds = False
|
||||
Me.txtZinsbelastungNew._value = ""
|
||||
Me.txtZinsbelastungNew._Waehrung = False
|
||||
Me.txtZinsbelastungNew._WaehrungZeichen = False
|
||||
Me.txtZinsbelastungNew.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtZinsbelastungNew.Location = New System.Drawing.Point(835, 15)
|
||||
Me.txtZinsbelastungNew.MaxLength = 6
|
||||
Me.txtZinsbelastungNew.MaxLineLength = -1
|
||||
Me.txtZinsbelastungNew.MaxLines_Warning = ""
|
||||
Me.txtZinsbelastungNew.MaxLines_Warning_Label = Nothing
|
||||
Me.txtZinsbelastungNew.Name = "txtZinsbelastungNew"
|
||||
Me.txtZinsbelastungNew.Size = New System.Drawing.Size(52, 20)
|
||||
Me.txtZinsbelastungNew.TabIndex = 30
|
||||
'
|
||||
'btn_FIBU_speichern
|
||||
'
|
||||
Me.btn_FIBU_speichern.Location = New System.Drawing.Point(1468, 9)
|
||||
@@ -2536,18 +2608,9 @@ Partial Class frmKundenblatt
|
||||
Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label14.Location = New System.Drawing.Point(685, 18)
|
||||
Me.Label14.Name = "Label14"
|
||||
Me.Label14.Size = New System.Drawing.Size(124, 13)
|
||||
Me.Label14.Size = New System.Drawing.Size(149, 13)
|
||||
Me.Label14.TabIndex = 21
|
||||
Me.Label14.Text = "Zinssatz (Zinsbelastung):"
|
||||
'
|
||||
'txtZinsbelastung
|
||||
'
|
||||
Me.txtZinsbelastung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.txtZinsbelastung.Location = New System.Drawing.Point(959, 11)
|
||||
Me.txtZinsbelastung.MaxLength = 50
|
||||
Me.txtZinsbelastung.Name = "txtZinsbelastung"
|
||||
Me.txtZinsbelastung.Size = New System.Drawing.Size(53, 20)
|
||||
Me.txtZinsbelastung.TabIndex = 20
|
||||
Me.Label14.Text = "Zinssatz (Zinsbelastung, in %):"
|
||||
'
|
||||
'Label12
|
||||
'
|
||||
@@ -2592,7 +2655,7 @@ Partial Class frmKundenblatt
|
||||
Me.tbRechnungen.Controls.Add(Me.MyPanel1)
|
||||
Me.tbRechnungen.Location = New System.Drawing.Point(4, 25)
|
||||
Me.tbRechnungen.Name = "tbRechnungen"
|
||||
Me.tbRechnungen.Size = New System.Drawing.Size(1644, 928)
|
||||
Me.tbRechnungen.Size = New System.Drawing.Size(1644, 962)
|
||||
Me.tbRechnungen.TabIndex = 14
|
||||
Me.tbRechnungen.Text = "Rechnungen"
|
||||
Me.tbRechnungen.UseVisualStyleBackColor = True
|
||||
@@ -2611,7 +2674,7 @@ Partial Class frmKundenblatt
|
||||
Me.dgvRg.ReadOnly = True
|
||||
Me.dgvRg.RowHeadersVisible = False
|
||||
Me.dgvRg.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
|
||||
Me.dgvRg.Size = New System.Drawing.Size(1644, 868)
|
||||
Me.dgvRg.Size = New System.Drawing.Size(1644, 902)
|
||||
Me.dgvRg.TabIndex = 3
|
||||
'
|
||||
'MyPanel1
|
||||
@@ -2838,7 +2901,7 @@ Partial Class frmKundenblatt
|
||||
'
|
||||
Me.cntxtCntxtMDM.ImageScalingSize = New System.Drawing.Size(24, 24)
|
||||
Me.cntxtCntxtMDM.Name = "cntxtCntxtMDM"
|
||||
Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem8
|
||||
Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem4
|
||||
Me.cntxtCntxtMDM.Size = New System.Drawing.Size(61, 4)
|
||||
Me.cntxtCntxtMDM.Text = "cntxtMDM"
|
||||
'
|
||||
@@ -3000,13 +3063,26 @@ Partial Class frmKundenblatt
|
||||
Me.tbiVERAGCard.Size = New System.Drawing.Size(186, 22)
|
||||
Me.tbiVERAGCard.Text = "VERAG Card"
|
||||
'
|
||||
'txtEmailRE2
|
||||
'
|
||||
Me.txtEmailRE2.BackColor = System.Drawing.Color.White
|
||||
Me.txtEmailRE2.BorderStyle = System.Windows.Forms.BorderStyle.None
|
||||
Me.txtEmailRE2.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.txtEmailRE2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.txtEmailRE2.Location = New System.Drawing.Point(40, 410)
|
||||
Me.txtEmailRE2.Name = "txtEmailRE2"
|
||||
Me.txtEmailRE2.ReadOnly = True
|
||||
Me.txtEmailRE2.Size = New System.Drawing.Size(384, 19)
|
||||
Me.txtEmailRE2.TabIndex = 195
|
||||
Me.txtEmailRE2.Text = "email-Rechnung"
|
||||
'
|
||||
'frmKundenblatt
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.AutoScroll = True
|
||||
Me.BackColor = System.Drawing.Color.White
|
||||
Me.ClientSize = New System.Drawing.Size(1651, 1086)
|
||||
Me.ClientSize = New System.Drawing.Size(1649, 1120)
|
||||
Me.Controls.Add(Me.lblAbfVerb)
|
||||
Me.Controls.Add(Me.btnAbfVerb)
|
||||
Me.Controls.Add(Me.tbcntrMain)
|
||||
@@ -3026,6 +3102,7 @@ Partial Class frmKundenblatt
|
||||
Me.tbcntrMain.ResumeLayout(False)
|
||||
Me.tbAllgemein.ResumeLayout(False)
|
||||
Me.tbAllgemein.PerformLayout()
|
||||
CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.TabControl1.ResumeLayout(False)
|
||||
Me.TabPage1.ResumeLayout(False)
|
||||
Me.TabPage1.PerformLayout()
|
||||
@@ -3287,7 +3364,6 @@ Partial Class frmKundenblatt
|
||||
Friend WithEvents Label12 As Label
|
||||
Friend WithEvents rtbGespreachsbericht As RichTextBox
|
||||
Friend WithEvents Label14 As Label
|
||||
Friend WithEvents txtZinsbelastung As TextBox
|
||||
Friend WithEvents Label15 As Label
|
||||
Friend WithEvents lblZNB_verrechnet As Label
|
||||
Friend WithEvents lblZNB_offen As Label
|
||||
@@ -3296,4 +3372,9 @@ Partial Class frmKundenblatt
|
||||
Friend WithEvents dgvZinsnachberechnung As VERAG_PROG_ALLGEMEIN.MyDatagridview
|
||||
Friend WithEvents btnBestelldateiErzeugen As Button
|
||||
Friend WithEvents btn_FIBU_speichern As Button
|
||||
Friend WithEvents txtZinsbelastungNew As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents txtEmailRE As TextBox
|
||||
Friend WithEvents TextBox1 As TextBox
|
||||
Friend WithEvents PictureBox8 As PictureBox
|
||||
Friend WithEvents txtEmailRE2 As TextBox
|
||||
End Class
|
||||
|
||||
@@ -1,6 +1,7 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Globalization
|
||||
Imports System.Web.UI.WebControls.Expressions
|
||||
Imports com.sun.xml.internal.rngom
|
||||
Imports Microsoft.Office.Interop
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
@@ -17,6 +18,7 @@ Public Class frmKundenblatt
|
||||
' Dim KUNDE As cKunde = Nothing
|
||||
Dim ADRESSE As VERAG_PROG_ALLGEMEIN.cAdressen = Nothing
|
||||
Dim KUNDE_ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert = Nothing
|
||||
Dim KUNDE_K As VERAG_PROG_ALLGEMEIN.cKundenKontakte = Nothing
|
||||
|
||||
' Public BERECHTIGUNEN As List(Of cBerechtigungen) = Nothing
|
||||
|
||||
@@ -465,7 +467,7 @@ Public Class frmKundenblatt
|
||||
If kdNr > 0 Then
|
||||
rtbGespreachsbericht.Text = checkNullStr(KUNDE.Gesprächsbericht)
|
||||
txtFIBUKuerzel.Text = checkNullStr(KUNDE_ERW.kde_BezFIBU)
|
||||
txtZinsbelastung.Text = checkNullStr(KUNDE_ERW.kde_zinssatz)
|
||||
txtZinsbelastungNew.Text = checkNullStr(KUNDE_ERW.kde_zinssatz)
|
||||
|
||||
initZNB()
|
||||
|
||||
@@ -637,11 +639,65 @@ Public Class frmKundenblatt
|
||||
End Sub
|
||||
|
||||
Sub initStat()
|
||||
lblStat_Lkws.Text = SQL.getSqlCount("SELECT Count(KfzKennzeichen) FROM LKW WHERE KundenNr=" & kdNr & " ") & " LKWs registriert"
|
||||
lblStat_SdlLeistungen.Text = SQL.getSqlCount("SELECT Count(SDL.SDLNr) FROM SDL, Speditionsdienstleistungen WHERE KundenNr=" & kdNr & " AND SDL.SDLNr=Speditionsdienstleistungen.SDLNr ") & " SDL Leistungen"
|
||||
lblStat_Lkws.Text = SQL.getSqlCount("SELECT Count(KfzKennzeichen) FROM LKW WHERE KundenNr=" & kdNr & " and isnull(Verkauft,0) <> 1 and isnull(Abgemeldet,0) <> 1 ") & " aktive LKWs registriert"
|
||||
|
||||
lblStat_SdlLeistungen.Text = SQL.getSqlCount("SELECT Count(SDL.SDLNr) FROM SDL, Speditionsdienstleistungen WHERE KundenNr=" & kdNr & " and ISNULL(Archiviert,0) <> 1 and ISNULL(LKWAbgemeldet,0) <> 1 and ISNULL(Gesperrt,0) <> 1 and ISNULL(Defekt,0) <> 1 and ISNULL(Verloren,0) <> 1 and ISNULL(Gestohlen,0) <> 1 AND SDL.SDLNr=Speditionsdienstleistungen.SDLNr ") & " aktive SDL Leistungen"
|
||||
|
||||
Dim SQL_Diesel As String = " FROM SDL, Speditionsdienstleistungen WHERE KundenNr=" & kdNr & " AND ISNULL(Archiviert,0) <> 1 and ISNULL(LKWAbgemeldet,0) <> 1 and ISNULL(Gesperrt,0) <> 1 and ISNULL(Defekt,0) <> 1 and ISNULL(Verloren,0) <> 1 and ISNULL(Gestohlen,0) <> 1 AND SDL.SDLNr=Speditionsdienstleistungen.SDLNr AND SDL.SDLNr IN (100,101)"
|
||||
Dim dt_Diesel As DataTable = SQL.loadDgvBySql("SELECT SDL.SDLNr,Count(SDL.SDLNr) as Anzahl" & SQL_Diesel & " Group by SDL.SDLNr", "SDL")
|
||||
lblStat_SdlLeistungen_Diesel.Text = SQL.getSqlCount("SELECT Count(SDL.SDLNr)" & SQL_Diesel) & " aktive Tankkarten"
|
||||
|
||||
If dt_Diesel.Rows.Count > 0 Then
|
||||
lblStat_SdlLeistungen_Diesel.Text &= " ( "
|
||||
For Each r In dt_Diesel.Rows
|
||||
Dim Lieferant As String = ""
|
||||
Select Case r.Item("SDLNr")
|
||||
Case "100" : Lieferant = r.Item("Anzahl") & "x IDS "
|
||||
Case "101" : Lieferant = r.Item("Anzahl") & "x RMC "
|
||||
End Select
|
||||
|
||||
lblStat_SdlLeistungen_Diesel.Text &= Lieferant
|
||||
Next
|
||||
lblStat_SdlLeistungen_Diesel.Text &= ")"
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Dim SQL_Maut As String = " FROM SDL, Speditionsdienstleistungen WHERE KundenNr=" & kdNr & " AND ISNULL(Archiviert,0) <> 1 and ISNULL(LKWAbgemeldet,0) <> 1 and ISNULL(Gesperrt,0) <> 1 and ISNULL(Defekt,0) <> 1 and ISNULL(Verloren,0) <> 1 and ISNULL(Gestohlen,0) <> 1 AND SDL.SDLNr=Speditionsdienstleistungen.SDLNr AND SDL.SDLNr BETWEEN 200 AND 218"
|
||||
Dim dt_Maut As DataTable = SQL.loadDgvBySql("SELECT SDL.SDLNr,Count(SDL.SDLNr) as Anzahl" & SQL_Maut & " Group by SDL.SDLNr", "SDL")
|
||||
lblStat_SdlLeistungen_Maut.Text = SQL.getSqlCount("SELECT Count(SDL.SDLNr)" & SQL_Maut) & " aktive Mautboxen/-karten"
|
||||
|
||||
|
||||
If dt_Maut.Rows.Count > 0 Then
|
||||
lblStat_SdlLeistungen_Maut.Text &= " ( "
|
||||
For Each r As DataRow In dt_Maut.Rows
|
||||
Dim Lieferant As String = ""
|
||||
Select Case r.Item("SDLNr")
|
||||
Case "200" : Lieferant = r.Item("Anzahl") & "x AT "
|
||||
Case "201" : Lieferant = r.Item("Anzahl") & "x DE "
|
||||
Case "202" : Lieferant = r.Item("Anzahl") & "x TELEPASS "
|
||||
Case "203" : Lieferant = r.Item("Anzahl") & "x CZ "
|
||||
Case "205" : Lieferant = r.Item("Anzahl") & "x MotorWay "
|
||||
Case "206" : Lieferant = r.Item("Anzahl") & "x DouBox "
|
||||
Case "208" : Lieferant = r.Item("Anzahl") & "x MSE "
|
||||
Case "209" : Lieferant = r.Item("Anzahl") & "x PL "
|
||||
Case "210" : Lieferant = r.Item("Anzahl") & "x SI "
|
||||
Case "211" : Lieferant = r.Item("Anzahl") & "x MSE-MP "
|
||||
Case "212" : Lieferant = r.Item("Anzahl") & "x UTA "
|
||||
Case "213" : Lieferant = r.Item("Anzahl") & "x HUGO "
|
||||
Case "214" : Lieferant = r.Item("Anzahl") & "x PLOSE-RM "
|
||||
Case "215" : Lieferant = r.Item("Anzahl") & "x PLOSE-IT "
|
||||
Case "216" : Lieferant = r.Item("Anzahl") & "x PLOSE-CZ "
|
||||
Case "217" : Lieferant = r.Item("Anzahl") & "x PLOSE-MP "
|
||||
Case "218" : Lieferant = r.Item("Anzahl") & "x PLOSE-TM "
|
||||
|
||||
End Select
|
||||
|
||||
lblStat_SdlLeistungen_Maut.Text &= Lieferant
|
||||
Next
|
||||
lblStat_SdlLeistungen_Maut.Text &= ")"
|
||||
End If
|
||||
|
||||
lblStat_SdlLeistungen_Diesel.Text = SQL.getSqlCount("SELECT Count(SDL.SDLNr) FROM SDL, Speditionsdienstleistungen WHERE KundenNr=" & kdNr & " AND SDL.SDLNr=Speditionsdienstleistungen.SDLNr AND SDL.SDLNr IN (100,101)") & " Tankkarten"
|
||||
lblStat_SdlLeistungen_Maut.Text = SQL.getSqlCount("SELECT Count(SDL.SDLNr) FROM SDL, Speditionsdienstleistungen WHERE KundenNr=" & kdNr & " AND SDL.SDLNr=Speditionsdienstleistungen.SDLNr AND SDL.SDLNr BETWEEN 200 AND 212 ") & " Mautboxen/-karten"
|
||||
|
||||
End Sub
|
||||
Function checkNullStr(o As Object) As String
|
||||
@@ -682,6 +738,7 @@ Public Class frmKundenblatt
|
||||
KUNDE = New VERAG_PROG_ALLGEMEIN.cKunde(kdNr) 'kundenSQL.getKundeByKdNr(kdNr)
|
||||
ADRESSE = New VERAG_PROG_ALLGEMEIN.cAdressen(kdNr) 'kundenSQL.getKundeByKdNr(kdNr)
|
||||
KUNDE_ERW = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdNr)
|
||||
KUNDE_K = New VERAG_PROG_ALLGEMEIN.cKundenKontakte(8, kdNr)
|
||||
'Me.dataAdapterFirma = Nothing
|
||||
' Me.dataFirma.Clear()
|
||||
'SDL!
|
||||
@@ -713,6 +770,15 @@ Public Class frmKundenblatt
|
||||
lblEmail.Text = checkNullStr(ADRESSE.E_Mail)
|
||||
lblEmail2.Text = checkNullStr(ADRESSE.E_Mail2)
|
||||
|
||||
txtEmailRE.Text = "-"
|
||||
txtEmailRE2.Text = ""
|
||||
If KUNDE_K.hasEntry Then 'Rechnung an
|
||||
txtEmailRE.Text = KUNDE_K.kkd_Email
|
||||
txtEmailRE2.Text &= KUNDE_K.kkd_EmailCC
|
||||
End If
|
||||
|
||||
|
||||
|
||||
lblUid.Text = ""
|
||||
If checkNullStr(ADRESSE.UstIdGeprüft) <> "" Then
|
||||
lblUid.Text = "UId: " & checkNullStr(ADRESSE.UstIdKz) & checkNullStr(ADRESSE.UstIdNr)
|
||||
@@ -2135,10 +2201,12 @@ Public Class frmKundenblatt
|
||||
End Sub
|
||||
|
||||
|
||||
Sub initDGVUmsatzNachLeistungsNr()
|
||||
With dgvUmsatzNachLeistngsNr
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige Is Nothing Then Exit Sub
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige = "" Then Exit Sub
|
||||
Function dtUmsatzNachLeistungsNr() As DataTable
|
||||
|
||||
Dim datatable As New DataTable
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige Is Nothing Then Return datatable
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige = "" Then Return datatable
|
||||
Dim where = ""
|
||||
If cboFirmaFMZOLL._value <> "" Then
|
||||
where = " AND [RechnungsKundenNr] = " & kdNr & " AND Firma_ID=" & cboFirmaFMZOLL._value
|
||||
@@ -2155,7 +2223,18 @@ Public Class frmKundenblatt
|
||||
sqlstr &= " ) AS Rg"
|
||||
sqlstr &= " PIVOT( SUM([Der Wert]) FOR [Year] IN (" & getJahrString() & ")) AS MNamePivot"
|
||||
sqlstr &= " order by LeistungsNr"
|
||||
.DataSource = SQL.loadDgvBySql(sqlstr, "FMZOLL")
|
||||
|
||||
datatable = SQL.loadDgvBySql(sqlstr, "FMZOLL")
|
||||
|
||||
Return datatable
|
||||
|
||||
End Function
|
||||
|
||||
Sub initDGVUmsatzNachLeistungsNr()
|
||||
With dgvUmsatzNachLeistngsNr
|
||||
|
||||
.DataSource = dtUmsatzNachLeistungsNr()
|
||||
|
||||
If .DataSource Is Nothing Then Exit Sub
|
||||
If .Columns.Count = 0 Then Exit Sub
|
||||
|
||||
@@ -2211,7 +2290,14 @@ Public Class frmKundenblatt
|
||||
Private Sub PictureBox7_Click(sender As Object, e As EventArgs) Handles PictureBox7.Click
|
||||
If dgvUmsatzNachLeistngsNr.Rows.Count > 0 Then
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
cProgramFunctions.genExcelFromDGV_NEW(dgvUmsatzNachLeistngsNr, True)
|
||||
|
||||
Dim dt As DataTable = dtUmsatzNachLeistungsNr()
|
||||
|
||||
If dt.Rows.Count > 0 Then
|
||||
cProgramFunctions.genExcelFromDT_NEW(dt, {"C1:C" & (dt.Rows.Count + 1), "D1:D" & (dt.Rows.Count + 1), "E1:E" & (dt.Rows.Count + 1), "F1:F" & (dt.Rows.Count + 1), "G1:G" & (dt.Rows.Count + 1), "H1:H" & (dt.Rows.Count + 1), "I1:I" & (dt.Rows.Count + 1), "J1:J" & (dt.Rows.Count + 1), "K1:K" & (dt.Rows.Count + 1)}, False)
|
||||
End If
|
||||
|
||||
|
||||
Me.Cursor = Cursors.Default
|
||||
End If
|
||||
|
||||
@@ -2365,7 +2451,7 @@ Public Class frmKundenblatt
|
||||
initBtns("Monat")
|
||||
End Sub
|
||||
|
||||
Private Sub dgvRg_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvRg.DoubleClick, dgvRg.CellContentDoubleClick
|
||||
Private Sub dgvRg_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvRg.CellContentDoubleClick
|
||||
|
||||
If dgvRg.SelectedRows.Count = 0 Then Exit Sub
|
||||
|
||||
@@ -2607,11 +2693,15 @@ Public Class frmKundenblatt
|
||||
Private Sub btn_FIBU_speichern_Click(sender As Object, e As EventArgs) Handles btn_FIBU_speichern.Click
|
||||
KUNDE_ERW.kde_BezFIBU = checkNullStr(txtFIBUKuerzel.Text)
|
||||
|
||||
If txtZinsbelastung.Text <> "" Then
|
||||
If txtZinsbelastung.Text.Contains(",") Then
|
||||
txtZinsbelastung.Text = txtZinsbelastung.ToString.Replace(",", ".")
|
||||
Else
|
||||
KUNDE_ERW.kde_zinssatz = checkNullStr(txtZinsbelastung.Text)
|
||||
If Not String.IsNullOrWhiteSpace(txtZinsbelastungNew.Text) Then
|
||||
Dim zinssatzText As String = txtZinsbelastungNew.Text.Replace(",", ".")
|
||||
Dim zinssatzValue As Decimal
|
||||
|
||||
If Decimal.TryParse(zinssatzText, System.Globalization.NumberStyles.Any, System.Globalization.CultureInfo.InvariantCulture, zinssatzValue) Then
|
||||
If zinssatzValue <= 999.99D AndAlso zinssatzValue >= -999.99D Then
|
||||
KUNDE_ERW.kde_zinssatz = zinssatzValue
|
||||
End If
|
||||
|
||||
End If
|
||||
Else
|
||||
KUNDE_ERW.kde_zinssatz = Nothing
|
||||
@@ -2619,10 +2709,15 @@ Public Class frmKundenblatt
|
||||
|
||||
KUNDE_ERW.SAVE()
|
||||
|
||||
If KUNDE.Gesprächsbericht <> "" AndAlso checkNullStr(rtbGespreachsbericht.Text) = "" OrElse KUNDE.Gesprächsbericht = "" AndAlso checkNullStr(rtbGespreachsbericht.Text) <> "" Then
|
||||
If Not (KUNDE.Gesprächsbericht <> "" AndAlso checkNullStr(rtbGespreachsbericht.Text) = "") Then
|
||||
If KUNDE.Gesprächsbericht = "" AndAlso checkNullStr(rtbGespreachsbericht.Text) <> "" Or KUNDE.Gesprächsbericht <> checkNullStr(rtbGespreachsbericht.Text) Then
|
||||
KUNDE.Gesprächsbericht = checkNullStr(rtbGespreachsbericht.Text)
|
||||
KUNDE.SAVE()
|
||||
End If
|
||||
Else
|
||||
MsgBox("Feld Gesprächstbericht darf nicht leer sein")
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub dgvZinsnachberechnung_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvZinsnachberechnung.CellDoubleClick
|
||||
@@ -2638,5 +2733,9 @@ Public Class frmKundenblatt
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub lblEmail_TextChanged(sender As Object, e As MouseEventArgs) Handles lblEmail2.MouseUp, lblEmail.MouseUp
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
|
||||
18
SDL/kunden/usrCntlIDSPreise.Designer.vb
generated
18
SDL/kunden/usrCntlIDSPreise.Designer.vb
generated
@@ -40,6 +40,7 @@ Partial Class usrCntlIDSPreise
|
||||
Me.btnRW = New System.Windows.Forms.Button()
|
||||
Me.btnAdd = New System.Windows.Forms.Button()
|
||||
Me.btnExcel = New System.Windows.Forms.Button()
|
||||
Me.btnStationen = New System.Windows.Forms.Button()
|
||||
CType(Me.dgvIDSData, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.cntxtAddSdl.SuspendLayout()
|
||||
CType(Me.dgvIDS, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
@@ -269,11 +270,27 @@ Partial Class usrCntlIDSPreise
|
||||
Me.btnExcel.UseVisualStyleBackColor = True
|
||||
Me.btnExcel.Visible = False
|
||||
'
|
||||
'btnStationen
|
||||
'
|
||||
Me.btnStationen.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||
Me.btnStationen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnStationen.ForeColor = System.Drawing.Color.Black
|
||||
Me.btnStationen.ImageAlign = System.Drawing.ContentAlignment.TopLeft
|
||||
Me.btnStationen.Location = New System.Drawing.Point(5, 513)
|
||||
Me.btnStationen.Name = "btnStationen"
|
||||
Me.btnStationen.Size = New System.Drawing.Size(89, 36)
|
||||
Me.btnStationen.TabIndex = 39
|
||||
Me.btnStationen.Tag = ""
|
||||
Me.btnStationen.Text = "Stationen"
|
||||
Me.btnStationen.UseVisualStyleBackColor = True
|
||||
Me.btnStationen.Visible = False
|
||||
'
|
||||
'usrCntlIDSPreise
|
||||
'
|
||||
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.btnStationen)
|
||||
Me.Controls.Add(Me.btnAdd)
|
||||
Me.Controls.Add(Me.btnRW)
|
||||
Me.Controls.Add(Me.Label1)
|
||||
@@ -315,4 +332,5 @@ Partial Class usrCntlIDSPreise
|
||||
Friend WithEvents btnRW As Button
|
||||
Friend WithEvents btnAdd As Button
|
||||
Friend WithEvents btnExcel As Button
|
||||
Friend WithEvents btnStationen As Button
|
||||
End Class
|
||||
|
||||
@@ -40,7 +40,7 @@ Public Class usrCntlIDSPreise
|
||||
|
||||
dgvFILTER.Width = dgvIDSData.Width
|
||||
For Each c As DataGridViewColumn In dgvIDSData.Columns
|
||||
dgvFILTER.Columns(c.Index).Width = c.Width
|
||||
If c.Visible Then dgvFILTER.Columns(c.Index).Width = c.Width
|
||||
Next
|
||||
|
||||
If Not dgvInitWait Then
|
||||
@@ -619,13 +619,14 @@ Public Class usrCntlIDSPreise
|
||||
btnEditIDS.Visible = False
|
||||
dgvIDS.ReadOnly = True
|
||||
btnAdd.Visible = False
|
||||
btnStationen.Visible = False
|
||||
|
||||
Else
|
||||
enableChanges = True
|
||||
dgvIDSData.AllowUserToAddRows = True
|
||||
dgvIDSData.AllowUserToDeleteRows = True
|
||||
dgvIDSData.RowHeadersVisible = True
|
||||
|
||||
btnStationen.Visible = True
|
||||
End If
|
||||
|
||||
|
||||
@@ -1029,5 +1030,13 @@ Public Class usrCntlIDSPreise
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub btnStationen_Click(sender As Object, e As EventArgs) Handles btnStationen.Click
|
||||
|
||||
Dim frm As New frmIDS_Stationen("tbl_IDS_Stationen", "FMZOLL")
|
||||
frm.ShowDialog(Me)
|
||||
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
@@ -1,8 +1,6 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Globalization
|
||||
Imports System.IO
|
||||
Imports System.ServiceModel.Configuration
|
||||
Imports GrapeCity.DataVisualization.TypeScript
|
||||
Imports SDL.EORI
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
@@ -1349,7 +1347,7 @@ Public Class usrCntlKundenuebersicht
|
||||
|
||||
Try
|
||||
For Each r As DataGridViewRow In .Rows
|
||||
If DateDiff(DateInterval.Day, CDate(r.Cells("Datum").Value), Now) > zahlungsziel Then
|
||||
If DateDiff(DateInterval.Day, CDate(r.Cells("Datum").Value), Now) >= zahlungsziel Then 'vpm > auf >= für Anfrage Anna.
|
||||
If CDbl(r.Cells("Betrag").Value) > 0 Then sumZZ += CDbl(r.Cells("Betrag").Value)
|
||||
Else
|
||||
If CDbl(r.Cells("Betrag").Value) > 0 Then sumNOTZZ += CDbl(r.Cells("Betrag").Value)
|
||||
|
||||
578
SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb
generated
578
SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb
generated
@@ -23,31 +23,34 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle25 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle38 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle39 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle40 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle41 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle42 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle43 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle44 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle45 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle46 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle47 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle48 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle49 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle50 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle32 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle33 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle34 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle35 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle36 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle37 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle51 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle52 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle53 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle54 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle55 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle56 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle29 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle30 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle31 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Me.tbcntrDetails = New System.Windows.Forms.TabControl()
|
||||
Me.tbAbfertigung = New System.Windows.Forms.TabPage()
|
||||
Me.cbxVerzolltBeiExport = New System.Windows.Forms.CheckBox()
|
||||
@@ -58,11 +61,9 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.cboFremdspedition = New System.Windows.Forms.ComboBox()
|
||||
Me.cbxVerzolltBei = New System.Windows.Forms.CheckBox()
|
||||
Me.cbxBesonderheitenNEU = New System.Windows.Forms.CheckBox()
|
||||
Me.UsrCntlKundenBesonderheiten1 = New SDL.usrCntlKundenBesonderheiten()
|
||||
Me.tbcntrAbf = New System.Windows.Forms.TabControl()
|
||||
Me.TabPage4 = New System.Windows.Forms.TabPage()
|
||||
Me.FlowLayoutPanel1 = New System.Windows.Forms.FlowLayoutPanel()
|
||||
Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung()
|
||||
Me.rtbLKWFreigabeSenden = New System.Windows.Forms.RichTextBox()
|
||||
Me.Label18 = New System.Windows.Forms.Label()
|
||||
Me.TabPage3 = New System.Windows.Forms.TabPage()
|
||||
@@ -76,7 +77,6 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.cboAbfVerb_Abfertigungsverbot = New System.Windows.Forms.CheckBox()
|
||||
Me.txtAbfVerb_AbfertigungsverbotSeit = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.tbAufschub = New System.Windows.Forms.TabPage()
|
||||
Me.usrCntlAufschubkonten = New SDL.usrCntlAufschubkonten()
|
||||
Me.TabPage1 = New System.Windows.Forms.TabPage()
|
||||
Me.Label78 = New System.Windows.Forms.Label()
|
||||
Me.cbxAbf_ZollVM = New System.Windows.Forms.CheckBox()
|
||||
@@ -101,7 +101,6 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.rtbAbf_Besonderheiten = New System.Windows.Forms.RichTextBox()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.tbFiskal = New System.Windows.Forms.TabPage()
|
||||
Me.UsrCntlKundeFiskaldaten1 = New SDL.usrCntlKundeFiskaldaten()
|
||||
Me.tbVerrechnung = New System.Windows.Forms.TabPage()
|
||||
Me.Panel2 = New System.Windows.Forms.Panel()
|
||||
Me.Label115 = New System.Windows.Forms.Label()
|
||||
@@ -277,7 +276,6 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.Label113 = New System.Windows.Forms.Label()
|
||||
Me.Label112 = New System.Windows.Forms.Label()
|
||||
Me.dgvIDS_Rabatte = New System.Windows.Forms.DataGridView()
|
||||
Me.lblIDS_Rabatte = New System.Windows.Forms.Label()
|
||||
Me.txtSumVerag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtSonst_KdNrVerag = New System.Windows.Forms.TextBox()
|
||||
Me.Label110 = New System.Windows.Forms.Label()
|
||||
@@ -389,7 +387,6 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.tbKontakt = New System.Windows.Forms.TabControl()
|
||||
Me.TabPage10 = New System.Windows.Forms.TabPage()
|
||||
Me.TabPage11 = New System.Windows.Forms.TabPage()
|
||||
Me.ucKundenKontakte = New SDL.usrCntlKundenKontakte()
|
||||
Me.Label50 = New System.Windows.Forms.Label()
|
||||
Me.Label68 = New System.Windows.Forms.Label()
|
||||
Me.pnlNeukunde = New System.Windows.Forms.Panel()
|
||||
@@ -415,6 +412,18 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.cboAuswahl = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.TabControl1 = New System.Windows.Forms.TabControl()
|
||||
Me.Standard = New System.Windows.Forms.TabPage()
|
||||
Me.Kunden = New System.Windows.Forms.TabPage()
|
||||
Me.dgvIDS_Standard = New System.Windows.Forms.DataGridView()
|
||||
Me.cbx_IDS_inaktiveeinblenden = New System.Windows.Forms.CheckBox()
|
||||
Me.PictureBox7 = New System.Windows.Forms.PictureBox()
|
||||
Me.ucKundenKontakte = New SDL.usrCntlKundenKontakte()
|
||||
Me.UsrCntlKundenBesonderheiten1 = New SDL.usrCntlKundenBesonderheiten()
|
||||
Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung()
|
||||
Me.usrCntlAufschubkonten = New SDL.usrCntlAufschubkonten()
|
||||
Me.UsrCntlKundeFiskaldaten1 = New SDL.usrCntlKundeFiskaldaten()
|
||||
Me.lblIDS_Rabatte = New System.Windows.Forms.Label()
|
||||
Me.tbcntrDetails.SuspendLayout()
|
||||
Me.tbAbfertigung.SuspendLayout()
|
||||
Me.tbcntrAbf.SuspendLayout()
|
||||
@@ -456,6 +465,11 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.TabPage11.SuspendLayout()
|
||||
Me.pnlNeukunde.SuspendLayout()
|
||||
Me.cnsBankverbindungen.SuspendLayout()
|
||||
Me.TabControl1.SuspendLayout()
|
||||
Me.Standard.SuspendLayout()
|
||||
Me.Kunden.SuspendLayout()
|
||||
CType(Me.dgvIDS_Standard, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'tbcntrDetails
|
||||
@@ -601,16 +615,6 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.cbxBesonderheitenNEU.Text = "Besonderheiten NEU"
|
||||
Me.cbxBesonderheitenNEU.UseVisualStyleBackColor = True
|
||||
'
|
||||
'UsrCntlKundenBesonderheiten1
|
||||
'
|
||||
Me.UsrCntlKundenBesonderheiten1.BackColor = System.Drawing.Color.White
|
||||
Me.UsrCntlKundenBesonderheiten1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.UsrCntlKundenBesonderheiten1.Location = New System.Drawing.Point(6, 25)
|
||||
Me.UsrCntlKundenBesonderheiten1.Name = "UsrCntlKundenBesonderheiten1"
|
||||
Me.UsrCntlKundenBesonderheiten1.Size = New System.Drawing.Size(107, 52)
|
||||
Me.UsrCntlKundenBesonderheiten1.TabIndex = 235
|
||||
Me.UsrCntlKundenBesonderheiten1.Visible = False
|
||||
'
|
||||
'tbcntrAbf
|
||||
'
|
||||
Me.tbcntrAbf.Controls.Add(Me.TabPage4)
|
||||
@@ -645,15 +649,6 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.FlowLayoutPanel1.Size = New System.Drawing.Size(200, 100)
|
||||
Me.FlowLayoutPanel1.TabIndex = 7
|
||||
'
|
||||
'UsrCntlKundenAvisoMailBenachrichtigung1
|
||||
'
|
||||
Me.UsrCntlKundenAvisoMailBenachrichtigung1.AutoScroll = True
|
||||
Me.UsrCntlKundenAvisoMailBenachrichtigung1.BackColor = System.Drawing.Color.White
|
||||
Me.UsrCntlKundenAvisoMailBenachrichtigung1.Location = New System.Drawing.Point(0, 6)
|
||||
Me.UsrCntlKundenAvisoMailBenachrichtigung1.Name = "UsrCntlKundenAvisoMailBenachrichtigung1"
|
||||
Me.UsrCntlKundenAvisoMailBenachrichtigung1.Size = New System.Drawing.Size(479, 172)
|
||||
Me.UsrCntlKundenAvisoMailBenachrichtigung1.TabIndex = 6
|
||||
'
|
||||
'rtbLKWFreigabeSenden
|
||||
'
|
||||
Me.rtbLKWFreigabeSenden.Location = New System.Drawing.Point(485, 33)
|
||||
@@ -822,14 +817,6 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.tbAufschub.Text = "Aufschubkonten"
|
||||
Me.tbAufschub.UseVisualStyleBackColor = True
|
||||
'
|
||||
'usrCntlAufschubkonten
|
||||
'
|
||||
Me.usrCntlAufschubkonten.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.usrCntlAufschubkonten.Location = New System.Drawing.Point(3, 3)
|
||||
Me.usrCntlAufschubkonten.Name = "usrCntlAufschubkonten"
|
||||
Me.usrCntlAufschubkonten.Size = New System.Drawing.Size(652, 172)
|
||||
Me.usrCntlAufschubkonten.TabIndex = 0
|
||||
'
|
||||
'TabPage1
|
||||
'
|
||||
Me.TabPage1.Controls.Add(Me.Label78)
|
||||
@@ -1135,15 +1122,6 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.tbFiskal.Text = "Fiskal"
|
||||
Me.tbFiskal.UseVisualStyleBackColor = True
|
||||
'
|
||||
'UsrCntlKundeFiskaldaten1
|
||||
'
|
||||
Me.UsrCntlKundeFiskaldaten1.BackColor = System.Drawing.Color.White
|
||||
Me.UsrCntlKundeFiskaldaten1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.UsrCntlKundeFiskaldaten1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.UsrCntlKundeFiskaldaten1.Name = "UsrCntlKundeFiskaldaten1"
|
||||
Me.UsrCntlKundeFiskaldaten1.Size = New System.Drawing.Size(672, 495)
|
||||
Me.UsrCntlKundeFiskaldaten1.TabIndex = 0
|
||||
'
|
||||
'tbVerrechnung
|
||||
'
|
||||
Me.tbVerrechnung.Controls.Add(Me.Panel2)
|
||||
@@ -3219,8 +3197,8 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.dgvUmsatzbericht.AllowUserToDeleteRows = False
|
||||
Me.dgvUmsatzbericht.AllowUserToOrderColumns = True
|
||||
Me.dgvUmsatzbericht.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
|
||||
DataGridViewCellStyle38.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle38
|
||||
Me.dgvUmsatzbericht.BackgroundColor = System.Drawing.Color.White
|
||||
Me.dgvUmsatzbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvUmsatzbericht.Location = New System.Drawing.Point(6, 25)
|
||||
@@ -3319,8 +3297,8 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.dgvOffenePosten.AllowUserToDeleteRows = False
|
||||
Me.dgvOffenePosten.AllowUserToOrderColumns = True
|
||||
Me.dgvOffenePosten.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
|
||||
DataGridViewCellStyle39.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle39
|
||||
Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White
|
||||
Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvOffenePosten.Location = New System.Drawing.Point(6, 38)
|
||||
@@ -3495,40 +3473,40 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.dgvKreditkarten.AllowUserToDeleteRows = False
|
||||
Me.dgvKreditkarten.AllowUserToOrderColumns = True
|
||||
Me.dgvKreditkarten.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvKreditkarten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
|
||||
DataGridViewCellStyle40.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvKreditkarten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle40
|
||||
Me.dgvKreditkarten.BackgroundColor = System.Drawing.Color.White
|
||||
DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4
|
||||
DataGridViewCellStyle41.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle41.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle41.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle41.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle41.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle41.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle41.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle41
|
||||
Me.dgvKreditkarten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle5
|
||||
DataGridViewCellStyle42.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle42.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle42.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle42.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle42.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle42.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle42.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle42
|
||||
Me.dgvKreditkarten.Location = New System.Drawing.Point(9, 20)
|
||||
Me.dgvKreditkarten.MultiSelect = False
|
||||
Me.dgvKreditkarten.Name = "dgvKreditkarten"
|
||||
DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle6
|
||||
DataGridViewCellStyle43.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle43.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle43.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle43.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle43.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle43.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle43.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle43
|
||||
Me.dgvKreditkarten.RowHeadersVisible = False
|
||||
DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle7
|
||||
DataGridViewCellStyle44.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle44
|
||||
Me.dgvKreditkarten.RowTemplate.DefaultCellStyle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.dgvKreditkarten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
|
||||
Me.dgvKreditkarten.Size = New System.Drawing.Size(642, 312)
|
||||
@@ -3608,26 +3586,26 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'
|
||||
'dgvMWST
|
||||
'
|
||||
DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvMWST.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
|
||||
DataGridViewCellStyle45.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvMWST.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle45
|
||||
Me.dgvMWST.BackgroundColor = System.Drawing.Color.White
|
||||
DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvMWST.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle9
|
||||
DataGridViewCellStyle46.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle46.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle46.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle46.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle46.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle46.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle46.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvMWST.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle46
|
||||
Me.dgvMWST.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle10.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvMWST.DefaultCellStyle = DataGridViewCellStyle10
|
||||
DataGridViewCellStyle47.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle47.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle47.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle47.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle47.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle47.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle47.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvMWST.DefaultCellStyle = DataGridViewCellStyle47
|
||||
Me.dgvMWST.Location = New System.Drawing.Point(9, 359)
|
||||
Me.dgvMWST.Name = "dgvMWST"
|
||||
Me.dgvMWST.Size = New System.Drawing.Size(171, 125)
|
||||
@@ -3712,26 +3690,26 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'
|
||||
'dgvUstv_LaenderUndSteuernummern
|
||||
'
|
||||
DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
|
||||
DataGridViewCellStyle48.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle48
|
||||
Me.dgvUstv_LaenderUndSteuernummern.BackgroundColor = System.Drawing.Color.White
|
||||
DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle12
|
||||
DataGridViewCellStyle49.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle49.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle49.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle49.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle49.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle49.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle49.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle49
|
||||
Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvUstv_LaenderUndSteuernummern.DefaultCellStyle = DataGridViewCellStyle13
|
||||
DataGridViewCellStyle50.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle50.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle50.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle50.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle50.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle50.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle50.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvUstv_LaenderUndSteuernummern.DefaultCellStyle = DataGridViewCellStyle50
|
||||
Me.dgvUstv_LaenderUndSteuernummern.Location = New System.Drawing.Point(9, 94)
|
||||
Me.dgvUstv_LaenderUndSteuernummern.Name = "dgvUstv_LaenderUndSteuernummern"
|
||||
Me.dgvUstv_LaenderUndSteuernummern.Size = New System.Drawing.Size(657, 259)
|
||||
@@ -3867,12 +3845,14 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'
|
||||
'tbSonstiges
|
||||
'
|
||||
Me.tbSonstiges.Controls.Add(Me.lblIDS_Rabatte)
|
||||
Me.tbSonstiges.Controls.Add(Me.PictureBox7)
|
||||
Me.tbSonstiges.Controls.Add(Me.cbx_IDS_inaktiveeinblenden)
|
||||
Me.tbSonstiges.Controls.Add(Me.TabControl1)
|
||||
Me.tbSonstiges.Controls.Add(Me.cbxCSInsolvent)
|
||||
Me.tbSonstiges.Controls.Add(Me.cbxCS_Added)
|
||||
Me.tbSonstiges.Controls.Add(Me.Label113)
|
||||
Me.tbSonstiges.Controls.Add(Me.Label112)
|
||||
Me.tbSonstiges.Controls.Add(Me.dgvIDS_Rabatte)
|
||||
Me.tbSonstiges.Controls.Add(Me.lblIDS_Rabatte)
|
||||
Me.tbSonstiges.Controls.Add(Me.txtSumVerag)
|
||||
Me.tbSonstiges.Controls.Add(Me.txtSonst_KdNrVerag)
|
||||
Me.tbSonstiges.Controls.Add(Me.Label110)
|
||||
@@ -3960,42 +3940,32 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.dgvIDS_Rabatte.AllowUserToAddRows = False
|
||||
Me.dgvIDS_Rabatte.AllowUserToDeleteRows = False
|
||||
Me.dgvIDS_Rabatte.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle14.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvIDS_Rabatte.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14
|
||||
DataGridViewCellStyle32.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvIDS_Rabatte.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle32
|
||||
Me.dgvIDS_Rabatte.BackgroundColor = System.Drawing.Color.White
|
||||
DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvIDS_Rabatte.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle15
|
||||
DataGridViewCellStyle33.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle33.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle33.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle33.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle33.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle33.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle33.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvIDS_Rabatte.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle33
|
||||
Me.dgvIDS_Rabatte.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvIDS_Rabatte.DefaultCellStyle = DataGridViewCellStyle16
|
||||
Me.dgvIDS_Rabatte.Location = New System.Drawing.Point(9, 317)
|
||||
Me.dgvIDS_Rabatte.MultiSelect = False
|
||||
DataGridViewCellStyle34.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle34.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle34.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle34.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle34.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle34.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle34.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvIDS_Rabatte.DefaultCellStyle = DataGridViewCellStyle34
|
||||
Me.dgvIDS_Rabatte.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.dgvIDS_Rabatte.Location = New System.Drawing.Point(3, 3)
|
||||
Me.dgvIDS_Rabatte.Name = "dgvIDS_Rabatte"
|
||||
Me.dgvIDS_Rabatte.Size = New System.Drawing.Size(657, 172)
|
||||
Me.dgvIDS_Rabatte.Size = New System.Drawing.Size(645, 169)
|
||||
Me.dgvIDS_Rabatte.TabIndex = 34
|
||||
'
|
||||
'lblIDS_Rabatte
|
||||
'
|
||||
Me.lblIDS_Rabatte.AutoSize = True
|
||||
Me.lblIDS_Rabatte.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblIDS_Rabatte.Location = New System.Drawing.Point(7, 301)
|
||||
Me.lblIDS_Rabatte.Name = "lblIDS_Rabatte"
|
||||
Me.lblIDS_Rabatte.Size = New System.Drawing.Size(100, 13)
|
||||
Me.lblIDS_Rabatte.TabIndex = 33
|
||||
Me.lblIDS_Rabatte.Text = "IDS-Rabatte/Preise"
|
||||
'
|
||||
'txtSumVerag
|
||||
'
|
||||
Me.txtSumVerag._DateTimeOnly = False
|
||||
@@ -4109,7 +4079,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'
|
||||
Me.Label76.AutoSize = True
|
||||
Me.Label76.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label76.Location = New System.Drawing.Point(7, 192)
|
||||
Me.Label76.Location = New System.Drawing.Point(24, 194)
|
||||
Me.Label76.Name = "Label76"
|
||||
Me.Label76.Size = New System.Drawing.Size(65, 13)
|
||||
Me.Label76.TabIndex = 17
|
||||
@@ -4120,30 +4090,30 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.dgvSonst_IDSKunden.AllowUserToAddRows = False
|
||||
Me.dgvSonst_IDSKunden.AllowUserToDeleteRows = False
|
||||
Me.dgvSonst_IDSKunden.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle17.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17
|
||||
DataGridViewCellStyle35.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle35
|
||||
Me.dgvSonst_IDSKunden.BackgroundColor = System.Drawing.Color.White
|
||||
DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle18.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvSonst_IDSKunden.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle18
|
||||
DataGridViewCellStyle36.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle36.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle36.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle36.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle36.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle36.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle36.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvSonst_IDSKunden.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle36
|
||||
Me.dgvSonst_IDSKunden.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle19.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvSonst_IDSKunden.DefaultCellStyle = DataGridViewCellStyle19
|
||||
DataGridViewCellStyle37.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle37.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle37.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle37.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle37.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle37.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle37.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvSonst_IDSKunden.DefaultCellStyle = DataGridViewCellStyle37
|
||||
Me.dgvSonst_IDSKunden.Location = New System.Drawing.Point(9, 214)
|
||||
Me.dgvSonst_IDSKunden.MultiSelect = False
|
||||
Me.dgvSonst_IDSKunden.Name = "dgvSonst_IDSKunden"
|
||||
Me.dgvSonst_IDSKunden.Size = New System.Drawing.Size(657, 84)
|
||||
Me.dgvSonst_IDSKunden.Size = New System.Drawing.Size(657, 53)
|
||||
Me.dgvSonst_IDSKunden.TabIndex = 18
|
||||
'
|
||||
'cbxSonst_CsvAsfinag
|
||||
@@ -4450,26 +4420,26 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'DataGridView1
|
||||
'
|
||||
Me.DataGridView1.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle20.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle20
|
||||
DataGridViewCellStyle51.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle51
|
||||
Me.DataGridView1.BackgroundColor = System.Drawing.Color.White
|
||||
DataGridViewCellStyle21.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle21.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle21.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle21.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle21.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle21.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.DataGridView1.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle21
|
||||
DataGridViewCellStyle52.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle52.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle52.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle52.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle52.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle52.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle52.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.DataGridView1.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle52
|
||||
Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
DataGridViewCellStyle22.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle22.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle22.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle22.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle22.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle22.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.DataGridView1.DefaultCellStyle = DataGridViewCellStyle22
|
||||
DataGridViewCellStyle53.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle53.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle53.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle53.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle53.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle53.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle53.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.DataGridView1.DefaultCellStyle = DataGridViewCellStyle53
|
||||
Me.DataGridView1.Enabled = False
|
||||
Me.DataGridView1.Location = New System.Drawing.Point(6, 111)
|
||||
Me.DataGridView1.MultiSelect = False
|
||||
@@ -4536,26 +4506,26 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'
|
||||
Me.dgvBankverbindungen.AllowUserToDeleteRows = False
|
||||
Me.dgvBankverbindungen.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle23.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvBankverbindungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle23
|
||||
DataGridViewCellStyle54.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvBankverbindungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle54
|
||||
Me.dgvBankverbindungen.BackgroundColor = System.Drawing.Color.White
|
||||
DataGridViewCellStyle24.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle24.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle24.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle24.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle24.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle24.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvBankverbindungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle24
|
||||
DataGridViewCellStyle55.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle55.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle55.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle55.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle55.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle55.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle55.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvBankverbindungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle55
|
||||
Me.dgvBankverbindungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
DataGridViewCellStyle25.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle25.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle25.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle25.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle25.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle25.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle25.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvBankverbindungen.DefaultCellStyle = DataGridViewCellStyle25
|
||||
DataGridViewCellStyle56.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle56.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle56.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle56.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle56.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle56.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle56.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvBankverbindungen.DefaultCellStyle = DataGridViewCellStyle56
|
||||
Me.dgvBankverbindungen.Location = New System.Drawing.Point(3, 40)
|
||||
Me.dgvBankverbindungen.MultiSelect = False
|
||||
Me.dgvBankverbindungen.Name = "dgvBankverbindungen"
|
||||
@@ -5396,14 +5366,6 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.TabPage11.Text = "Spezifisch"
|
||||
Me.TabPage11.UseVisualStyleBackColor = True
|
||||
'
|
||||
'ucKundenKontakte
|
||||
'
|
||||
Me.ucKundenKontakte.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.ucKundenKontakte.Location = New System.Drawing.Point(3, 3)
|
||||
Me.ucKundenKontakte.Name = "ucKundenKontakte"
|
||||
Me.ucKundenKontakte.Size = New System.Drawing.Size(439, 169)
|
||||
Me.ucKundenKontakte.TabIndex = 0
|
||||
'
|
||||
'Label50
|
||||
'
|
||||
Me.Label50.AutoSize = True
|
||||
@@ -5684,6 +5646,145 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.DataGridViewTextBoxColumn2.HeaderText = "E-Mail"
|
||||
Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
|
||||
'
|
||||
'TabControl1
|
||||
'
|
||||
Me.TabControl1.Controls.Add(Me.Standard)
|
||||
Me.TabControl1.Controls.Add(Me.Kunden)
|
||||
Me.TabControl1.Location = New System.Drawing.Point(6, 288)
|
||||
Me.TabControl1.Name = "TabControl1"
|
||||
Me.TabControl1.SelectedIndex = 0
|
||||
Me.TabControl1.Size = New System.Drawing.Size(659, 201)
|
||||
Me.TabControl1.TabIndex = 40
|
||||
'
|
||||
'Standard
|
||||
'
|
||||
Me.Standard.Controls.Add(Me.dgvIDS_Standard)
|
||||
Me.Standard.Location = New System.Drawing.Point(4, 22)
|
||||
Me.Standard.Name = "Standard"
|
||||
Me.Standard.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.Standard.Size = New System.Drawing.Size(651, 175)
|
||||
Me.Standard.TabIndex = 0
|
||||
Me.Standard.Text = "Standardpreise"
|
||||
Me.Standard.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Kunden
|
||||
'
|
||||
Me.Kunden.Controls.Add(Me.dgvIDS_Rabatte)
|
||||
Me.Kunden.Location = New System.Drawing.Point(4, 22)
|
||||
Me.Kunden.Name = "Kunden"
|
||||
Me.Kunden.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.Kunden.Size = New System.Drawing.Size(651, 175)
|
||||
Me.Kunden.TabIndex = 1
|
||||
Me.Kunden.Text = "Kundenpreise"
|
||||
Me.Kunden.UseVisualStyleBackColor = True
|
||||
'
|
||||
'dgvIDS_Standard
|
||||
'
|
||||
Me.dgvIDS_Standard.AllowUserToAddRows = False
|
||||
Me.dgvIDS_Standard.AllowUserToDeleteRows = False
|
||||
Me.dgvIDS_Standard.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle29.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvIDS_Standard.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle29
|
||||
Me.dgvIDS_Standard.BackgroundColor = System.Drawing.Color.White
|
||||
DataGridViewCellStyle30.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle30.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle30.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle30.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle30.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle30.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle30.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvIDS_Standard.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle30
|
||||
Me.dgvIDS_Standard.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
DataGridViewCellStyle31.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle31.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle31.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle31.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle31.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle31.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle31.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvIDS_Standard.DefaultCellStyle = DataGridViewCellStyle31
|
||||
Me.dgvIDS_Standard.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.dgvIDS_Standard.Location = New System.Drawing.Point(3, 3)
|
||||
Me.dgvIDS_Standard.Name = "dgvIDS_Standard"
|
||||
Me.dgvIDS_Standard.Size = New System.Drawing.Size(645, 169)
|
||||
Me.dgvIDS_Standard.TabIndex = 35
|
||||
'
|
||||
'cbx_IDS_inaktiveeinblenden
|
||||
'
|
||||
Me.cbx_IDS_inaktiveeinblenden.AutoSize = True
|
||||
Me.cbx_IDS_inaktiveeinblenden.Location = New System.Drawing.Point(9, 194)
|
||||
Me.cbx_IDS_inaktiveeinblenden.Name = "cbx_IDS_inaktiveeinblenden"
|
||||
Me.cbx_IDS_inaktiveeinblenden.Size = New System.Drawing.Size(15, 14)
|
||||
Me.cbx_IDS_inaktiveeinblenden.TabIndex = 41
|
||||
Me.cbx_IDS_inaktiveeinblenden.UseVisualStyleBackColor = True
|
||||
'
|
||||
'PictureBox7
|
||||
'
|
||||
Me.PictureBox7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
|
||||
Me.PictureBox7.Image = Global.SDL.My.Resources.Resources.Excel_logo
|
||||
Me.PictureBox7.Location = New System.Drawing.Point(645, 273)
|
||||
Me.PictureBox7.Name = "PictureBox7"
|
||||
Me.PictureBox7.Size = New System.Drawing.Size(20, 20)
|
||||
Me.PictureBox7.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
|
||||
Me.PictureBox7.TabIndex = 146
|
||||
Me.PictureBox7.TabStop = False
|
||||
'
|
||||
'ucKundenKontakte
|
||||
'
|
||||
Me.ucKundenKontakte.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.ucKundenKontakte.Location = New System.Drawing.Point(3, 3)
|
||||
Me.ucKundenKontakte.Name = "ucKundenKontakte"
|
||||
Me.ucKundenKontakte.Size = New System.Drawing.Size(439, 169)
|
||||
Me.ucKundenKontakte.TabIndex = 0
|
||||
'
|
||||
'UsrCntlKundenBesonderheiten1
|
||||
'
|
||||
Me.UsrCntlKundenBesonderheiten1.BackColor = System.Drawing.Color.White
|
||||
Me.UsrCntlKundenBesonderheiten1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.UsrCntlKundenBesonderheiten1.Location = New System.Drawing.Point(6, 25)
|
||||
Me.UsrCntlKundenBesonderheiten1.Name = "UsrCntlKundenBesonderheiten1"
|
||||
Me.UsrCntlKundenBesonderheiten1.Size = New System.Drawing.Size(107, 52)
|
||||
Me.UsrCntlKundenBesonderheiten1.TabIndex = 235
|
||||
Me.UsrCntlKundenBesonderheiten1.Visible = False
|
||||
'
|
||||
'UsrCntlKundenAvisoMailBenachrichtigung1
|
||||
'
|
||||
Me.UsrCntlKundenAvisoMailBenachrichtigung1.AutoScroll = True
|
||||
Me.UsrCntlKundenAvisoMailBenachrichtigung1.BackColor = System.Drawing.Color.White
|
||||
Me.UsrCntlKundenAvisoMailBenachrichtigung1.Location = New System.Drawing.Point(0, 6)
|
||||
Me.UsrCntlKundenAvisoMailBenachrichtigung1.Name = "UsrCntlKundenAvisoMailBenachrichtigung1"
|
||||
Me.UsrCntlKundenAvisoMailBenachrichtigung1.Size = New System.Drawing.Size(479, 172)
|
||||
Me.UsrCntlKundenAvisoMailBenachrichtigung1.TabIndex = 6
|
||||
'
|
||||
'usrCntlAufschubkonten
|
||||
'
|
||||
Me.usrCntlAufschubkonten.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.usrCntlAufschubkonten.Location = New System.Drawing.Point(3, 3)
|
||||
Me.usrCntlAufschubkonten.Name = "usrCntlAufschubkonten"
|
||||
Me.usrCntlAufschubkonten.Size = New System.Drawing.Size(652, 172)
|
||||
Me.usrCntlAufschubkonten.TabIndex = 0
|
||||
'
|
||||
'UsrCntlKundeFiskaldaten1
|
||||
'
|
||||
Me.UsrCntlKundeFiskaldaten1.BackColor = System.Drawing.Color.White
|
||||
Me.UsrCntlKundeFiskaldaten1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.UsrCntlKundeFiskaldaten1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.UsrCntlKundeFiskaldaten1.Name = "UsrCntlKundeFiskaldaten1"
|
||||
Me.UsrCntlKundeFiskaldaten1.Size = New System.Drawing.Size(672, 495)
|
||||
Me.UsrCntlKundeFiskaldaten1.TabIndex = 0
|
||||
'
|
||||
'lblIDS_Rabatte
|
||||
'
|
||||
Me.lblIDS_Rabatte.AutoSize = True
|
||||
Me.lblIDS_Rabatte.Enabled = False
|
||||
Me.lblIDS_Rabatte.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblIDS_Rabatte.Location = New System.Drawing.Point(10, 273)
|
||||
Me.lblIDS_Rabatte.Name = "lblIDS_Rabatte"
|
||||
Me.lblIDS_Rabatte.Size = New System.Drawing.Size(100, 13)
|
||||
Me.lblIDS_Rabatte.TabIndex = 147
|
||||
Me.lblIDS_Rabatte.Text = "IDS-Rabatte/Preise"
|
||||
Me.lblIDS_Rabatte.Visible = False
|
||||
'
|
||||
'usrcntlKundeBearbeitenFull
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
@@ -5783,6 +5884,11 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.pnlNeukunde.ResumeLayout(False)
|
||||
Me.pnlNeukunde.PerformLayout()
|
||||
Me.cnsBankverbindungen.ResumeLayout(False)
|
||||
Me.TabControl1.ResumeLayout(False)
|
||||
Me.Standard.ResumeLayout(False)
|
||||
Me.Kunden.ResumeLayout(False)
|
||||
CType(Me.dgvIDS_Standard, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
@@ -6138,7 +6244,6 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Friend WithEvents txtFR As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents cbxFR As CheckBox
|
||||
Friend WithEvents dgvIDS_Rabatte As DataGridView
|
||||
Friend WithEvents lblIDS_Rabatte As Label
|
||||
Friend WithEvents Label113 As Label
|
||||
Friend WithEvents Label112 As Label
|
||||
Friend WithEvents Label111 As Label
|
||||
@@ -6154,4 +6259,11 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Friend WithEvents cbxProvDL As CheckBox
|
||||
Friend WithEvents Label115 As Label
|
||||
Friend WithEvents btnKKSave As Button
|
||||
Friend WithEvents TabControl1 As TabControl
|
||||
Friend WithEvents Standard As TabPage
|
||||
Friend WithEvents Kunden As TabPage
|
||||
Friend WithEvents dgvIDS_Standard As DataGridView
|
||||
Friend WithEvents cbx_IDS_inaktiveeinblenden As CheckBox
|
||||
Friend WithEvents PictureBox7 As PictureBox
|
||||
Friend WithEvents lblIDS_Rabatte As Label
|
||||
End Class
|
||||
|
||||
@@ -2180,13 +2180,13 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
|
||||
|
||||
|
||||
Private Sub initdgvIDSKunden()
|
||||
Private Sub initdgvIDSKunden(inaktive_einblenden As Boolean)
|
||||
|
||||
With dgvSonst_IDSKunden
|
||||
|
||||
cBinding_dgvSonst_IDSKunden.initBinding(" SELECT [KdNrVERAG],[CustomerCode],[KdNrAlt],[Zeitstempel],[Sachbearbeiter] " &
|
||||
" FROM [tbl_IDS_Kunden] " &
|
||||
" WHERE KdNrVERAG = '" & KUNDE.KundenNr & "' ", "tbl_IDS_Kunden")
|
||||
" WHERE KdNrVERAG = '" & KUNDE.KundenNr & "'" & IIf(Not inaktive_einblenden, " AND isnull(KdNrAlt,0) <> 1 ", ""), "tbl_IDS_Kunden")
|
||||
|
||||
AddHandler btnSonstAendSpeichern.Click,
|
||||
Sub(send As Object, evnt As EventArgs)
|
||||
@@ -2228,19 +2228,18 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub initdgvIDSRabatte()
|
||||
Private Function initdgvIDSRabatte() As DataTable
|
||||
|
||||
|
||||
Dim KundeOhneRabatt As Integer = CInt(sql.getValueTxtBySql("select count(*) from tbl_IDS_Kunden_ohne_Rabatt where CustomerCode = " & KUNDE.KundenNr, "FMZOLL"))
|
||||
lblIDS_Rabatte.Text = "IDS-Rabatte/Preise" & IIf(KundeOhneRabatt > 0, " - KUNDE OHNE RABATT", "")
|
||||
Dim dt_IDS_Rabatte As DataTable = sql.loadDgvBySql("SELECT P.ProductDescription, C.OutletCountry, S.OutletName, RW.Rechenwert, Kz, RW.KategorieNr as KatNr FROM [VERAG].[dbo].[tbl_IDS_Rechenwerte] as RW
|
||||
left join [VERAG].[dbo].[tbl_IDS_Produkte] as P on P.ProductTypeCode = RW.ProductTypeCode
|
||||
left join [VERAG].[dbo].[tbl_IDS_Länder] as C on C.OutletCountryCode = RW.OutletCountryCode
|
||||
left join [VERAG].[dbo].[tbl_IDS_Stationen] as S on S.[OutletCode] = RW.OutletCode where CustomerCode =" & KUNDE.KundenNr & " order by Kz", "FMZOLL")
|
||||
|
||||
With dgvIDS_Rabatte
|
||||
|
||||
|
||||
.DataSource = sql.loadDgvBySql("SELECT P.ProductDescription, C.OutletCountry, S.OutletName, RW.Rechenwert, Kz, RW.KategorieNr as KatNr FROM [VERAG].[dbo].[tbl_IDS_Rechenwerte] as RW
|
||||
left join [VERAG].[dbo].[tbl_IDS_Produkte] as P on P.ProductTypeCode = RW.ProductTypeCode
|
||||
left join [VERAG].[dbo].[tbl_IDS_Länder] as C on C.OutletCountryCode = RW.OutletCountryCode
|
||||
left join [VERAG].[dbo].[tbl_IDS_Stationen] as S on S.[OutletCode] = RW.OutletCode where CustomerCode =" & KUNDE.KundenNr, "FMZOLL")
|
||||
.DataSource = dt_IDS_Rabatte
|
||||
|
||||
.ReadOnly = True
|
||||
|
||||
@@ -2253,7 +2252,38 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
|
||||
End With
|
||||
|
||||
End Sub
|
||||
Return dt_IDS_Rabatte
|
||||
|
||||
End Function
|
||||
|
||||
Private Function initdgvIDSPreise() As DataTable
|
||||
|
||||
Dim KundeOhneRabatt As Integer = CInt(sql.getValueTxtBySql("select count(*) from tbl_IDS_Kunden_ohne_Rabatt where CustomerCode = " & KUNDE.KundenNr, "FMZOLL"))
|
||||
lblIDS_Rabatte.Text = "IDS-Rabatte/Preise" & IIf(KundeOhneRabatt > 0, " - KUNDE OHNE RABATT", "")
|
||||
|
||||
|
||||
Dim dt_IDS As DataTable = sql.loadDgvBySql("SELECT P.ProductDescription, C.OutletCountry, S.OutletName, RW.Rechenwert, Kz, RW.KategorieNr as KatNr FROM [VERAG].[dbo].[tbl_IDS_Rechenwerte] as RW
|
||||
left join [VERAG].[dbo].[tbl_IDS_Produkte] as P on P.ProductTypeCode = RW.ProductTypeCode
|
||||
left join [VERAG].[dbo].[tbl_IDS_Länder] as C on C.OutletCountryCode = RW.OutletCountryCode
|
||||
left join [VERAG].[dbo].[tbl_IDS_Stationen] as S on S.[OutletCode] = RW.OutletCode where CustomerCode is null order by KZ", "FMZOLL")
|
||||
|
||||
With dgvIDS_Standard
|
||||
.DataSource = dt_IDS
|
||||
|
||||
.ReadOnly = True
|
||||
|
||||
|
||||
.Columns(0).HeaderText = "Produkt"
|
||||
.Columns(1).HeaderText = "Land"
|
||||
.Columns(2).HeaderText = "Station"
|
||||
.Columns(4).HeaderText = "Rabatt/Preis"
|
||||
.Columns(2).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
|
||||
End With
|
||||
|
||||
Return dt_IDS
|
||||
|
||||
End Function
|
||||
|
||||
Private Sub initdgvOP()
|
||||
|
||||
@@ -2362,8 +2392,8 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
End If
|
||||
|
||||
If tbcntrDetails.SelectedTab Is tbSonstiges Then
|
||||
initdgvIDSKunden()
|
||||
initdgvIDSRabatte()
|
||||
initdgvIDSKunden(False)
|
||||
initdgvIDSPreise()
|
||||
End If
|
||||
|
||||
If tbcntrDetails.SelectedTab Is tbBankverbindungen Then
|
||||
@@ -2380,7 +2410,7 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
Dim aktiveSteuerNr As Integer = CInt((New SQL).getValueTxtBySql(sqlStringSteuerNr, "FMZOLL"))
|
||||
|
||||
If aktiveSteuerNr > 0 Then
|
||||
If vbYes = MsgBox("Der Kunde hat aktuell " & aktiveSteuerNr & " aktive Steuer-Nummern!" & vbNewLine & "Trotzdem setzen? ", vbYesNoCancel) Then
|
||||
If vbYes = MsgBox("Der Kunde hat aktuell " & aktiveSteuerNr & " aktive Steuernummern!" & vbNewLine & "Trotzdem setzen? ", vbYesNoCancel) Then
|
||||
cbxkeineMWSt.Checked = True
|
||||
Else
|
||||
cbxkeineMWSt.Checked = False
|
||||
@@ -2425,4 +2455,35 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged
|
||||
|
||||
Select Case TabControl1.SelectedIndex
|
||||
Case 0
|
||||
initdgvIDSPreise()
|
||||
Case Else
|
||||
initdgvIDSRabatte()
|
||||
End Select
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub cbx_IDS_inaktiveeinblenden_CheckedChanged(sender As Object, e As EventArgs) Handles cbx_IDS_inaktiveeinblenden.CheckedChanged
|
||||
initdgvIDSKunden(cbx_IDS_inaktiveeinblenden.Checked)
|
||||
End Sub
|
||||
|
||||
Private Sub PictureBox7_Click(sender As Object, e As EventArgs) Handles PictureBox7.Click
|
||||
|
||||
Dim dt As New DataTable
|
||||
Select Case TabControl1.SelectedIndex
|
||||
Case 0
|
||||
dt = initdgvIDSPreise()
|
||||
Case Else
|
||||
dt = initdgvIDSRabatte()
|
||||
End Select
|
||||
|
||||
If dt.Rows.Count > 0 Then
|
||||
VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt, {"D1:D" & (dt.Rows.Count + 1)}, False,,,,,, True)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
@@ -450,15 +450,23 @@ Public Class usrcntlFremdrechnungen
|
||||
|
||||
End Function
|
||||
|
||||
Private Function setSQLDetailWhere(aktLieferant As String, land As String, Optional alle As Boolean = False) As String
|
||||
Private Function setSQLDetailWhere(aktLieferant As String, land As String, Optional alle As Boolean = False, Optional KundenNr_Input As Integer = -1, Optional dtKundeMWSTTemp As DataTable = Nothing) As String
|
||||
|
||||
|
||||
'das hier ist nur PRO KUNDE möglich!!!
|
||||
|
||||
Dim SQLWhere = ""
|
||||
|
||||
If cbx.Checked AndAlso KUNDE IsNot Nothing Then
|
||||
Dim erw As New cKundenErweitert(KUNDE.KundenNr)
|
||||
If (cbx.Checked AndAlso KUNDE IsNot Nothing AndAlso KUNDE.KundenNr > 0 OrElse cbx.Checked AndAlso KundenNr_Input > 0) Then
|
||||
Dim checkKundenNR As Integer = -1
|
||||
If KUNDE.KundenNr > 0 Then
|
||||
checkKundenNR = KUNDE.KundenNr
|
||||
ElseIf KundenNr_Input > 0 Then
|
||||
checkKundenNR = KundenNr_Input
|
||||
KUNDE = kundenSQL.getKundeByKdNr(KundenNr_Input)
|
||||
End If
|
||||
|
||||
Dim erw As New cKundenErweitert(checkKundenNR)
|
||||
If erw.kde_keineMWSt Then Return SQLWhere
|
||||
SQLWhere &= "AND ("
|
||||
'ORIGINAL-RECHNUNG senden wenn:
|
||||
@@ -499,8 +507,32 @@ Public Class usrcntlFremdrechnungen
|
||||
End If
|
||||
|
||||
|
||||
|
||||
'4. Rechnungen der Länder, in denen der Kunde selber MWST beantragt
|
||||
|
||||
If dtKundeMWST Is Nothing Then
|
||||
|
||||
If dtKundeMWSTTemp IsNot Nothing Then
|
||||
|
||||
If land <> "" AndAlso dtKundeMWSTTemp.Rows.Count > 0 Then
|
||||
Dim counter = 0
|
||||
Dim landBez As String = ""
|
||||
For Each row As DataRow In dtKundeMWSTTemp.Rows
|
||||
landBez &= "'" & row.Item("LandKz") & "'"
|
||||
counter = counter + 1
|
||||
If (dtKundeMWSTTemp.Rows.Count <> 0 And counter <> dtKundeMWSTTemp.Rows.Count) Then landBez &= ","
|
||||
Next
|
||||
SQLWhere &= " OR " & land & " in (" & landBez & ")"
|
||||
End If
|
||||
SQLWhere &= ")"
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
Else
|
||||
|
||||
|
||||
If land <> "" AndAlso dtKundeMWST.Rows.Count > 0 Then
|
||||
Dim counter = 0
|
||||
Dim landBez As String = ""
|
||||
@@ -513,7 +545,7 @@ Public Class usrcntlFremdrechnungen
|
||||
End If
|
||||
SQLWhere &= ")"
|
||||
End If
|
||||
|
||||
End If
|
||||
Return SQLWhere
|
||||
|
||||
End Function
|
||||
@@ -800,8 +832,14 @@ Public Class usrcntlFremdrechnungen
|
||||
|
||||
Dim pdflist = createEMailTable(TextHTMLtable, kvp, cbx.Checked)
|
||||
|
||||
If Not cbxMailoeffnen.Checked And Not pdflist.Any() Then
|
||||
|
||||
Else
|
||||
createEmail(kvp.Key, TextHTMLtable, pdflist)
|
||||
|
||||
End If
|
||||
|
||||
|
||||
Next
|
||||
|
||||
|
||||
@@ -839,11 +877,8 @@ Public Class usrcntlFremdrechnungen
|
||||
Dim dtKundeMWSTTemp As DataTable = (New SQL).loadDgvBySql("select LandKz from tblKundenMWST where KdNr = " & KUNDE_TEMP.KundenNr, "FMZOLL")
|
||||
|
||||
|
||||
|
||||
'2. wenn die Rechnung die Summe NULL aufweist
|
||||
|
||||
'3. Rechnungen der Länder in denen der Kunde keine MWST erstattet bekommt (auch nicht auf Diesel -> IDS)
|
||||
|
||||
'4. Rechnungen der Länder, in denen der Kunde selber MWST beantragt
|
||||
|
||||
|
||||
@@ -935,10 +970,14 @@ Public Class usrcntlFremdrechnungen
|
||||
Lieferant = aktLieferant
|
||||
End If
|
||||
|
||||
If onlyRelevantInvioces AndAlso Lieferant <> "IDS" AndAlso erw.kde_keineMWSt Then Continue For 'abbruchbedingung -> nächste Zeile
|
||||
|
||||
|
||||
Dim sendÍnvoice As Boolean = IIf(onlyRelevantInvioces AndAlso KUNDE.KundenNr = 0, False, True)
|
||||
|
||||
If onlyRelevantInvioces AndAlso erw.kde_keineMWSt AndAlso Lieferant <> "IDS" Then 'weil ISD wieder sonderlogik -> siehe weiter unten!
|
||||
sendÍnvoice = True 'dann immer mitschicken!
|
||||
End If
|
||||
|
||||
'ORIGINAL-RECHNUNG senden wenn:
|
||||
If onlyRelevantInvioces Then
|
||||
|
||||
@@ -984,8 +1023,10 @@ Public Class usrcntlFremdrechnungen
|
||||
|
||||
If Lieferant = "IDS" Then
|
||||
|
||||
'IDS hat wieder sonderlogik
|
||||
|
||||
Dim dt As New DataTable
|
||||
dt = initDGVRechnungsdetails(row.Cells("invoice_id").Value, True)
|
||||
dt = initDGVRechnungsdetails(row.Cells("invoice_id").Value, True, kvp.Key, dtKundeMWSTTemp)
|
||||
|
||||
For Each r As DataRow In dt.Rows
|
||||
|
||||
@@ -994,10 +1035,6 @@ Public Class usrcntlFremdrechnungen
|
||||
TextHTMLtable &= "<td><b>" & r.Item("Land") & "</b></td>"
|
||||
TextHTMLtable &= "<td><b>" & r.Item("Rechnungsdatum") & "</b></td>"
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Dim daId As Integer = IIf(IsDBNull(r.Item("daId")), -1, r.Item("daId"))
|
||||
If daId > 0 Then
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId)
|
||||
@@ -1012,8 +1049,6 @@ Public Class usrcntlFremdrechnungen
|
||||
|
||||
Next
|
||||
|
||||
|
||||
|
||||
Else
|
||||
If sendÍnvoice Then
|
||||
TextHTMLtable &= "<tr>"
|
||||
@@ -1127,6 +1162,22 @@ Public Class usrcntlFremdrechnungen
|
||||
|
||||
If cbxMailoeffnen.Checked Then
|
||||
Try
|
||||
|
||||
Dim oAccount As Outlook.Account
|
||||
Dim accountToSent = "mmdabrechnung@verag.ag"
|
||||
|
||||
If outl.Session.Accounts.Count > 0 Then
|
||||
For Each oAccount In outl.Session.Accounts
|
||||
|
||||
If oAccount.SmtpAddress = accountToSent Then
|
||||
Mail.SendUsingAccount = oAccount
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Mail.Display()
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
@@ -1416,11 +1467,11 @@ Public Class usrcntlFremdrechnungen
|
||||
End Sub
|
||||
|
||||
|
||||
Private Function initDGVRechnungsdetails(rechnugnsID As Integer, Optional setDatatable As Boolean = False) As DataTable
|
||||
Private Function initDGVRechnungsdetails(rechnugnsID As Integer, Optional setDatatable As Boolean = False, Optional KundenNr_Input As Integer = -1, Optional dtKundeMWSTTemp As DataTable = Nothing) As DataTable
|
||||
|
||||
Dim sql = " select [YearMonthDay] as Rechnungsdatum,[Invoicenumber] as Rechnungsnummer, CustomerCode as Kundennummer,[daId],[TransactionVolume] as Transaktionsmenge,[AmminclVAT] as Bruttobetrag,[TotalNetAmount] as Nettobetrag,[VATAmount] as MWSt,
|
||||
cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden,[Country] as Land
|
||||
FROM [VERAG].[dbo].[tblIDSInvoicesNewSplittedByCountry] WHERE [TotalInvoiceId] = " & rechnugnsID & setSQLDetailWhere(aktLieferant, "Country")
|
||||
FROM [VERAG].[dbo].[tblIDSInvoicesNewSplittedByCountry] WHERE [TotalInvoiceId] = " & rechnugnsID & setSQLDetailWhere(aktLieferant, "Country", , KundenNr_Input, dtKundeMWSTTemp)
|
||||
|
||||
If setDatatable Then
|
||||
|
||||
|
||||
@@ -377,6 +377,8 @@ Public Class usrcntlPDFScanList
|
||||
Try
|
||||
Dim added = False
|
||||
|
||||
If DS IsNot Nothing Then
|
||||
|
||||
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
|
||||
Dim files() As String = e.Data.GetData(DataFormats.FileDrop)
|
||||
|
||||
@@ -406,6 +408,9 @@ Public Class usrcntlPDFScanList
|
||||
|
||||
initPdf()
|
||||
|
||||
End If
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
|
||||
@@ -824,6 +824,7 @@ Public Class SQL
|
||||
Case "VERAG" : conn = GetNewOpenConnectionFMZOLL()
|
||||
Case "WEB" : conn = GetNewOpenConnectionWEB()
|
||||
Case "PARKZEIT" : conn = GetNewOpenConnectionPARKZEIT()
|
||||
Case "FIBU" : conn = GetNewOpenConnectionSYSKA()
|
||||
End Select
|
||||
|
||||
Using cmd As New SqlCommand(sql, conn)
|
||||
|
||||
@@ -10,6 +10,7 @@ Public Class cKundenVollmachten
|
||||
Property kdvm_erhalten_Datum As Object = Nothing
|
||||
Property kdvm_Info As String
|
||||
Property kdvm_datenarchivId As Object = Nothing
|
||||
Property kdvm_datenarchivId_2 As Object = Nothing
|
||||
Property kdvm_archiviert As Boolean = False
|
||||
Property kdvm_gueltig_bis As Object = Nothing
|
||||
Property kdvm_gueltig_ab As Object = Nothing
|
||||
@@ -43,6 +44,7 @@ Public Class cKundenVollmachten
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdvm_erhalten_Datum", kdvm_erhalten_Datum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdvm_Info", kdvm_Info))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdvm_datenarchivId", kdvm_datenarchivId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdvm_datenarchivId_2", kdvm_datenarchivId_2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdvm_archiviert", kdvm_archiviert))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdvm_gueltig_bis", kdvm_gueltig_bis))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdvm_gueltig_ab", kdvm_gueltig_ab))
|
||||
|
||||
@@ -20,6 +20,8 @@ Public Class cMDMZinsberechnung
|
||||
Property zahlungsperiode_start As Object = Nothing
|
||||
Property zahlungsperiode_ende As Object = Nothing
|
||||
|
||||
Property faelligkeitsDatum As Object = Nothing
|
||||
|
||||
Public hasEntry = False
|
||||
|
||||
Dim SQL As New SQL
|
||||
@@ -53,6 +55,7 @@ Public Class cMDMZinsberechnung
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zahlungsBetrag", zahlungsBetrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zahlungsperiode_start", zahlungsperiode_start))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zahlungsperiode_ende", zahlungsperiode_ende))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("faelligkeitsDatum", faelligkeitsDatum))
|
||||
|
||||
|
||||
Return list
|
||||
|
||||
@@ -28,6 +28,7 @@ Public Class cTranslate_LIST
|
||||
T.trs_text = dr("trs_text")
|
||||
T.trs_FirmaID = dr("trs_FirmaID")
|
||||
T.trs_Option = dr("trs_Option")
|
||||
T.trs_textDE = dr("trs_textDE")
|
||||
list.Add(T)
|
||||
End While
|
||||
dr.Close()
|
||||
@@ -49,6 +50,7 @@ Public Class cTranslate
|
||||
Property trs_subControl As Object = Nothing
|
||||
Property trs_sprache As String
|
||||
Property trs_text As String
|
||||
Property trs_textDE As String
|
||||
Property trs_Option As Object = Nothing
|
||||
Property trs_FirmaID As Object = Nothing
|
||||
|
||||
|
||||
@@ -498,8 +498,9 @@ Class TrdInvoice_FUNCTIONS
|
||||
|
||||
Dim Buchungstext As String = ROW("RK_Buchungstext")
|
||||
|
||||
If Buchungstext <> "" AndAlso Buchungstext.Contains("Abrechnungsperiode von") Then
|
||||
Buchungstext = Buchungstext.Replace("Abrechnungsperiode von", "Zinsen")
|
||||
If Buchungstext <> "" AndAlso Buchungstext.Contains("Zahlungen vom") Then
|
||||
Buchungstext = Buchungstext.Replace("Zahlungen vom", "Zinsen")
|
||||
Buchungstext &= " / nicht verzinsen"
|
||||
End If
|
||||
|
||||
If TRD_INVOICE.SAVE Then
|
||||
|
||||
@@ -33,6 +33,8 @@ Public Class cUIDPruefung
|
||||
Property uid_adr5 As Object = Nothing
|
||||
Property uid_adr6 As Object = Nothing
|
||||
|
||||
Property uid_pruefungstool As Object = Nothing
|
||||
|
||||
|
||||
Shared SQL As New SQL
|
||||
|
||||
@@ -68,6 +70,8 @@ Public Class cUIDPruefung
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_adr4", uid_adr4))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_adr5", uid_adr5))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_adr6", uid_adr6))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_pruefungstool", uid_pruefungstool))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
@@ -150,25 +154,27 @@ Public Class cUIDPruefung
|
||||
|
||||
Public Shared Function doUIDPruefungALL(Optional datum As Object = Nothing, Optional SaveErgInAdressen As Boolean = True, Optional Sciherheitsabfrage As Boolean = True, Optional MaxEintraege As Integer = -1, Optional showErr As Boolean = True, Optional finanzOnline As Boolean = True, Optional veroegerungMs As Integer = 1500) As DataTable
|
||||
Dim dt As DataTable = Nothing
|
||||
If datum = Nothing Then datum = CDate("15." & Now.ToString("MM.yyyy")).AddMonths(-1)
|
||||
'If datum = Nothing Then datum = CDate("15." & Now.ToString("MM.yyyy")).AddMonths(-1)
|
||||
|
||||
Dim where = ""
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Case "AMBAR" : where = " And Filialen.FilialenNr IN (5701)"
|
||||
Case "IMEX" : where = " And Filialen.FilialenNr IN (5501)"
|
||||
Case "ATILLA" : where = " And Filialen.FilialenNr IN (4801)"
|
||||
Case "UNISPED" : where = " AND Filialen.firma='UNISPED' "
|
||||
Case Else : where = " AND Filialen.firma='VERAG' " '" And isnull(FilialenNr,'') Not IN (5501,5701)"
|
||||
End Select
|
||||
Dim Top = ""
|
||||
If MaxEintraege > 0 Then
|
||||
Top = " TOP " & MaxEintraege
|
||||
End If
|
||||
'Dim where = ""
|
||||
'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
' Case "AMBAR" : where = " And Filialen.FilialenNr IN (5701)"
|
||||
' Case "IMEX" : where = " And Filialen.FilialenNr IN (5501)"
|
||||
' Case "ATILLA" : where = " And Filialen.FilialenNr IN (4801)"
|
||||
' Case "UNISPED" : where = " AND Filialen.firma='UNISPED' "
|
||||
' Case Else : where = " AND Filialen.firma='VERAG' " '" And isnull(FilialenNr,'') Not IN (5501,5701)"
|
||||
'End Select
|
||||
'Dim Top = ""
|
||||
'If MaxEintraege > 0 Then
|
||||
' Top = " TOP " & MaxEintraege
|
||||
'End If
|
||||
|
||||
dt = SQL.loadDgvBySql("SELECT " & Top & " [AdressenNr] as KdNr,[Ordnungsbegriff] as Firma,UstIdGeprüft as [letzte Prüfung],Adressen.UstIdKz,Adressen.UstIdnr " &
|
||||
" From [Adressen] inner Join kunden On KundenNr=AdressenNr inner join Filialen on Filialen.FilialenNr=Kunden.FilialenNr " &
|
||||
" where (UstIdGeprüft <= '" & datum.ToShortDateString & "' OR UstIdGeprüft is null) and (Adressen.UstIdKz is not null and Adressen.UstIdNr is not null) " &
|
||||
" And Auswahl='A' " & where & " ORDER BY Ordnungsbegriff", "FMZOLL")
|
||||
'dt = SQL.loadDgvBySql("SELECT " & Top & " [AdressenNr] as KdNr,[Ordnungsbegriff] as Firma,UstIdGeprüft as [letzte Prüfung],Adressen.UstIdKz,Adressen.UstIdnr " &
|
||||
' " From [Adressen] inner Join kunden On KundenNr=AdressenNr inner join Filialen on Filialen.FilialenNr=Kunden.FilialenNr " &
|
||||
' " where (UstIdGeprüft <= '" & datum.ToShortDateString & "' OR UstIdGeprüft is null) and (isnull(Adressen.UstIdKz,'') <> ''and isnull(Adressen.UstIdNr,'') <> '') " &
|
||||
' " And Auswahl='A' " & where & " ORDER BY Ordnungsbegriff", "FMZOLL")
|
||||
|
||||
dt = get_zupruefendeKunden(MaxEintraege, datum)
|
||||
|
||||
If dt IsNot Nothing Then
|
||||
If dt.Rows.Count = 0 Then Return Nothing
|
||||
@@ -198,7 +204,7 @@ Public Class cUIDPruefung
|
||||
Case "EUROPE"
|
||||
|
||||
For Each r As DataRow In dt.Rows
|
||||
Dim UID_TMP = doUIDPruefung(r("KdNr"),, SaveErgInAdressen, showErr)
|
||||
Dim UID_TMP = doUIDPruefung(r("KdNr"),, SaveErgInAdressen, showErr, ART)
|
||||
If UID_TMP IsNot Nothing Then
|
||||
If UID_TMP.uid_valid Then
|
||||
r("Ergebnis") = "OK"
|
||||
@@ -292,8 +298,43 @@ Public Class cUIDPruefung
|
||||
Return dt
|
||||
End Function
|
||||
|
||||
Public Shared Function get_zupruefendeKunden(MaxEintraege As Integer, Optional datum As Object = Nothing, Optional Firma As String = "") As DataTable
|
||||
|
||||
Public Shared Function doUIDPruefung(ba_KundenNr, Optional AskIfDouble = False, Optional SaveErgInAdressen = True, Optional showErr = True) As cUIDPruefung
|
||||
Dim dt As DataTable = Nothing
|
||||
If datum = Nothing Then datum = CDate("15." & Now.ToString("MM.yyyy")).AddMonths(-1)
|
||||
|
||||
Dim where = ""
|
||||
|
||||
If Firma = "" Then
|
||||
Firma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
End If
|
||||
|
||||
|
||||
Select Case Firma
|
||||
Case "AMBAR" : where = " And Filialen.FilialenNr IN (5701)"
|
||||
Case "IMEX" : where = " And Filialen.FilialenNr IN (5501)"
|
||||
Case "ATILLA" : where = " And Filialen.FilialenNr IN (4801)"
|
||||
Case "UNISPED" : where = " AND Filialen.firma='UNISPED' "
|
||||
Case Else : where = " AND Filialen.firma='VERAG' " '" And isnull(FilialenNr,'') Not IN (5501,5701)"
|
||||
End Select
|
||||
|
||||
|
||||
Dim Top = ""
|
||||
If MaxEintraege > 0 Then
|
||||
Top = " TOP " & MaxEintraege
|
||||
End If
|
||||
|
||||
dt = SQL.loadDgvBySql("SELECT " & Top & " [AdressenNr] as KdNr,[Ordnungsbegriff] as Firma,UstIdGeprüft as [letzte Prüfung],Adressen.UstIdKz,Adressen.UstIdnr " &
|
||||
" From [Adressen] inner Join kunden On KundenNr=AdressenNr inner join Filialen on Filialen.FilialenNr=Kunden.FilialenNr " &
|
||||
" where (UstIdGeprüft <= '" & datum.ToShortDateString & "' OR UstIdGeprüft is null) and (isnull(Adressen.UstIdKz,'') <> ''and isnull(Adressen.UstIdNr,'') <> '') " &
|
||||
" And Auswahl='A' " & where & " ORDER BY Ordnungsbegriff", "FMZOLL")
|
||||
|
||||
Return dt
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Public Shared Function doUIDPruefung(ba_KundenNr, Optional AskIfDouble = False, Optional SaveErgInAdressen = True, Optional showErr = True, Optional Art = "") As cUIDPruefung
|
||||
|
||||
Dim AD As New cAdressen(ba_KundenNr)
|
||||
If AD IsNot Nothing Then
|
||||
@@ -370,7 +411,7 @@ Public Class cUIDPruefung
|
||||
UID_TMP.uid_UstIdNr = AD.UstIdNr
|
||||
UID_TMP.uid_stufe = 1
|
||||
UID_TMP.Firma = If(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, "VERAG")
|
||||
|
||||
UID_TMP.uid_pruefungstool = Art.ToString
|
||||
UID_TMP.uid_abfrageUid = requesterCountryCode & requesterVatNumber
|
||||
' UID.uid_firma =
|
||||
' UID.uid_strasse))
|
||||
|
||||
@@ -1394,30 +1394,21 @@ Public Class cFormularManager
|
||||
|
||||
For Each pdfPath As String In PDFFile
|
||||
|
||||
Dim doc As New Spire.Pdf.PdfDocument(pdfPath)
|
||||
Using doc As New Spire.Pdf.PdfDocument(pdfPath)
|
||||
|
||||
'Versuche, die Seitengröße zu überprüfen
|
||||
'-----------------------------------------
|
||||
If doc.Pages.Count = 0 Then
|
||||
' Leeres Dokument, überspringen
|
||||
Continue For
|
||||
End If
|
||||
Dim pageSize = doc.Pages(0).Size
|
||||
If pageSize.Width <= 0 OrElse pageSize.Height <= 0 Then
|
||||
' Ungültige Seitengröße, überspringen
|
||||
Continue For
|
||||
End If
|
||||
'-----------------------------------------
|
||||
|
||||
doc.PageSettings.Size = Spire.Pdf.PdfPageSize.A4
|
||||
|
||||
doc.PageSettings.Orientation = Spire.Pdf.PdfPageOrientation.Landscape
|
||||
doc.PrintSettings.SelectSinglePageLayout(PdfSinglePageScalingMode.FitSize, True)
|
||||
If doc.Pages.Count = 0 Then Continue For
|
||||
Dim size = doc.Pages(0).Size
|
||||
If size.Width <= 0 OrElse size.Height <= 0 Then Continue For
|
||||
' --- Druckeinstellungen ---
|
||||
doc.PrintSettings.PrinterName = printerName
|
||||
doc.PrintSettings.SelectSinglePageLayout(PdfSinglePageScalingMode.ActualSize, False)
|
||||
doc.PrintSettings.Landscape = True
|
||||
doc.PrintSettings.PaperSize = New System.Drawing.Printing.PaperSize("A4", 827, 1169)
|
||||
doc.Print()
|
||||
|
||||
Next
|
||||
End Using
|
||||
|
||||
Next
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
|
||||
@@ -169,6 +169,8 @@ Public Class cFinanzOnlineWebService
|
||||
|
||||
UID_TMP.uid_stufe = Stufe
|
||||
|
||||
UID_TMP.uid_pruefungstool = "FINANZONLINE"
|
||||
|
||||
UID_TMP.SAVE()
|
||||
|
||||
If multiUID Then
|
||||
@@ -203,7 +205,7 @@ Public Class cFinanzOnlineWebService
|
||||
UID_TMP_new.uid_adr6 = adrz6
|
||||
|
||||
UID_TMP_new.uid_stufe = Stufe
|
||||
|
||||
UID_TMP.uid_pruefungstool = "FINANZONLINE"
|
||||
UID_TMP_new.SAVE()
|
||||
|
||||
If (UID_TMP.uid_valid) Then 'OK
|
||||
|
||||
@@ -348,7 +348,7 @@ Public Class cSyska_Interface
|
||||
|
||||
If dt_BuchungenZeilen IsNot Nothing AndAlso dt_BuchungenZeilen.Rows.Count > 0 Then
|
||||
For Each rz In dt_BuchungenZeilen.Rows
|
||||
file.WriteLine(genBuchungsZeile(rz, SummeBuchungen, Geschaeftsjahr, FIRMA, curDifferenzbetrag, ambargubuchungen)) ' BuchungsZeilen...
|
||||
file.WriteLine(genBuchungsZeile(rz, SummeBuchungen, Geschaeftsjahr, FIRMA, curDifferenzbetrag, ambargubuchungen, r("Buchungstext"))) ' BuchungsZeilen...
|
||||
Next
|
||||
End If
|
||||
If curDifferenzbetrag <> 0 Then 'Differenz --> Ausgelich auf Diff.Konto
|
||||
@@ -741,7 +741,7 @@ Public Class cSyska_Interface
|
||||
Return genBuchungsZeileSum
|
||||
End Function
|
||||
|
||||
Public Shared Function genBuchungsZeile(row As DataRow, ByRef SummeBuchungen As Double, ByRef Geschäftsjahr As Integer, ByRef FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen, ByRef curDifferenzbetrag As Double, Optional ambargubuchungen As Boolean = False) As String
|
||||
Public Shared Function genBuchungsZeile(row As DataRow, ByRef SummeBuchungen As Double, ByRef Geschäftsjahr As Integer, ByRef FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen, ByRef curDifferenzbetrag As Double, Optional ambargubuchungen As Boolean = False, Optional Buchungstext As String = "") As String
|
||||
|
||||
Dim curSteuerbetrag As Double
|
||||
Dim curNettobetrag As Double
|
||||
@@ -818,7 +818,8 @@ Public Class cSyska_Interface
|
||||
|
||||
genBuchungsZeile &= FiBuSollkontonummer & vbTab
|
||||
genBuchungsZeile &= FiBuHabenkontonummer & vbTab
|
||||
genBuchungsZeile &= row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab
|
||||
'genBuchungsZeile &= row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab
|
||||
genBuchungsZeile &= IIf(Buchungstext <> "" AndAlso Buchungstext.Contains("Zinsen"), Buchungstext & vbTab, row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab)
|
||||
|
||||
|
||||
genBuchungsZeile &= Format(CDbl(FiBuBruttobetrag), fmt) & vbTab
|
||||
|
||||
Reference in New Issue
Block a user