diff --git a/SDL/Classes/cRKSV.vb b/SDL/Classes/cRKSV.vb index 6c5ad421..e32f2a97 100644 --- a/SDL/Classes/cRKSV.vb +++ b/SDL/Classes/cRKSV.vb @@ -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 diff --git a/SDL/Classes/cRKSV_POS.vb b/SDL/Classes/cRKSV_POS.vb new file mode 100644 index 00000000..f4991407 --- /dev/null +++ b/SDL/Classes/cRKSV_POS.vb @@ -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 diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_GB_IE.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_GB_IE.Designer.vb new file mode 100644 index 00000000..cdcb89f0 --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_GB_IE.Designer.vb @@ -0,0 +1,549 @@ + +Partial Class usrcntlVollmacht_GB_IE + Inherits System.Windows.Forms.UserControl + + 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + 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. + + 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 diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_GB_IE.resx b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_GB_IE.resx new file mode 100644 index 00000000..1af7de15 --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_GB_IE.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_GB_IE.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_GB_IE.vb new file mode 100644 index 00000000..cca82f74 --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_GB_IE.vb @@ -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 diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_GB_indirekt.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_GB_indirekt.Designer.vb new file mode 100644 index 00000000..e3ec427c --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_GB_indirekt.Designer.vb @@ -0,0 +1,549 @@ + +Partial Class usrcntlVollmacht_GB_indirekt + Inherits System.Windows.Forms.UserControl + + 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + 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. + + 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 diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_GB_indirekt.resx b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_GB_indirekt.resx new file mode 100644 index 00000000..1af7de15 --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_GB_indirekt.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_GB_indirekt.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_GB_indirekt.vb new file mode 100644 index 00000000..124aeede --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_GB_indirekt.vb @@ -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 diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_VERAG_EXPORT.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_VERAG_EXPORT.Designer.vb index 3906c52e..00479d84 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_VERAG_EXPORT.Designer.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_VERAG_EXPORT.Designer.vb @@ -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) diff --git a/SDL/Formulare/KDFormulare/frmFormulare.Designer.vb b/SDL/Formulare/KDFormulare/frmFormulare.Designer.vb index e69ef844..c21fc7d9 100644 --- a/SDL/Formulare/KDFormulare/frmFormulare.Designer.vb +++ b/SDL/Formulare/KDFormulare/frmFormulare.Designer.vb @@ -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 diff --git a/SDL/Formulare/KDFormulare/frmFormulare.vb b/SDL/Formulare/KDFormulare/frmFormulare.vb index 27d7cf2d..68b4e9a1 100644 --- a/SDL/Formulare/KDFormulare/frmFormulare.vb +++ b/SDL/Formulare/KDFormulare/frmFormulare.vb @@ -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" diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj index da7a7146..a6f9edec 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -512,6 +512,7 @@ + @@ -554,6 +555,18 @@ UserControl + + usrcntlVollmacht_GB_indirekt.vb + + + UserControl + + + usrcntlVollmacht_GB_IE.vb + + + UserControl + usrCntlZollbeschau.vb @@ -566,6 +579,12 @@ Form + + frmPOSTerminal.vb + + + Form + frmKundenBesonderheiten_Add.vb @@ -2811,12 +2830,21 @@ usrcntlVollmacht_DE_indirekt.vb + + usrcntlVollmacht_GB_indirekt.vb + + + usrcntlVollmacht_GB_IE.vb + usrCntlZollbeschau.vb frmEssensbestellungen.vb + + frmPOSTerminal.vb + frmKundenBesonderheiten_Add.vb diff --git a/SDL/kassenbuch/frmBelegNeu.Designer.vb b/SDL/kassenbuch/frmBelegNeu.Designer.vb index 22097e82..9d9ea07f 100644 --- a/SDL/kassenbuch/frmBelegNeu.Designer.vb +++ b/SDL/kassenbuch/frmBelegNeu.Designer.vb @@ -22,6 +22,7 @@ Partial Class frmBelegNeu 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. _ 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 diff --git a/SDL/kassenbuch/frmBelegNeu.resx b/SDL/kassenbuch/frmBelegNeu.resx index 33868bc3..5a022f1c 100644 --- a/SDL/kassenbuch/frmBelegNeu.resx +++ b/SDL/kassenbuch/frmBelegNeu.resx @@ -156,6 +156,9 @@ True + + 17, 17 + diff --git a/SDL/kassenbuch/frmBelegNeu.vb b/SDL/kassenbuch/frmBelegNeu.vb index ab3aafe3..c7301c49 100644 --- a/SDL/kassenbuch/frmBelegNeu.vb +++ b/SDL/kassenbuch/frmBelegNeu.vb @@ -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 diff --git a/SDL/kassenbuch/frmKassenbuch.Designer.vb b/SDL/kassenbuch/frmKassenbuch.Designer.vb index 9efe2d42..4dbbf849 100644 --- a/SDL/kassenbuch/frmKassenbuch.Designer.vb +++ b/SDL/kassenbuch/frmKassenbuch.Designer.vb @@ -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 diff --git a/SDL/kassenbuch/frmKassenbuch.vb b/SDL/kassenbuch/frmKassenbuch.vb index 8a7dd8f4..8fde45c2 100644 --- a/SDL/kassenbuch/frmKassenbuch.vb +++ b/SDL/kassenbuch/frmKassenbuch.vb @@ -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 \ No newline at end of file diff --git a/SDL/kassenbuch/frmPOSTerminal.Designer.vb b/SDL/kassenbuch/frmPOSTerminal.Designer.vb new file mode 100644 index 00000000..661347f7 --- /dev/null +++ b/SDL/kassenbuch/frmPOSTerminal.Designer.vb @@ -0,0 +1,875 @@ + _ +Partial Class frmPOSTerminal + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + 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. + _ + 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 diff --git a/SDL/kassenbuch/frmPOSTerminal.resx b/SDL/kassenbuch/frmPOSTerminal.resx new file mode 100644 index 00000000..1af7de15 --- /dev/null +++ b/SDL/kassenbuch/frmPOSTerminal.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/SDL/kassenbuch/frmPOSTerminal.vb b/SDL/kassenbuch/frmPOSTerminal.vb new file mode 100644 index 00000000..86017d0d --- /dev/null +++ b/SDL/kassenbuch/frmPOSTerminal.vb @@ -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 \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj index 951e2f78..8f46cccb 100644 --- a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj +++ b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj @@ -1192,7 +1192,7 @@ 3.8.0 - 10.0.3 + 13.0.2