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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-03-12 14:49:31 +01:00
parent f4c1a74870
commit cc28d5a6cf
197 changed files with 37402 additions and 4503 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
SDL/kassenbuch/frmBelegNeu.vb
View File

@@ -140,7 +140,7 @@ Public Class frmBelegNeu
cboFiliale.fillWithSQL("SELECT Filialen.FilialenNr, Filialen.Grenzstelle FROM Filialen WHERE (((Filialen.FilialenNr)>=4800) AND ((Filialen.Fil_Status)='A')) ORDER BY Filialen.FilialenNr;", True, "FMZOLL")
cboSteuerschlüssel.changeItem(3520)
cboKassen.fillWithSQL("SELECT [rksv_id], [rksv_bez] FROM [tblRKSV_Kassen] WHERE [rksv_firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' ", False, "FMZOLL")
cboKassen.fillWithSQL("SELECT [rksv_id], [rksv_bez] FROM [tblRKSV_Kassen] WHERE ([rksv_firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR rksv_id IN('" & PERSONAL.cRKSV_KasseID & "')) ", False, "FMZOLL")
If cboKassen.Items.Count > 0 Then cboKassen.SelectedIndex = 0 'default
If PERSONAL.cRKSV_KasseID > 0 Then
cboKassen.changeItem(CStr(PERSONAL.cRKSV_KasseID))
@@ -160,6 +160,11 @@ Public Class frmBelegNeu
End Select
End If
KASSE.LOAD(cboKassen._value)
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> KASSE.rksv_firma Then
kdkunde._UseFIRMA = KASSE.rksv_firma
End If
cboFrachtf_Sgut.Items.Clear()
cboFrachtf_Sgut.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("S - Sammelgut", "S"))
@@ -324,7 +329,11 @@ Public Class frmBelegNeu
If PERSONAL.Niederlassung = "SBG" Then where = "Preislisten_visibleSBG = 1"
If PERSONAL.Niederlassung = "WAI" Then where = "Preislisten_visibleWAI = 1"
If PERSONAL.Niederlassung = "NKD" Then where = "Preislisten_visibleNKD = 1"
If PERSONAL.Niederlassung = "IME" Then where = "Preislisten_visibleIMEX = 1"
If PERSONAL.Niederlassung = "IME" Then
where = "Preislisten_visibleIMEX = 1"
If PERSONAL.cRKSV_KasseID = 1 Then where = "Preislisten_visibleSUB = 1"
End If
If PERSONAL.Mandant = "FO" Then where = "Preislisten_visibleFRONTOFFICE = 1"

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

@@ -259,7 +259,7 @@ Partial Class frmKassenbuch
'
'FlatButton7
'
Me.FlatButton7.BackgroundImage = Global.SDL.My.Resources.refresh
Me.FlatButton7.BackgroundImage = Global.SDL.My.Resources.Resources.refresh
Me.FlatButton7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.FlatButton7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.FlatButton7.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -459,7 +459,7 @@ Partial Class frmKassenbuch
Me.btnBelegEingang.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnBelegEingang.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnBelegEingang.ForeColor = System.Drawing.Color.Black
Me.btnBelegEingang.Image = Global.SDL.My.Resources.plus
Me.btnBelegEingang.Image = Global.SDL.My.Resources.Resources.plus
Me.btnBelegEingang.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnBelegEingang.Location = New System.Drawing.Point(193, 36)
Me.btnBelegEingang.Name = "btnBelegEingang"
@@ -505,16 +505,15 @@ Partial Class frmKassenbuch
Me.Label15.AutoSize = True
Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label15.ForeColor = System.Drawing.Color.White
Me.Label15.Location = New System.Drawing.Point(299, 19)
Me.Label15.Location = New System.Drawing.Point(299, 9)
Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(147, 20)
Me.Label15.TabIndex = 11
Me.Label15.Text = "MASTER-KASSE"
Me.Label15.Visible = False
'
'pic
'
Me.pic.BackgroundImage = Global.SDL.My.Resources.kasse
Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.kasse
Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.pic.Location = New System.Drawing.Point(12, 9)
Me.pic.Name = "pic"
@@ -571,7 +570,7 @@ Partial Class frmKassenbuch
'
'btnExcel
'
Me.btnExcel.BackgroundImage = Global.SDL.My.Resources.Excel_logo
Me.btnExcel.BackgroundImage = Global.SDL.My.Resources.Resources.Excel_logo
Me.btnExcel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.btnExcel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnExcel.Location = New System.Drawing.Point(607, 20)
@@ -647,7 +646,7 @@ Partial Class frmKassenbuch
Me.btnBelegGSKunde.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnBelegGSKunde.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnBelegGSKunde.ForeColor = System.Drawing.Color.Black
Me.btnBelegGSKunde.Image = Global.SDL.My.Resources.beleg_rot_small2
Me.btnBelegGSKunde.Image = Global.SDL.My.Resources.Resources.beleg_rot_small2
Me.btnBelegGSKunde.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnBelegGSKunde.Location = New System.Drawing.Point(13, 132)
Me.btnBelegGSKunde.Name = "btnBelegGSKunde"
@@ -757,7 +756,7 @@ Partial Class frmKassenbuch
Me.btnBelegLeihgeld.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnBelegLeihgeld.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnBelegLeihgeld.ForeColor = System.Drawing.Color.Black
Me.btnBelegLeihgeld.Image = Global.SDL.My.Resources.belegEUR1
Me.btnBelegLeihgeld.Image = Global.SDL.My.Resources.Resources.belegEUR1
Me.btnBelegLeihgeld.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnBelegLeihgeld.Location = New System.Drawing.Point(193, 132)
Me.btnBelegLeihgeld.Name = "btnBelegLeihgeld"

24
SDL/kassenbuch/frmKassenbuch.vb
View File

@@ -4,6 +4,7 @@ Public Class frmKassenbuch
Dim SQL As New SQL
Public GESCHAEFTSJAHR As Integer = cRKSV.getGJ(Now) 'IIf(Now.Month = 1, Now.Year - 1, Now.Year)
Dim PERSONAL As cPersonal
Dim RKSV As cRKSV_Kasse
Dim PERSONAL_LG As cPersonal = Nothing
' Dim PERSONAL_TMP_MASTER_KASSSE As cPersonal
Dim KennwortTime As DateTime = CDate("01.01.1990")
@@ -53,7 +54,8 @@ Public Class frmKassenbuch
End Function
Private Sub frmKassenbuch_Load(sender As Object, e As EventArgs) Handles Me.Load
GESCHAEFTSJAHR = cRKSV.getGJ(Now)
RKSV = New cRKSV_Kasse(PERSONAL.cRKSV_KasseID)
GESCHAEFTSJAHR = cRKSV.getGJ(Now, RKSV.rksv_firma)
If PERSONAL.ID = 274 Then master_Kasse = True
@@ -83,7 +85,7 @@ Public Class frmKassenbuch
btnBelegEingang.Enabled = False
btnBelegGSKunde.Enabled = False
btnBelegLeihgeld.Enabled = False
Label15.Visible = True
Label15.Text = "MASTER-KASSE"
btnBelegKunde.Enabled = False
btnBelegAusgang.Enabled = False
pnl.Visible = True
@@ -107,7 +109,7 @@ Public Class frmKassenbuch
btnBelegEingang.Enabled = True
btnBelegGSKunde.Enabled = True
btnBelegLeihgeld.Enabled = True
Label15.Visible = False
Label15.Text = PERSONAL.KassenbuchNr
btnBelegKunde.Enabled = True
btnBelegAusgang.Enabled = True
pnl.Visible = False
@@ -389,7 +391,7 @@ Public Class frmKassenbuch
Case Else
End Select
Dim GESCHAEFTSJAHR = cRKSV.getGJ(von) ' iif (von.Month = 1, von.Year - 1, von.Year)
Dim GESCHAEFTSJAHR = cRKSV.getGJ(von, RKSV.rksv_firma) ' iif (von.Month = 1, von.Year - 1, von.Year)
Dim sum = 0
rpt.lblUeberschrift.Text = "Kassenbuch " & von.ToShortDateString & " bis " & bis.ToShortDateString
rpt.lblGeschaeftsjahr.Text = GESCHAEFTSJAHR
@@ -413,7 +415,7 @@ Public Class frmKassenbuch
rpt.lblJournalNr.Text = rpt.Fields.Item("JournalNr").Value()
Dim BuDat As Date = CDate(rpt.Fields.Item("Buchungsdatum").Value()).ToShortDateString
rpt.lblBelegDat.Text = BuDat
Dim GESCHAEFTSJAHR_TMP = cRKSV.getGJ(BuDat) ''IIf(BuDat.Month = 1, BuDat.Year - 1, BuDat.Year)
Dim GESCHAEFTSJAHR_TMP = cRKSV.getGJ(BuDat, RKSV.rksv_firma) ''IIf(BuDat.Month = 1, BuDat.Year - 1, BuDat.Year)
rpt.lblBelegNr.Text = IIf(rpt.Fields.Item("rksv_BelegId").Value Is DBNull.Value, "(" & rpt.Fields.Item("BelegNr").Value & ")", rpt.Fields.Item("rksv_BelegId").Value())
rpt.lblBuchungstext.Text = rpt.Fields.Item("Buchungstext").Value()
' rpt.lblKonto.Text = SQL.getValueTxtBySql("SELECT CASE WHEN COUNT(distinct(konto))>1 THEN 'div.' ELSE CONVERT(VARCHAR(4),MAX(konto)) END as Konto, SUM(soll)as Soll, SUM(haben) as Haben FROM [tblKassenbuch] " &
@@ -475,7 +477,7 @@ Public Class frmKassenbuch
End If
Dim von As Date = frmVonBis.datVon.Value.ToShortDateString
Dim bis As Date = frmVonBis.datBis.Value.ToShortDateString
Dim GESCHAEFTSJAHR = cRKSV.getGJ(Now) ' IIf(von.Month = 1, von.Year - 1, von.Year)
Dim GESCHAEFTSJAHR = cRKSV.getGJ(Now, RKSV.rksv_firma) ' IIf(von.Month = 1, von.Year - 1, von.Year)
' rpt.DataSource = SQL.loadDgvBySql("SELECT MIN(JournalNr)as JournalNr, MAX(BelegDat)as BelegDat,MAX(Buchungsdatum)as Buchungsdatum,MAX(belegNr) as BelegNr, (SELECT top 1 t.Buchungstext FROM [tblKassenbuch] as t WHERE journalnr=t.journalnr) as Buchungstext,(SELECT top 1 t.konto FROM [tblKassenbuch] as t WHERE journalnr=t.journalnr) as Konto, SUM(Soll) as Soll,SUM(haben) as Haben " &
' "FROM [tblKassenbuch] WHERE CAST(Buchungsdatum as date) BETWEEN '" & von.ToShortDateString & "' AND '" & bis.ToShortDateString & "' And Benutzer=" & PERSONAL.ID & " group by BelegNr", "FMZOLL") 'cProgramFunctions.dgridViewTods(dgvBelegPos)
@@ -544,7 +546,7 @@ Public Class frmKassenbuch
rpt.lblJournalNr.Text = rpt.Fields.Item("JournalNr").Value()
Dim BuDat As Date = CDate(rpt.Fields.Item("Buchungsdatum").Value()).ToShortDateString
rpt.lblBelegDat.Text = BuDat
Dim GESCHAEFTSJAHR_TMP = cRKSV.getGJ(BuDat) 'IIf(BuDat.Month = 1, BuDat.Year - 1, BuDat.Year)
Dim GESCHAEFTSJAHR_TMP = cRKSV.getGJ(BuDat, RKSV.rksv_firma) 'IIf(BuDat.Month = 1, BuDat.Year - 1, BuDat.Year)
rpt.lblBelegNr.Text = IIf(rpt.Fields.Item("rksv_BelegId").Value Is DBNull.Value, "(" & rpt.Fields.Item("BelegNr").Value & ")", rpt.Fields.Item("rksv_BelegId").Value())
rpt.lblBuchungstext.Text = rpt.Fields.Item("Buchungstext").Value()
rpt.lblKonto.Text = rpt.Fields.Item("Konto").Value()
@@ -616,7 +618,7 @@ Public Class frmKassenbuch
End If
Dim von As Date = frmVonBis.datVon.Value.ToShortDateString
Dim bis As Date = frmVonBis.datBis.Value.ToShortDateString
Dim GESCHAEFTSJAHR = cRKSV.getGJ(von) ' IIf(von.Month = 1, von.Year - 1, von.Year)
Dim GESCHAEFTSJAHR = cRKSV.getGJ(von, RKSV.rksv_firma) ' IIf(von.Month = 1, von.Year - 1, von.Year)
Dim where = ""
Dim benutzerTMP = ""
@@ -850,7 +852,11 @@ Public Class frmKassenbuch
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then
If Not PERSONAL.isLeihgeldkasse Then btnBelegLeihgeld.Visible = False
btnBelegGSKunde.Visible = False
btnBelegGSKunde.Visible = False 'VERAG-MDM KAsse bei IMEX
If PERSONAL.cRKSV_Kasse.rksv_id = 1 Then
btnBelegGSKunde.Visible = True
btnBelegKunde.Enabled = False
End If
End If
If PERSONAL.cRKSV_Kasse Is Nothing Then

295
SDL/kassenbuch/frmNacherfassungLeihgeld.Designer.vb generated
View File

@@ -24,11 +24,8 @@ Partial Class frmNacherfassungLeihgeld
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmNacherfassungLeihgeld))
Me.pnl = New System.Windows.Forms.Panel()
Me.txtDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.btnNeueAbfertigungNrVergeben = New System.Windows.Forms.Button()
Me.Label2 = New System.Windows.Forms.Label()
Me.txtAbfertigungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label16 = New System.Windows.Forms.Label()
Me.lblAbfertigungsdatum = New System.Windows.Forms.Label()
@@ -49,14 +46,16 @@ Partial Class frmNacherfassungLeihgeld
Me.Label11 = New System.Windows.Forms.Label()
Me.cbxProvisionAuftraggeber = New System.Windows.Forms.CheckBox()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.Label44 = New System.Windows.Forms.Label()
Me.txtOpLeihgeld = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cboPrinter = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboPrinterProvisionBeleg = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtAuftrProvision = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cboProvisionBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cboProvisionStaffel = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtProvisionProzent = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cboProvisionStaffelArt = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.cboPrinter = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboPrinterProvisionBeleg = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtKdAuftragsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.kdFrachtführer = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
Me.ksFrachtführerKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -65,9 +64,10 @@ Partial Class frmNacherfassungLeihgeld
Me.txtBarzahlungsbetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtAuftraggeberKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.MyTextBoxLKWKz = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtAbfertigungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtFahrer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtOpLeihgeld = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label44 = New System.Windows.Forms.Label()
Me.pnl.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.Panel2.SuspendLayout()
@@ -91,30 +91,6 @@ Partial Class frmNacherfassungLeihgeld
Me.pnl.Size = New System.Drawing.Size(441, 94)
Me.pnl.TabIndex = 0
'
'txtDatum
'
Me.txtDatum._DateTimeOnly = False
Me.txtDatum._numbersOnly = False
Me.txtDatum._numbersOnlyKommastellen = ""
Me.txtDatum._Prozent = False
Me.txtDatum._ShortDateNew = False
Me.txtDatum._ShortDateOnly = False
Me.txtDatum._TimeOnly = False
Me.txtDatum._value = "01.01.2017"
Me.txtDatum._Waehrung = False
Me.txtDatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtDatum.ForeColor = System.Drawing.Color.Black
Me.txtDatum.Location = New System.Drawing.Point(17, 57)
Me.txtDatum.MaxLength = 25
Me.txtDatum.MaxLineLength = -1
Me.txtDatum.MaxLines_Warning = ""
Me.txtDatum.MaxLines_Warning_Label = Nothing
Me.txtDatum.Name = "txtDatum"
Me.txtDatum.ReadOnly = True
Me.txtDatum.Size = New System.Drawing.Size(115, 23)
Me.txtDatum.TabIndex = 4
Me.txtDatum.Text = "01.01.2017"
'
'btnNeueAbfertigungNrVergeben
'
Me.btnNeueAbfertigungNrVergeben.BackColor = System.Drawing.Color.Gainsboro
@@ -135,41 +111,6 @@ Partial Class frmNacherfassungLeihgeld
Me.Label2.TabIndex = 3
Me.Label2.Text = "Abfertigungsnummer"
'
'txtAbfertigungsnummer
'
Me.txtAbfertigungsnummer._DateTimeOnly = False
Me.txtAbfertigungsnummer._numbersOnly = False
Me.txtAbfertigungsnummer._numbersOnlyKommastellen = ""
Me.txtAbfertigungsnummer._Prozent = False
Me.txtAbfertigungsnummer._ShortDateNew = False
Me.txtAbfertigungsnummer._ShortDateOnly = False
Me.txtAbfertigungsnummer._TimeOnly = False
Me.txtAbfertigungsnummer._value = Nothing
Me.txtAbfertigungsnummer._Waehrung = False
Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Tai Le", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(281, 57)
Me.txtAbfertigungsnummer.MaxLength = 8
Me.txtAbfertigungsnummer.MaxLineLength = -1
Me.txtAbfertigungsnummer.MaxLines_Warning = ""
Me.txtAbfertigungsnummer.MaxLines_Warning_Label = Nothing
Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer"
Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(145, 24)
Me.txtAbfertigungsnummer.TabIndex = 7
'
'cboFiliale
'
Me.cboFiliale._allowedValuesFreiText = Nothing
Me.cboFiliale._allowFreiText = False
Me.cboFiliale._value = ""
Me.cboFiliale.DropDownWidth = 280
Me.cboFiliale.Enabled = False
Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Tai Le", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboFiliale.FormattingEnabled = True
Me.cboFiliale.Location = New System.Drawing.Point(196, 56)
Me.cboFiliale.Name = "cboFiliale"
Me.cboFiliale.Size = New System.Drawing.Size(80, 24)
Me.cboFiliale.TabIndex = 5
'
'Label1
'
Me.Label1.AutoSize = True
@@ -262,7 +203,7 @@ Partial Class frmNacherfassungLeihgeld
Me.btnPrint.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnPrint.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
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(291, 331)
Me.btnPrint.Name = "btnPrint"
@@ -383,6 +324,78 @@ Partial Class frmNacherfassungLeihgeld
Me.Panel1.Size = New System.Drawing.Size(441, 122)
Me.Panel1.TabIndex = 20
'
'Panel2
'
Me.Panel2.Controls.Add(Me.Label6)
Me.Panel2.Controls.Add(Me.Label7)
Me.Panel2.Controls.Add(Me.cboPrinter)
Me.Panel2.Controls.Add(Me.cboPrinterProvisionBeleg)
Me.Panel2.Location = New System.Drawing.Point(213, 467)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(228, 59)
Me.Panel2.TabIndex = 21
'
'Label44
'
Me.Label44.AutoSize = True
Me.Label44.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label44.Location = New System.Drawing.Point(288, 140)
Me.Label44.Name = "Label44"
Me.Label44.Size = New System.Drawing.Size(127, 13)
Me.Label44.TabIndex = 211
Me.Label44.Text = "Offene Posten - Leihgeld:"
Me.Label44.Visible = False
'
'txtOpLeihgeld
'
Me.txtOpLeihgeld._DateTimeOnly = False
Me.txtOpLeihgeld._numbersOnly = False
Me.txtOpLeihgeld._numbersOnlyKommastellen = ""
Me.txtOpLeihgeld._Prozent = False
Me.txtOpLeihgeld._ShortDateNew = False
Me.txtOpLeihgeld._ShortDateOnly = False
Me.txtOpLeihgeld._TimeOnly = False
Me.txtOpLeihgeld._value = Nothing
Me.txtOpLeihgeld._Waehrung = False
Me.txtOpLeihgeld._WaehrungZeichen = True
Me.txtOpLeihgeld.BackColor = System.Drawing.Color.White
Me.txtOpLeihgeld.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.txtOpLeihgeld.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtOpLeihgeld.ForeColor = System.Drawing.Color.Black
Me.txtOpLeihgeld.Location = New System.Drawing.Point(289, 159)
Me.txtOpLeihgeld.MaxLineLength = -1
Me.txtOpLeihgeld.MaxLines_Warning = ""
Me.txtOpLeihgeld.MaxLines_Warning_Label = Nothing
Me.txtOpLeihgeld.Name = "txtOpLeihgeld"
Me.txtOpLeihgeld.ReadOnly = True
Me.txtOpLeihgeld.Size = New System.Drawing.Size(115, 13)
Me.txtOpLeihgeld.TabIndex = 212
Me.txtOpLeihgeld.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.txtOpLeihgeld.Visible = False
'
'cboPrinter
'
Me.cboPrinter._allowedValuesFreiText = Nothing
Me.cboPrinter._allowFreiText = False
Me.cboPrinter._value = ""
Me.cboPrinter.FormattingEnabled = True
Me.cboPrinter.Location = New System.Drawing.Point(83, 6)
Me.cboPrinter.Name = "cboPrinter"
Me.cboPrinter.Size = New System.Drawing.Size(131, 21)
Me.cboPrinter.TabIndex = 1
'
'cboPrinterProvisionBeleg
'
Me.cboPrinterProvisionBeleg._allowedValuesFreiText = Nothing
Me.cboPrinterProvisionBeleg._allowFreiText = False
Me.cboPrinterProvisionBeleg._value = ""
Me.cboPrinterProvisionBeleg.Enabled = False
Me.cboPrinterProvisionBeleg.FormattingEnabled = True
Me.cboPrinterProvisionBeleg.Location = New System.Drawing.Point(83, 30)
Me.cboPrinterProvisionBeleg.Name = "cboPrinterProvisionBeleg"
Me.cboPrinterProvisionBeleg.Size = New System.Drawing.Size(131, 21)
Me.cboPrinterProvisionBeleg.TabIndex = 3
'
'txtAuftrProvision
'
Me.txtAuftrProvision._DateTimeOnly = False
@@ -394,6 +407,7 @@ Partial Class frmNacherfassungLeihgeld
Me.txtAuftrProvision._TimeOnly = False
Me.txtAuftrProvision._value = Nothing
Me.txtAuftrProvision._Waehrung = False
Me.txtAuftrProvision._WaehrungZeichen = True
Me.txtAuftrProvision.Enabled = False
Me.txtAuftrProvision.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.txtAuftrProvision.Location = New System.Drawing.Point(365, 11)
@@ -415,6 +429,7 @@ Partial Class frmNacherfassungLeihgeld
Me.cboProvisionBetrag._TimeOnly = False
Me.cboProvisionBetrag._value = Nothing
Me.cboProvisionBetrag._Waehrung = True
Me.cboProvisionBetrag._WaehrungZeichen = True
Me.cboProvisionBetrag.Enabled = False
Me.cboProvisionBetrag.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.cboProvisionBetrag.Location = New System.Drawing.Point(83, 85)
@@ -448,6 +463,7 @@ Partial Class frmNacherfassungLeihgeld
Me.txtProvisionProzent._TimeOnly = False
Me.txtProvisionProzent._value = Nothing
Me.txtProvisionProzent._Waehrung = False
Me.txtProvisionProzent._WaehrungZeichen = True
Me.txtProvisionProzent.Enabled = False
Me.txtProvisionProzent.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.txtProvisionProzent.Location = New System.Drawing.Point(21, 85)
@@ -470,40 +486,6 @@ Partial Class frmNacherfassungLeihgeld
Me.cboProvisionStaffelArt.Size = New System.Drawing.Size(156, 21)
Me.cboProvisionStaffelArt.TabIndex = 3
'
'Panel2
'
Me.Panel2.Controls.Add(Me.Label6)
Me.Panel2.Controls.Add(Me.Label7)
Me.Panel2.Controls.Add(Me.cboPrinter)
Me.Panel2.Controls.Add(Me.cboPrinterProvisionBeleg)
Me.Panel2.Location = New System.Drawing.Point(213, 467)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(228, 59)
Me.Panel2.TabIndex = 21
'
'cboPrinter
'
Me.cboPrinter._allowedValuesFreiText = Nothing
Me.cboPrinter._allowFreiText = False
Me.cboPrinter._value = ""
Me.cboPrinter.FormattingEnabled = True
Me.cboPrinter.Location = New System.Drawing.Point(83, 6)
Me.cboPrinter.Name = "cboPrinter"
Me.cboPrinter.Size = New System.Drawing.Size(131, 21)
Me.cboPrinter.TabIndex = 1
'
'cboPrinterProvisionBeleg
'
Me.cboPrinterProvisionBeleg._allowedValuesFreiText = Nothing
Me.cboPrinterProvisionBeleg._allowFreiText = False
Me.cboPrinterProvisionBeleg._value = ""
Me.cboPrinterProvisionBeleg.Enabled = False
Me.cboPrinterProvisionBeleg.FormattingEnabled = True
Me.cboPrinterProvisionBeleg.Location = New System.Drawing.Point(83, 30)
Me.cboPrinterProvisionBeleg.Name = "cboPrinterProvisionBeleg"
Me.cboPrinterProvisionBeleg.Size = New System.Drawing.Size(131, 21)
Me.cboPrinterProvisionBeleg.TabIndex = 3
'
'txtKdAuftragsnummer
'
Me.txtKdAuftragsnummer._DateTimeOnly = False
@@ -515,6 +497,7 @@ Partial Class frmNacherfassungLeihgeld
Me.txtKdAuftragsnummer._TimeOnly = False
Me.txtKdAuftragsnummer._value = Nothing
Me.txtKdAuftragsnummer._Waehrung = False
Me.txtKdAuftragsnummer._WaehrungZeichen = True
Me.txtKdAuftragsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtKdAuftragsnummer.Location = New System.Drawing.Point(142, 273)
Me.txtKdAuftragsnummer.MaxLength = 25
@@ -527,6 +510,7 @@ Partial Class frmNacherfassungLeihgeld
'
'kdFrachtführer
'
Me.kdFrachtführer._AlleFirmenCLUSTER = False
Me.kdFrachtführer._AllowSetValue = True
Me.kdFrachtführer._autoSizeGross = False
Me.kdFrachtführer._display_Name1 = False
@@ -535,6 +519,7 @@ Partial Class frmNacherfassungLeihgeld
Me.kdFrachtführer._displayWoelflKd = False
Me.kdFrachtführer._hideIfListEmpty = True
Me.kdFrachtführer._loadKdData = False
Me.kdFrachtführer._UseFIRMA = ""
Me.kdFrachtführer._ValueKdAndName = False
Me.kdFrachtführer.dgvpos = "LEFT"
Me.kdFrachtführer.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -562,6 +547,7 @@ Partial Class frmNacherfassungLeihgeld
Me.ksFrachtführerKdNr._TimeOnly = False
Me.ksFrachtführerKdNr._value = Nothing
Me.ksFrachtführerKdNr._Waehrung = False
Me.ksFrachtführerKdNr._WaehrungZeichen = True
Me.ksFrachtführerKdNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ksFrachtführerKdNr.Location = New System.Drawing.Point(289, 114)
Me.ksFrachtführerKdNr.MaxLineLength = -1
@@ -583,6 +569,7 @@ Partial Class frmNacherfassungLeihgeld
Me.txtPassnummer._TimeOnly = False
Me.txtPassnummer._value = Nothing
Me.txtPassnummer._Waehrung = False
Me.txtPassnummer._WaehrungZeichen = True
Me.txtPassnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtPassnummer.Location = New System.Drawing.Point(289, 196)
Me.txtPassnummer.MaxLength = 15
@@ -595,6 +582,7 @@ Partial Class frmNacherfassungLeihgeld
'
'txtAuftraggeber
'
Me.txtAuftraggeber._AlleFirmenCLUSTER = False
Me.txtAuftraggeber._AllowSetValue = True
Me.txtAuftraggeber._autoSizeGross = False
Me.txtAuftraggeber._display_Name1 = False
@@ -603,6 +591,7 @@ Partial Class frmNacherfassungLeihgeld
Me.txtAuftraggeber._displayWoelflKd = False
Me.txtAuftraggeber._hideIfListEmpty = True
Me.txtAuftraggeber._loadKdData = True
Me.txtAuftraggeber._UseFIRMA = ""
Me.txtAuftraggeber._ValueKdAndName = False
Me.txtAuftraggeber.dgvpos = "LEFT"
Me.txtAuftraggeber.Enabled = False
@@ -631,6 +620,7 @@ Partial Class frmNacherfassungLeihgeld
Me.txtBarzahlungsbetrag._TimeOnly = False
Me.txtBarzahlungsbetrag._value = Nothing
Me.txtBarzahlungsbetrag._Waehrung = True
Me.txtBarzahlungsbetrag._WaehrungZeichen = True
Me.txtBarzahlungsbetrag.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Bold)
Me.txtBarzahlungsbetrag.Location = New System.Drawing.Point(21, 331)
Me.txtBarzahlungsbetrag.MaxLineLength = -1
@@ -651,6 +641,7 @@ Partial Class frmNacherfassungLeihgeld
Me.txtAuftraggeberKdNr._TimeOnly = False
Me.txtAuftraggeberKdNr._value = Nothing
Me.txtAuftraggeberKdNr._Waehrung = False
Me.txtAuftraggeberKdNr._WaehrungZeichen = True
Me.txtAuftraggeberKdNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAuftraggeberKdNr.Location = New System.Drawing.Point(289, 251)
Me.txtAuftraggeberKdNr.MaxLineLength = -1
@@ -672,6 +663,7 @@ Partial Class frmNacherfassungLeihgeld
Me.MyTextBoxLKWKz._TimeOnly = False
Me.MyTextBoxLKWKz._value = Nothing
Me.MyTextBoxLKWKz._Waehrung = False
Me.MyTextBoxLKWKz._WaehrungZeichen = True
Me.MyTextBoxLKWKz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.MyTextBoxLKWKz.Location = New System.Drawing.Point(18, 156)
Me.MyTextBoxLKWKz.MaxLength = 25
@@ -682,6 +674,67 @@ Partial Class frmNacherfassungLeihgeld
Me.MyTextBoxLKWKz.Size = New System.Drawing.Size(265, 20)
Me.MyTextBoxLKWKz.TabIndex = 5
'
'txtDatum
'
Me.txtDatum._DateTimeOnly = False
Me.txtDatum._numbersOnly = False
Me.txtDatum._numbersOnlyKommastellen = ""
Me.txtDatum._Prozent = False
Me.txtDatum._ShortDateNew = False
Me.txtDatum._ShortDateOnly = False
Me.txtDatum._TimeOnly = False
Me.txtDatum._value = "01.01.2017"
Me.txtDatum._Waehrung = False
Me.txtDatum._WaehrungZeichen = True
Me.txtDatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtDatum.ForeColor = System.Drawing.Color.Black
Me.txtDatum.Location = New System.Drawing.Point(17, 57)
Me.txtDatum.MaxLength = 25
Me.txtDatum.MaxLineLength = -1
Me.txtDatum.MaxLines_Warning = ""
Me.txtDatum.MaxLines_Warning_Label = Nothing
Me.txtDatum.Name = "txtDatum"
Me.txtDatum.ReadOnly = True
Me.txtDatum.Size = New System.Drawing.Size(115, 23)
Me.txtDatum.TabIndex = 4
Me.txtDatum.Text = "01.01.2017"
'
'txtAbfertigungsnummer
'
Me.txtAbfertigungsnummer._DateTimeOnly = False
Me.txtAbfertigungsnummer._numbersOnly = False
Me.txtAbfertigungsnummer._numbersOnlyKommastellen = ""
Me.txtAbfertigungsnummer._Prozent = False
Me.txtAbfertigungsnummer._ShortDateNew = False
Me.txtAbfertigungsnummer._ShortDateOnly = False
Me.txtAbfertigungsnummer._TimeOnly = False
Me.txtAbfertigungsnummer._value = Nothing
Me.txtAbfertigungsnummer._Waehrung = False
Me.txtAbfertigungsnummer._WaehrungZeichen = True
Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Tai Le", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(281, 57)
Me.txtAbfertigungsnummer.MaxLength = 8
Me.txtAbfertigungsnummer.MaxLineLength = -1
Me.txtAbfertigungsnummer.MaxLines_Warning = ""
Me.txtAbfertigungsnummer.MaxLines_Warning_Label = Nothing
Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer"
Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(145, 24)
Me.txtAbfertigungsnummer.TabIndex = 7
'
'cboFiliale
'
Me.cboFiliale._allowedValuesFreiText = Nothing
Me.cboFiliale._allowFreiText = False
Me.cboFiliale._value = ""
Me.cboFiliale.DropDownWidth = 280
Me.cboFiliale.Enabled = False
Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Tai Le", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboFiliale.FormattingEnabled = True
Me.cboFiliale.Location = New System.Drawing.Point(196, 56)
Me.cboFiliale.Name = "cboFiliale"
Me.cboFiliale.Size = New System.Drawing.Size(80, 24)
Me.cboFiliale.TabIndex = 5
'
'txtFahrer
'
Me.txtFahrer._DateTimeOnly = False
@@ -693,6 +746,7 @@ Partial Class frmNacherfassungLeihgeld
Me.txtFahrer._TimeOnly = False
Me.txtFahrer._value = Nothing
Me.txtFahrer._Waehrung = False
Me.txtFahrer._WaehrungZeichen = True
Me.txtFahrer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtFahrer.Location = New System.Drawing.Point(18, 196)
Me.txtFahrer.MaxLength = 25
@@ -703,43 +757,6 @@ Partial Class frmNacherfassungLeihgeld
Me.txtFahrer.Size = New System.Drawing.Size(265, 20)
Me.txtFahrer.TabIndex = 8
'
'txtOpLeihgeld
'
Me.txtOpLeihgeld._DateTimeOnly = False
Me.txtOpLeihgeld._numbersOnly = False
Me.txtOpLeihgeld._numbersOnlyKommastellen = ""
Me.txtOpLeihgeld._Prozent = False
Me.txtOpLeihgeld._ShortDateNew = False
Me.txtOpLeihgeld._ShortDateOnly = False
Me.txtOpLeihgeld._TimeOnly = False
Me.txtOpLeihgeld._value = Nothing
Me.txtOpLeihgeld._Waehrung = False
Me.txtOpLeihgeld.BackColor = System.Drawing.Color.White
Me.txtOpLeihgeld.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.txtOpLeihgeld.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtOpLeihgeld.ForeColor = System.Drawing.Color.Black
Me.txtOpLeihgeld.Location = New System.Drawing.Point(289, 159)
Me.txtOpLeihgeld.MaxLineLength = -1
Me.txtOpLeihgeld.MaxLines_Warning = ""
Me.txtOpLeihgeld.MaxLines_Warning_Label = Nothing
Me.txtOpLeihgeld.Name = "txtOpLeihgeld"
Me.txtOpLeihgeld.ReadOnly = True
Me.txtOpLeihgeld.Size = New System.Drawing.Size(115, 13)
Me.txtOpLeihgeld.TabIndex = 212
Me.txtOpLeihgeld.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.txtOpLeihgeld.Visible = False
'
'Label44
'
Me.Label44.AutoSize = True
Me.Label44.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label44.Location = New System.Drawing.Point(288, 140)
Me.Label44.Name = "Label44"
Me.Label44.Size = New System.Drawing.Size(127, 13)
Me.Label44.TabIndex = 211
Me.Label44.Text = "Offene Posten - Leihgeld:"
Me.Label44.Visible = False
'
'frmNacherfassungLeihgeld
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

5
SDL/kassenbuch/frmNacherfassungLeihgeld.vb
View File

@@ -83,6 +83,7 @@ Public Class frmNacherfassungLeihgeld
Case "WAI" : stammfiliale = "5103" '"4801,4803,4806,5103,5003,5303" : stammfiliale = 4806
Case "NKD" : stammfiliale = "5303" '"4801,4803,4806,5103,5003,5303" : stammfiliale = 4806
Case "SBG" : stammfiliale = "5003" '"4801,4803,4806,5103,5003,5303" : stammfiliale = 4806
Case "NEU" : stammfiliale = "4819" '"4801,4803,4806,5103,5003,5303" : stammfiliale = 4806
' Case Else : filialen = "4806" '"4801,4803,4806,5103,5003,5303" : stammfiliale = 4806
End Select
@@ -774,4 +775,8 @@ Public Class frmNacherfassungLeihgeld
Private Sub cboPrintAktendeckel_CheckedChanged(sender As Object, e As EventArgs) Handles cboPrintAktendeckel.CheckedChanged
End Sub
Private Sub kdFrachtführer_TextChanged(sender As Object, e As System.ComponentModel.PropertyChangedEventArgs) Handles kdFrachtführer.PropertyChanged
End Sub
End Class