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

merge

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-03-06 21:31:42 +01:00
parent 397738ca5f 7e850241aa
commit d0010dfda4
21 changed files with 3983 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
SDL/Classes/cRKSV.vb
View File

@@ -1061,7 +1061,7 @@ Public Class cRKSV
End Function
'cboPrinter.SelectedItem.ToString
Public Shared Function printKundenBeleg(BELEG As EABeleg, KASSE As cRKSV_Kasse, PERSONAL As cPersonal, printername As String, showDok As Boolean) As Boolean
Public Shared Function printKundenBeleg(BELEG As EABeleg, KASSE As cRKSV_Kasse, PERSONAL As cPersonal, printername As String, showDok As Boolean, Optional POSPayment As Boolean = False) As Boolean
'Dim print As New frmPrintLayout
@@ -1238,6 +1238,10 @@ Public Class cRKSV
rpt.lblGesamtbetrag.Text = CDbl(sum + (sum * s)).ToString("C")
If sum < 0 Then rpt.Label2.Text = "Rechnungskorrektur Nr."
End Sub
If False Then 'POSPayment Then
'Dim Pos = New frmPOSTerminal(rpt, sum)
'Pos.ShowDialog()
End If
'PaperKind = System.Drawing.Printing.PaperKind.Custom
' Me.PageSettings.PaperKind = System.Drawing.Printing.PaperKind.Custom

165
SDL/Classes/cRKSV_POS.vb Normal file
View File

@@ -0,0 +1,165 @@

Imports System.Data.SqlClient
Imports System.Reflection
Public Class cRKSV_POS
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Property pos_Id As Integer
Property pos_bezeichnung As String
Property pos_aktiv As Object = Nothing
Property pos_kasse As Object = Nothing
Property pos_kassennr As Object = Nothing
Property pos_com As Object = Nothing
Property pos_baudrate As Object = Nothing
Property pos_comspeed As Object = Nothing
Property pos_comstop As Object = Nothing
Property pos_ip As Object = Nothing
Property pos_port As Object = Nothing
Property pos_typ As Object = Nothing
Property pos_lizenz As Object = Nothing
Property pos_kassendruck As Object = Nothing
Property pos_demoausdruck As Object = Nothing
Property pos_demodummyausdruck As Object = Nothing
Property pos_pin As Object = Nothing
Property pos_händerbeleg_drucken As Object = Nothing
Property pos_storno As Object = Nothing
Property pos_wartezeit As Object = Nothing
Public hasEntry = False
Public Sub New(pos_Id, pos_kasse)
Me.pos_Id = pos_Id
Me.pos_kasse = pos_kasse
LOAD()
End Sub
Public Sub New(pos_bezeichnung As String, pos_kasse As Integer, pos_aktiv As Boolean)
Me.pos_bezeichnung = pos_bezeichnung
Me.pos_kasse = pos_kasse
Me.pos_aktiv = pos_aktiv
SAVE()
End Sub
Public Sub New(pos_bezeichnung As String)
Me.pos_bezeichnung = pos_bezeichnung
LOAD()
End Sub
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_Id", pos_Id,, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_bezeichnung", pos_bezeichnung))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_aktiv", pos_aktiv))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_kasse", pos_kasse))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_kassennr", pos_kassennr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_com", pos_com))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_baudrate", pos_baudrate))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_comspeed", pos_comspeed))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_comstop", pos_comstop))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_ip", pos_ip))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_port", pos_port))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_typ", pos_typ))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_lizenz", pos_lizenz))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_kassendruck", pos_kassendruck))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_demoausdruck", pos_demoausdruck))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_demodummyausdruck", pos_demodummyausdruck))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_pin", pos_pin))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_händerbeleg_drucken", pos_händerbeleg_drucken))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_storno", pos_storno))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_wartezeit", pos_wartezeit))
Return list
End Function
Public Function SAVE() As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblRKSV_POS WHERE pos_Id=@pos_Id) " &
" BEGIN " & getUpdateCmd() & " END " &
" Else " &
" BEGIN " & getInsertCmd() & " END " &
" commit tran "
Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
End Function
Public Sub LOAD()
Try
hasEntry = False
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM tblRKSV_POS WHERE pos_Id=@pos_Id ", conn)
cmd.Parameters.AddWithValue("@pos_Id", pos_Id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next
hasEntry = True
End If
dr.Close()
End Using
End Using
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
End Sub
Public Function getUpdateCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
Return (" UPDATE [tblRKSV_POS] SET " & str & " WHERE pos_Id=@pos_Id ")
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return ""
End Function
Public Function getInsertCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
Dim values As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "],"
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
values = values.Substring(0, values.Length - 1) 'wg. ','
Return (" INSERT INTO tblRKSV_POS (" & str & ") VALUES(" & values & ") ")
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return ""
End Function
Public Sub delete()
SQL.doSQL("delete from [tblRKSV_POS] where pos_Id = '" & pos_Id & "' ", "FMZOLL")
End Sub
End Class

549
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_GB_IE.Designer.vb generated Normal file
View File

@@ -0,0 +1,549 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrcntlVollmacht_GB_IE
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.lblVollmachtDE = New System.Windows.Forms.Label()
Me.lbl = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.cbxZahlungsaufschub = New System.Windows.Forms.CheckBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.btn = New System.Windows.Forms.Button()
Me.txtZahlungsaufschung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtEmail = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtFax = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtTel = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtEori = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtUid = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtAdresse2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtAdresse1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtFirma = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtAEO = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label11 = New System.Windows.Forms.Label()
Me.pic = New System.Windows.Forms.PictureBox()
Me.btnDown = New System.Windows.Forms.Button()
Me.btnUp = New System.Windows.Forms.Button()
Me.btnDel = New System.Windows.Forms.Button()
Me.cboSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label12 = New System.Windows.Forms.Label()
Me.cbxPostponed = New VERAG_PROG_ALLGEMEIN.MyComboBox()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'lblVollmachtDE
'
Me.lblVollmachtDE.AutoSize = True
Me.lblVollmachtDE.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblVollmachtDE.Location = New System.Drawing.Point(43, 9)
Me.lblVollmachtDE.Name = "lblVollmachtDE"
Me.lblVollmachtDE.Size = New System.Drawing.Size(233, 20)
Me.lblVollmachtDE.TabIndex = 1
Me.lblVollmachtDE.Text = "Vollmacht GB Import/Export"
'
'lbl
'
Me.lbl.AutoSize = True
Me.lbl.Location = New System.Drawing.Point(170, 37)
Me.lbl.Name = "lbl"
Me.lbl.Size = New System.Drawing.Size(78, 13)
Me.lbl.TabIndex = 4
Me.lbl.Text = "Firmenwortlaut:"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(170, 56)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(48, 13)
Me.Label1.TabIndex = 9
Me.Label1.Text = "Adresse:"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(170, 101)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(45, 13)
Me.Label2.TabIndex = 12
Me.Label2.Text = "VAT-Nr:"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(587, 101)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(50, 13)
Me.Label3.TabIndex = 14
Me.Label3.Text = "EORI-Nr:"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(587, 120)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(27, 13)
Me.Label4.TabIndex = 18
Me.Label4.Text = "Fax:"
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(170, 120)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(28, 13)
Me.Label5.TabIndex = 16
Me.Label5.Text = "Tel.:"
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(170, 139)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(39, 13)
Me.Label6.TabIndex = 20
Me.Label6.Text = "E-Mail:"
'
'cbxZahlungsaufschub
'
Me.cbxZahlungsaufschub.AutoSize = True
Me.cbxZahlungsaufschub.Location = New System.Drawing.Point(173, 164)
Me.cbxZahlungsaufschub.Name = "cbxZahlungsaufschub"
Me.cbxZahlungsaufschub.Size = New System.Drawing.Size(148, 17)
Me.cbxZahlungsaufschub.TabIndex = 24
Me.cbxZahlungsaufschub.Text = "Zahlungsaufschub / DDA"
Me.cbxZahlungsaufschub.UseVisualStyleBackColor = True
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(587, 165)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(239, 13)
Me.Label7.TabIndex = 26
Me.Label7.Text = "aufgeschobene VAT Meldung und Zahlung (UK):"
'
'btn
'
Me.btn.BackgroundImage = Global.SDL.My.Resources.Resources.search
Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.Location = New System.Drawing.Point(937, 34)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(26, 20)
Me.btn.TabIndex = 6
Me.btn.UseVisualStyleBackColor = True
'
'txtZahlungsaufschung
'
Me.txtZahlungsaufschung._DateTimeOnly = False
Me.txtZahlungsaufschung._numbersOnly = False
Me.txtZahlungsaufschung._numbersOnlyKommastellen = ""
Me.txtZahlungsaufschung._numbersOnlyTrennzeichen = True
Me.txtZahlungsaufschung._Prozent = False
Me.txtZahlungsaufschung._ShortDateNew = False
Me.txtZahlungsaufschung._ShortDateOnly = False
Me.txtZahlungsaufschung._TimeOnly = False
Me.txtZahlungsaufschung._TimeOnly_Seconds = False
Me.txtZahlungsaufschung._value = Nothing
Me.txtZahlungsaufschung._Waehrung = False
Me.txtZahlungsaufschung._WaehrungZeichen = True
Me.txtZahlungsaufschung.Enabled = False
Me.txtZahlungsaufschung.ForeColor = System.Drawing.Color.Black
Me.txtZahlungsaufschung.Location = New System.Drawing.Point(363, 162)
Me.txtZahlungsaufschung.MaxLineLength = -1
Me.txtZahlungsaufschung.MaxLines_Warning = ""
Me.txtZahlungsaufschung.MaxLines_Warning_Label = Nothing
Me.txtZahlungsaufschung.Name = "txtZahlungsaufschung"
Me.txtZahlungsaufschung.Size = New System.Drawing.Size(201, 20)
Me.txtZahlungsaufschung.TabIndex = 25
'
'txtEmail
'
Me.txtEmail._DateTimeOnly = False
Me.txtEmail._numbersOnly = False
Me.txtEmail._numbersOnlyKommastellen = ""
Me.txtEmail._numbersOnlyTrennzeichen = True
Me.txtEmail._Prozent = False
Me.txtEmail._ShortDateNew = False
Me.txtEmail._ShortDateOnly = False
Me.txtEmail._TimeOnly = False
Me.txtEmail._TimeOnly_Seconds = False
Me.txtEmail._value = Nothing
Me.txtEmail._Waehrung = False
Me.txtEmail._WaehrungZeichen = True
Me.txtEmail.ForeColor = System.Drawing.Color.Black
Me.txtEmail.Location = New System.Drawing.Point(254, 136)
Me.txtEmail.MaxLineLength = -1
Me.txtEmail.MaxLines_Warning = ""
Me.txtEmail.MaxLines_Warning_Label = Nothing
Me.txtEmail.Name = "txtEmail"
Me.txtEmail.Size = New System.Drawing.Size(310, 20)
Me.txtEmail.TabIndex = 21
'
'txtFax
'
Me.txtFax._DateTimeOnly = False
Me.txtFax._numbersOnly = False
Me.txtFax._numbersOnlyKommastellen = ""
Me.txtFax._numbersOnlyTrennzeichen = True
Me.txtFax._Prozent = False
Me.txtFax._ShortDateNew = False
Me.txtFax._ShortDateOnly = False
Me.txtFax._TimeOnly = False
Me.txtFax._TimeOnly_Seconds = False
Me.txtFax._value = Nothing
Me.txtFax._Waehrung = False
Me.txtFax._WaehrungZeichen = True
Me.txtFax.ForeColor = System.Drawing.Color.Black
Me.txtFax.Location = New System.Drawing.Point(653, 117)
Me.txtFax.MaxLineLength = -1
Me.txtFax.MaxLines_Warning = ""
Me.txtFax.MaxLines_Warning_Label = Nothing
Me.txtFax.Name = "txtFax"
Me.txtFax.Size = New System.Drawing.Size(310, 20)
Me.txtFax.TabIndex = 19
'
'txtTel
'
Me.txtTel._DateTimeOnly = False
Me.txtTel._numbersOnly = False
Me.txtTel._numbersOnlyKommastellen = ""
Me.txtTel._numbersOnlyTrennzeichen = True
Me.txtTel._Prozent = False
Me.txtTel._ShortDateNew = False
Me.txtTel._ShortDateOnly = False
Me.txtTel._TimeOnly = False
Me.txtTel._TimeOnly_Seconds = False
Me.txtTel._value = Nothing
Me.txtTel._Waehrung = False
Me.txtTel._WaehrungZeichen = True
Me.txtTel.ForeColor = System.Drawing.Color.Black
Me.txtTel.Location = New System.Drawing.Point(254, 117)
Me.txtTel.MaxLineLength = -1
Me.txtTel.MaxLines_Warning = ""
Me.txtTel.MaxLines_Warning_Label = Nothing
Me.txtTel.Name = "txtTel"
Me.txtTel.Size = New System.Drawing.Size(310, 20)
Me.txtTel.TabIndex = 17
'
'txtEori
'
Me.txtEori._DateTimeOnly = False
Me.txtEori._numbersOnly = False
Me.txtEori._numbersOnlyKommastellen = ""
Me.txtEori._numbersOnlyTrennzeichen = True
Me.txtEori._Prozent = False
Me.txtEori._ShortDateNew = False
Me.txtEori._ShortDateOnly = False
Me.txtEori._TimeOnly = False
Me.txtEori._TimeOnly_Seconds = False
Me.txtEori._value = Nothing
Me.txtEori._Waehrung = False
Me.txtEori._WaehrungZeichen = True
Me.txtEori.ForeColor = System.Drawing.Color.Black
Me.txtEori.Location = New System.Drawing.Point(653, 98)
Me.txtEori.MaxLineLength = -1
Me.txtEori.MaxLines_Warning = ""
Me.txtEori.MaxLines_Warning_Label = Nothing
Me.txtEori.Name = "txtEori"
Me.txtEori.Size = New System.Drawing.Size(310, 20)
Me.txtEori.TabIndex = 15
'
'txtUid
'
Me.txtUid._DateTimeOnly = False
Me.txtUid._numbersOnly = False
Me.txtUid._numbersOnlyKommastellen = ""
Me.txtUid._numbersOnlyTrennzeichen = True
Me.txtUid._Prozent = False
Me.txtUid._ShortDateNew = False
Me.txtUid._ShortDateOnly = False
Me.txtUid._TimeOnly = False
Me.txtUid._TimeOnly_Seconds = False
Me.txtUid._value = Nothing
Me.txtUid._Waehrung = False
Me.txtUid._WaehrungZeichen = True
Me.txtUid.ForeColor = System.Drawing.Color.Black
Me.txtUid.Location = New System.Drawing.Point(254, 98)
Me.txtUid.MaxLineLength = -1
Me.txtUid.MaxLines_Warning = ""
Me.txtUid.MaxLines_Warning_Label = Nothing
Me.txtUid.Name = "txtUid"
Me.txtUid.Size = New System.Drawing.Size(310, 20)
Me.txtUid.TabIndex = 13
'
'txtAdresse2
'
Me.txtAdresse2._DateTimeOnly = False
Me.txtAdresse2._numbersOnly = False
Me.txtAdresse2._numbersOnlyKommastellen = ""
Me.txtAdresse2._numbersOnlyTrennzeichen = True
Me.txtAdresse2._Prozent = False
Me.txtAdresse2._ShortDateNew = False
Me.txtAdresse2._ShortDateOnly = False
Me.txtAdresse2._TimeOnly = False
Me.txtAdresse2._TimeOnly_Seconds = False
Me.txtAdresse2._value = Nothing
Me.txtAdresse2._Waehrung = False
Me.txtAdresse2._WaehrungZeichen = True
Me.txtAdresse2.ForeColor = System.Drawing.Color.Black
Me.txtAdresse2.Location = New System.Drawing.Point(254, 72)
Me.txtAdresse2.MaxLineLength = -1
Me.txtAdresse2.MaxLines_Warning = ""
Me.txtAdresse2.MaxLines_Warning_Label = Nothing
Me.txtAdresse2.Name = "txtAdresse2"
Me.txtAdresse2.Size = New System.Drawing.Size(709, 20)
Me.txtAdresse2.TabIndex = 11
'
'txtAdresse1
'
Me.txtAdresse1._DateTimeOnly = False
Me.txtAdresse1._numbersOnly = False
Me.txtAdresse1._numbersOnlyKommastellen = ""
Me.txtAdresse1._numbersOnlyTrennzeichen = True
Me.txtAdresse1._Prozent = False
Me.txtAdresse1._ShortDateNew = False
Me.txtAdresse1._ShortDateOnly = False
Me.txtAdresse1._TimeOnly = False
Me.txtAdresse1._TimeOnly_Seconds = False
Me.txtAdresse1._value = Nothing
Me.txtAdresse1._Waehrung = False
Me.txtAdresse1._WaehrungZeichen = True
Me.txtAdresse1.ForeColor = System.Drawing.Color.Black
Me.txtAdresse1.Location = New System.Drawing.Point(254, 53)
Me.txtAdresse1.MaxLineLength = -1
Me.txtAdresse1.MaxLines_Warning = ""
Me.txtAdresse1.MaxLines_Warning_Label = Nothing
Me.txtAdresse1.Name = "txtAdresse1"
Me.txtAdresse1.Size = New System.Drawing.Size(709, 20)
Me.txtAdresse1.TabIndex = 10
'
'txtFirma
'
Me.txtFirma._DateTimeOnly = False
Me.txtFirma._numbersOnly = False
Me.txtFirma._numbersOnlyKommastellen = ""
Me.txtFirma._numbersOnlyTrennzeichen = True
Me.txtFirma._Prozent = False
Me.txtFirma._ShortDateNew = False
Me.txtFirma._ShortDateOnly = False
Me.txtFirma._TimeOnly = False
Me.txtFirma._TimeOnly_Seconds = False
Me.txtFirma._value = Nothing
Me.txtFirma._Waehrung = False
Me.txtFirma._WaehrungZeichen = True
Me.txtFirma.ForeColor = System.Drawing.Color.Black
Me.txtFirma.Location = New System.Drawing.Point(254, 34)
Me.txtFirma.MaxLineLength = -1
Me.txtFirma.MaxLines_Warning = ""
Me.txtFirma.MaxLines_Warning_Label = Nothing
Me.txtFirma.Name = "txtFirma"
Me.txtFirma.Size = New System.Drawing.Size(684, 20)
Me.txtFirma.TabIndex = 5
'
'txtAEO
'
Me.txtAEO._DateTimeOnly = False
Me.txtAEO._numbersOnly = False
Me.txtAEO._numbersOnlyKommastellen = ""
Me.txtAEO._numbersOnlyTrennzeichen = True
Me.txtAEO._Prozent = False
Me.txtAEO._ShortDateNew = False
Me.txtAEO._ShortDateOnly = False
Me.txtAEO._TimeOnly = False
Me.txtAEO._TimeOnly_Seconds = False
Me.txtAEO._value = Nothing
Me.txtAEO._Waehrung = False
Me.txtAEO._WaehrungZeichen = True
Me.txtAEO.ForeColor = System.Drawing.Color.Black
Me.txtAEO.Location = New System.Drawing.Point(653, 136)
Me.txtAEO.MaxLineLength = -1
Me.txtAEO.MaxLines_Warning = ""
Me.txtAEO.MaxLines_Warning_Label = Nothing
Me.txtAEO.Name = "txtAEO"
Me.txtAEO.Size = New System.Drawing.Size(310, 20)
Me.txtAEO.TabIndex = 23
'
'Label11
'
Me.Label11.AutoSize = True
Me.Label11.Location = New System.Drawing.Point(587, 139)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(57, 13)
Me.Label11.TabIndex = 22
Me.Label11.Text = "AEO-Zert.:"
'
'pic
'
Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.pdf
Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.pic.Cursor = System.Windows.Forms.Cursors.Hand
Me.pic.Location = New System.Drawing.Point(5, 5)
Me.pic.Name = "pic"
Me.pic.Size = New System.Drawing.Size(32, 32)
Me.pic.TabIndex = 30
Me.pic.TabStop = False
'
'btnDown
'
Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnDown.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_unten
Me.btnDown.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnDown.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDown.Location = New System.Drawing.Point(976, 42)
Me.btnDown.Name = "btnDown"
Me.btnDown.Size = New System.Drawing.Size(25, 21)
Me.btnDown.TabIndex = 7
Me.btnDown.UseVisualStyleBackColor = True
'
'btnUp
'
Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnUp.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_oben
Me.btnUp.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnUp.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnUp.Location = New System.Drawing.Point(976, 22)
Me.btnUp.Name = "btnUp"
Me.btnUp.Size = New System.Drawing.Size(25, 21)
Me.btnUp.TabIndex = 2
Me.btnUp.UseVisualStyleBackColor = True
'
'btnDel
'
Me.btnDel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnDel.BackgroundImage = Global.SDL.My.Resources.Resources.del
Me.btnDel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDel.Location = New System.Drawing.Point(976, -1)
Me.btnDel.Name = "btnDel"
Me.btnDel.Size = New System.Drawing.Size(25, 21)
Me.btnDel.TabIndex = 0
Me.btnDel.UseVisualStyleBackColor = True
'
'cboSprache
'
Me.cboSprache._allowedValuesFreiText = Nothing
Me.cboSprache._allowFreiText = False
Me.cboSprache._value = ""
Me.cboSprache.FormattingEnabled = True
Me.cboSprache.Location = New System.Drawing.Point(47, 53)
Me.cboSprache.Name = "cboSprache"
Me.cboSprache.Size = New System.Drawing.Size(89, 21)
Me.cboSprache.TabIndex = 8
'
'Label12
'
Me.Label12.AutoSize = True
Me.Label12.Location = New System.Drawing.Point(44, 37)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(50, 13)
Me.Label12.TabIndex = 3
Me.Label12.Text = "Sprache:"
'
'cbxPostponed
'
Me.cbxPostponed._allowedValuesFreiText = Nothing
Me.cbxPostponed._allowFreiText = False
Me.cbxPostponed._value = ""
Me.cbxPostponed.FormattingEnabled = True
Me.cbxPostponed.Location = New System.Drawing.Point(915, 160)
Me.cbxPostponed.Name = "cbxPostponed"
Me.cbxPostponed.Size = New System.Drawing.Size(48, 21)
Me.cbxPostponed.TabIndex = 31
'
'usrcntlVollmacht_GB_IE
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.WhiteSmoke
Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Controls.Add(Me.cbxPostponed)
Me.Controls.Add(Me.Label12)
Me.Controls.Add(Me.cboSprache)
Me.Controls.Add(Me.btnDown)
Me.Controls.Add(Me.btnUp)
Me.Controls.Add(Me.btnDel)
Me.Controls.Add(Me.pic)
Me.Controls.Add(Me.txtAEO)
Me.Controls.Add(Me.Label11)
Me.Controls.Add(Me.btn)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.txtZahlungsaufschung)
Me.Controls.Add(Me.cbxZahlungsaufschub)
Me.Controls.Add(Me.txtEmail)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.txtFax)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.txtTel)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.txtEori)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.txtUid)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.txtAdresse2)
Me.Controls.Add(Me.txtAdresse1)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.txtFirma)
Me.Controls.Add(Me.lbl)
Me.Controls.Add(Me.lblVollmachtDE)
Me.Name = "usrcntlVollmacht_GB_IE"
Me.Size = New System.Drawing.Size(1000, 193)
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents lblVollmachtDE As System.Windows.Forms.Label
Friend WithEvents lbl As System.Windows.Forms.Label
Friend WithEvents txtFirma As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtAdresse1 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents txtAdresse2 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtUid As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents txtEori As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents txtFax As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents txtTel As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents txtEmail As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents cbxZahlungsaufschub As System.Windows.Forms.CheckBox
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents txtZahlungsaufschung As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents btn As System.Windows.Forms.Button
Friend WithEvents txtAEO As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label11 As System.Windows.Forms.Label
Friend WithEvents pic As System.Windows.Forms.PictureBox
Friend WithEvents btnDown As System.Windows.Forms.Button
Friend WithEvents btnUp As System.Windows.Forms.Button
Friend WithEvents btnDel As System.Windows.Forms.Button
Friend WithEvents cboSprache As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label12 As System.Windows.Forms.Label
Friend WithEvents cbxPostponed As VERAG_PROG_ALLGEMEIN.MyComboBox
End Class

120
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_GB_IE.resx Normal file
View File

@@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

100
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_GB_IE.vb Normal file
View File

@@ -0,0 +1,100 @@
Public Class usrcntlVollmacht_GB_IE
Implements FormualrInterface
Public Event CHANGED(name, value)
Public Event KDNR_CHANGED(kdnr)
Public Event DELETE(c As Control)
Public Event MOVE_UP(c As Control)
Public Event MOVE_DOWN(c As Control)
Public KdNR As Integer = -1
Public Sub ChangeKDNr(kdnr As Integer) _
Implements FormualrInterface.ChangeKDNr
initKdNR(kdnr)
End Sub
'Dim KdNR As Integer = -1
Sub initControlsHandler()
For Each c In Me.Controls
Select Case c.GetType.ToString
Case GetType(VERAG_PROG_ALLGEMEIN.MyTextBox).ToString
AddHandler DirectCast(c, VERAG_PROG_ALLGEMEIN.MyTextBox).Leave, Sub()
RaiseEvent CHANGED(c.name, c.text)
End Sub
Case GetType(VERAG_PROG_ALLGEMEIN.MyComboBox).ToString
AddHandler DirectCast(c, VERAG_PROG_ALLGEMEIN.MyComboBox).SelectedIndexChanged, Sub()
RaiseEvent CHANGED(c.name, c._value)
End Sub
Case GetType(TextBox).ToString
AddHandler DirectCast(c, TextBox).Leave, Sub()
RaiseEvent CHANGED(c.name, c.text)
End Sub
End Select
Next
End Sub
Private Sub cbxZahlungsaufschub_changed(sender As Object, e As EventArgs) Handles cbxZahlungsaufschub.CheckedChanged
txtZahlungsaufschung.Enabled = sender.checked
End Sub
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
Dim kdsrch As New SDL.frmKundenSuche
'Panel1.Enabled = False
If kdsrch.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK Then
If IsNumeric(kdsrch.kundenNrSearch.Text) Then
initKdNR(kdsrch.kundenNrSearch.Text)
RaiseEvent KDNR_CHANGED(KdNR)
End If
End If
' Panel1.Enabled = True
End Sub
Public Sub initKdNR(KdNR)
Me.KdNR = KdNR
Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(KdNR)
Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNR)
txtFirma.Text = If(ADRESSE.Name_1, "") & If(If(ADRESSE.Name_2, "") <> "", " " & ADRESSE.Name_2, "")
txtAdresse1.Text = If(ADRESSE.Straße, "")
txtAdresse2.Text = (If(ADRESSE.LandKz, "") & " " & If(ADRESSE.PLZ, "") & " " & If(ADRESSE.Ort, "")).ToString.Trim
txtUid.Text = If(ADRESSE.UstIdKz, "") & If(ADRESSE.UstIdNr, "")
txtEori.Text = If(KUNDE.EORITIN, "")
txtTel.Text = If(ADRESSE.Telefon, "")
txtFax.Text = If(ADRESSE.Telefax, "")
txtEmail.Text = If(ADRESSE.E_Mail, "")
' txtAnsprechpartner.Text = If(ADRESSE.Ansprechpartner, "")
End Sub
Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click
RaiseEvent DELETE(Me)
End Sub
Private Sub btnup_Click(sender As Object, e As EventArgs) Handles btnUp.Click
RaiseEvent MOVE_UP(Me)
End Sub
Private Sub btnDown_Click(sender As Object, e As EventArgs) Handles btnDown.Click
RaiseEvent MOVE_DOWN(Me)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs)
End Sub
Private Sub usrcntlVollmacht_AT_Load(sender As Object, e As EventArgs) Handles Me.Load
initControlsHandler()
cboSprache.Items.Clear()
'cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Deutsch", "DE"))
cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Englisch", "EN"))
cbxPostponed.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("JA", "JA"))
cbxPostponed.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEIN", "NEIN"))
If KdNR > 0 Then initKdNR(KdNR)
End Sub
Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click
FormularManagerNEU.genPDF(Me, True)
End Sub
End Class

549
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_GB_indirekt.Designer.vb generated Normal file
View File

@@ -0,0 +1,549 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrcntlVollmacht_GB_indirekt
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.lblVollmachtDE = New System.Windows.Forms.Label()
Me.lbl = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.btn = New System.Windows.Forms.Button()
Me.txtEmail = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtFax = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtTel = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtEori = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtUid = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtAdresse2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtAdresse1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtFirma = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtAEO = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label11 = New System.Windows.Forms.Label()
Me.pic = New System.Windows.Forms.PictureBox()
Me.btnDown = New System.Windows.Forms.Button()
Me.btnUp = New System.Windows.Forms.Button()
Me.btnDel = New System.Windows.Forms.Button()
Me.cboSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label12 = New System.Windows.Forms.Label()
Me.cbxPostponed = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.txtZahlungsaufschung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cbxZahlungsaufschub = New System.Windows.Forms.CheckBox()
Me.Label2 = New System.Windows.Forms.Label()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'lblVollmachtDE
'
Me.lblVollmachtDE.AutoSize = True
Me.lblVollmachtDE.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblVollmachtDE.Location = New System.Drawing.Point(43, 9)
Me.lblVollmachtDE.Name = "lblVollmachtDE"
Me.lblVollmachtDE.Size = New System.Drawing.Size(183, 20)
Me.lblVollmachtDE.TabIndex = 1
Me.lblVollmachtDE.Text = "Vollmacht GB indirekt"
'
'lbl
'
Me.lbl.AutoSize = True
Me.lbl.Location = New System.Drawing.Point(170, 37)
Me.lbl.Name = "lbl"
Me.lbl.Size = New System.Drawing.Size(78, 13)
Me.lbl.TabIndex = 4
Me.lbl.Text = "Firmenwortlaut:"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(170, 56)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(48, 13)
Me.Label1.TabIndex = 9
Me.Label1.Text = "Adresse:"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(587, 101)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(50, 13)
Me.Label3.TabIndex = 14
Me.Label3.Text = "EORI-Nr:"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(587, 120)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(27, 13)
Me.Label4.TabIndex = 18
Me.Label4.Text = "Fax:"
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(170, 120)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(28, 13)
Me.Label5.TabIndex = 16
Me.Label5.Text = "Tel.:"
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(170, 139)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(39, 13)
Me.Label6.TabIndex = 20
Me.Label6.Text = "E-Mail:"
'
'btn
'
Me.btn.BackgroundImage = Global.SDL.My.Resources.Resources.search
Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.Location = New System.Drawing.Point(937, 34)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(26, 20)
Me.btn.TabIndex = 6
Me.btn.UseVisualStyleBackColor = True
'
'txtEmail
'
Me.txtEmail._DateTimeOnly = False
Me.txtEmail._numbersOnly = False
Me.txtEmail._numbersOnlyKommastellen = ""
Me.txtEmail._numbersOnlyTrennzeichen = True
Me.txtEmail._Prozent = False
Me.txtEmail._ShortDateNew = False
Me.txtEmail._ShortDateOnly = False
Me.txtEmail._TimeOnly = False
Me.txtEmail._TimeOnly_Seconds = False
Me.txtEmail._value = Nothing
Me.txtEmail._Waehrung = False
Me.txtEmail._WaehrungZeichen = True
Me.txtEmail.ForeColor = System.Drawing.Color.Black
Me.txtEmail.Location = New System.Drawing.Point(254, 136)
Me.txtEmail.MaxLineLength = -1
Me.txtEmail.MaxLines_Warning = ""
Me.txtEmail.MaxLines_Warning_Label = Nothing
Me.txtEmail.Name = "txtEmail"
Me.txtEmail.Size = New System.Drawing.Size(310, 20)
Me.txtEmail.TabIndex = 21
'
'txtFax
'
Me.txtFax._DateTimeOnly = False
Me.txtFax._numbersOnly = False
Me.txtFax._numbersOnlyKommastellen = ""
Me.txtFax._numbersOnlyTrennzeichen = True
Me.txtFax._Prozent = False
Me.txtFax._ShortDateNew = False
Me.txtFax._ShortDateOnly = False
Me.txtFax._TimeOnly = False
Me.txtFax._TimeOnly_Seconds = False
Me.txtFax._value = Nothing
Me.txtFax._Waehrung = False
Me.txtFax._WaehrungZeichen = True
Me.txtFax.ForeColor = System.Drawing.Color.Black
Me.txtFax.Location = New System.Drawing.Point(653, 117)
Me.txtFax.MaxLineLength = -1
Me.txtFax.MaxLines_Warning = ""
Me.txtFax.MaxLines_Warning_Label = Nothing
Me.txtFax.Name = "txtFax"
Me.txtFax.Size = New System.Drawing.Size(310, 20)
Me.txtFax.TabIndex = 19
'
'txtTel
'
Me.txtTel._DateTimeOnly = False
Me.txtTel._numbersOnly = False
Me.txtTel._numbersOnlyKommastellen = ""
Me.txtTel._numbersOnlyTrennzeichen = True
Me.txtTel._Prozent = False
Me.txtTel._ShortDateNew = False
Me.txtTel._ShortDateOnly = False
Me.txtTel._TimeOnly = False
Me.txtTel._TimeOnly_Seconds = False
Me.txtTel._value = Nothing
Me.txtTel._Waehrung = False
Me.txtTel._WaehrungZeichen = True
Me.txtTel.ForeColor = System.Drawing.Color.Black
Me.txtTel.Location = New System.Drawing.Point(254, 117)
Me.txtTel.MaxLineLength = -1
Me.txtTel.MaxLines_Warning = ""
Me.txtTel.MaxLines_Warning_Label = Nothing
Me.txtTel.Name = "txtTel"
Me.txtTel.Size = New System.Drawing.Size(310, 20)
Me.txtTel.TabIndex = 17
'
'txtEori
'
Me.txtEori._DateTimeOnly = False
Me.txtEori._numbersOnly = False
Me.txtEori._numbersOnlyKommastellen = ""
Me.txtEori._numbersOnlyTrennzeichen = True
Me.txtEori._Prozent = False
Me.txtEori._ShortDateNew = False
Me.txtEori._ShortDateOnly = False
Me.txtEori._TimeOnly = False
Me.txtEori._TimeOnly_Seconds = False
Me.txtEori._value = Nothing
Me.txtEori._Waehrung = False
Me.txtEori._WaehrungZeichen = True
Me.txtEori.ForeColor = System.Drawing.Color.Black
Me.txtEori.Location = New System.Drawing.Point(653, 98)
Me.txtEori.MaxLineLength = -1
Me.txtEori.MaxLines_Warning = ""
Me.txtEori.MaxLines_Warning_Label = Nothing
Me.txtEori.Name = "txtEori"
Me.txtEori.Size = New System.Drawing.Size(310, 20)
Me.txtEori.TabIndex = 15
'
'txtUid
'
Me.txtUid._DateTimeOnly = False
Me.txtUid._numbersOnly = False
Me.txtUid._numbersOnlyKommastellen = ""
Me.txtUid._numbersOnlyTrennzeichen = True
Me.txtUid._Prozent = False
Me.txtUid._ShortDateNew = False
Me.txtUid._ShortDateOnly = False
Me.txtUid._TimeOnly = False
Me.txtUid._TimeOnly_Seconds = False
Me.txtUid._value = Nothing
Me.txtUid._Waehrung = False
Me.txtUid._WaehrungZeichen = True
Me.txtUid.ForeColor = System.Drawing.Color.Black
Me.txtUid.Location = New System.Drawing.Point(254, 98)
Me.txtUid.MaxLineLength = -1
Me.txtUid.MaxLines_Warning = ""
Me.txtUid.MaxLines_Warning_Label = Nothing
Me.txtUid.Name = "txtUid"
Me.txtUid.Size = New System.Drawing.Size(310, 20)
Me.txtUid.TabIndex = 13
'
'txtAdresse2
'
Me.txtAdresse2._DateTimeOnly = False
Me.txtAdresse2._numbersOnly = False
Me.txtAdresse2._numbersOnlyKommastellen = ""
Me.txtAdresse2._numbersOnlyTrennzeichen = True
Me.txtAdresse2._Prozent = False
Me.txtAdresse2._ShortDateNew = False
Me.txtAdresse2._ShortDateOnly = False
Me.txtAdresse2._TimeOnly = False
Me.txtAdresse2._TimeOnly_Seconds = False
Me.txtAdresse2._value = Nothing
Me.txtAdresse2._Waehrung = False
Me.txtAdresse2._WaehrungZeichen = True
Me.txtAdresse2.ForeColor = System.Drawing.Color.Black
Me.txtAdresse2.Location = New System.Drawing.Point(254, 72)
Me.txtAdresse2.MaxLineLength = -1
Me.txtAdresse2.MaxLines_Warning = ""
Me.txtAdresse2.MaxLines_Warning_Label = Nothing
Me.txtAdresse2.Name = "txtAdresse2"
Me.txtAdresse2.Size = New System.Drawing.Size(709, 20)
Me.txtAdresse2.TabIndex = 11
'
'txtAdresse1
'
Me.txtAdresse1._DateTimeOnly = False
Me.txtAdresse1._numbersOnly = False
Me.txtAdresse1._numbersOnlyKommastellen = ""
Me.txtAdresse1._numbersOnlyTrennzeichen = True
Me.txtAdresse1._Prozent = False
Me.txtAdresse1._ShortDateNew = False
Me.txtAdresse1._ShortDateOnly = False
Me.txtAdresse1._TimeOnly = False
Me.txtAdresse1._TimeOnly_Seconds = False
Me.txtAdresse1._value = Nothing
Me.txtAdresse1._Waehrung = False
Me.txtAdresse1._WaehrungZeichen = True
Me.txtAdresse1.ForeColor = System.Drawing.Color.Black
Me.txtAdresse1.Location = New System.Drawing.Point(254, 53)
Me.txtAdresse1.MaxLineLength = -1
Me.txtAdresse1.MaxLines_Warning = ""
Me.txtAdresse1.MaxLines_Warning_Label = Nothing
Me.txtAdresse1.Name = "txtAdresse1"
Me.txtAdresse1.Size = New System.Drawing.Size(709, 20)
Me.txtAdresse1.TabIndex = 10
'
'txtFirma
'
Me.txtFirma._DateTimeOnly = False
Me.txtFirma._numbersOnly = False
Me.txtFirma._numbersOnlyKommastellen = ""
Me.txtFirma._numbersOnlyTrennzeichen = True
Me.txtFirma._Prozent = False
Me.txtFirma._ShortDateNew = False
Me.txtFirma._ShortDateOnly = False
Me.txtFirma._TimeOnly = False
Me.txtFirma._TimeOnly_Seconds = False
Me.txtFirma._value = Nothing
Me.txtFirma._Waehrung = False
Me.txtFirma._WaehrungZeichen = True
Me.txtFirma.ForeColor = System.Drawing.Color.Black
Me.txtFirma.Location = New System.Drawing.Point(254, 34)
Me.txtFirma.MaxLineLength = -1
Me.txtFirma.MaxLines_Warning = ""
Me.txtFirma.MaxLines_Warning_Label = Nothing
Me.txtFirma.Name = "txtFirma"
Me.txtFirma.Size = New System.Drawing.Size(684, 20)
Me.txtFirma.TabIndex = 5
'
'txtAEO
'
Me.txtAEO._DateTimeOnly = False
Me.txtAEO._numbersOnly = False
Me.txtAEO._numbersOnlyKommastellen = ""
Me.txtAEO._numbersOnlyTrennzeichen = True
Me.txtAEO._Prozent = False
Me.txtAEO._ShortDateNew = False
Me.txtAEO._ShortDateOnly = False
Me.txtAEO._TimeOnly = False
Me.txtAEO._TimeOnly_Seconds = False
Me.txtAEO._value = Nothing
Me.txtAEO._Waehrung = False
Me.txtAEO._WaehrungZeichen = True
Me.txtAEO.ForeColor = System.Drawing.Color.Black
Me.txtAEO.Location = New System.Drawing.Point(653, 136)
Me.txtAEO.MaxLineLength = -1
Me.txtAEO.MaxLines_Warning = ""
Me.txtAEO.MaxLines_Warning_Label = Nothing
Me.txtAEO.Name = "txtAEO"
Me.txtAEO.Size = New System.Drawing.Size(310, 20)
Me.txtAEO.TabIndex = 23
'
'Label11
'
Me.Label11.AutoSize = True
Me.Label11.Location = New System.Drawing.Point(587, 139)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(57, 13)
Me.Label11.TabIndex = 22
Me.Label11.Text = "AEO-Zert.:"
'
'pic
'
Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.pdf
Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.pic.Cursor = System.Windows.Forms.Cursors.Hand
Me.pic.Location = New System.Drawing.Point(5, 5)
Me.pic.Name = "pic"
Me.pic.Size = New System.Drawing.Size(32, 32)
Me.pic.TabIndex = 30
Me.pic.TabStop = False
'
'btnDown
'
Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnDown.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_unten
Me.btnDown.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnDown.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDown.Location = New System.Drawing.Point(976, 42)
Me.btnDown.Name = "btnDown"
Me.btnDown.Size = New System.Drawing.Size(25, 21)
Me.btnDown.TabIndex = 7
Me.btnDown.UseVisualStyleBackColor = True
'
'btnUp
'
Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnUp.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_oben
Me.btnUp.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnUp.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnUp.Location = New System.Drawing.Point(976, 22)
Me.btnUp.Name = "btnUp"
Me.btnUp.Size = New System.Drawing.Size(25, 21)
Me.btnUp.TabIndex = 2
Me.btnUp.UseVisualStyleBackColor = True
'
'btnDel
'
Me.btnDel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnDel.BackgroundImage = Global.SDL.My.Resources.Resources.del
Me.btnDel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDel.Location = New System.Drawing.Point(976, -1)
Me.btnDel.Name = "btnDel"
Me.btnDel.Size = New System.Drawing.Size(25, 21)
Me.btnDel.TabIndex = 0
Me.btnDel.UseVisualStyleBackColor = True
'
'cboSprache
'
Me.cboSprache._allowedValuesFreiText = Nothing
Me.cboSprache._allowFreiText = False
Me.cboSprache._value = ""
Me.cboSprache.FormattingEnabled = True
Me.cboSprache.Location = New System.Drawing.Point(47, 53)
Me.cboSprache.Name = "cboSprache"
Me.cboSprache.Size = New System.Drawing.Size(89, 21)
Me.cboSprache.TabIndex = 8
'
'Label12
'
Me.Label12.AutoSize = True
Me.Label12.Location = New System.Drawing.Point(44, 37)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(50, 13)
Me.Label12.TabIndex = 3
Me.Label12.Text = "Sprache:"
'
'cbxPostponed
'
Me.cbxPostponed._allowedValuesFreiText = Nothing
Me.cbxPostponed._allowFreiText = False
Me.cbxPostponed._value = ""
Me.cbxPostponed.FormattingEnabled = True
Me.cbxPostponed.Location = New System.Drawing.Point(915, 158)
Me.cbxPostponed.Name = "cbxPostponed"
Me.cbxPostponed.Size = New System.Drawing.Size(48, 21)
Me.cbxPostponed.TabIndex = 36
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(587, 163)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(239, 13)
Me.Label7.TabIndex = 35
Me.Label7.Text = "aufgeschobene VAT Meldung und Zahlung (UK):"
'
'txtZahlungsaufschung
'
Me.txtZahlungsaufschung._DateTimeOnly = False
Me.txtZahlungsaufschung._numbersOnly = False
Me.txtZahlungsaufschung._numbersOnlyKommastellen = ""
Me.txtZahlungsaufschung._numbersOnlyTrennzeichen = True
Me.txtZahlungsaufschung._Prozent = False
Me.txtZahlungsaufschung._ShortDateNew = False
Me.txtZahlungsaufschung._ShortDateOnly = False
Me.txtZahlungsaufschung._TimeOnly = False
Me.txtZahlungsaufschung._TimeOnly_Seconds = False
Me.txtZahlungsaufschung._value = Nothing
Me.txtZahlungsaufschung._Waehrung = False
Me.txtZahlungsaufschung._WaehrungZeichen = True
Me.txtZahlungsaufschung.Enabled = False
Me.txtZahlungsaufschung.ForeColor = System.Drawing.Color.Black
Me.txtZahlungsaufschung.Location = New System.Drawing.Point(363, 160)
Me.txtZahlungsaufschung.MaxLineLength = -1
Me.txtZahlungsaufschung.MaxLines_Warning = ""
Me.txtZahlungsaufschung.MaxLines_Warning_Label = Nothing
Me.txtZahlungsaufschung.Name = "txtZahlungsaufschung"
Me.txtZahlungsaufschung.Size = New System.Drawing.Size(201, 20)
Me.txtZahlungsaufschung.TabIndex = 34
'
'cbxZahlungsaufschub
'
Me.cbxZahlungsaufschub.AutoSize = True
Me.cbxZahlungsaufschub.Location = New System.Drawing.Point(173, 162)
Me.cbxZahlungsaufschub.Name = "cbxZahlungsaufschub"
Me.cbxZahlungsaufschub.Size = New System.Drawing.Size(148, 17)
Me.cbxZahlungsaufschub.TabIndex = 33
Me.cbxZahlungsaufschub.Text = "Zahlungsaufschub / DDA"
Me.cbxZahlungsaufschub.UseVisualStyleBackColor = True
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(170, 99)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(45, 13)
Me.Label2.TabIndex = 32
Me.Label2.Text = "VAT-Nr:"
'
'usrcntlVollmacht_GB_indirekt
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.WhiteSmoke
Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Controls.Add(Me.cbxPostponed)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.txtZahlungsaufschung)
Me.Controls.Add(Me.cbxZahlungsaufschub)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label12)
Me.Controls.Add(Me.cboSprache)
Me.Controls.Add(Me.btnDown)
Me.Controls.Add(Me.btnUp)
Me.Controls.Add(Me.btnDel)
Me.Controls.Add(Me.pic)
Me.Controls.Add(Me.txtAEO)
Me.Controls.Add(Me.Label11)
Me.Controls.Add(Me.btn)
Me.Controls.Add(Me.txtEmail)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.txtFax)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.txtTel)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.txtEori)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.txtUid)
Me.Controls.Add(Me.txtAdresse2)
Me.Controls.Add(Me.txtAdresse1)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.txtFirma)
Me.Controls.Add(Me.lbl)
Me.Controls.Add(Me.lblVollmachtDE)
Me.Name = "usrcntlVollmacht_GB_indirekt"
Me.Size = New System.Drawing.Size(1000, 193)
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents lblVollmachtDE As System.Windows.Forms.Label
Friend WithEvents lbl As System.Windows.Forms.Label
Friend WithEvents txtFirma As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtAdresse1 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents txtAdresse2 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtUid As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtEori As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents txtFax As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents txtTel As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents txtEmail As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents btn As System.Windows.Forms.Button
Friend WithEvents txtAEO As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label11 As System.Windows.Forms.Label
Friend WithEvents pic As System.Windows.Forms.PictureBox
Friend WithEvents btnDown As System.Windows.Forms.Button
Friend WithEvents btnUp As System.Windows.Forms.Button
Friend WithEvents btnDel As System.Windows.Forms.Button
Friend WithEvents cboSprache As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label12 As System.Windows.Forms.Label
Friend WithEvents cbxPostponed As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label7 As Label
Friend WithEvents txtZahlungsaufschung As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents cbxZahlungsaufschub As CheckBox
Friend WithEvents Label2 As Label
End Class

120
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_GB_indirekt.resx Normal file
View File

@@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

101
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_GB_indirekt.vb Normal file
View File

@@ -0,0 +1,101 @@
Public Class usrcntlVollmacht_GB_indirekt
Implements FormualrInterface
Public Event CHANGED(name, value)
Public Event KDNR_CHANGED(kdnr)
Public Event DELETE(c As Control)
Public Event MOVE_UP(c As Control)
Public Event MOVE_DOWN(c As Control)
Public KdNR As Integer = -1
Public Sub ChangeKDNr(kdnr As Integer) _
Implements FormualrInterface.ChangeKDNr
initKdNR(kdnr)
End Sub
'Dim KdNR As Integer = -1
Sub initControlsHandler()
For Each c In Me.Controls
Select Case c.GetType.ToString
Case GetType(VERAG_PROG_ALLGEMEIN.MyTextBox).ToString
AddHandler DirectCast(c, VERAG_PROG_ALLGEMEIN.MyTextBox).Leave, Sub()
RaiseEvent CHANGED(c.name, c.text)
End Sub
Case GetType(VERAG_PROG_ALLGEMEIN.MyComboBox).ToString
AddHandler DirectCast(c, VERAG_PROG_ALLGEMEIN.MyComboBox).SelectedIndexChanged, Sub()
RaiseEvent CHANGED(c.name, c._value)
End Sub
Case GetType(TextBox).ToString
AddHandler DirectCast(c, TextBox).Leave, Sub()
RaiseEvent CHANGED(c.name, c.text)
End Sub
End Select
Next
End Sub
Private Sub cbxEinmaligeVollmacht_CheckedChanged(sender As Object, e As EventArgs) Handles cbxZahlungsaufschub.CheckedChanged
txtZahlungsaufschung.Enabled = sender.checked
End Sub
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
Dim kdsrch As New SDL.frmKundenSuche
'Panel1.Enabled = False
If kdsrch.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK Then
If IsNumeric(kdsrch.kundenNrSearch.Text) Then
initKdNR(kdsrch.kundenNrSearch.Text)
RaiseEvent KDNR_CHANGED(KdNR)
End If
End If
' Panel1.Enabled = True
End Sub
Public Sub initKdNR(KdNR)
Me.KdNR = KdNR
Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(KdNR)
Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNR)
txtFirma.Text = If(ADRESSE.Name_1, "") & If(If(ADRESSE.Name_2, "") <> "", " " & ADRESSE.Name_2, "")
txtAdresse1.Text = If(ADRESSE.Straße, "")
txtAdresse2.Text = (If(ADRESSE.LandKz, "") & " " & If(ADRESSE.PLZ, "") & " " & If(ADRESSE.Ort, "")).ToString.Trim
txtUid.Text = If(ADRESSE.UstIdKz, "") & If(ADRESSE.UstIdNr, "")
txtEori.Text = If(KUNDE.EORITIN, "")
txtTel.Text = If(ADRESSE.Telefon, "")
txtFax.Text = If(ADRESSE.Telefax, "")
txtEmail.Text = If(ADRESSE.E_Mail, "")
' txtAnsprechpartner.Text = If(ADRESSE.Ansprechpartner, "")
End Sub
Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click
RaiseEvent DELETE(Me)
End Sub
Private Sub btnup_Click(sender As Object, e As EventArgs) Handles btnUp.Click
RaiseEvent MOVE_UP(Me)
End Sub
Private Sub btnDown_Click(sender As Object, e As EventArgs) Handles btnDown.Click
RaiseEvent MOVE_DOWN(Me)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs)
End Sub
Private Sub usrcntlVollmacht_AT_Load(sender As Object, e As EventArgs) Handles Me.Load
initControlsHandler()
cboSprache.Items.Clear()
'cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Deutsch", "DE"))
cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Englisch", "EN"))
cbxPostponed.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("JA", "JA"))
cbxPostponed.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEIN", "NEIN"))
If KdNR > 0 Then initKdNR(KdNR)
End Sub
Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click
FormularManagerNEU.genPDF(Me, True)
End Sub
End Class

77
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_VERAG_EXPORT.Designer.vb generated
View File

@@ -148,7 +148,7 @@ Partial Class usrcntlVollmacht_VERAG_EXPORT
'
'btn
'
Me.btn.BackgroundImage = Global.SDL.My.Resources.search
Me.btn.BackgroundImage = Global.SDL.My.Resources.Resources.search
Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.Location = New System.Drawing.Point(937, 34)
@@ -159,12 +159,18 @@ Partial Class usrcntlVollmacht_VERAG_EXPORT
'
'txtEinmalig_RgDat
'
Me.txtEinmalig_RgDat._DateTimeOnly = False
Me.txtEinmalig_RgDat._numbersOnly = False
Me.txtEinmalig_RgDat._numbersOnlyKommastellen = ""
Me.txtEinmalig_RgDat._numbersOnlyTrennzeichen = True
Me.txtEinmalig_RgDat._Prozent = False
Me.txtEinmalig_RgDat._ShortDateNew = False
Me.txtEinmalig_RgDat._ShortDateOnly = False
Me.txtEinmalig_RgDat._TimeOnly = False
Me.txtEinmalig_RgDat._TimeOnly_Seconds = False
Me.txtEinmalig_RgDat._value = Nothing
Me.txtEinmalig_RgDat._Waehrung = False
Me.txtEinmalig_RgDat._WaehrungZeichen = True
Me.txtEinmalig_RgDat.Enabled = False
Me.txtEinmalig_RgDat.ForeColor = System.Drawing.Color.Black
Me.txtEinmalig_RgDat.Location = New System.Drawing.Point(653, 162)
@@ -177,12 +183,18 @@ Partial Class usrcntlVollmacht_VERAG_EXPORT
'
'txtEinmalig_RgNr
'
Me.txtEinmalig_RgNr._DateTimeOnly = False
Me.txtEinmalig_RgNr._numbersOnly = False
Me.txtEinmalig_RgNr._numbersOnlyKommastellen = ""
Me.txtEinmalig_RgNr._numbersOnlyTrennzeichen = True
Me.txtEinmalig_RgNr._Prozent = False
Me.txtEinmalig_RgNr._ShortDateNew = False
Me.txtEinmalig_RgNr._ShortDateOnly = False
Me.txtEinmalig_RgNr._TimeOnly = False
Me.txtEinmalig_RgNr._TimeOnly_Seconds = False
Me.txtEinmalig_RgNr._value = Nothing
Me.txtEinmalig_RgNr._Waehrung = False
Me.txtEinmalig_RgNr._WaehrungZeichen = True
Me.txtEinmalig_RgNr.Enabled = False
Me.txtEinmalig_RgNr.ForeColor = System.Drawing.Color.Black
Me.txtEinmalig_RgNr.Location = New System.Drawing.Point(363, 162)
@@ -195,12 +207,18 @@ Partial Class usrcntlVollmacht_VERAG_EXPORT
'
'txtEmail
'
Me.txtEmail._DateTimeOnly = False
Me.txtEmail._numbersOnly = False
Me.txtEmail._numbersOnlyKommastellen = ""
Me.txtEmail._numbersOnlyTrennzeichen = True
Me.txtEmail._Prozent = False
Me.txtEmail._ShortDateNew = False
Me.txtEmail._ShortDateOnly = False
Me.txtEmail._TimeOnly = False
Me.txtEmail._TimeOnly_Seconds = False
Me.txtEmail._value = Nothing
Me.txtEmail._Waehrung = False
Me.txtEmail._WaehrungZeichen = True
Me.txtEmail.ForeColor = System.Drawing.Color.Black
Me.txtEmail.Location = New System.Drawing.Point(254, 136)
Me.txtEmail.MaxLineLength = -1
@@ -212,12 +230,18 @@ Partial Class usrcntlVollmacht_VERAG_EXPORT
'
'txtFax
'
Me.txtFax._DateTimeOnly = False
Me.txtFax._numbersOnly = False
Me.txtFax._numbersOnlyKommastellen = ""
Me.txtFax._numbersOnlyTrennzeichen = True
Me.txtFax._Prozent = False
Me.txtFax._ShortDateNew = False
Me.txtFax._ShortDateOnly = False
Me.txtFax._TimeOnly = False
Me.txtFax._TimeOnly_Seconds = False
Me.txtFax._value = Nothing
Me.txtFax._Waehrung = False
Me.txtFax._WaehrungZeichen = True
Me.txtFax.ForeColor = System.Drawing.Color.Black
Me.txtFax.Location = New System.Drawing.Point(653, 117)
Me.txtFax.MaxLineLength = -1
@@ -229,12 +253,18 @@ Partial Class usrcntlVollmacht_VERAG_EXPORT
'
'txtTel
'
Me.txtTel._DateTimeOnly = False
Me.txtTel._numbersOnly = False
Me.txtTel._numbersOnlyKommastellen = ""
Me.txtTel._numbersOnlyTrennzeichen = True
Me.txtTel._Prozent = False
Me.txtTel._ShortDateNew = False
Me.txtTel._ShortDateOnly = False
Me.txtTel._TimeOnly = False
Me.txtTel._TimeOnly_Seconds = False
Me.txtTel._value = Nothing
Me.txtTel._Waehrung = False
Me.txtTel._WaehrungZeichen = True
Me.txtTel.ForeColor = System.Drawing.Color.Black
Me.txtTel.Location = New System.Drawing.Point(254, 117)
Me.txtTel.MaxLineLength = -1
@@ -246,12 +276,18 @@ Partial Class usrcntlVollmacht_VERAG_EXPORT
'
'txtEori
'
Me.txtEori._DateTimeOnly = False
Me.txtEori._numbersOnly = False
Me.txtEori._numbersOnlyKommastellen = ""
Me.txtEori._numbersOnlyTrennzeichen = True
Me.txtEori._Prozent = False
Me.txtEori._ShortDateNew = False
Me.txtEori._ShortDateOnly = False
Me.txtEori._TimeOnly = False
Me.txtEori._TimeOnly_Seconds = False
Me.txtEori._value = Nothing
Me.txtEori._Waehrung = False
Me.txtEori._WaehrungZeichen = True
Me.txtEori.ForeColor = System.Drawing.Color.Black
Me.txtEori.Location = New System.Drawing.Point(653, 98)
Me.txtEori.MaxLineLength = -1
@@ -263,13 +299,18 @@ Partial Class usrcntlVollmacht_VERAG_EXPORT
'
'txtUid
'
Me.txtUid._DateTimeOnly = False
Me.txtUid._numbersOnly = False
Me.txtUid._numbersOnlyKommastellen = ""
Me.txtUid._numbersOnlyTrennzeichen = True
Me.txtUid._Prozent = False
Me.txtUid._ShortDateNew = False
Me.txtUid._ShortDateOnly = False
Me.txtUid._TimeOnly = False
Me.txtUid._TimeOnly_Seconds = False
Me.txtUid._value = Nothing
Me.txtUid._Waehrung = False
Me.txtUid._WaehrungZeichen = True
Me.txtUid.ForeColor = System.Drawing.Color.Black
Me.txtUid.Location = New System.Drawing.Point(254, 98)
Me.txtUid.MaxLineLength = -1
@@ -281,12 +322,18 @@ Partial Class usrcntlVollmacht_VERAG_EXPORT
'
'txtAdresse2
'
Me.txtAdresse2._DateTimeOnly = False
Me.txtAdresse2._numbersOnly = False
Me.txtAdresse2._numbersOnlyKommastellen = ""
Me.txtAdresse2._numbersOnlyTrennzeichen = True
Me.txtAdresse2._Prozent = False
Me.txtAdresse2._ShortDateNew = False
Me.txtAdresse2._ShortDateOnly = False
Me.txtAdresse2._TimeOnly = False
Me.txtAdresse2._TimeOnly_Seconds = False
Me.txtAdresse2._value = Nothing
Me.txtAdresse2._Waehrung = False
Me.txtAdresse2._WaehrungZeichen = True
Me.txtAdresse2.ForeColor = System.Drawing.Color.Black
Me.txtAdresse2.Location = New System.Drawing.Point(254, 72)
Me.txtAdresse2.MaxLineLength = -1
@@ -298,12 +345,18 @@ Partial Class usrcntlVollmacht_VERAG_EXPORT
'
'txtAdresse1
'
Me.txtAdresse1._DateTimeOnly = False
Me.txtAdresse1._numbersOnly = False
Me.txtAdresse1._numbersOnlyKommastellen = ""
Me.txtAdresse1._numbersOnlyTrennzeichen = True
Me.txtAdresse1._Prozent = False
Me.txtAdresse1._ShortDateNew = False
Me.txtAdresse1._ShortDateOnly = False
Me.txtAdresse1._TimeOnly = False
Me.txtAdresse1._TimeOnly_Seconds = False
Me.txtAdresse1._value = Nothing
Me.txtAdresse1._Waehrung = False
Me.txtAdresse1._WaehrungZeichen = True
Me.txtAdresse1.ForeColor = System.Drawing.Color.Black
Me.txtAdresse1.Location = New System.Drawing.Point(254, 53)
Me.txtAdresse1.MaxLineLength = -1
@@ -315,12 +368,18 @@ Partial Class usrcntlVollmacht_VERAG_EXPORT
'
'txtFirma
'
Me.txtFirma._DateTimeOnly = False
Me.txtFirma._numbersOnly = False
Me.txtFirma._numbersOnlyKommastellen = ""
Me.txtFirma._numbersOnlyTrennzeichen = True
Me.txtFirma._Prozent = False
Me.txtFirma._ShortDateNew = False
Me.txtFirma._ShortDateOnly = False
Me.txtFirma._TimeOnly = False
Me.txtFirma._TimeOnly_Seconds = False
Me.txtFirma._value = Nothing
Me.txtFirma._Waehrung = False
Me.txtFirma._WaehrungZeichen = True
Me.txtFirma.ForeColor = System.Drawing.Color.Black
Me.txtFirma.Location = New System.Drawing.Point(254, 34)
Me.txtFirma.MaxLineLength = -1
@@ -332,12 +391,18 @@ Partial Class usrcntlVollmacht_VERAG_EXPORT
'
'txtAEO
'
Me.txtAEO._DateTimeOnly = False
Me.txtAEO._numbersOnly = False
Me.txtAEO._numbersOnlyKommastellen = ""
Me.txtAEO._numbersOnlyTrennzeichen = True
Me.txtAEO._Prozent = False
Me.txtAEO._ShortDateNew = False
Me.txtAEO._ShortDateOnly = False
Me.txtAEO._TimeOnly = False
Me.txtAEO._TimeOnly_Seconds = False
Me.txtAEO._value = Nothing
Me.txtAEO._Waehrung = False
Me.txtAEO._WaehrungZeichen = True
Me.txtAEO.ForeColor = System.Drawing.Color.Black
Me.txtAEO.Location = New System.Drawing.Point(653, 136)
Me.txtAEO.MaxLineLength = -1
@@ -358,7 +423,7 @@ Partial Class usrcntlVollmacht_VERAG_EXPORT
'
'pic
'
Me.pic.BackgroundImage = Global.SDL.My.Resources.pdf
Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.pdf
Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.pic.Cursor = System.Windows.Forms.Cursors.Hand
Me.pic.Location = New System.Drawing.Point(5, 5)
@@ -370,7 +435,7 @@ Partial Class usrcntlVollmacht_VERAG_EXPORT
'btnDown
'
Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnDown.BackgroundImage = Global.SDL.My.Resources.pfeil_unten
Me.btnDown.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_unten
Me.btnDown.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnDown.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDown.Location = New System.Drawing.Point(976, 42)
@@ -382,7 +447,7 @@ Partial Class usrcntlVollmacht_VERAG_EXPORT
'btnUp
'
Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnUp.BackgroundImage = Global.SDL.My.Resources.pfeil_oben
Me.btnUp.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_oben
Me.btnUp.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnUp.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnUp.Location = New System.Drawing.Point(976, 22)
@@ -394,7 +459,7 @@ Partial Class usrcntlVollmacht_VERAG_EXPORT
'btnDel
'
Me.btnDel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnDel.BackgroundImage = Global.SDL.My.Resources.del
Me.btnDel.BackgroundImage = Global.SDL.My.Resources.Resources.del
Me.btnDel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDel.Location = New System.Drawing.Point(976, -1)

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

@@ -245,10 +245,12 @@ Partial Class frmFormulare
Me.txtEmail._DateTimeOnly = False
Me.txtEmail._numbersOnly = False
Me.txtEmail._numbersOnlyKommastellen = ""
Me.txtEmail._numbersOnlyTrennzeichen = True
Me.txtEmail._Prozent = False
Me.txtEmail._ShortDateNew = False
Me.txtEmail._ShortDateOnly = False
Me.txtEmail._TimeOnly = False
Me.txtEmail._TimeOnly_Seconds = False
Me.txtEmail._value = Nothing
Me.txtEmail._Waehrung = False
Me.txtEmail._WaehrungZeichen = True

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

@@ -261,6 +261,8 @@ Public Class frmFormulare
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Vollmacht", FormularManagerArten.AT_Vollmacht))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Vollmacht 4200 EV", FormularManagerArten.AT_Vollmacht_EV))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Fiskal-Vollmacht", FormularManagerArten.AT_Fiskal))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GB Vollmacht Import/Export", FormularManagerArten.GB_Vollmacht_IE))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GB Vollmacht indirekt", FormularManagerArten.GB_Vollmacht_indirekt))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Export Vollmacht", FormularManagerArten.VERAG_EXPORT))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA Export Vollmacht", FormularManagerArten.ATILLA_EXPORT))
@@ -428,6 +430,32 @@ Public Class frmFormulare
If cboTextkonserve._value = "" Then cboTextkonserve._value = "Neukunde Fiskal AT"
If cboTextKonserveSprache._value = "" Then cboTextKonserveSprache._value = "DE"
MyFlowLayoutPanel1.Controls.Add(c)
End If
Case FormularManagerArten.GB_Vollmacht_IE
Dim c As New usrcntlVollmacht_GB_IE
If ControlExists_addOK(c.GetType.ToString) Then
c.Width = MyFlowLayoutPanel1.Width - 6
c.KdNR = KdNr
AddHandler c.CHANGED, AddressOf ValueChanged
AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED
AddHandler c.DELETE, AddressOf ControlDELETE
AddHandler c.MOVE_UP, AddressOf ControlMoveUp
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
MyFlowLayoutPanel1.Controls.Add(c)
End If
Case FormularManagerArten.GB_Vollmacht_indirekt
Dim c As New usrcntlVollmacht_GB_indirekt
If ControlExists_addOK(c.GetType.ToString) Then
c.Width = MyFlowLayoutPanel1.Width - 6
c.KdNR = KdNr
AddHandler c.CHANGED, AddressOf ValueChanged
AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED
AddHandler c.DELETE, AddressOf ControlDELETE
AddHandler c.MOVE_UP, AddressOf ControlMoveUp
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
MyFlowLayoutPanel1.Controls.Add(c)
End If
Case FormularManagerArten.ATILLA_EXPORT
@@ -1279,6 +1307,10 @@ Public Class FormularManagerNEU
retStr = FormularManagerNEU.VM_AT_EV(c)
Case GetType(usrcntlVollmacht_AT_Fiskal).ToString
retStr = FormularManagerNEU.VM_AT_Fiskal(c)
Case GetType(usrcntlVollmacht_GB_IE).ToString
retStr = FormularManagerNEU.VM_VERAG_GB_IE(c)
Case GetType(usrcntlVollmacht_GB_indirekt).ToString
retStr = FormularManagerNEU.VM_VERAG_GB_indirect(c)
Case GetType(usrcntlVollmacht_ATILLA_EXPORT).ToString
retStr = FormularManagerNEU.VM_ATILLA_EXPORT(c)
Case GetType(usrcntlVollmacht_VERAG_EXPORT).ToString
@@ -3350,6 +3382,119 @@ Public Class FormularManagerNEU
Return ""
End Function
Shared Function VM_VERAG_GB_IE(usrCntl As usrcntlVollmacht_GB_IE) As String
'Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
Dim add As Integer = -23
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 68 + add, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 74 + add, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 80 + add, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 40, 87 + add, 71, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 133, 87 + add, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 93 + add, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 133, 93 + add, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 99 + add, 80, 6, "bold", 8, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAEO.Text, 133, 99 + add, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
'If usrCntl.cbxEinmaligeVollmacht.Checked Then
'listTowrite = addEinmaligeVM(listTowrite, 0, 215, usrCntl.cboSprache._value, usrCntl.txtEinmalig_RgNr.Text, usrCntl.txtEinmalig_RgDat.Text)
' End If
If usrCntl.cbxZahlungsaufschub.Checked Then
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZahlungsaufschung.Text, 55, 109 + add, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
End If
If usrCntl.cbxPostponed._value = "JA" Then
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("x", 70, 118.5 + add, 3, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
Else
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("x", 86, 118.5 + add, 3, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
End If
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "VERAG", "UNISPED"
Select Case usrCntl.cboSprache._value
Case "EN"
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "GB_VM_IE", listTowrite)
Case Else
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "GB_VM_IE", listTowrite)
End Select
'Case Else
'Select Case usrCntl.cboSprache._value
' Case "EN"
' Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "GB_VM_IE", listTowrite)
' Case Else
' Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "GB_VM_IE", listTowrite)
'End Select
End Select
Return ""
End Function
Shared Function VM_VERAG_GB_indirect(usrCntl As usrcntlVollmacht_GB_indirekt) As String
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
Dim add As Integer = -23
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 68 + add, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 74 + add, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 80 + add, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 40, 87 + add, 71, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 133, 87 + add, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 93 + add, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 133, 93 + add, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 99 + add, 80, 6, "bold", 8, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAEO.Text, 133, 99 + add, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
'If usrCntl.cbxEinmaligeVollmacht.Checked Then
'listTowrite = addEinmaligeVM(listTowrite, 0, 215, usrCntl.cboSprache._value, usrCntl.txtEinmalig_RgNr.Text, usrCntl.txtEinmalig_RgDat.Text)
' End If
If usrCntl.cbxZahlungsaufschub.Checked Then
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZahlungsaufschung.Text, 55, 109 + add, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
End If
If usrCntl.cbxPostponed._value = "JA" Then
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("x", 70, 118.5 + add, 3, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
Else
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("x", 86, 118.5 + add, 3, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
End If
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "VERAG", "UNISPED"
Select Case usrCntl.cboSprache._value
Case "EN"
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "GB_VM_indirekt", listTowrite)
Case Else
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "GB_VM_indirekt", listTowrite)
End Select
'Case Else
'Select Case usrCntl.cboSprache._value
' Case "EN"
' Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "GB_VM_IE", listTowrite)
' Case Else
' Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "GB_VM_IE", listTowrite)
'End Select
End Select
Return ""
End Function
Shared Function Importaviso_VK(usrCntl As usrcntlVorauskasse) As String
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
@@ -5363,6 +5508,9 @@ Public Class FormularManagerArten
Shared Property AT_Vollmacht_EV = "AT_Vollmacht_EV"
Shared Property AT_Fiskal = "AT_Fiskal"
Shared Property GB_Vollmacht_IE = "GB_Vollmacht_IE"
Shared Property GB_Vollmacht_indirekt = "GB_Vollmacht_indirekt"
Shared Property VERAG_EXPORT = "VERAG_EXPORT"
Shared Property ATILLA_EXPORT = "ATILLA_EXPORT"

28
SDL/SDL.vbproj
View File

@@ -512,6 +512,7 @@
<Compile Include="Classes\cGenWord.vb" />
<Compile Include="Classes\cRKSV.vb" />
<Compile Include="Classes\cRKSV_Kasse.vb" />
<Compile Include="Classes\cRKSV_POS.vb" />
<Compile Include="Classes\cSDL.vb" />
<Compile Include="Classes\cSDLAbholung.vb" />
<Compile Include="Classes\cGeschaeftsjahr.vb" />
@@ -554,6 +555,18 @@
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVollmacht_DE_indirekt.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVollmacht_GB_indirekt.Designer.vb">
<DependentUpon>usrcntlVollmacht_GB_indirekt.vb</DependentUpon>
</Compile>
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVollmacht_GB_indirekt.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVollmacht_GB_IE.Designer.vb">
<DependentUpon>usrcntlVollmacht_GB_IE.vb</DependentUpon>
</Compile>
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVollmacht_GB_IE.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrCntlZollbeschau.Designer.vb">
<DependentUpon>usrCntlZollbeschau.vb</DependentUpon>
</Compile>
@@ -566,6 +579,12 @@
<Compile Include="frmEssensbestellungen.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="kassenbuch\frmPOSTerminal.Designer.vb">
<DependentUpon>frmPOSTerminal.vb</DependentUpon>
</Compile>
<Compile Include="kassenbuch\frmPOSTerminal.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="kunden\frmKundenBesonderheiten_Add.Designer.vb">
<DependentUpon>frmKundenBesonderheiten_Add.vb</DependentUpon>
</Compile>
@@ -2811,12 +2830,21 @@
<EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVollmacht_DE_indirekt.resx">
<DependentUpon>usrcntlVollmacht_DE_indirekt.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVollmacht_GB_indirekt.resx">
<DependentUpon>usrcntlVollmacht_GB_indirekt.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVollmacht_GB_IE.resx">
<DependentUpon>usrcntlVollmacht_GB_IE.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\usrCntlZollbeschau.resx">
<DependentUpon>usrCntlZollbeschau.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmEssensbestellungen.resx">
<DependentUpon>frmEssensbestellungen.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="kassenbuch\frmPOSTerminal.resx">
<DependentUpon>frmPOSTerminal.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="kunden\frmKundenBesonderheiten_Add.resx">
<DependentUpon>frmKundenBesonderheiten_Add.vb</DependentUpon>
</EmbeddedResource>

89
SDL/kassenbuch/frmBelegNeu.Designer.vb generated
View File

@@ -22,6 +22,7 @@ Partial Class frmBelegNeu
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmBelegNeu))
Me.dgvBelegPos = New System.Windows.Forms.DataGridView()
Me.clmnAnzahl = New System.Windows.Forms.DataGridViewTextBoxColumn()
@@ -97,6 +98,7 @@ Partial Class frmBelegNeu
Me.Label1 = New System.Windows.Forms.Label()
Me.kdkunde = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
Me.pnlOPt = New System.Windows.Forms.Panel()
Me.btnPOS = New System.Windows.Forms.Button()
Me.cbxBelegOffnen = New System.Windows.Forms.CheckBox()
Me.lblStorno = New System.Windows.Forms.Label()
Me.Label17 = New System.Windows.Forms.Label()
@@ -135,6 +137,7 @@ Partial Class frmBelegNeu
Me.DataGridViewTextBoxColumn8 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn9 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.FlowLayoutPanel2 = New System.Windows.Forms.FlowLayoutPanel()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
CType(Me.dgvBelegPos, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnl.SuspendLayout()
Me.pnlData.SuspendLayout()
@@ -423,12 +426,12 @@ Partial Class frmBelegNeu
'
Me.btnPrint.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnPrint.ForeColor = System.Drawing.Color.Black
Me.btnPrint.Image = Global.SDL.My.Resources.printer2
Me.btnPrint.Image = Global.SDL.My.Resources.Resources.printer2
Me.btnPrint.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnPrint.Location = New System.Drawing.Point(475, 33)
Me.btnPrint.Location = New System.Drawing.Point(556, 33)
Me.btnPrint.Name = "btnPrint"
Me.btnPrint.Padding = New System.Windows.Forms.Padding(0, 0, 5, 0)
Me.btnPrint.Size = New System.Drawing.Size(145, 59)
Me.btnPrint.Size = New System.Drawing.Size(64, 59)
Me.btnPrint.TabIndex = 13
Me.btnPrint.Text = "Beleg drucken" & Global.Microsoft.VisualBasic.ChrW(10) & "und buchen"
Me.btnPrint.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@@ -501,12 +504,15 @@ Partial Class frmBelegNeu
Me.txtAbfertigungsNr._DateTimeOnly = False
Me.txtAbfertigungsNr._numbersOnly = False
Me.txtAbfertigungsNr._numbersOnlyKommastellen = ""
Me.txtAbfertigungsNr._numbersOnlyTrennzeichen = True
Me.txtAbfertigungsNr._Prozent = False
Me.txtAbfertigungsNr._ShortDateNew = False
Me.txtAbfertigungsNr._ShortDateOnly = False
Me.txtAbfertigungsNr._TimeOnly = False
Me.txtAbfertigungsNr._TimeOnly_Seconds = False
Me.txtAbfertigungsNr._value = Nothing
Me.txtAbfertigungsNr._Waehrung = False
Me.txtAbfertigungsNr._WaehrungZeichen = True
Me.txtAbfertigungsNr.ForeColor = System.Drawing.Color.Black
Me.txtAbfertigungsNr.Location = New System.Drawing.Point(266, 259)
Me.txtAbfertigungsNr.MaxLength = 8
@@ -679,12 +685,15 @@ Partial Class frmBelegNeu
Me.txtzuKassieren._DateTimeOnly = False
Me.txtzuKassieren._numbersOnly = False
Me.txtzuKassieren._numbersOnlyKommastellen = ""
Me.txtzuKassieren._numbersOnlyTrennzeichen = True
Me.txtzuKassieren._Prozent = False
Me.txtzuKassieren._ShortDateNew = False
Me.txtzuKassieren._ShortDateOnly = False
Me.txtzuKassieren._TimeOnly = False
Me.txtzuKassieren._TimeOnly_Seconds = False
Me.txtzuKassieren._value = Nothing
Me.txtzuKassieren._Waehrung = True
Me.txtzuKassieren._WaehrungZeichen = True
Me.txtzuKassieren.Enabled = False
Me.txtzuKassieren.ForeColor = System.Drawing.Color.Black
Me.txtzuKassieren.Location = New System.Drawing.Point(441, 133)
@@ -757,7 +766,7 @@ Partial Class frmBelegNeu
'
Me.btnOfferte.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnOfferte.ForeColor = System.Drawing.Color.Black
Me.btnOfferte.Image = Global.SDL.My.Resources.list
Me.btnOfferte.Image = Global.SDL.My.Resources.Resources.list
Me.btnOfferte.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnOfferte.Location = New System.Drawing.Point(212, 6)
Me.btnOfferte.Name = "btnOfferte"
@@ -786,12 +795,15 @@ Partial Class frmBelegNeu
Me.lblAtrKdNr._DateTimeOnly = False
Me.lblAtrKdNr._numbersOnly = False
Me.lblAtrKdNr._numbersOnlyKommastellen = ""
Me.lblAtrKdNr._numbersOnlyTrennzeichen = True
Me.lblAtrKdNr._Prozent = False
Me.lblAtrKdNr._ShortDateNew = False
Me.lblAtrKdNr._ShortDateOnly = False
Me.lblAtrKdNr._TimeOnly = False
Me.lblAtrKdNr._TimeOnly_Seconds = False
Me.lblAtrKdNr._value = Nothing
Me.lblAtrKdNr._Waehrung = False
Me.lblAtrKdNr._WaehrungZeichen = True
Me.lblAtrKdNr.BackColor = System.Drawing.Color.FromArgb(CType(CType(244, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(244, Byte), Integer))
Me.lblAtrKdNr.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.lblAtrKdNr.ForeColor = System.Drawing.Color.Black
@@ -810,12 +822,15 @@ Partial Class frmBelegNeu
Me.lblkundeKdNr._DateTimeOnly = False
Me.lblkundeKdNr._numbersOnly = False
Me.lblkundeKdNr._numbersOnlyKommastellen = ""
Me.lblkundeKdNr._numbersOnlyTrennzeichen = True
Me.lblkundeKdNr._Prozent = False
Me.lblkundeKdNr._ShortDateNew = False
Me.lblkundeKdNr._ShortDateOnly = False
Me.lblkundeKdNr._TimeOnly = False
Me.lblkundeKdNr._TimeOnly_Seconds = False
Me.lblkundeKdNr._value = Nothing
Me.lblkundeKdNr._Waehrung = False
Me.lblkundeKdNr._WaehrungZeichen = True
Me.lblkundeKdNr.BackColor = System.Drawing.Color.FromArgb(CType(CType(244, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(244, Byte), Integer))
Me.lblkundeKdNr.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.lblkundeKdNr.ForeColor = System.Drawing.Color.Black
@@ -858,12 +873,15 @@ Partial Class frmBelegNeu
Me.lblKunde_UstId_Land._DateTimeOnly = False
Me.lblKunde_UstId_Land._numbersOnly = False
Me.lblKunde_UstId_Land._numbersOnlyKommastellen = ""
Me.lblKunde_UstId_Land._numbersOnlyTrennzeichen = True
Me.lblKunde_UstId_Land._Prozent = False
Me.lblKunde_UstId_Land._ShortDateNew = False
Me.lblKunde_UstId_Land._ShortDateOnly = False
Me.lblKunde_UstId_Land._TimeOnly = False
Me.lblKunde_UstId_Land._TimeOnly_Seconds = False
Me.lblKunde_UstId_Land._value = Nothing
Me.lblKunde_UstId_Land._Waehrung = False
Me.lblKunde_UstId_Land._WaehrungZeichen = True
Me.lblKunde_UstId_Land.ForeColor = System.Drawing.Color.Black
Me.lblKunde_UstId_Land.Location = New System.Drawing.Point(62, 117)
Me.lblKunde_UstId_Land.MaxLength = 2
@@ -879,12 +897,15 @@ Partial Class frmBelegNeu
Me.lblKunde_UstId_Nr._DateTimeOnly = False
Me.lblKunde_UstId_Nr._numbersOnly = False
Me.lblKunde_UstId_Nr._numbersOnlyKommastellen = ""
Me.lblKunde_UstId_Nr._numbersOnlyTrennzeichen = True
Me.lblKunde_UstId_Nr._Prozent = False
Me.lblKunde_UstId_Nr._ShortDateNew = False
Me.lblKunde_UstId_Nr._ShortDateOnly = False
Me.lblKunde_UstId_Nr._TimeOnly = False
Me.lblKunde_UstId_Nr._TimeOnly_Seconds = False
Me.lblKunde_UstId_Nr._value = Nothing
Me.lblKunde_UstId_Nr._Waehrung = False
Me.lblKunde_UstId_Nr._WaehrungZeichen = True
Me.lblKunde_UstId_Nr.ForeColor = System.Drawing.Color.Black
Me.lblKunde_UstId_Nr.Location = New System.Drawing.Point(120, 117)
Me.lblKunde_UstId_Nr.MaxLength = 12
@@ -900,12 +921,15 @@ Partial Class frmBelegNeu
Me.txtSteuersatz._DateTimeOnly = False
Me.txtSteuersatz._numbersOnly = False
Me.txtSteuersatz._numbersOnlyKommastellen = ""
Me.txtSteuersatz._numbersOnlyTrennzeichen = True
Me.txtSteuersatz._Prozent = True
Me.txtSteuersatz._ShortDateNew = False
Me.txtSteuersatz._ShortDateOnly = False
Me.txtSteuersatz._TimeOnly = False
Me.txtSteuersatz._TimeOnly_Seconds = False
Me.txtSteuersatz._value = Nothing
Me.txtSteuersatz._Waehrung = False
Me.txtSteuersatz._WaehrungZeichen = True
Me.txtSteuersatz.ForeColor = System.Drawing.Color.Black
Me.txtSteuersatz.Location = New System.Drawing.Point(441, 77)
Me.txtSteuersatz.MaxLineLength = -1
@@ -945,12 +969,15 @@ Partial Class frmBelegNeu
Me.lblFrachtf_Pass._DateTimeOnly = False
Me.lblFrachtf_Pass._numbersOnly = False
Me.lblFrachtf_Pass._numbersOnlyKommastellen = ""
Me.lblFrachtf_Pass._numbersOnlyTrennzeichen = True
Me.lblFrachtf_Pass._Prozent = False
Me.lblFrachtf_Pass._ShortDateNew = False
Me.lblFrachtf_Pass._ShortDateOnly = False
Me.lblFrachtf_Pass._TimeOnly = False
Me.lblFrachtf_Pass._TimeOnly_Seconds = False
Me.lblFrachtf_Pass._value = Nothing
Me.lblFrachtf_Pass._Waehrung = False
Me.lblFrachtf_Pass._WaehrungZeichen = True
Me.lblFrachtf_Pass.ForeColor = System.Drawing.Color.Black
Me.lblFrachtf_Pass.Location = New System.Drawing.Point(441, 182)
Me.lblFrachtf_Pass.MaxLength = 15
@@ -966,12 +993,15 @@ Partial Class frmBelegNeu
Me.lblKunde_Land._DateTimeOnly = False
Me.lblKunde_Land._numbersOnly = False
Me.lblKunde_Land._numbersOnlyKommastellen = ""
Me.lblKunde_Land._numbersOnlyTrennzeichen = True
Me.lblKunde_Land._Prozent = False
Me.lblKunde_Land._ShortDateNew = False
Me.lblKunde_Land._ShortDateOnly = False
Me.lblKunde_Land._TimeOnly = False
Me.lblKunde_Land._TimeOnly_Seconds = False
Me.lblKunde_Land._value = Nothing
Me.lblKunde_Land._Waehrung = False
Me.lblKunde_Land._WaehrungZeichen = True
Me.lblKunde_Land.ForeColor = System.Drawing.Color.Black
Me.lblKunde_Land.Location = New System.Drawing.Point(8, 98)
Me.lblKunde_Land.MaxLength = 3
@@ -987,12 +1017,15 @@ Partial Class frmBelegNeu
Me.lblFrachtf_Fahrer._DateTimeOnly = False
Me.lblFrachtf_Fahrer._numbersOnly = False
Me.lblFrachtf_Fahrer._numbersOnlyKommastellen = ""
Me.lblFrachtf_Fahrer._numbersOnlyTrennzeichen = True
Me.lblFrachtf_Fahrer._Prozent = False
Me.lblFrachtf_Fahrer._ShortDateNew = False
Me.lblFrachtf_Fahrer._ShortDateOnly = False
Me.lblFrachtf_Fahrer._TimeOnly = False
Me.lblFrachtf_Fahrer._TimeOnly_Seconds = False
Me.lblFrachtf_Fahrer._value = Nothing
Me.lblFrachtf_Fahrer._Waehrung = False
Me.lblFrachtf_Fahrer._WaehrungZeichen = True
Me.lblFrachtf_Fahrer.ForeColor = System.Drawing.Color.Black
Me.lblFrachtf_Fahrer.Location = New System.Drawing.Point(441, 163)
Me.lblFrachtf_Fahrer.MaxLength = 40
@@ -1008,12 +1041,15 @@ Partial Class frmBelegNeu
Me.lblKunde_Plz._DateTimeOnly = False
Me.lblKunde_Plz._numbersOnly = False
Me.lblKunde_Plz._numbersOnlyKommastellen = ""
Me.lblKunde_Plz._numbersOnlyTrennzeichen = True
Me.lblKunde_Plz._Prozent = False
Me.lblKunde_Plz._ShortDateNew = False
Me.lblKunde_Plz._ShortDateOnly = False
Me.lblKunde_Plz._TimeOnly = False
Me.lblKunde_Plz._TimeOnly_Seconds = False
Me.lblKunde_Plz._value = Nothing
Me.lblKunde_Plz._Waehrung = False
Me.lblKunde_Plz._WaehrungZeichen = True
Me.lblKunde_Plz.ForeColor = System.Drawing.Color.Black
Me.lblKunde_Plz.Location = New System.Drawing.Point(34, 98)
Me.lblKunde_Plz.MaxLength = 7
@@ -1029,12 +1065,15 @@ Partial Class frmBelegNeu
Me.lblKunde_Strasse._DateTimeOnly = False
Me.lblKunde_Strasse._numbersOnly = False
Me.lblKunde_Strasse._numbersOnlyKommastellen = ""
Me.lblKunde_Strasse._numbersOnlyTrennzeichen = True
Me.lblKunde_Strasse._Prozent = False
Me.lblKunde_Strasse._ShortDateNew = False
Me.lblKunde_Strasse._ShortDateOnly = False
Me.lblKunde_Strasse._TimeOnly = False
Me.lblKunde_Strasse._TimeOnly_Seconds = False
Me.lblKunde_Strasse._value = Nothing
Me.lblKunde_Strasse._Waehrung = False
Me.lblKunde_Strasse._WaehrungZeichen = True
Me.lblKunde_Strasse.ForeColor = System.Drawing.Color.Black
Me.lblKunde_Strasse.Location = New System.Drawing.Point(8, 79)
Me.lblKunde_Strasse.MaxLength = 40
@@ -1050,12 +1089,15 @@ Partial Class frmBelegNeu
Me.lblFrachtf_LKWNr._DateTimeOnly = False
Me.lblFrachtf_LKWNr._numbersOnly = False
Me.lblFrachtf_LKWNr._numbersOnlyKommastellen = ""
Me.lblFrachtf_LKWNr._numbersOnlyTrennzeichen = True
Me.lblFrachtf_LKWNr._Prozent = False
Me.lblFrachtf_LKWNr._ShortDateNew = False
Me.lblFrachtf_LKWNr._ShortDateOnly = False
Me.lblFrachtf_LKWNr._TimeOnly = False
Me.lblFrachtf_LKWNr._TimeOnly_Seconds = False
Me.lblFrachtf_LKWNr._value = Nothing
Me.lblFrachtf_LKWNr._Waehrung = False
Me.lblFrachtf_LKWNr._WaehrungZeichen = True
Me.lblFrachtf_LKWNr.ForeColor = System.Drawing.Color.Black
Me.lblFrachtf_LKWNr.Location = New System.Drawing.Point(110, 164)
Me.lblFrachtf_LKWNr.MaxLength = 25
@@ -1071,12 +1113,15 @@ Partial Class frmBelegNeu
Me.lblKunde_Ort._DateTimeOnly = False
Me.lblKunde_Ort._numbersOnly = False
Me.lblKunde_Ort._numbersOnlyKommastellen = ""
Me.lblKunde_Ort._numbersOnlyTrennzeichen = True
Me.lblKunde_Ort._Prozent = False
Me.lblKunde_Ort._ShortDateNew = False
Me.lblKunde_Ort._ShortDateOnly = False
Me.lblKunde_Ort._TimeOnly = False
Me.lblKunde_Ort._TimeOnly_Seconds = False
Me.lblKunde_Ort._value = Nothing
Me.lblKunde_Ort._Waehrung = False
Me.lblKunde_Ort._WaehrungZeichen = True
Me.lblKunde_Ort.ForeColor = System.Drawing.Color.Black
Me.lblKunde_Ort.Location = New System.Drawing.Point(92, 98)
Me.lblKunde_Ort.MaxLength = 40
@@ -1100,6 +1145,7 @@ Partial Class frmBelegNeu
'
'kdkunde
'
Me.kdkunde._AlleFirmenCLUSTER = False
Me.kdkunde._AllowSetValue = True
Me.kdkunde._autoSizeGross = False
Me.kdkunde._display_Name1 = False
@@ -1108,6 +1154,7 @@ Partial Class frmBelegNeu
Me.kdkunde._displayWoelflKd = False
Me.kdkunde._hideIfListEmpty = True
Me.kdkunde._loadKdData = True
Me.kdkunde._UseFIRMA = ""
Me.kdkunde._ValueKdAndName = False
Me.kdkunde.dgvpos = "LEFT"
Me.kdkunde.KdName = Nothing
@@ -1121,10 +1168,12 @@ Partial Class frmBelegNeu
Me.kdkunde.searchActive = True
Me.kdkunde.Size = New System.Drawing.Size(331, 20)
Me.kdkunde.TabIndex = 10
Me.kdkunde.TIMER_SEARCH = True
Me.kdkunde.usrcntl = Nothing
'
'pnlOPt
'
Me.pnlOPt.Controls.Add(Me.btnPOS)
Me.pnlOPt.Controls.Add(Me.cbxBelegOffnen)
Me.pnlOPt.Controls.Add(Me.lblStorno)
Me.pnlOPt.Controls.Add(Me.Label17)
@@ -1147,6 +1196,20 @@ Partial Class frmBelegNeu
Me.pnlOPt.Size = New System.Drawing.Size(624, 92)
Me.pnlOPt.TabIndex = 6
'
'btnPOS
'
Me.btnPOS.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnPOS.ForeColor = System.Drawing.Color.Black
Me.btnPOS.Image = Global.SDL.My.Resources.Resources.verag_Card1
Me.btnPOS.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnPOS.Location = New System.Drawing.Point(486, 33)
Me.btnPOS.Name = "btnPOS"
Me.btnPOS.Padding = New System.Windows.Forms.Padding(0, 0, 5, 0)
Me.btnPOS.Size = New System.Drawing.Size(64, 59)
Me.btnPOS.TabIndex = 16
Me.btnPOS.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnPOS.UseVisualStyleBackColor = True
'
'cbxBelegOffnen
'
Me.cbxBelegOffnen.AutoSize = True
@@ -1210,7 +1273,7 @@ Partial Class frmBelegNeu
'
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.ForeColor = System.Drawing.Color.Black
Me.Button3.Image = Global.SDL.My.Resources.save
Me.Button3.Image = Global.SDL.My.Resources.Resources.save
Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button3.Location = New System.Drawing.Point(590, 67)
Me.Button3.Name = "Button3"
@@ -1347,12 +1410,15 @@ Partial Class frmBelegNeu
Me.txtEinzelpreis._DateTimeOnly = False
Me.txtEinzelpreis._numbersOnly = True
Me.txtEinzelpreis._numbersOnlyKommastellen = "2"
Me.txtEinzelpreis._numbersOnlyTrennzeichen = True
Me.txtEinzelpreis._Prozent = False
Me.txtEinzelpreis._ShortDateNew = False
Me.txtEinzelpreis._ShortDateOnly = False
Me.txtEinzelpreis._TimeOnly = False
Me.txtEinzelpreis._TimeOnly_Seconds = False
Me.txtEinzelpreis._value = ""
Me.txtEinzelpreis._Waehrung = False
Me.txtEinzelpreis._WaehrungZeichen = True
Me.txtEinzelpreis.Enabled = False
Me.txtEinzelpreis.ForeColor = System.Drawing.Color.Red
Me.txtEinzelpreis.Location = New System.Drawing.Point(-1, 179)
@@ -1369,12 +1435,15 @@ Partial Class frmBelegNeu
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 = ""
Me.MyTextBox1._Waehrung = False
Me.MyTextBox1._WaehrungZeichen = True
Me.MyTextBox1.ForeColor = System.Drawing.Color.Black
Me.MyTextBox1.Location = New System.Drawing.Point(0, 0)
Me.MyTextBox1.MaxLineLength = -1
@@ -1483,6 +1552,7 @@ Partial Class frmBelegNeu
'
'kdFrachtf
'
Me.kdFrachtf._AlleFirmenCLUSTER = False
Me.kdFrachtf._AllowSetValue = True
Me.kdFrachtf._autoSizeGross = False
Me.kdFrachtf._display_Name1 = False
@@ -1491,6 +1561,7 @@ Partial Class frmBelegNeu
Me.kdFrachtf._displayWoelflKd = False
Me.kdFrachtf._hideIfListEmpty = True
Me.kdFrachtf._loadKdData = True
Me.kdFrachtf._UseFIRMA = ""
Me.kdFrachtf._ValueKdAndName = False
Me.kdFrachtf.dgvpos = "LEFT"
Me.kdFrachtf.KdName = Nothing
@@ -1504,6 +1575,7 @@ Partial Class frmBelegNeu
Me.kdFrachtf.searchActive = True
Me.kdFrachtf.Size = New System.Drawing.Size(331, 20)
Me.kdFrachtf.TabIndex = 30
Me.kdFrachtf.TIMER_SEARCH = True
Me.kdFrachtf.usrcntl = Nothing
Me.kdFrachtf.Visible = False
'
@@ -1591,6 +1663,11 @@ Partial Class frmBelegNeu
Me.FlowLayoutPanel2.TabIndex = 3
Me.FlowLayoutPanel2.Visible = False
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4)
'
'frmBelegNeu
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
@@ -1730,4 +1807,6 @@ Partial Class frmBelegNeu
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents txtzuKassieren As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label22 As System.Windows.Forms.Label
Friend WithEvents btnPOS As Button
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
End Class

3
SDL/kassenbuch/frmBelegNeu.resx
View File

@@ -156,6 +156,9 @@
<metadata name="FilialenNr.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<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>

219
SDL/kassenbuch/frmBelegNeu.vb
View File

@@ -1,7 +1,12 @@
Imports System.Data.SqlClient
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
@@ -27,6 +32,13 @@ Public Class frmBelegNeu
Public printErfolgreich = False
Public defaultPrinter = ""
Private EasyZVT_Worker As System.ComponentModel.BackgroundWorker = New System.ComponentModel.BackgroundWorker()
Private Funktion As Integer
Private Betrag As Integer = 0
Private posTerminal As cRKSV_POS
Private dt As DataTable
Private setBreak As Boolean = True
Dim sourceCnTxt As Control = Nothing
Public aktFiliale As Integer = 0
@@ -226,7 +238,7 @@ Public Class frmBelegNeu
Label17.Visible = True
btnPrint.Text = "Beleg Kopie" & vbNewLine & "drucken"
End If
If BELEG.Belegart = "1" Then
EA = "E"
Label19.Text = "Kunden-Beleg"
@@ -245,7 +257,7 @@ Public Class frmBelegNeu
init()
End If
initArt() 'Einnahme/AusgabeBeleg
lblMandant_niederlassung.Text = PERSONAL.Niederlassung
@@ -279,6 +291,15 @@ Public Class frmBelegNeu
cboFiliale.Enabled = False
End If
AddHandler EasyZVT_Worker.DoWork, New ComponentModel.DoWorkEventHandler(AddressOf EasyZVT_Async)
AddHandler EasyZVT_Worker.RunWorkerCompleted, New System.ComponentModel.RunWorkerCompletedEventHandler(AddressOf EasyZVT_OnCompleted)
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("Kassenbuch POS-Terminalzahlungen", Me) = 0 Then
btnPOS.Enabled = False
End If
End Sub
@@ -306,7 +327,7 @@ Public Class frmBelegNeu
Case Else : cbxSplittung.Checked = Not If(BELEG.LKW_Beleg, False)
End Select
aktFiliale = BELEG.FilialenNr
aktAbfertigungsNr = BELEG.AbfertigungsNr
@@ -721,15 +742,20 @@ Public Class frmBelegNeu
' Dim RKSV_Service_Location = "\\192.168.0.106:8733/Design_Time_Addresses/RKSVCompleteServer/Service1/"
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click ', btnPOS.Click
Dim IsPosPayment As Boolean = False
If sender.Name = "btnPOS" Then
IsPosPayment = True
End If
Try
printErfolgreich = False
If BELEG.gebucht Or BELEG.gebuchtStorno Then
' KASSE.LOAD(cboKassen._value)
If BELEG.rksv_id > 0 Then KASSE.LOAD(BELEG.rksv_id)
Select Case BELEG.Belegart
Case "1" : If cRKSV.printKundenBeleg(BELEG, KASSE, PERSONAL, cboPrinter.SelectedItem.ToString, cbxBelegOffnen.Checked) Then Me.Close()
Case "1" : If cRKSV.printKundenBeleg(BELEG, KASSE, PERSONAL, cboPrinter.SelectedItem.ToString, cbxBelegOffnen.Checked, IsPosPayment) Then Me.Close()
Case "2" : If cRKSV.printKundenBelegLG(BELEG, KASSE, PERSONAL, cboPrinter.SelectedItem.ToString, "LG") Then Me.Close() 'Beleg drucken
End Select
Else
@@ -853,10 +879,16 @@ Public Class frmBelegNeu
Me.DialogResult = Windows.Forms.DialogResult.OK
'printBeleg(BELEG, KASSE, PERSONAL, cboPrinter.SelectedItem.ToString) 'Beleg drucken
If IsPosPayment And Betrag > 0 Then
POSpayment(sender, e)
While setBreak
System.Threading.Thread.Sleep(5000)
End While
End If
Select Case BELEG.Belegart
Case "1"
If cRKSV.printKundenBeleg(BELEG, KASSE, PERSONAL, cboPrinter.SelectedItem.ToString, cbxBelegOffnen.Checked) Then
If cRKSV.printKundenBeleg(BELEG, KASSE, PERSONAL, cboPrinter.SelectedItem.ToString, cbxBelegOffnen.Checked, IsPosPayment) Then
'WARTEN
printErfolgreich = True
End If
@@ -898,6 +930,8 @@ Public Class frmBelegNeu
Me.Cursor = Cursors.Default
End If
Catch ex As Exception
Me.DialogResult = Windows.Forms.DialogResult.None
Me.Cursor = Cursors.Default
@@ -1099,7 +1133,8 @@ Public Class frmBelegNeu
' If EA = "E" Then
lblBetrag_Netto.Text = sum.ToString("C")
lblBetrag_Steuern.Text = (sum * txtSteuersatz._value).ToString("C")
lblBetrag_Brutto.Text = (sum + sum * txtSteuersatz._value).ToString("C")
Betrag = (sum + sum * txtSteuersatz._value)
lblBetrag_Brutto.Text = (Betrag).ToString("C")
' Else
' lblBetrag_Netto.Text = (-1 * sum).ToString("C")
' lblBetrag_Steuern.Text = (-1 * (sum * txtSteuersatz._value)).ToString("C")
@@ -1416,7 +1451,8 @@ Public Class frmBelegNeu
End If
End Sub
Function cntPosFilAbf(FilialenNr, AbfertigungsNr) As Integer
For Each b In BELEG.POS
@@ -1455,13 +1491,178 @@ Public Class frmBelegNeu
End If
Next
'neu Laden
FlowLayoutPanel.Controls.Clear()
iniChangePNL()
End Sub
Private Sub EasyZVT_Async(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs)
' Programmstart von ZVTStart.exe und warten auf Programmende
Dim ZVTKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\GUB\ZVT", True)
Try
Dim ZVTStart As String = ZVTKey.GetValue("Start")
Dim Proc As System.Diagnostics.Process
If (Len(ZVTStart) > 1) Then
ZVTKey.SetValue("Ergebnis", 1000, RegistryValueKind.DWord) ' Wenn das Ergebnis 1000 bleibt konnte EasyZVT nicht gestartet werden
Proc = System.Diagnostics.Process.Start(ZVTStart)
System.Threading.Thread.Sleep(posTerminal.pos_wartezeit) ' Warte xx Sekunden bis Prozess ZVTStart geladen ist, dann erst anfangen Flag Aktiv abzufragen
While ZVTKey.GetValue("Aktiv") = 1
System.Threading.Thread.Sleep(500) ' Warten...
End While
Else
MsgBox("EasyZVT ist nicht installiert. Bitte im Internet Explorer über www.easyzvt.de/publish installieren")
End If
Catch ex As Exception
MessageBox.Show("Der Programmstart ist fehlgeschlagen: " & ex.Message)
Exit Sub
End Try
ZVTKey.Close()
End Sub
Private Sub EasyZVT_OnCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs)
' Diese Funktion wird automatisch aufgerufen wenn der Worker-Thread seine Arbeit beendet
' und EasyZVT seine Ausgabewerte in die Registry zurückgeschrieben hat
Dim ZVTKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\GUB\ZVT", True)
Dim response As String = ""
response &= ZVTKey.GetValue("Ergebnis") & vbNewLine
response &= ZVTKey.GetValue("ErgebnisText")
'TextBox_Drucktext.Text = Replace(ZVTKey.GetValue("Drucktext"), vbLf, vbCrLf)
'TextBox_Drucktext2.Text = Replace(ZVTKey.GetValue("Drucktext2"), vbLf, vbCrLf)
'TextBox_BelegNr.Text = ZVTKey.GetValue("BelegNr").ToString
'TextBox_Betrag.Text = ""
'If CheckBoxAutodruck.Checked Then
' If Len(TextBox_Drucktext.Text) > 1 Then
' Button_Kundenbeleg_drucken.PerformClick()
' End If
' If Len(TextBox_Drucktext2.Text) > 1 Then
' Button_Haendlerbeleg_drucken.PerformClick()
' End If
'End If
'TextBox_Betrag.Focus()
'Button_Autorisierung.Enabled = True
'Button_Diagnose.Enabled = True
'Button_Tagesabschluss.Enabled = True
'Button_Storno.Enabled = True
'Button_Gutschrift.Enabled = True
ZVTKey.Close()
MsgBox(response)
setBreak = False
End Sub
Private Sub POSpayment(sender As Object, e As EventArgs) Handles btnPOS.Click
If cboKassen.SelectedItem.Text = "" Then Exit Sub
dt = SQL.loadDgvBySql("SELECT * FROM tblRKSV_POS WHERE [pos_aktiv] = 1 AND [pos_kasse]='" & cboKassen.SelectedItem.Value & "'", "FMZOLL")
Select Case dt.Rows.Count
Case 0
MsgBox("Für diese Kasse ist kein aktives POS-Terminal hinterlegt!")
Exit Sub
Case 1
SetRegEntries()
Case Else
ContextMenuStrip1.Items.Clear()
For i As Integer = 0 To dt.Rows.Count - 1
Dim posMenu = New ToolStripMenuItem() With {.Text = dt.Rows(i).Item("pos_bezeichnung"), .Name = dt.Rows(i).Item("pos_id"), .Font = New Font(Me.Font.FontFamily, Me.Font.Size, FontStyle.Bold)}
AddHandler posMenu.Click, AddressOf mnuItem_Clicked
ContextMenuStrip1.Items.Add(posMenu)
Next
ContextMenuStrip1.Show(Cursor.Position)
End Select
End Sub
Private Sub SetRegEntries(Optional posid As Integer = -1)
If posid = -1 Then
posTerminal = New cRKSV_POS(dt.Rows(0).Item("pos_id"), dt.Rows(0).Item("pos_kasse"))
Else
posTerminal = New cRKSV_POS(posid, dt.Rows(0).Item("pos_kasse"))
End If
Dim ZVTKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\GUB\ZVT", True)
Dim Typ As Long
Try
ZVTKey.SetValue("Funktion", Funktion, RegistryValueKind.DWord)
Typ = posTerminal.pos_typ
ZVTKey.SetValue("Typ", Typ, RegistryValueKind.DWord)
ZVTKey.SetValue("KasseNr", posTerminal.pos_kassennr, RegistryValueKind.String)
ZVTKey.SetValue("COM", posTerminal.pos_com, RegistryValueKind.String)
ZVTKey.SetValue("IP", posTerminal.pos_ip, RegistryValueKind.String)
ZVTKey.SetValue("Port", CInt(posTerminal.pos_port), RegistryValueKind.DWord)
ZVTKey.SetValue("ComSpeed", CInt(posTerminal.pos_comspeed), RegistryValueKind.DWord)
ZVTKey.SetValue("ComStop", CInt(posTerminal.pos_comstop), RegistryValueKind.DWord)
ZVTKey.SetValue("Lizenz", posTerminal.pos_lizenz, RegistryValueKind.String)
If Funktion = 0 Or Funktion = 4 Then
ZVTKey.SetValue("Betrag", Betrag * 100, RegistryValueKind.DWord) 'CENTbeträge 1€ --> 100 CENT
End If
If Funktion = 3 Then
'ZVTKey.SetValue("StornoBetrag", CInt("0" & TextBox_Betrag.Text), RegistryValueKind.DWord)
'ZVTKey.SetValue("StornoBelegNr", CInt("0" & StornoBelegNr.Text), RegistryValueKind.DWord)
End If
If posTerminal.pos_kassendruck Then
ZVTKey.SetValue("Kassedruck", 1, RegistryValueKind.DWord)
Else
ZVTKey.SetValue("Kassedruck", 0, RegistryValueKind.DWord)
End If
ZVTKey.SetValue("Ergebnis", 1000, RegistryValueKind.DWord) ' Zur Sicherheit, falls EasyZVT gar nicht installiert ist oder nicht gestartet werden kann
ZVTKey.SetValue("ErgebnisText", "EasyZVT konnte nicht gestartet werden", RegistryValueKind.String)
'ZVTKey.SetValue("DemoDruckername", comboInstalledPrinters.Text, RegistryValueKind.String)
'If CheckBoxAutodruck.Checked Then
' ZVTKey.SetValue("DemoAutodruck", 1, RegistryValueKind.DWord)
'Else
' ZVTKey.SetValue("DemoAutodruck", 0, RegistryValueKind.DWord)
'End If
'If CheckBoxDummy.Checked Then
' ZVTKey.SetValue("DemoDummydruck", 1, RegistryValueKind.DWord)
'Else
' ZVTKey.SetValue("DemoDummydruck", 0, RegistryValueKind.DWord)
'End If
EasyZVT_Worker.RunWorkerAsync()
Catch ex As Exception
MessageBox.Show("Das Schreiben der Parameter ist fehlgeschlagen: " & ex.Message)
Exit Sub
End Try
ZVTKey.Close()
End Sub
Private Sub mnuItem_Clicked(sender As Object, e As EventArgs)
ContextMenuStrip1.Hide() 'Sometimes the menu items can remain open. May not be necessary for you.
Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem)
If item IsNot Nothing Then
SetRegEntries(item.Name)
End If
End Sub
End Class
Class TestRKSVW

16
SDL/kassenbuch/frmKassenbuch.Designer.vb generated
View File

@@ -69,6 +69,7 @@ Partial Class frmKassenbuch
Me.Button10 = New System.Windows.Forms.Button()
Me.btnBelegGSKunde = New System.Windows.Forms.Button()
Me.pnl = New System.Windows.Forms.Panel()
Me.btnPosTerminal = New System.Windows.Forms.Button()
Me.Button7 = New System.Windows.Forms.Button()
Me.Button9 = New System.Windows.Forms.Button()
Me.Button8 = New System.Windows.Forms.Button()
@@ -659,6 +660,7 @@ Partial Class frmKassenbuch
'
'pnl
'
Me.pnl.Controls.Add(Me.btnPosTerminal)
Me.pnl.Controls.Add(Me.Button7)
Me.pnl.Controls.Add(Me.Label11)
Me.pnl.Controls.Add(Me.Label12)
@@ -673,6 +675,19 @@ Partial Class frmKassenbuch
Me.pnl.TabIndex = 430
Me.pnl.Visible = False
'
'btnPosTerminal
'
Me.btnPosTerminal.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnPosTerminal.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.btnPosTerminal.ForeColor = System.Drawing.Color.Black
Me.btnPosTerminal.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnPosTerminal.Location = New System.Drawing.Point(147, 193)
Me.btnPosTerminal.Name = "btnPosTerminal"
Me.btnPosTerminal.Size = New System.Drawing.Size(129, 30)
Me.btnPosTerminal.TabIndex = 430
Me.btnPosTerminal.Text = "POS Terminal"
Me.btnPosTerminal.UseVisualStyleBackColor = True
'
'Button7
'
Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -875,4 +890,5 @@ Partial Class frmKassenbuch
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button7 As System.Windows.Forms.Button
Friend WithEvents Button10 As Button
Friend WithEvents btnPosTerminal As Button
End Class

20
SDL/kassenbuch/frmKassenbuch.vb
View File

@@ -58,7 +58,7 @@ Public Class frmKassenbuch
If PERSONAL.ID = 274 Then master_Kasse = True
If VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ADMIN" Or VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "SIENER" Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ADMIN" Or VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "SIENER" Or VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "DANIEL" Then
Button6.Visible = True
End If
KennwortTime = Now
@@ -74,6 +74,12 @@ Public Class frmKassenbuch
btnBelegLeihgeld.Enabled = False
btnStorno.Enabled = False
End If
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kassenbuch POS-Terminal einrichten", Me) Then
btnPosTerminal.Enabled = False
End If
End Sub
Sub init()
Dim sqlstr = ""
@@ -1274,4 +1280,16 @@ Public Class frmKassenbuch
print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
print.Show()
End Sub
Private Sub Button11_Click(sender As Object, e As EventArgs) Handles btnPosTerminal.Click
Label18.ForeColor = Color.Black
If Not IsNumeric(cboKassen._value) Then
Label18.ForeColor = Color.Red
Exit Sub
End If
Dim f As New frmPOSTerminal(cboKassen.Text, cboKassen._value)
f.Show()
End Sub
End Class

875
SDL/kassenbuch/frmPOSTerminal.Designer.vb generated Normal file
View File

@@ -0,0 +1,875 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmPOSTerminal
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.dgvTerminals = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.cbx_Dummy = New System.Windows.Forms.CheckBox()
Me.cbx_Autodruck = New System.Windows.Forms.CheckBox()
Me.Label15 = New System.Windows.Forms.Label()
Me.comboInstalledPrinters = New System.Windows.Forms.ComboBox()
Me.Label14 = New System.Windows.Forms.Label()
Me.StornoBelegNr = New System.Windows.Forms.TextBox()
Me.Label13 = New System.Windows.Forms.Label()
Me.cbx_Typ = New System.Windows.Forms.ComboBox()
Me.btn_Haendlerbeleg_drucken = New System.Windows.Forms.Button()
Me.txt_Kassenbon = New System.Windows.Forms.TextBox()
Me.btn_Kundenbeleg_drucken = New System.Windows.Forms.Button()
Me.btn_Gutschrift = New System.Windows.Forms.Button()
Me.btn_Storno = New System.Windows.Forms.Button()
Me.btn_Tagesabschluss = New System.Windows.Forms.Button()
Me.btn_Diagnose = New System.Windows.Forms.Button()
Me.cbx_Kassedruck = New System.Windows.Forms.CheckBox()
Me.Label11 = New System.Windows.Forms.Label()
Me.txt_Drucktext2 = New System.Windows.Forms.TextBox()
Me.Label10 = New System.Windows.Forms.Label()
Me.txt_Drucktext = New System.Windows.Forms.TextBox()
Me.txt_Lizenz = New System.Windows.Forms.TextBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.cbx_ComStop = New System.Windows.Forms.ComboBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.cbx_ComSpeed = New System.Windows.Forms.ComboBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.txt_Port = New System.Windows.Forms.TextBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.txt_IP = New System.Windows.Forms.TextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.cbx_COM = New System.Windows.Forms.ComboBox()
Me.txt_KasseNr = New System.Windows.Forms.TextBox()
Me.Label16 = New System.Windows.Forms.Label()
Me.btnNew = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button()
Me.btn = New System.Windows.Forms.Button()
Me.LinkLabel2 = New System.Windows.Forms.LinkLabel()
Me.txt_KassenBez = New System.Windows.Forms.TextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.cbx_aktiv = New System.Windows.Forms.CheckBox()
Me.txt_Wartezeit = New System.Windows.Forms.TextBox()
Me.Label17 = New System.Windows.Forms.Label()
Me.Label18 = New System.Windows.Forms.Label()
Me.TabControl1 = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.TabPage3 = New System.Windows.Forms.TabPage()
Me.cbx_Sprache = New System.Windows.Forms.ComboBox()
Me.Label22 = New System.Windows.Forms.Label()
Me.btn_Sprache = New System.Windows.Forms.Button()
Me.btn_Kontostand = New System.Windows.Forms.Button()
Me.btn_Druckwiederh = New System.Windows.Forms.Button()
Me.Label21 = New System.Windows.Forms.Label()
Me.Label20 = New System.Windows.Forms.Label()
Me.Label19 = New System.Windows.Forms.Label()
Me.TextBox_Aktiv = New System.Windows.Forms.TextBox()
Me.Label8 = New System.Windows.Forms.Label()
Me.txt_ErgebnisText = New System.Windows.Forms.TextBox()
Me.txt_Ergebnis = New System.Windows.Forms.TextBox()
Me.Label12 = New System.Windows.Forms.Label()
Me.Label9 = New System.Windows.Forms.Label()
Me.txt_BelegNr = New System.Windows.Forms.TextBox()
Me.btn_Autorisierung = New System.Windows.Forms.Button()
Me.txt_Betrag = New System.Windows.Forms.TextBox()
Me.lblWarning = New System.Windows.Forms.Label()
CType(Me.dgvTerminals, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.TabPage2.SuspendLayout()
Me.TabPage3.SuspendLayout()
Me.SuspendLayout()
'
'dgvTerminals
'
Me.dgvTerminals.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvTerminals.AllowUserToAddRows = False
Me.dgvTerminals.AllowUserToDeleteRows = False
Me.dgvTerminals.BackgroundColor = System.Drawing.Color.White
Me.dgvTerminals.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvTerminals.Location = New System.Drawing.Point(12, 12)
Me.dgvTerminals.MultiSelect = False
Me.dgvTerminals.Name = "dgvTerminals"
Me.dgvTerminals.ReadOnly = True
Me.dgvTerminals.RowHeadersVisible = False
Me.dgvTerminals.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvTerminals.Size = New System.Drawing.Size(260, 529)
Me.dgvTerminals.TabIndex = 92
'
'cbx_Dummy
'
Me.cbx_Dummy.AutoSize = True
Me.cbx_Dummy.Location = New System.Drawing.Point(104, 48)
Me.cbx_Dummy.Name = "cbx_Dummy"
Me.cbx_Dummy.Size = New System.Drawing.Size(128, 17)
Me.cbx_Dummy.TabIndex = 137
Me.cbx_Dummy.Text = "Dummy-Kopf drucken"
Me.cbx_Dummy.UseVisualStyleBackColor = True
'
'cbx_Autodruck
'
Me.cbx_Autodruck.AutoSize = True
Me.cbx_Autodruck.Location = New System.Drawing.Point(17, 49)
Me.cbx_Autodruck.Name = "cbx_Autodruck"
Me.cbx_Autodruck.Size = New System.Drawing.Size(75, 17)
Me.cbx_Autodruck.TabIndex = 136
Me.cbx_Autodruck.Text = "Autodruck"
Me.cbx_Autodruck.UseVisualStyleBackColor = True
'
'Label15
'
Me.Label15.AutoSize = True
Me.Label15.Location = New System.Drawing.Point(14, 191)
Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(45, 13)
Me.Label15.TabIndex = 135
Me.Label15.Text = "Drucker"
'
'comboInstalledPrinters
'
Me.comboInstalledPrinters.FormattingEnabled = True
Me.comboInstalledPrinters.Location = New System.Drawing.Point(109, 186)
Me.comboInstalledPrinters.Name = "comboInstalledPrinters"
Me.comboInstalledPrinters.Size = New System.Drawing.Size(101, 21)
Me.comboInstalledPrinters.TabIndex = 134
'
'Label14
'
Me.Label14.AutoSize = True
Me.Label14.Location = New System.Drawing.Point(13, 190)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(76, 13)
Me.Label14.TabIndex = 131
Me.Label14.Text = "StornoBelegNr"
'
'StornoBelegNr
'
Me.StornoBelegNr.Location = New System.Drawing.Point(16, 208)
Me.StornoBelegNr.Name = "StornoBelegNr"
Me.StornoBelegNr.Size = New System.Drawing.Size(78, 20)
Me.StornoBelegNr.TabIndex = 130
'
'Label13
'
Me.Label13.AutoSize = True
Me.Label13.Location = New System.Drawing.Point(8, 258)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(25, 13)
Me.Label13.TabIndex = 128
Me.Label13.Text = "Typ"
'
'cbx_Typ
'
Me.cbx_Typ.FormattingEnabled = True
Me.cbx_Typ.Items.AddRange(New Object() {"0: ZVT Standard", "1: ICP mit Shutter", "2: ICT 220 alt", "3: ICP Zelos", "4: Clover", "5: CCV Base seriell", "10: SIX", "11: OPI", "12: myPOS", "13: TIM-Server"})
Me.cbx_Typ.Location = New System.Drawing.Point(137, 255)
Me.cbx_Typ.MaxDropDownItems = 12
Me.cbx_Typ.Name = "cbx_Typ"
Me.cbx_Typ.Size = New System.Drawing.Size(154, 21)
Me.cbx_Typ.TabIndex = 127
Me.cbx_Typ.Text = "0: ZVT Standard"
'
'btn_Haendlerbeleg_drucken
'
Me.btn_Haendlerbeleg_drucken.Location = New System.Drawing.Point(317, 334)
Me.btn_Haendlerbeleg_drucken.Name = "btn_Haendlerbeleg_drucken"
Me.btn_Haendlerbeleg_drucken.Size = New System.Drawing.Size(122, 23)
Me.btn_Haendlerbeleg_drucken.TabIndex = 126
Me.btn_Haendlerbeleg_drucken.Text = "Drucken"
Me.btn_Haendlerbeleg_drucken.UseVisualStyleBackColor = True
'
'txt_Kassenbon
'
Me.txt_Kassenbon.Font = New System.Drawing.Font("Consolas", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txt_Kassenbon.Location = New System.Drawing.Point(319, 22)
Me.txt_Kassenbon.Multiline = True
Me.txt_Kassenbon.Name = "txt_Kassenbon"
Me.txt_Kassenbon.ReadOnly = True
Me.txt_Kassenbon.Size = New System.Drawing.Size(221, 151)
Me.txt_Kassenbon.TabIndex = 125
Me.txt_Kassenbon.Text = "Kassenbon"
'
'btn_Kundenbeleg_drucken
'
Me.btn_Kundenbeleg_drucken.Location = New System.Drawing.Point(18, 334)
Me.btn_Kundenbeleg_drucken.Name = "btn_Kundenbeleg_drucken"
Me.btn_Kundenbeleg_drucken.Size = New System.Drawing.Size(122, 23)
Me.btn_Kundenbeleg_drucken.TabIndex = 124
Me.btn_Kundenbeleg_drucken.Text = "Drucken"
Me.btn_Kundenbeleg_drucken.UseVisualStyleBackColor = True
'
'btn_Gutschrift
'
Me.btn_Gutschrift.Location = New System.Drawing.Point(265, 194)
Me.btn_Gutschrift.Name = "btn_Gutschrift"
Me.btn_Gutschrift.Size = New System.Drawing.Size(129, 34)
Me.btn_Gutschrift.TabIndex = 123
Me.btn_Gutschrift.Text = "Gutschrift"
Me.btn_Gutschrift.UseVisualStyleBackColor = True
'
'btn_Storno
'
Me.btn_Storno.Location = New System.Drawing.Point(119, 194)
Me.btn_Storno.Name = "btn_Storno"
Me.btn_Storno.Size = New System.Drawing.Size(129, 34)
Me.btn_Storno.TabIndex = 122
Me.btn_Storno.Text = " Storno"
Me.btn_Storno.UseVisualStyleBackColor = True
'
'btn_Tagesabschluss
'
Me.btn_Tagesabschluss.Location = New System.Drawing.Point(305, 45)
Me.btn_Tagesabschluss.Name = "btn_Tagesabschluss"
Me.btn_Tagesabschluss.Size = New System.Drawing.Size(129, 34)
Me.btn_Tagesabschluss.TabIndex = 121
Me.btn_Tagesabschluss.Text = "Tagesabschl."
Me.btn_Tagesabschluss.UseVisualStyleBackColor = True
'
'btn_Diagnose
'
Me.btn_Diagnose.Location = New System.Drawing.Point(160, 45)
Me.btn_Diagnose.Name = "btn_Diagnose"
Me.btn_Diagnose.Size = New System.Drawing.Size(129, 33)
Me.btn_Diagnose.TabIndex = 120
Me.btn_Diagnose.Text = "Diagnose"
Me.btn_Diagnose.UseVisualStyleBackColor = True
'
'cbx_Kassedruck
'
Me.cbx_Kassedruck.AutoSize = True
Me.cbx_Kassedruck.Location = New System.Drawing.Point(16, 23)
Me.cbx_Kassedruck.Name = "cbx_Kassedruck"
Me.cbx_Kassedruck.Size = New System.Drawing.Size(82, 17)
Me.cbx_Kassedruck.TabIndex = 118
Me.cbx_Kassedruck.Text = "Kassedruck"
Me.cbx_Kassedruck.UseVisualStyleBackColor = True
'
'Label11
'
Me.Label11.AutoSize = True
Me.Label11.Location = New System.Drawing.Point(314, 216)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(131, 13)
Me.Label11.TabIndex = 117
Me.Label11.Text = "Drucktext2 (Händlerbeleg)"
'
'txt_Drucktext2
'
Me.txt_Drucktext2.Location = New System.Drawing.Point(317, 232)
Me.txt_Drucktext2.Multiline = True
Me.txt_Drucktext2.Name = "txt_Drucktext2"
Me.txt_Drucktext2.ReadOnly = True
Me.txt_Drucktext2.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
Me.txt_Drucktext2.Size = New System.Drawing.Size(226, 96)
Me.txt_Drucktext2.TabIndex = 116
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Location = New System.Drawing.Point(15, 216)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(125, 13)
Me.Label10.TabIndex = 115
Me.Label10.Text = "Drucktext (Kundenbeleg)"
'
'txt_Drucktext
'
Me.txt_Drucktext.Location = New System.Drawing.Point(17, 232)
Me.txt_Drucktext.Multiline = True
Me.txt_Drucktext.Name = "txt_Drucktext"
Me.txt_Drucktext.ReadOnly = True
Me.txt_Drucktext.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
Me.txt_Drucktext.Size = New System.Drawing.Size(223, 96)
Me.txt_Drucktext.TabIndex = 114
'
'txt_Lizenz
'
Me.txt_Lizenz.Location = New System.Drawing.Point(135, 226)
Me.txt_Lizenz.Name = "txt_Lizenz"
Me.txt_Lizenz.Size = New System.Drawing.Size(190, 20)
Me.txt_Lizenz.TabIndex = 109
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(8, 229)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(37, 13)
Me.Label7.TabIndex = 108
Me.Label7.Text = "Lizenz"
'
'cbx_ComStop
'
Me.cbx_ComStop.FormattingEnabled = True
Me.cbx_ComStop.Items.AddRange(New Object() {"1", "2"})
Me.cbx_ComStop.Location = New System.Drawing.Point(135, 198)
Me.cbx_ComStop.Name = "cbx_ComStop"
Me.cbx_ComStop.Size = New System.Drawing.Size(38, 21)
Me.cbx_ComStop.TabIndex = 107
Me.cbx_ComStop.Text = "1"
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(7, 201)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(50, 13)
Me.Label6.TabIndex = 106
Me.Label6.Text = "ComStop"
'
'cbx_ComSpeed
'
Me.cbx_ComSpeed.FormattingEnabled = True
Me.cbx_ComSpeed.Items.AddRange(New Object() {"9600", "115000"})
Me.cbx_ComSpeed.Location = New System.Drawing.Point(135, 165)
Me.cbx_ComSpeed.Name = "cbx_ComSpeed"
Me.cbx_ComSpeed.Size = New System.Drawing.Size(121, 21)
Me.cbx_ComSpeed.TabIndex = 105
Me.cbx_ComSpeed.Text = "9600"
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(8, 169)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(59, 13)
Me.Label5.TabIndex = 104
Me.Label5.Text = "ComSpeed"
'
'txt_Port
'
Me.txt_Port.Location = New System.Drawing.Point(301, 138)
Me.txt_Port.MaxLength = 5
Me.txt_Port.Name = "txt_Port"
Me.txt_Port.Size = New System.Drawing.Size(58, 20)
Me.txt_Port.TabIndex = 103
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(269, 141)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(26, 13)
Me.Label4.TabIndex = 102
Me.Label4.Text = "Port"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(8, 138)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(17, 13)
Me.Label3.TabIndex = 101
Me.Label3.Text = "IP"
'
'txt_IP
'
Me.txt_IP.Location = New System.Drawing.Point(135, 135)
Me.txt_IP.MaxLength = 30
Me.txt_IP.Name = "txt_IP"
Me.txt_IP.Size = New System.Drawing.Size(121, 20)
Me.txt_IP.TabIndex = 100
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(8, 107)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(55, 13)
Me.Label2.TabIndex = 99
Me.Label2.Text = "Anschluss"
'
'cbx_COM
'
Me.cbx_COM.FormattingEnabled = True
Me.cbx_COM.Items.AddRange(New Object() {"LAN", "COM", "COM1", "COM2", "COM3", "COM4", "COM5", "COM6", "COM7", "COM8", "COM9"})
Me.cbx_COM.Location = New System.Drawing.Point(135, 104)
Me.cbx_COM.Name = "cbx_COM"
Me.cbx_COM.Size = New System.Drawing.Size(121, 21)
Me.cbx_COM.TabIndex = 98
Me.cbx_COM.Text = "LAN"
'
'txt_KasseNr
'
Me.txt_KasseNr.Location = New System.Drawing.Point(137, 10)
Me.txt_KasseNr.MaxLength = 4
Me.txt_KasseNr.Name = "txt_KasseNr"
Me.txt_KasseNr.Size = New System.Drawing.Size(46, 20)
Me.txt_KasseNr.TabIndex = 97
'
'Label16
'
Me.Label16.AutoSize = True
Me.Label16.Location = New System.Drawing.Point(8, 15)
Me.Label16.Name = "Label16"
Me.Label16.Size = New System.Drawing.Size(50, 13)
Me.Label16.TabIndex = 94
Me.Label16.Text = "Kasse Nr"
'
'btnNew
'
Me.btnNew.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.btnNew.Location = New System.Drawing.Point(760, 516)
Me.btnNew.Name = "btnNew"
Me.btnNew.Size = New System.Drawing.Size(78, 23)
Me.btnNew.TabIndex = 138
Me.btnNew.Text = "Speichern"
Me.btnNew.UseVisualStyleBackColor = True
'
'Button1
'
Me.Button1.BackgroundImage = Global.SDL.My.Resources.Resources.del
Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Location = New System.Drawing.Point(225, 521)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(24, 20)
Me.Button1.TabIndex = 140
Me.Button1.UseVisualStyleBackColor = True
'
'btn
'
Me.btn.BackgroundImage = Global.SDL.My.Resources.Resources.plus
Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.Location = New System.Drawing.Point(248, 521)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(24, 20)
Me.btn.TabIndex = 139
Me.btn.UseVisualStyleBackColor = True
'
'LinkLabel2
'
Me.LinkLabel2.AutoSize = True
Me.LinkLabel2.Location = New System.Drawing.Point(360, 43)
Me.LinkLabel2.Name = "LinkLabel2"
Me.LinkLabel2.Size = New System.Drawing.Size(144, 13)
Me.LinkLabel2.TabIndex = 142
Me.LinkLabel2.TabStop = True
Me.LinkLabel2.Text = "Installation ZVT (hier klicken)"
'
'txt_KassenBez
'
Me.txt_KassenBez.Location = New System.Drawing.Point(137, 36)
Me.txt_KassenBez.MaxLength = 4
Me.txt_KassenBez.Name = "txt_KassenBez"
Me.txt_KassenBez.Size = New System.Drawing.Size(86, 20)
Me.txt_KassenBez.TabIndex = 144
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(7, 39)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(112, 13)
Me.Label1.TabIndex = 143
Me.Label1.Text = "Terminal Bezeichnung"
'
'cbx_aktiv
'
Me.cbx_aktiv.AutoSize = True
Me.cbx_aktiv.Location = New System.Drawing.Point(363, 14)
Me.cbx_aktiv.Name = "cbx_aktiv"
Me.cbx_aktiv.Size = New System.Drawing.Size(172, 17)
Me.cbx_aktiv.TabIndex = 145
Me.cbx_aktiv.Text = "aktiv (Terminal angeschlossen)"
Me.cbx_aktiv.UseVisualStyleBackColor = True
'
'txt_Wartezeit
'
Me.txt_Wartezeit.Location = New System.Drawing.Point(137, 64)
Me.txt_Wartezeit.MaxLength = 4
Me.txt_Wartezeit.Name = "txt_Wartezeit"
Me.txt_Wartezeit.Size = New System.Drawing.Size(23, 20)
Me.txt_Wartezeit.TabIndex = 147
Me.txt_Wartezeit.Text = "3"
Me.txt_Wartezeit.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'Label17
'
Me.Label17.AutoSize = True
Me.Label17.Location = New System.Drawing.Point(177, 67)
Me.Label17.Name = "Label17"
Me.Label17.Size = New System.Drawing.Size(88, 13)
Me.Label17.TabIndex = 146
Me.Label17.Text = "Wartezeit in Sec."
'
'Label18
'
Me.Label18.AutoSize = True
Me.Label18.Location = New System.Drawing.Point(8, 67)
Me.Label18.Name = "Label18"
Me.Label18.Size = New System.Drawing.Size(74, 13)
Me.Label18.TabIndex = 148
Me.Label18.Text = "Start von ZVT"
'
'TabControl1
'
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(274, 9)
Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0
Me.TabControl1.Size = New System.Drawing.Size(568, 501)
Me.TabControl1.TabIndex = 149
'
'TabPage1
'
Me.TabPage1.Controls.Add(Me.Label16)
Me.TabPage1.Controls.Add(Me.Label18)
Me.TabPage1.Controls.Add(Me.txt_KasseNr)
Me.TabPage1.Controls.Add(Me.txt_Wartezeit)
Me.TabPage1.Controls.Add(Me.cbx_COM)
Me.TabPage1.Controls.Add(Me.Label17)
Me.TabPage1.Controls.Add(Me.Label2)
Me.TabPage1.Controls.Add(Me.cbx_aktiv)
Me.TabPage1.Controls.Add(Me.txt_IP)
Me.TabPage1.Controls.Add(Me.txt_KassenBez)
Me.TabPage1.Controls.Add(Me.Label3)
Me.TabPage1.Controls.Add(Me.Label1)
Me.TabPage1.Controls.Add(Me.Label4)
Me.TabPage1.Controls.Add(Me.LinkLabel2)
Me.TabPage1.Controls.Add(Me.txt_Port)
Me.TabPage1.Controls.Add(Me.Label5)
Me.TabPage1.Controls.Add(Me.cbx_ComSpeed)
Me.TabPage1.Controls.Add(Me.Label6)
Me.TabPage1.Controls.Add(Me.cbx_ComStop)
Me.TabPage1.Controls.Add(Me.Label7)
Me.TabPage1.Controls.Add(Me.txt_Lizenz)
Me.TabPage1.Controls.Add(Me.Label13)
Me.TabPage1.Controls.Add(Me.cbx_Typ)
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(560, 475)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Allgemein"
Me.TabPage1.UseVisualStyleBackColor = True
'
'TabPage2
'
Me.TabPage2.Controls.Add(Me.Label15)
Me.TabPage2.Controls.Add(Me.txt_Drucktext)
Me.TabPage2.Controls.Add(Me.Label10)
Me.TabPage2.Controls.Add(Me.txt_Drucktext2)
Me.TabPage2.Controls.Add(Me.Label11)
Me.TabPage2.Controls.Add(Me.btn_Kundenbeleg_drucken)
Me.TabPage2.Controls.Add(Me.btn_Haendlerbeleg_drucken)
Me.TabPage2.Controls.Add(Me.comboInstalledPrinters)
Me.TabPage2.Controls.Add(Me.txt_Kassenbon)
Me.TabPage2.Controls.Add(Me.cbx_Kassedruck)
Me.TabPage2.Controls.Add(Me.cbx_Autodruck)
Me.TabPage2.Controls.Add(Me.cbx_Dummy)
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(560, 475)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Ausdruck"
Me.TabPage2.UseVisualStyleBackColor = True
'
'TabPage3
'
Me.TabPage3.Controls.Add(Me.cbx_Sprache)
Me.TabPage3.Controls.Add(Me.Label22)
Me.TabPage3.Controls.Add(Me.btn_Sprache)
Me.TabPage3.Controls.Add(Me.btn_Kontostand)
Me.TabPage3.Controls.Add(Me.btn_Druckwiederh)
Me.TabPage3.Controls.Add(Me.Label21)
Me.TabPage3.Controls.Add(Me.Label20)
Me.TabPage3.Controls.Add(Me.Label19)
Me.TabPage3.Controls.Add(Me.btn_Tagesabschluss)
Me.TabPage3.Controls.Add(Me.btn_Diagnose)
Me.TabPage3.Controls.Add(Me.TextBox_Aktiv)
Me.TabPage3.Controls.Add(Me.btn_Storno)
Me.TabPage3.Controls.Add(Me.btn_Gutschrift)
Me.TabPage3.Controls.Add(Me.Label14)
Me.TabPage3.Controls.Add(Me.Label8)
Me.TabPage3.Controls.Add(Me.txt_ErgebnisText)
Me.TabPage3.Controls.Add(Me.StornoBelegNr)
Me.TabPage3.Controls.Add(Me.txt_Ergebnis)
Me.TabPage3.Controls.Add(Me.Label12)
Me.TabPage3.Controls.Add(Me.Label9)
Me.TabPage3.Controls.Add(Me.txt_BelegNr)
Me.TabPage3.Controls.Add(Me.btn_Autorisierung)
Me.TabPage3.Controls.Add(Me.txt_Betrag)
Me.TabPage3.Location = New System.Drawing.Point(4, 22)
Me.TabPage3.Name = "TabPage3"
Me.TabPage3.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage3.Size = New System.Drawing.Size(560, 475)
Me.TabPage3.TabIndex = 2
Me.TabPage3.Text = "Funktionen"
Me.TabPage3.UseVisualStyleBackColor = True
'
'cbx_Sprache
'
Me.cbx_Sprache.FormattingEnabled = True
Me.cbx_Sprache.Items.AddRange(New Object() {"DE", "FR", "ES", "NL", "IT", "PL"})
Me.cbx_Sprache.Location = New System.Drawing.Point(16, 259)
Me.cbx_Sprache.Name = "cbx_Sprache"
Me.cbx_Sprache.Size = New System.Drawing.Size(80, 21)
Me.cbx_Sprache.TabIndex = 138
Me.cbx_Sprache.Text = "DE"
'
'Label22
'
Me.Label22.AutoSize = True
Me.Label22.Location = New System.Drawing.Point(13, 243)
Me.Label22.Name = "Label22"
Me.Label22.Size = New System.Drawing.Size(47, 13)
Me.Label22.TabIndex = 139
Me.Label22.Text = "Sprache"
'
'btn_Sprache
'
Me.btn_Sprache.Location = New System.Drawing.Point(119, 251)
Me.btn_Sprache.Name = "btn_Sprache"
Me.btn_Sprache.Size = New System.Drawing.Size(129, 34)
Me.btn_Sprache.TabIndex = 137
Me.btn_Sprache.Text = "Srpachauswahl"
Me.btn_Sprache.UseVisualStyleBackColor = True
'
'btn_Kontostand
'
Me.btn_Kontostand.Location = New System.Drawing.Point(413, 194)
Me.btn_Kontostand.Name = "btn_Kontostand"
Me.btn_Kontostand.Size = New System.Drawing.Size(129, 34)
Me.btn_Kontostand.TabIndex = 136
Me.btn_Kontostand.Text = "Kontostandabfr."
Me.btn_Kontostand.UseVisualStyleBackColor = True
'
'btn_Druckwiederh
'
Me.btn_Druckwiederh.Location = New System.Drawing.Point(440, 44)
Me.btn_Druckwiederh.Name = "btn_Druckwiederh"
Me.btn_Druckwiederh.Size = New System.Drawing.Size(114, 34)
Me.btn_Druckwiederh.TabIndex = 135
Me.btn_Druckwiederh.Text = "Druckwiederholung"
Me.btn_Druckwiederh.UseVisualStyleBackColor = True
'
'Label21
'
Me.Label21.AutoSize = True
Me.Label21.Location = New System.Drawing.Point(14, 355)
Me.Label21.Name = "Label21"
Me.Label21.Size = New System.Drawing.Size(43, 13)
Me.Label21.TabIndex = 134
Me.Label21.Text = "Antwort"
'
'Label20
'
Me.Label20.AutoSize = True
Me.Label20.Location = New System.Drawing.Point(13, 164)
Me.Label20.Name = "Label20"
Me.Label20.Size = New System.Drawing.Size(235, 13)
Me.Label20.TabIndex = 133
Me.Label20.Text = "Funktionen mit Standard- oder Professionallizenz"
'
'Label19
'
Me.Label19.AutoSize = True
Me.Label19.Location = New System.Drawing.Point(6, 3)
Me.Label19.Name = "Label19"
Me.Label19.Size = New System.Drawing.Size(120, 13)
Me.Label19.TabIndex = 132
Me.Label19.Text = "Funktionen ohne Lizenz"
'
'TextBox_Aktiv
'
Me.TextBox_Aktiv.BackColor = System.Drawing.Color.Gray
Me.TextBox_Aktiv.Location = New System.Drawing.Point(13, 440)
Me.TextBox_Aktiv.Name = "TextBox_Aktiv"
Me.TextBox_Aktiv.Size = New System.Drawing.Size(123, 20)
Me.TextBox_Aktiv.TabIndex = 129
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(14, 22)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(38, 13)
Me.Label8.TabIndex = 110
Me.Label8.Text = "Betrag"
'
'txt_ErgebnisText
'
Me.txt_ErgebnisText.Location = New System.Drawing.Point(167, 382)
Me.txt_ErgebnisText.Multiline = True
Me.txt_ErgebnisText.Name = "txt_ErgebnisText"
Me.txt_ErgebnisText.ReadOnly = True
Me.txt_ErgebnisText.Size = New System.Drawing.Size(375, 43)
Me.txt_ErgebnisText.TabIndex = 113
'
'txt_Ergebnis
'
Me.txt_Ergebnis.Location = New System.Drawing.Point(109, 382)
Me.txt_Ergebnis.Name = "txt_Ergebnis"
Me.txt_Ergebnis.ReadOnly = True
Me.txt_Ergebnis.Size = New System.Drawing.Size(44, 20)
Me.txt_Ergebnis.TabIndex = 112
'
'Label12
'
Me.Label12.AutoSize = True
Me.Label12.Location = New System.Drawing.Point(13, 412)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(45, 13)
Me.Label12.TabIndex = 133
Me.Label12.Text = "BelegNr"
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Location = New System.Drawing.Point(13, 385)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(48, 13)
Me.Label9.TabIndex = 111
Me.Label9.Text = "Ergebnis"
'
'txt_BelegNr
'
Me.txt_BelegNr.Location = New System.Drawing.Point(109, 405)
Me.txt_BelegNr.Name = "txt_BelegNr"
Me.txt_BelegNr.ReadOnly = True
Me.txt_BelegNr.Size = New System.Drawing.Size(44, 20)
Me.txt_BelegNr.TabIndex = 132
'
'btn_Autorisierung
'
Me.btn_Autorisierung.Location = New System.Drawing.Point(9, 45)
Me.btn_Autorisierung.Name = "btn_Autorisierung"
Me.btn_Autorisierung.Size = New System.Drawing.Size(129, 33)
Me.btn_Autorisierung.TabIndex = 96
Me.btn_Autorisierung.Text = "Autorisierung starten"
Me.btn_Autorisierung.UseVisualStyleBackColor = True
'
'txt_Betrag
'
Me.txt_Betrag.Location = New System.Drawing.Point(108, 19)
Me.txt_Betrag.MaxLength = 8
Me.txt_Betrag.Name = "txt_Betrag"
Me.txt_Betrag.Size = New System.Drawing.Size(46, 20)
Me.txt_Betrag.TabIndex = 95
Me.txt_Betrag.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'lblWarning
'
Me.lblWarning.AutoSize = True
Me.lblWarning.ForeColor = System.Drawing.Color.Red
Me.lblWarning.Location = New System.Drawing.Point(487, 9)
Me.lblWarning.Name = "lblWarning"
Me.lblWarning.Size = New System.Drawing.Size(47, 13)
Me.lblWarning.TabIndex = 150
Me.lblWarning.Text = "Warning"
'
'frmPOSTerminal
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(847, 550)
Me.Controls.Add(Me.lblWarning)
Me.Controls.Add(Me.TabControl1)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.btn)
Me.Controls.Add(Me.btnNew)
Me.Controls.Add(Me.dgvTerminals)
Me.Name = "frmPOSTerminal"
Me.Text = "POS Terminal einstellen"
CType(Me.dgvTerminals, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabControl1.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
Me.TabPage1.PerformLayout()
Me.TabPage2.ResumeLayout(False)
Me.TabPage2.PerformLayout()
Me.TabPage3.ResumeLayout(False)
Me.TabPage3.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents dgvTerminals As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents cbx_Dummy As CheckBox
Friend WithEvents cbx_Autodruck As CheckBox
Friend WithEvents Label15 As Label
Friend WithEvents comboInstalledPrinters As ComboBox
Friend WithEvents Label14 As Label
Friend WithEvents StornoBelegNr As TextBox
Friend WithEvents Label13 As Label
Friend WithEvents cbx_Typ As ComboBox
Friend WithEvents btn_Haendlerbeleg_drucken As Button
Friend WithEvents txt_Kassenbon As TextBox
Friend WithEvents btn_Kundenbeleg_drucken As Button
Friend WithEvents btn_Gutschrift As Button
Friend WithEvents btn_Storno As Button
Friend WithEvents btn_Tagesabschluss As Button
Friend WithEvents btn_Diagnose As Button
Friend WithEvents cbx_Kassedruck As CheckBox
Friend WithEvents Label11 As Label
Friend WithEvents txt_Drucktext2 As TextBox
Friend WithEvents Label10 As Label
Friend WithEvents txt_Drucktext As TextBox
Friend WithEvents txt_Lizenz As TextBox
Friend WithEvents Label7 As Label
Friend WithEvents cbx_ComStop As ComboBox
Friend WithEvents Label6 As Label
Friend WithEvents cbx_ComSpeed As ComboBox
Friend WithEvents Label5 As Label
Friend WithEvents txt_Port As TextBox
Friend WithEvents Label4 As Label
Friend WithEvents Label3 As Label
Friend WithEvents txt_IP As TextBox
Friend WithEvents Label2 As Label
Friend WithEvents cbx_COM As ComboBox
Friend WithEvents txt_KasseNr As TextBox
Friend WithEvents Label16 As Label
Friend WithEvents btnNew As Button
Friend WithEvents Button1 As Button
Friend WithEvents btn As Button
Friend WithEvents LinkLabel2 As LinkLabel
Friend WithEvents txt_KassenBez As TextBox
Friend WithEvents Label1 As Label
Friend WithEvents cbx_aktiv As CheckBox
Friend WithEvents txt_Wartezeit As TextBox
Friend WithEvents Label17 As Label
Friend WithEvents Label18 As Label
Friend WithEvents TabControl1 As TabControl
Friend WithEvents TabPage1 As TabPage
Friend WithEvents TabPage2 As TabPage
Friend WithEvents TabPage3 As TabPage
Friend WithEvents lblWarning As Label
Friend WithEvents Label21 As Label
Friend WithEvents Label20 As Label
Friend WithEvents Label19 As Label
Friend WithEvents TextBox_Aktiv As TextBox
Friend WithEvents Label8 As Label
Friend WithEvents txt_ErgebnisText As TextBox
Friend WithEvents txt_Ergebnis As TextBox
Friend WithEvents Label12 As Label
Friend WithEvents Label9 As Label
Friend WithEvents txt_BelegNr As TextBox
Friend WithEvents btn_Autorisierung As Button
Friend WithEvents txt_Betrag As TextBox
Friend WithEvents btn_Druckwiederh As Button
Friend WithEvents btn_Kontostand As Button
Friend WithEvents cbx_Sprache As ComboBox
Friend WithEvents Label22 As Label
Friend WithEvents btn_Sprache As Button
End Class

120
SDL/kassenbuch/frmPOSTerminal.resx Normal file
View File

@@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

697
SDL/kassenbuch/frmPOSTerminal.vb Normal file
View File

@@ -0,0 +1,697 @@
Imports System.Drawing.Printing
Imports System.Security.Authentication.ExtendedProtection
Imports com.sun.tools.corba.se.idl.constExpr
Imports DocumentFormat.OpenXml.Drawing.Diagrams
Imports java.awt.print
Imports Microsoft.Win32
Imports TAlex.WPF.Helpers
Public Class frmPOSTerminal
Dim currentPOS As cRKSV_POS
Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL
'Public Sub New(ByVal _rptKundenBeleg, betrag)
' rptKundenBeleg = _rptKundenBeleg
' betrag = CInt(betrag)
'End Sub
Public Sub New(_kasse, _kassenId)
InitializeComponent()
kasse = _kasse
kassenID = _kassenId
End Sub
' Erstellt durch Jan Groetzner, Groetzner Unternehmensberatung, Seevetal
' Version: 02.03.2020
' Kontakt: easyzvt@groetzner.de
' Dieser Quellcode dient als Beispielimplementierung zur Einbindung von EasyZVT in die eigene Kassenanwendung.
' Der Code und auch Teile davon dürfen frei kopiert und in der Kassenanwendung verwendet werden
Private EasyZVT_Worker As System.ComponentModel.BackgroundWorker = New System.ComponentModel.BackgroundWorker()
Private Funktion As Integer
Private rptKundenBeleg As rptKundenBeleg
Private Betrag As Integer
Private kasse As String
Private kassenID As Integer
Private WithEvents PDoc As Printing.PrintDocument
Private Sub SetRegistryParameter()
'Funktion holt Werte direkt aus der Oberfläche (TextBox_...) und schreibt diese in die Registry als Eingabeparameter für EasyZVT.
'Im wahren Leben stehen diese Werte in Datenbankeinträgen der Stammdatenverwaltung in der Hauptanwendung
Dim ZVTKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\GUB\ZVT", True)
Dim TypSelected As String
Dim Typ As Long
Try
ZVTKey.SetValue("Funktion", Funktion, RegistryValueKind.DWord)
TypSelected = Strings.Left(cbx_Typ.Text, 2).Replace(":", "")
Typ = TypSelected
ZVTKey.SetValue("Typ", Typ, RegistryValueKind.DWord)
ZVTKey.SetValue("KasseNr", txt_KasseNr.Text, RegistryValueKind.String)
ZVTKey.SetValue("COM", cbx_COM.Text, RegistryValueKind.String)
ZVTKey.SetValue("IP", txt_IP.Text, RegistryValueKind.String)
ZVTKey.SetValue("Port", CInt(txt_Port.Text), RegistryValueKind.DWord)
ZVTKey.SetValue("ComSpeed", CInt(cbx_ComSpeed.Text), RegistryValueKind.DWord)
ZVTKey.SetValue("ComStop", CInt(cbx_ComStop.Text), RegistryValueKind.DWord)
ZVTKey.SetValue("Lizenz", txt_Lizenz.Text, RegistryValueKind.String)
Select Case Funktion
Case 0, 4
Betrag = CInt("0" & txt_Betrag.Text)
ZVTKey.SetValue("Betrag", Betrag, RegistryValueKind.DWord)
Case 3
ZVTKey.SetValue("StornoBetrag", CInt("0" & txt_Betrag.Text), RegistryValueKind.DWord)
ZVTKey.SetValue("StornoBelegNr", CInt("0" & StornoBelegNr.Text), RegistryValueKind.DWord)
Case 12 'Sprache
ZVTKey.SetValue("Sprache", cbx_Sprache.Text, RegistryValueKind.DWord)
End Select
If cbx_Kassedruck.Checked Then
ZVTKey.SetValue("Kassedruck", 1, RegistryValueKind.DWord)
Else
ZVTKey.SetValue("Kassedruck", 0, RegistryValueKind.DWord)
End If
ZVTKey.SetValue("Ergebnis", 1000, RegistryValueKind.DWord) ' Zur Sicherheit, falls EasyZVT gar nicht installiert ist oder nicht gestartet werden kann
ZVTKey.SetValue("ErgebnisText", "EasyZVT konnte nicht gestartet werden", RegistryValueKind.String)
ZVTKey.SetValue("DemoDruckername", comboInstalledPrinters.Text, RegistryValueKind.String)
If cbx_Autodruck.Checked Then
ZVTKey.SetValue("DemoAutodruck", 1, RegistryValueKind.DWord)
Else
ZVTKey.SetValue("DemoAutodruck", 0, RegistryValueKind.DWord)
End If
If cbx_Dummy.Checked Then
ZVTKey.SetValue("DemoDummydruck", 1, RegistryValueKind.DWord)
Else
ZVTKey.SetValue("DemoDummydruck", 0, RegistryValueKind.DWord)
End If
btn_Autorisierung.Enabled = False
btn_Diagnose.Enabled = False
btn_Tagesabschluss.Enabled = False
btn_Storno.Enabled = False
btn_Gutschrift.Enabled = False
btn_Sprache.Enabled = False
btn_Druckwiederh.Enabled = False
btn_Kontostand.Enabled = False
txt_ErgebnisText.Text = "EasyZVT-Zahlung aktiv"
TextBox_Aktiv.Text = "warte auf Aktiv=0"
Catch ex As Exception
MessageBox.Show("Das Schreiben der Parameter ist fehlgeschlagen: " & ex.Message)
Exit Sub
End Try
ZVTKey.Close()
End Sub
Private Sub Autorisierung()
If txt_Betrag.Text = "" Then
txt_Betrag.Focus()
Exit Sub
End If
Funktion = 0
SetRegistryParameter()
EasyZVT_Worker.RunWorkerAsync()
End Sub
Private Sub Button_Autorisierung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Autorisierung.Click
'Zahlung per Klick auslösen
Autorisierung()
End Sub
Private Sub TextBox_Betrag_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
End Sub
Private Sub EasyZVT_Async(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs)
' Programmstart von ZVTStart.exe und warten auf Programmende
Dim ZVTKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\GUB\ZVT", True)
Try
Dim ZVTStart As String = ZVTKey.GetValue("Start")
Dim Proc As System.Diagnostics.Process
If (Len(ZVTStart) > 1) Then
ZVTKey.SetValue("Ergebnis", 1000, RegistryValueKind.DWord) ' Wenn das Ergebnis 1000 bleibt konnte EasyZVT nicht gestartet werden
Proc = System.Diagnostics.Process.Start(ZVTStart)
System.Threading.Thread.Sleep(currentPOS.pos_wartezeit) ' Warte xx Sekunden bis Prozess ZVTStart geladen ist, dann erst anfangen Flag Aktiv abzufragen
While ZVTKey.GetValue("Aktiv") = 1
System.Threading.Thread.Sleep(500) ' Warten...
If TextBox_Aktiv.BackColor = Color.Gray Then ' kleine Spielerei :-)
TextBox_Aktiv.BackColor = Color.Red
Else
TextBox_Aktiv.BackColor = Color.Gray
End If
End While
TextBox_Aktiv.BackColor = Color.Gray
Else
MsgBox("EasyZVT ist nicht installiert. Bitte im Internet Explorer über www.easyzvt.de/publish installieren")
End If
Catch ex As Exception
MessageBox.Show("Der Programmstart ist fehlgeschlagen: " & ex.Message)
Exit Sub
End Try
ZVTKey.Close()
End Sub
Private Sub EasyZVT_OnCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs)
' Diese Funktion wird automatisch aufgerufen wenn der Worker-Thread seine Arbeit beendet
' und EasyZVT seine Ausgabewerte in die Registry zurückgeschrieben hat
Dim ZVTKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\GUB\ZVT", True)
TextBox_Aktiv.Text = ""
txt_Ergebnis.Text = ZVTKey.GetValue("Ergebnis")
txt_ErgebnisText.Text = ZVTKey.GetValue("ErgebnisText")
txt_Drucktext.Text = Replace(ZVTKey.GetValue("Drucktext"), vbLf, vbCrLf)
txt_Drucktext2.Text = Replace(ZVTKey.GetValue("Drucktext2"), vbLf, vbCrLf)
txt_BelegNr.Text = ZVTKey.GetValue("BelegNr").ToString
txt_Betrag.Text = ""
If cbx_Autodruck.Checked Then
If Len(txt_Drucktext.Text) > 1 Then
btn_Kundenbeleg_drucken.PerformClick()
End If
If Len(txt_Drucktext2.Text) > 1 Then
btn_Haendlerbeleg_drucken.PerformClick()
End If
End If
txt_Betrag.Focus()
btn_Autorisierung.Enabled = True
btn_Diagnose.Enabled = True
btn_Tagesabschluss.Enabled = True
btn_Storno.Enabled = True
btn_Gutschrift.Enabled = True
btn_Sprache.Enabled = True
btn_Druckwiederh.Enabled = True
btn_Kontostand.Enabled = True
ZVTKey.Close()
End Sub
Private Sub Button_Diagnose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Diagnose.Click
Funktion = 1
SetRegistryParameter()
EasyZVT_Worker.RunWorkerAsync()
End Sub
Private Sub Button_Tagesabschluss_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Tagesabschluss.Click
Funktion = 2
SetRegistryParameter()
EasyZVT_Worker.RunWorkerAsync()
End Sub
Private Sub Button_Storno_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Storno.Click
If txt_Betrag.Text = "" Then
txt_Betrag.Focus()
Exit Sub
End If
If StornoBelegNr.Text = "" Then
StornoBelegNr.Focus()
Exit Sub
End If
Funktion = 3
SetRegistryParameter()
EasyZVT_Worker.RunWorkerAsync()
End Sub
Private Sub Button_Gutschrift_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Gutschrift.Click
If txt_Betrag.Text = "" Then
txt_Betrag.Focus()
Exit Sub
End If
Funktion = 4
SetRegistryParameter()
EasyZVT_Worker.RunWorkerAsync()
End Sub
Private Sub btn_Druckwiederh_Click(sender As Object, e As EventArgs) Handles btn_Druckwiederh.Click
Funktion = 5
SetRegistryParameter()
EasyZVT_Worker.RunWorkerAsync()
End Sub
Private Sub btn_Kontostand_Click(sender As Object, e As EventArgs) Handles btn_Kontostand.Click
Funktion = 7
SetRegistryParameter()
EasyZVT_Worker.RunWorkerAsync()
End Sub
Private Sub btn_Sprache_Click(sender As Object, e As EventArgs) Handles btn_Sprache.Click
Funktion = 13
SetRegistryParameter()
EasyZVT_Worker.RunWorkerAsync()
End Sub
Private Sub PDoc_SeiteDrucken(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PDoc.PrintPage
'Dim Textfont As Font = TextBox_Kassenbon.Font
Dim Hoehe, Breite As Integer
Dim Links, Oben As Integer
With PDoc.DefaultPageSettings
'Hoehe = .PaperSize.Height - .Margins.Top - .Margins.Bottom
'Breite = .PaperSize.Width - .Margins.Left - .Margins.Right
Hoehe = 500 ' 5,00 Zoll
Breite = 270 ' = 2,70 zoll
'Links = PDoc.DefaultPageSettings.Margins.Left
'Oben = PDoc.DefaultPageSettings.Margins.Top
Links = 10
Oben = 10
End With
' Einen Rahmen zeichnen
Dim Rahmen As New Rectangle(Links, Oben, Breite, Hoehe)
e.Graphics.DrawRectangle(Pens.Blue, Rahmen)
' In den Rahmen den Kassenbontext zeichnen
Dim StrFormat As StringFormat
StrFormat = New StringFormat(StringFormatFlags.LineLimit)
'e.Graphics.DrawString(TextBox_Kassenbon.Text, Textfont, Brushes.Black, Rahmen, StrFormat)
e.HasMorePages = False
End Sub
Private Sub PopulateInstalledPrintersCombo()
' Add list of installed printers found to the combo box.
' The pkInstalledPrinters string will be used to provide the display string.
Dim i As Integer
Dim pkInstalledPrinters As String
For i = 0 To PrinterSettings.InstalledPrinters.Count - 1
pkInstalledPrinters = PrinterSettings.InstalledPrinters.Item(i)
comboInstalledPrinters.Items.Add(pkInstalledPrinters)
Next
End Sub
Private Sub comboInstalledPrinters_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Sub initDgv()
With dgvTerminals
.Columns.Clear()
.SET_SQL("SELECT [pos_id],[pos_aktiv],[pos_kassennr],[pos_bezeichnung] ,[pos_kasse] ,[pos_com]
,[pos_baudrate] ,[pos_comspeed] ,[pos_comstop] ,[pos_ip] ,[pos_port] ,[pos_typ]
,[pos_lizenz] ,[pos_kassendruck] ,[pos_demoausdruck]
,[pos_demodummyausdruck] ,[pos_pin] ,[pos_händerbeleg_drucken] ,[pos_storno] ,[pos_wartezeit]
FROM [VERAG].[dbo].[tblRKSV_POS] WHERE [pos_kasse] =" & kassenID, "FMZOLL")
.LOAD()
If .Columns.Count < 1 Then Exit Sub
.Columns("pos_id").Visible = False
.Columns("pos_bezeichnung").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopLeft
.Columns("pos_bezeichnung").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("pos_bezeichnung").HeaderText = "Terminal"
.Columns("pos_kassennr").Width = 40
.Columns("pos_kassennr").HeaderText = "K-Nr"
.Columns("pos_aktiv").Width = 25
.Columns("pos_aktiv").HeaderText = ""
.Columns("pos_kassendruck").Visible = False
.Columns("pos_kasse").Visible = False
.Columns("pos_com").Visible = False
.Columns("pos_baudrate").Visible = False
.Columns("pos_comspeed").Visible = False
.Columns("pos_comstop").Visible = False
.Columns("pos_port").Visible = False
.Columns("pos_typ").Visible = False
.Columns("pos_lizenz").Visible = False
.Columns("pos_kassendruck").Visible = False
.Columns("pos_demoausdruck").Visible = False
.Columns("pos_demodummyausdruck").Visible = False
.Columns("pos_pin").Visible = False
.Columns("pos_händerbeleg_drucken").Visible = False
.Columns("pos_storno").Visible = False
.Columns("pos_wartezeit").Visible = False
.Columns("pos_ip").HeaderText = "IP-Adresse"
.Columns("pos_ip").Width = 100
End With
End Sub
Private Sub frmPOSTerminal_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
Text = kasse & " - POS Terminal einstellen "
lblWarning.Text = ""
btnNew.Enabled = False
initDgv()
AddHandler EasyZVT_Worker.DoWork, New System.ComponentModel.DoWorkEventHandler(AddressOf EasyZVT_Async)
AddHandler EasyZVT_Worker.RunWorkerCompleted, New System.ComponentModel.RunWorkerCompletedEventHandler(AddressOf EasyZVT_OnCompleted)
If dgvTerminals.Columns.Count < 1 Then
loadCurrentPOS()
End If
Catch ex As Exception
MessageBox.Show("Fehler beim Einlesen der Standardwerte: " & ex.Message)
End Try
End Sub
Private Sub loadCurrentPOS()
btnNew.Enabled = False
If dgvTerminals.SelectedRows.Count > 0 Then
currentPOS = New cRKSV_POS(dgvTerminals.SelectedRows(0).Cells("pos_Id").Value, dgvTerminals.SelectedRows(0).Cells("pos_kasse").Value)
txt_KassenBez.Text = currentPOS.pos_bezeichnung
cbx_aktiv.Checked = currentPOS.pos_aktiv
txt_Wartezeit.Text = currentPOS.pos_wartezeit / 1000
txt_KasseNr.Text = currentPOS.pos_kassennr
cbx_COM.Text = currentPOS.pos_com
txt_IP.Text = currentPOS.pos_ip
txt_Port.Text = currentPOS.pos_port
cbx_ComSpeed.Text = currentPOS.pos_comspeed
cbx_ComStop.Text = currentPOS.pos_comstop
txt_Lizenz.Text = currentPOS.pos_lizenz
If currentPOS.pos_kassendruck Then
cbx_Kassedruck.Checked = True
Else
cbx_Kassedruck.Checked = False
End If
cbx_Typ.SelectedIndex = cbx_Typ.FindString(currentPOS.pos_typ)
PopulateInstalledPrintersCombo()
'comboInstalledPrinters.SelectedIndex = comboInstalledPrinters.FindString(ZVTKey.GetValue("DemoDruckername", ""))
If Not currentPOS.pos_demoausdruck Then
cbx_Autodruck.Checked = False
Else
cbx_Autodruck.Checked = True
End If
If Not currentPOS.pos_demodummyausdruck Then
cbx_Dummy.Checked = False
Else
cbx_Dummy.Checked = True
End If
For Each tempTabPages As TabPage In TabControl1.TabPages
If Not tempTabPages.Name = "TabPage3" Then
For Each c As Control In tempTabPages.Controls
If TypeOf (c) Is CheckBox Then
AddHandler CType(c, CheckBox).CheckedChanged, AddressOf SomethingChanged
ElseIf TypeOf (c) Is TextBox Then
AddHandler CType(c, TextBox).TextChanged, AddressOf SomethingChanged
ElseIf TypeOf (c) Is ComboBox Then
AddHandler CType(c, ComboBox).SelectedValueChanged, AddressOf SomethingChanged
End If
Next
End If
Next
End If
End Sub
Private Sub savePOS()
If dgvTerminals.SelectedRows.Count > 0 Then
If Not checkConstraints() Then
Exit Sub
End If
currentPOS.pos_kassennr = txt_KasseNr.Text
currentPOS.pos_aktiv = cbx_aktiv.Checked
currentPOS.pos_wartezeit = CInt(txt_Wartezeit.Text) * 1000
currentPOS.pos_com = cbx_COM.Text
currentPOS.pos_ip = txt_IP.Text
currentPOS.pos_port = txt_Port.Text
currentPOS.pos_comspeed = cbx_ComSpeed.Text
currentPOS.pos_comstop = cbx_ComStop.Text
currentPOS.pos_lizenz = txt_Lizenz.Text
If cbx_Kassedruck.Checked Then
currentPOS.pos_kassendruck = True
Else
currentPOS.pos_kassendruck = False
End If
currentPOS.pos_typ = cbx_Typ.FindString(cbx_Typ.SelectedIndex)
PopulateInstalledPrintersCombo()
'comboInstalledPrinters.SelectedIndex = comboInstalledPrinters.FindString(ZVTKey.GetValue("DemoDruckername", ""))
If Not cbx_Autodruck.Checked Then
currentPOS.pos_demoausdruck = False
Else
currentPOS.pos_demoausdruck = True
End If
If Not cbx_Dummy.Checked Then
currentPOS.pos_demodummyausdruck = False
Else
currentPOS.pos_demodummyausdruck = True
End If
currentPOS.SAVE()
btnNew.Enabled = False
End If
End Sub
Private Sub dgvTerminals_SelectionChanged(sender As Object, e As EventArgs) Handles dgvTerminals.SelectionChanged
loadCurrentPOS()
End Sub
Private Sub SomethingChanged(sender As Object, e As EventArgs)
btnNew.Enabled = True
End Sub
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
Dim input = InputBox("Bitte geben Sie die Bezeichnung des neuen Terminals ein ein:", "POS-Terminal anlegen")
If input <> "" Then
If checkNameIsValid(input) Then
currentPOS = New cRKSV_POS(input, kassenID, True)
initDgv()
Else
MsgBox("Für die Kassa" & kasse.ToString & " existiert bereits ein POS-Terminal " & input)
End If
Else
MsgBox("Keine Bezeichnung angegeben!")
End If
End Sub
Private Function checkNameIsValid(name As String) As Boolean
If dgvTerminals.Rows.Count = 0 Then Return True
For Each row As DataGridViewRow In dgvTerminals.Rows
If Not IsDBNull(row.Cells("pos_bezeichnung").Value) Then
If row.Cells("pos_bezeichnung").Value.ToLower = name.ToLower Then
Return False
End If
End If
Next
Return True
End Function
Private Sub btnNew_Click(sender As Object, e As EventArgs) Handles btnNew.Click
savePOS()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If dgvTerminals.SelectedRows.Count > 0 Then
If vbYes = MsgBox("Möchten Sie das Terminal " & dgvTerminals.SelectedRows(0).Cells("pos_bezeichnung").Value & " wirklich löschen?", vbYesNo) Then
currentPOS.delete()
initDgv()
End If
End If
End Sub
Private Sub LinkLabel2_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
Dim webAddress As String = "http://www.easyzvt.de/publish31/index.htm"
Process.Start(webAddress)
End Sub
Private Sub Button_Kundenbeleg_drucken_Click(sender As System.Object, e As System.EventArgs) Handles btn_Kundenbeleg_drucken.Click
Dim PDlg As PrintDialog = New PrintDialog()
PDlg.UseEXDialog = True ' Notwendig für x64
PDoc = New Printing.PrintDocument()
AddHandler PDoc.PrintPage, AddressOf PDoc_SeiteDrucken
If cbx_Dummy.Checked Then
txt_Kassenbon.Text = "Kassenbon EasyZVT DemoApp" & vbCrLf
txt_Kassenbon.Text &= "KasseNr: " & txt_KasseNr.Text & vbCrLf & vbCrLf
If Betrag > 0 And Funktion = 0 Then
txt_Kassenbon.Text &= "Testartikel Menge 1 Betrag " & (CDbl(Betrag) / 100.0).ToString("###,##0.00") & vbCrLf
txt_Kassenbon.Text &= "Gesamtbetrag " & (CDbl(Betrag) / 100.0).ToString("###,##0.00") & vbCrLf
txt_Kassenbon.Text &= "Kartenzahlung " & (CDbl(Betrag) / 100.0).ToString("###,##0.00") & vbCrLf
End If
txt_Kassenbon.Text &= txt_Drucktext.Text ' Hier den Kundenbeleg hinzufügen
Else
txt_Kassenbon.Text = txt_Drucktext.Text
End If
If comboInstalledPrinters.SelectedIndex <> -1 Then
PDoc.PrinterSettings.PrinterName = comboInstalledPrinters.Text
PDoc.Print()
Else
PDlg.Document = PDoc
If PDlg.ShowDialog() = Windows.Forms.DialogResult.OK Then
PDoc.Print()
End If
End If
End Sub
Private Sub Button_Haendlerbeleg_drucken_Click(sender As System.Object, e As System.EventArgs) Handles btn_Haendlerbeleg_drucken.Click
Dim PDlg As PrintDialog = New PrintDialog()
PDlg.UseEXDialog = True ' Notwendig für x64
PDoc = New Printing.PrintDocument()
AddHandler PDoc.PrintPage, AddressOf PDoc_SeiteDrucken
If cbx_Dummy.Checked Then
txt_Kassenbon.Text = "Kassenbon EasyZVT DemoApp" & vbCrLf
txt_Kassenbon.Text &= "KasseNr: " & txt_KasseNr.Text & vbCrLf & vbCrLf
If Betrag > 0 And Funktion = 0 Then
txt_Kassenbon.Text &= "Testartikel Menge 1 Betrag " & (CDbl(Betrag) / 100.0).ToString("###,##0.00") & vbCrLf
txt_Kassenbon.Text &= "Gesamtbetrag " & (CDbl(Betrag) / 100.0).ToString("###,##0.00") & vbCrLf
txt_Kassenbon.Text &= "Kartenzahlung " & (CDbl(Betrag) / 100.0).ToString("###,##0.00") & vbCrLf
End If
txt_Kassenbon.Text &= txt_Drucktext2.Text ' Hier den Händlerbeleg hinzufügen
Else
txt_Kassenbon.Text &= txt_Drucktext.Text
End If
If comboInstalledPrinters.SelectedIndex <> -1 Then
PDoc.PrinterSettings.PrinterName = comboInstalledPrinters.Text
PDoc.Print()
Else
PDlg.Document = PDoc
If PDlg.ShowDialog() = Windows.Forms.DialogResult.OK Then
PDoc.Print()
End If
End If
End Sub
Private Sub ComboBox_COM_SelectedValueChanged(sender As Object, e As EventArgs) Handles cbx_COM.SelectedValueChanged
If cbx_COM.SelectedItem Is Nothing Then
Exit Sub
End If
'If cbx_COM.SelectedItem.ToString = "LAN" Then
' txt_IP.Enabled = True
' txt_Port.Enabled = True
' cbx_ComSpeed.Enabled = False
' cbx_ComSpeed.SelectedIndex = -1
' cbx_ComStop.Enabled = False
' cbx_ComStop.SelectedIndex = -1
'Else
' txt_IP.Enabled = False
' 'txt_IP.Clear()
' txt_Port.Enabled = False
' 'txt_Port.Clear()
' cbx_ComSpeed.Enabled = True
' cbx_ComStop.Enabled = True
'End If
End Sub
Private Function checkConstraints()
Dim valuesOK As Boolean = False
If CInt(txt_Wartezeit.Text) < 1 Then
lblWarning.Text = " Wartezeit muss größer als 0 sein! "
Return valuesOK
End If
If cbx_COM.SelectedItem Is Nothing Then
lblWarning.Text = " Anschluss auswählen "
Return valuesOK
End If
If cbx_Typ.SelectedItem Is Nothing Then
lblWarning.Text = " Typ auswählen "
Return valuesOK
End If
If cbx_COM.SelectedItem.ToString = "LAN" Then
If txt_IP.Text = "" Then
lblWarning.Text = " IP-Adresse hinterlegen! "
Return valuesOK
Else
If CInt(SQL.getValueTxtBySql("SELECT count(*) FROM tblRKSV_POS WHERE pos_ip='" & txt_IP.Text & "' ", "FMZOLL")) > 0 Then
lblWarning.Text = " IP Adresse ist bereits vergeben! "
Return valuesOK
End If
If txt_Port.Text = "" Then
lblWarning.Text = " Port hinterlegen! "
Return valuesOK
End If
End If
End If
If cbx_ComSpeed.SelectedItem = "" Then
lblWarning.Text = " Baudrate hinterlegen! "
Return valuesOK
Else
If cbx_ComStop.SelectedItem = "" Then
lblWarning.Text = " Com Stop hinterlegen! "
Return valuesOK
End If
End If
lblWarning.Text = ""
valuesOK = True
Return valuesOK
End Function
End Class