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

Merge branch 'newMaster2024' of https://git.it.verag.ag/edv/SDL into newMaster2024

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-01-13 10:02:14 +01:00
parent 0ebe4cf198 df97e245b8
commit 84e9e86a4d
27 changed files with 355 additions and 123 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
SDL/Classes/cRKSV.vb
View File

@@ -2517,22 +2517,19 @@ Public Class cRKSV
End Function
Public Shared Property DefaultMandant As Integer = 9
Public Shared Property DefaultMandant As Integer = IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, 9, 7)
Public Shared Property DefaultKassenkonto As Integer = 2700
Public Shared Function CreateSyskaBuchung(RKSV_id As Integer, beleg As EABeleg, KBEntry_list As List(Of cKassenbuch), KBEntryGB_list As List(Of cKassenbuch), KBEntryST_list As List(Of cKassenbuch), typ As String) As Boolean
If beleg Is Nothing Then Throw New ArgumentNullException(NameOf(beleg))
If Not (beleg.Beleg_TYP = "L" Or beleg.Beleg_TYP = "K") Then
Return False
End If
If DefaultMandant = 9 Then
MsgBox("ACHTUNG, Daten werden in Mandant " & DefaultMandant & " eingespielt -> TESTMANDANT!")
MsgBox("ACHTUNG, Daten werden in Mandant " & DefaultMandant & " eingespielt -> " & IIf(DefaultMandant = 9, "TESTMANDANT!", "PRODUKTIVMANDANT!"))
End If
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL()
@@ -2589,7 +2586,7 @@ Public Class cRKSV
Dim FIBU_YEAR = jahr
Dim BelegNrUID As String = "BR"
If periode = 1 Then FIBU_YEAR = FIBU_YEAR - 1
'If periode = 1 Then FIBU_YEAR = FIBU_YEAR - 1
BelegNrUID &= FIBU_YEAR.ToString.Substring(2, 2)
BelegNrUID &= i_beleg_refid.ToString("D5")
@@ -2858,9 +2855,9 @@ Public Class cRKSV
Dim gebucht = checkifgebucht_new(mandant, SafeString(BelegNrUID), buchungstext)
If gebucht Then
' logging instead of MsgBox in production
' MsgBox("GEBUCHT!")
MsgBox("FIBU - GEBUCHT!")
Else
' MsgBox("NICHT GEBUCHT!")
MsgBox("FIBU - NICHT GEBUCHT!")
End If
Return gebucht
@@ -2915,7 +2912,7 @@ Public Class cRKSV
Private Shared Function GetStapelRefId(sql As VERAG_PROG_ALLGEMEIN.SQL, mandant As Integer) As String
Dim v = sql.getValueTxtBySqlVarList("SELECT i_stapel_refid FROM [FIBU2].dbo.fibu_stapelart WHERE c_stapelname Like 'Auszahlungskasse 1' AND i_firm_refid = " & SafeIntToSql(mandant), "FIBU",, "")
Return If(String.IsNullOrWhiteSpace(v), "0000", v)
Return If(String.IsNullOrWhiteSpace(v), "0000", v)
End Function
Private Shared Function GetNextStapelLfdNr(sql As VERAG_PROG_ALLGEMEIN.SQL, stapelRefId As String, mandant As Integer) As Integer

29
SDL/Fakturierung/cFakturierung.vb
View File

@@ -5350,19 +5350,22 @@ Public Class cFakturierung
Dim BelegartenKz = If(Gesamt_RG_Betrag < 0, "AG", "AR")
Select Case Row("RechnungSprache")
Case "EN"
Select Case BelegartenKz
Case "AR"
rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Attatchment to INVOICE", "INVOICE")
rpt.lblSummeUeberschrift.Text = "Invoice Amount:"
rpt.lblRgNrUeberschrift.Text = "Invoice No.:"
rpt.lblRgDatumUeberschrift.Text = "Invoice Date:"
Case "AG"
rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Attatchment to CREDIT NOTE", "CREDIT NOTE")
rpt.lblSummeUeberschrift.Text = "Credit Amount:"
rpt.lblRgNrUeberschrift.Text = "Credit Note No.:"
rpt.lblRgDatumUeberschrift.Text = "Credit Note Date:"
End Select
'Mehrsprachigkeit bei Sammelrechnung vorerst deaktivieren!!!!
'Case "EN"
' Select Case BelegartenKz
' Case "AR"
' rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Attatchment to INVOICE", "INVOICE")
' rpt.lblSummeUeberschrift.Text = "Invoice Amount:"
' rpt.lblRgNrUeberschrift.Text = "Invoice No.:"
' rpt.lblRgDatumUeberschrift.Text = "Invoice Date:"
' Case "AG"
' rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Attatchment to CREDIT NOTE", "CREDIT NOTE")
' rpt.lblSummeUeberschrift.Text = "Credit Amount:"
' rpt.lblRgNrUeberschrift.Text = "Credit Note No.:"
' rpt.lblRgDatumUeberschrift.Text = "Credit Note Date:"
' End Select
Case Else
Select Case BelegartenKz
Case "AR"

19
SDL/Fakturierung/frmAbrechnungsMaske.vb
View File

@@ -1,5 +1,4 @@
Imports System.IO
Imports com.sun.org.apache.xalan.internal.xsltc.compiler.util
Imports Microsoft.Office.Interop
Public Class frmAbrechnungsMaske
@@ -80,8 +79,8 @@ Public Class frmAbrechnungsMaske
cboFirma.fillWithSQL("Select [Firma_ID],[Firma_Bez] FROM [tblFirma] WHERE 1=1 " & whereFirma, False, "FMZOLL")
cboFirma.changeItem("1")
cboSachbearbeiter.fillWithSQL("SELECT [mit_username] FROM [tblMitarbeiter] where mit_firma IN ('VERAG'" & If(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ADMIN", ",'ALL'", "") & ") and mit_gekuendigt=0 AND (mit_abteilung IN ('VRR','BH') OR [mit_id] IN (SELECT [beroz_bergrId] FROM [tblBerechtigungsObjekteZuordnung] where [beroz_beroId]=90 AND beroz_art='B')) order by mit_username", False, "ADMIN", True)
cboSachbearbeiter.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("*BAUBÖCK", "BAUBOECK"))
cboSachbearbeiter.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DANIEL", "DANIEL"))
'cboSachbearbeiter.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("*BAUBÖCK", "BAUBOECK"))
'cboSachbearbeiter.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DANIEL", "DANIEL"))
Else
@@ -118,13 +117,14 @@ Public Class frmAbrechnungsMaske
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_VERAGAG_DE", "SDL") Then
whereFirma = " AND FIRMENGRUPPE In ('VERAG','IMEX','VERAGUNISPED','FRONTOFFICE','ATILLA','VERAGAG_DE') "
End If
cboSachbearbeiter.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DANIEL", "DANIEL"))
cboFirma.fillWithSQL("SELECT [Firma_ID],[Firma_Bez] FROM [tblFirma] WHERE 1=1 " & whereFirma, False, "FMZOLL")
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "VERAG" : cboFirma.changeItem("1")
Case "IMEX" : cboFirma.changeItem("20")
End Select
cboSachbearbeiter.fillWithSQL("SELECT [mit_username] FROM [tblMitarbeiter] where mit_firma IN ('IMEX','VERAG'" & If(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ADMIN", ",'ALL'", "") & ") AND mit_gekuendigt=0 AND (mit_abteilung IN ('VRR','BH') OR (SELECT COUNT(*) FROM [tblBerechtigungsObjekteZuordnung] where [beroz_beroId]=90 AND [beroz_bergrId]=[mit_id] AND beroz_art='B')>0) order by mit_username", False, "ADMIN", True)
cboSachbearbeiter.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("*BAUBÖCK", "BAUBOECK"))
cboSachbearbeiter.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DANIEL", "DANIEL"))
End Select
@@ -330,10 +330,15 @@ Public Class frmAbrechnungsMaske
If sender Is cboER_SR Then
lblKunde.Visible = cboER_SR._value = "MSR"
KdSearchBox1.Visible = cboER_SR._value = "MSR"
lblKunde.Visible = True 'cboER_SR._value = "MSR"
KdSearchBox1.Visible = True 'cboER_SR._value = "MSR"
If KdSearchBox1.KdNr_value > 0 AndAlso cboER_SR._value <> "MSR" Then
'If KdSearchBox1.KdNr_value > 0 AndAlso cboER_SR._value <> "MSR" Then 'KdSearchBox1.KdNr_value > 0 AndAlso cboER_SR._value <> "MSR"
' KdSearchBox1.KdNr_value = -1
'End If
If KdSearchBox1.KdNr_value > 0 Then
KdSearchBox1.KdNr_value = -1
End If

55
SDL/Fakturierung/frmRechnungenSuche.Designer.vb generated
View File

@@ -108,6 +108,7 @@ Partial Class frmRechnungenSuche
Me.Label17 = New System.Windows.Forms.Label()
Me.txtMaxSrch = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.pnlBerichte = New System.Windows.Forms.Panel()
Me.Button8 = New System.Windows.Forms.Button()
Me.MenuStrip2 = New System.Windows.Forms.MenuStrip()
Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
@@ -139,7 +140,7 @@ Partial Class frmRechnungenSuche
Me.pnlTop = New System.Windows.Forms.Panel()
Me.PictureBox5 = New System.Windows.Forms.PictureBox()
Me.TestToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Button8 = New System.Windows.Forms.Button()
Me.RechnungenOhnePositionenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer.Panel1.SuspendLayout()
Me.SplitContainer.Panel2.SuspendLayout()
@@ -1556,6 +1557,21 @@ Partial Class frmRechnungenSuche
Me.pnlBerichte.Size = New System.Drawing.Size(921, 68)
Me.pnlBerichte.TabIndex = 6
'
'Button8
'
Me.Button8.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button8.Image = Global.SDL.My.Resources.Resources.statistik_small
Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button8.Location = New System.Drawing.Point(738, 19)
Me.Button8.Margin = New System.Windows.Forms.Padding(0)
Me.Button8.Name = "Button8"
Me.Button8.Size = New System.Drawing.Size(159, 39)
Me.Button8.TabIndex = 46
Me.Button8.Text = "Provisionsvergütungen..."
Me.Button8.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button8.UseVisualStyleBackColor = True
'
'MenuStrip2
'
Me.MenuStrip2.Dock = System.Windows.Forms.DockStyle.None
@@ -1564,14 +1580,14 @@ Partial Class frmRechnungenSuche
Me.MenuStrip2.Location = New System.Drawing.Point(3, 27)
Me.MenuStrip2.Name = "MenuStrip2"
Me.MenuStrip2.Padding = New System.Windows.Forms.Padding(5, 2, 0, 2)
Me.MenuStrip2.Size = New System.Drawing.Size(143, 28)
Me.MenuStrip2.Size = New System.Drawing.Size(263, 28)
Me.MenuStrip2.TabIndex = 45
Me.MenuStrip2.Text = "Kundenauswertungen"
'
'ToolStripMenuItem2
'
Me.ToolStripMenuItem2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.ToolStripMenuItem2.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem3, Me.NachRechnungslandToolStripMenuItem, Me.NachLeistungsnummerToolStripMenuItem, Me.NachZollabfertigungspreisenToolStripMenuItem})
Me.ToolStripMenuItem2.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem3, Me.NachRechnungslandToolStripMenuItem, Me.NachLeistungsnummerToolStripMenuItem, Me.NachZollabfertigungspreisenToolStripMenuItem, Me.RechnungenOhnePositionenToolStripMenuItem})
Me.ToolStripMenuItem2.Font = New System.Drawing.Font("Segoe UI", 10.0!)
Me.ToolStripMenuItem2.ForeColor = System.Drawing.Color.White
Me.ToolStripMenuItem2.Image = Global.SDL.My.Resources.Resources.statistik_small
@@ -1583,28 +1599,28 @@ Partial Class frmRechnungenSuche
'
Me.ToolStripMenuItem3.Image = Global.SDL.My.Resources.Resources.statistik_small
Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3"
Me.ToolStripMenuItem3.Size = New System.Drawing.Size(272, 24)
Me.ToolStripMenuItem3.Size = New System.Drawing.Size(276, 26)
Me.ToolStripMenuItem3.Text = "Nach Rechnungsanschrift"
'
'NachRechnungslandToolStripMenuItem
'
Me.NachRechnungslandToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.Excel_logo
Me.NachRechnungslandToolStripMenuItem.Name = "NachRechnungslandToolStripMenuItem"
Me.NachRechnungslandToolStripMenuItem.Size = New System.Drawing.Size(272, 24)
Me.NachRechnungslandToolStripMenuItem.Size = New System.Drawing.Size(276, 26)
Me.NachRechnungslandToolStripMenuItem.Text = "Nach Rechnungsland"
'
'NachLeistungsnummerToolStripMenuItem
'
Me.NachLeistungsnummerToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.Excel_logo
Me.NachLeistungsnummerToolStripMenuItem.Name = "NachLeistungsnummerToolStripMenuItem"
Me.NachLeistungsnummerToolStripMenuItem.Size = New System.Drawing.Size(272, 24)
Me.NachLeistungsnummerToolStripMenuItem.Size = New System.Drawing.Size(276, 26)
Me.NachLeistungsnummerToolStripMenuItem.Text = "Nach Leistungsnummer"
'
'NachZollabfertigungspreisenToolStripMenuItem
'
Me.NachZollabfertigungspreisenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.Excel_logo
Me.NachZollabfertigungspreisenToolStripMenuItem.Name = "NachZollabfertigungspreisenToolStripMenuItem"
Me.NachZollabfertigungspreisenToolStripMenuItem.Size = New System.Drawing.Size(272, 24)
Me.NachZollabfertigungspreisenToolStripMenuItem.Size = New System.Drawing.Size(276, 26)
Me.NachZollabfertigungspreisenToolStripMenuItem.Text = "Nach Zollabf.-preisen (LNr: 340)"
'
'Button3
@@ -1699,21 +1715,21 @@ Partial Class frmRechnungenSuche
'
Me.ToolStripMenuItem1.Image = CType(resources.GetObject("ToolStripMenuItem1.Image"), System.Drawing.Image)
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(376, 26)
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(372, 24)
Me.ToolStripMenuItem1.Text = "TRANSFERRY/360 (Sammelrechnung auswählen)"
'
'EVOLOGSammelrechnungAuswählenToolStripMenuItem
'
Me.EVOLOGSammelrechnungAuswählenToolStripMenuItem.Image = CType(resources.GetObject("EVOLOGSammelrechnungAuswählenToolStripMenuItem.Image"), System.Drawing.Image)
Me.EVOLOGSammelrechnungAuswählenToolStripMenuItem.Name = "EVOLOGSammelrechnungAuswählenToolStripMenuItem"
Me.EVOLOGSammelrechnungAuswählenToolStripMenuItem.Size = New System.Drawing.Size(376, 26)
Me.EVOLOGSammelrechnungAuswählenToolStripMenuItem.Size = New System.Drawing.Size(372, 24)
Me.EVOLOGSammelrechnungAuswählenToolStripMenuItem.Text = "EVOLOG (Sammelrechnung auswählen)"
'
'ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem
'
Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Image = CType(resources.GetObject("ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Image"), System.Drawing.Image)
Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Name = "ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem"
Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(376, 26)
Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(372, 24)
Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Text = "ZF Friedrichshafen AG (Zeitraum auswählen)"
Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Visible = False
'
@@ -1865,20 +1881,12 @@ Partial Class frmRechnungenSuche
Me.TestToolStripMenuItem.Size = New System.Drawing.Size(150, 19)
Me.TestToolStripMenuItem.Text = "test"
'
'Button8
'RechnungenOhnePositionenToolStripMenuItem
'
Me.Button8.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button8.Image = Global.SDL.My.Resources.Resources.statistik_small
Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button8.Location = New System.Drawing.Point(738, 19)
Me.Button8.Margin = New System.Windows.Forms.Padding(0)
Me.Button8.Name = "Button8"
Me.Button8.Size = New System.Drawing.Size(159, 39)
Me.Button8.TabIndex = 46
Me.Button8.Text = "Provisionsvergütungen..."
Me.Button8.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button8.UseVisualStyleBackColor = True
Me.RechnungenOhnePositionenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.Excel_logo
Me.RechnungenOhnePositionenToolStripMenuItem.Name = "RechnungenOhnePositionenToolStripMenuItem"
Me.RechnungenOhnePositionenToolStripMenuItem.Size = New System.Drawing.Size(276, 26)
Me.RechnungenOhnePositionenToolStripMenuItem.Text = "Rechnungen ohne Positionen"
'
'frmRechnungenSuche
'
@@ -2040,4 +2048,5 @@ Partial Class frmRechnungenSuche
Friend WithEvents NachRechnungslandToolStripMenuItem As ToolStripMenuItem
Friend WithEvents NachLeistungsnummerToolStripMenuItem As ToolStripMenuItem
Friend WithEvents Button8 As Button
Friend WithEvents RechnungenOhnePositionenToolStripMenuItem As ToolStripMenuItem
End Class

29
SDL/Fakturierung/frmRechnungenSuche.vb
View File

@@ -997,4 +997,33 @@ Public Class frmRechnungenSuche
Dim f As New frmProvisionisverguetung
f.Show(Me)
End Sub
Private Sub RechnungenOhnePositionenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RechnungenOhnePositionenToolStripMenuItem.Click
Try
Me.Cursor = Cursors.WaitCursor
Dim sqlstr = "SELECT * From Rechnungsausgang r Where r.RechnungsDatum >= @Datum_von And r.RechnungsDatum <= @Datum_bis
And Not EXISTS( SELECT 1 From RechnungsausgangPositionen p Where p.RK_ID = r.RK_ID) "
If cboFirma._value <> "" Then sqlstr &= " AND r.[Firma_ID] = @Firma_ID "
Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL", , getSpedbuchList())
If dt.Rows.Count > 0 Then
cProgramFunctions.genExcelFromDT_NEW(dt)
Me.Cursor = Cursors.Default
Else
Me.Cursor = Cursors.Default
MsgBox("keine Rechnungen ohne Positionen vorhanden!")
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Me.Cursor = Cursors.Default
End Try
End Sub
End Class

18
SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb
View File

@@ -103,15 +103,21 @@
Else
Dim dtTemp As DataTable
dtTemp = SQL.loadDgvBySql_Param("select [id] as clmnID,[belegNr] as clmnReNr,[buchungstext] as clmnAbfNr,[zinssatz] clmnVZ,[belegZahlungsziel],[ueberschreitungInTagen] clmnTage,[zinsbetrag] clmnZinsen,[belegDatum] as clmnReDatum,[zahlungsBetrag] as clmnReBetrag,[zahlungDatum] as clmnZE, [faelligkeitsDatum] as clmnFaellig from tblMDM_Zinsberechnung where RK_ID =" & RECHNUNG.RK_ID & " and RIGHT('00000' + CAST(id AS VARCHAR(5)), 5) +'-'+ buchungstext like '" & LeistungsText.Trim() & "%'", "FMZOLL")
For Each rg As DataRow In dtTemp.Rows
dt.Rows.Add(rg.Item("clmnID"), rg.Item("clmnReNr"), rg.Item("clmnReDatum"), rg.Item("clmnAbfNr"), rg.Item("clmnReBetrag"), rg.Item("clmnZE"), rg.Item("clmnTage"), rg.Item("clmnZinsen"), rg.Item("clmnVZ"), rg.Item("clmnFaellig"))
Next
If RECHNUNG.BelegartenKz <> "AG" Then
Dim dtTemp As DataTable
dtTemp = SQL.loadDgvBySql_Param("select [id] as clmnID,[belegNr] as clmnReNr,[buchungstext] as clmnAbfNr,[zinssatz] clmnVZ,[belegZahlungsziel],[ueberschreitungInTagen] clmnTage,[zinsbetrag] clmnZinsen,[belegDatum] as clmnReDatum,[zahlungsBetrag] as clmnReBetrag,[zahlungDatum] as clmnZE, [faelligkeitsDatum] as clmnFaellig from tblMDM_Zinsberechnung where RK_ID =" & RECHNUNG.RK_ID & " and RIGHT('00000' + CAST(id AS VARCHAR(5)), 5) +'-'+ buchungstext like '" & LeistungsText.Trim() & "%'", "FMZOLL")
For Each rg As DataRow In dtTemp.Rows
dt.Rows.Add(rg.Item("clmnID"), rg.Item("clmnReNr"), rg.Item("clmnReDatum"), rg.Item("clmnAbfNr"), rg.Item("clmnReBetrag"), rg.Item("clmnZE"), rg.Item("clmnTage"), rg.Item("clmnZinsen"), rg.Item("clmnVZ"), rg.Item("clmnFaellig"))
Next
Else
dt.Rows.Add("0", "", RECHNUNG.Abfertigungsdatum.ToShortDateString, "", "", LeistungsText.ToString, "", Betrag.ToString, "", "")
End If
End If
End If

2
SDL/Fakturierung/usrCntlFaktAbrechnung.vb
View File

@@ -525,7 +525,7 @@ Public Class usrCntlFaktAbrechnung
GutschriftAnVeragToolStripMenuItem.Visible = False
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
cboFiliale.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' AND FilialenNr IN(4801,4802) ORDER BY FilialenNr ", True, "FMZOLL", True)
cboFiliale.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' AND FilialenNr IN(4801,4802, 4806) ORDER BY FilialenNr ", True, "FMZOLL", True)
Else
cboFiliale.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
End If

4
SDL/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.5.1.0")>
<Assembly: AssemblyFileVersion("1.5.1.0")>
<Assembly: AssemblyVersion("1.5.1.2")>
<Assembly: AssemblyFileVersion("1.5.1.2")>

2
SDL/buchhaltung/usrCntlBH.Designer.vb generated
View File

@@ -732,7 +732,7 @@ Partial Class usrCntlBH
'
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Label5.Location = New System.Drawing.Point(564, 16)
Me.Label5.Location = New System.Drawing.Point(145, 6)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(197, 24)
Me.Label5.TabIndex = 0

5
SDL/buchhaltung/usrCntlBH.vb
View File

@@ -905,7 +905,7 @@ Public Class usrCntlBH
Else
zins.buchungstext = r.Item("Buchungstext")
zins.buchungstext = r.Item("Buchungstext").ToString.Replace("'", "")
zins.kundeZahlungsziel = r.Item("ZZ_in_Debitor")
zins.zinssatz = r.Item("Zinssatz_Kunde")
zins.belegZahlungsziel = r.Item("ZZinTage")
@@ -918,6 +918,7 @@ Public Class usrCntlBH
zins.faelligkeitsDatum = CDate(r.Item("Belegdatum")).AddDays(CInt(r.Item("ZZinTage")))
zins.zahlungsperiode_start = CDate(txtZRvon.Text).ToShortDateString
zins.zahlungsperiode_ende = CDate(txtZRbis.Text).ToShortDateString
zins.SAVE()
End If
@@ -1320,7 +1321,7 @@ Public Class usrCntlBH
Dim startDate As String = CDate(R("zahlungsperiode_start")).ToShortDateString
Dim EndDate As String = CDate(R("zahlungsperiode_ende")).ToShortDateString
Dim vermerk As String = "Zahlungen von " & startDate & " - " & EndDate 'max 50 Zeichen!!!
Dim vermerk As String = "Zahlungen " & startDate & " - " & EndDate 'max 50 Zeichen!!!
Dim Fußtext As String = ""
'Fußtext = "Sehr geehrte Damen und Herren," & vbNewLine & "

11
SDL/frmMain.vb
View File

@@ -159,7 +159,7 @@ Public Class frmMain
timas.getTimeEntries(cAllgemein.MITARBEITER.mit_timasId, infoMessage, timeEntryExisting,, isEndpointRunning)
If Not timeEntryExisting AndAlso isEndpointRunning Then
Dim frm As New frmTimasabfrage(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER)
Dim frm As New frmTimasabfrage(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasMehrereFirmen)
frm.TopMost = True
frm.ShowDialog()
@@ -168,6 +168,15 @@ Public Class frmMain
Dim f As New frmZEButtons("in", VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasFirmen)
f.ShowDialog()
f.TopMost = True
If f.DialogResult = DialogResult.OK AndAlso f.resultCode >= 0 Then
Dim info
timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "in", f.resultCode)
MsgBox(info)
Else
Exit Sub
End If
Else
Dim info
timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "in", frm.typ)

3
SDL/kassenbuch/frmBelegNeu.vb
View File

@@ -136,6 +136,7 @@ Public Class frmBelegNeu
For Each p In POS_ADD
BELEG.POS.Add(p)
Next
BELEG.LKW_Beleg = True
cboSteuerschlüssel.changeItem(BELEG.Steuerschlüssel)
@@ -1604,7 +1605,7 @@ Public Class frmBelegNeu
If isLeihgeldeinzahlung Then
If BELEG.KundenNr > 0 Then
Dim KundenKontoArchiv As String = SQL.getValueTxtBySqlVarList("SELECT c_archiv FROM [FIBU2].dbo.fibu_konto WHERE i_konto = " & BELEG.KundenNr & " AND i_firm_refid = 7", "FIBU") 'ATILLA MANDANT!'
Dim KundenKontoArchiv As String = (New VERAG_PROG_ALLGEMEIN.SQL).getValueTxtBySqlVarList("SELECT c_archiv FROM [FIBU2].dbo.fibu_konto WHERE i_konto = " & BELEG.KundenNr & " AND i_firm_refid = " & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "9", "7"), "FIBU") 'ATILLA MANDANT!'
If KundenKontoArchiv <> "" Then
MsgBox("ACHTUNG, die Kundennummer ist in der Syska-FIBU inaktiv, bitte andere KundenNr verwenden!")
Exit Sub

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

@@ -24,6 +24,7 @@ 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.btnWiki = New System.Windows.Forms.Button()
Me.txtDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.btnNeueAbfertigungNrVergeben = New System.Windows.Forms.Button()
Me.Label2 = New System.Windows.Forms.Label()
@@ -70,6 +71,7 @@ Partial Class frmNacherfassungLeihgeld
Me.txtFahrer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cbxOP_sofort_buchen = New System.Windows.Forms.CheckBox()
Me.lblGesperrt = New System.Windows.Forms.Label()
Me.cbxProvAnMA = New System.Windows.Forms.CheckBox()
Me.pnl.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.Panel2.SuspendLayout()
@@ -79,6 +81,7 @@ Partial Class frmNacherfassungLeihgeld
'
Me.pnl.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnl.Controls.Add(Me.btnWiki)
Me.pnl.Controls.Add(Me.txtDatum)
Me.pnl.Controls.Add(Me.btnNeueAbfertigungNrVergeben)
Me.pnl.Controls.Add(Me.Label2)
@@ -90,9 +93,22 @@ Partial Class frmNacherfassungLeihgeld
Me.pnl.Dock = System.Windows.Forms.DockStyle.Top
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(441, 94)
Me.pnl.Size = New System.Drawing.Size(525, 94)
Me.pnl.TabIndex = 0
'
'btnWiki
'
Me.btnWiki.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.btnWiki.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen
Me.btnWiki.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnWiki.FlatAppearance.BorderSize = 0
Me.btnWiki.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnWiki.Location = New System.Drawing.Point(494, 3)
Me.btnWiki.Name = "btnWiki"
Me.btnWiki.Size = New System.Drawing.Size(25, 20)
Me.btnWiki.TabIndex = 215
Me.btnWiki.UseVisualStyleBackColor = False
'
'txtDatum
'
Me.txtDatum._DateTimeOnly = False
@@ -123,7 +139,7 @@ Partial Class frmNacherfassungLeihgeld
'btnNeueAbfertigungNrVergeben
'
Me.btnNeueAbfertigungNrVergeben.BackColor = System.Drawing.Color.Gainsboro
Me.btnNeueAbfertigungNrVergeben.Location = New System.Drawing.Point(281, 57)
Me.btnNeueAbfertigungNrVergeben.Location = New System.Drawing.Point(365, 57)
Me.btnNeueAbfertigungNrVergeben.Name = "btnNeueAbfertigungNrVergeben"
Me.btnNeueAbfertigungNrVergeben.Size = New System.Drawing.Size(145, 24)
Me.btnNeueAbfertigungNrVergeben.TabIndex = 6
@@ -134,7 +150,7 @@ Partial Class frmNacherfassungLeihgeld
'
Me.Label2.AutoSize = True
Me.Label2.ForeColor = System.Drawing.Color.White
Me.Label2.Location = New System.Drawing.Point(278, 41)
Me.Label2.Location = New System.Drawing.Point(362, 41)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(103, 13)
Me.Label2.TabIndex = 3
@@ -155,7 +171,7 @@ Partial Class frmNacherfassungLeihgeld
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.Location = New System.Drawing.Point(365, 57)
Me.txtAbfertigungsnummer.MaxLength = 8
Me.txtAbfertigungsnummer.MaxLineLength = -1
Me.txtAbfertigungsnummer.MaxLines_Warning = ""
@@ -173,7 +189,7 @@ Partial Class frmNacherfassungLeihgeld
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.Location = New System.Drawing.Point(280, 56)
Me.cboFiliale.Name = "cboFiliale"
Me.cboFiliale.Size = New System.Drawing.Size(80, 24)
Me.cboFiliale.TabIndex = 5
@@ -182,7 +198,7 @@ Partial Class frmNacherfassungLeihgeld
'
Me.Label1.AutoSize = True
Me.Label1.ForeColor = System.Drawing.Color.White
Me.Label1.Location = New System.Drawing.Point(193, 41)
Me.Label1.Location = New System.Drawing.Point(277, 41)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(33, 13)
Me.Label1.TabIndex = 2
@@ -272,7 +288,7 @@ Partial Class frmNacherfassungLeihgeld
Me.btnPrint.ForeColor = System.Drawing.Color.Black
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.Location = New System.Drawing.Point(375, 331)
Me.btnPrint.Name = "btnPrint"
Me.btnPrint.Padding = New System.Windows.Forms.Padding(0, 0, 5, 0)
Me.btnPrint.Size = New System.Drawing.Size(136, 66)
@@ -307,7 +323,7 @@ Partial Class frmNacherfassungLeihgeld
Me.cboPrintAktendeckel.AutoSize = True
Me.cboPrintAktendeckel.Checked = True
Me.cboPrintAktendeckel.CheckState = System.Windows.Forms.CheckState.Checked
Me.cboPrintAktendeckel.Location = New System.Drawing.Point(291, 313)
Me.cboPrintAktendeckel.Location = New System.Drawing.Point(375, 303)
Me.cboPrintAktendeckel.Name = "cboPrintAktendeckel"
Me.cboPrintAktendeckel.Size = New System.Drawing.Size(128, 17)
Me.cboPrintAktendeckel.TabIndex = 17
@@ -366,7 +382,7 @@ Partial Class frmNacherfassungLeihgeld
'
Me.cbxProvisionAuftraggeber.AutoSize = True
Me.cbxProvisionAuftraggeber.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxProvisionAuftraggeber.Location = New System.Drawing.Point(186, 13)
Me.cbxProvisionAuftraggeber.Location = New System.Drawing.Point(281, 13)
Me.cbxProvisionAuftraggeber.Name = "cbxProvisionAuftraggeber"
Me.cbxProvisionAuftraggeber.Size = New System.Drawing.Size(173, 17)
Me.cbxProvisionAuftraggeber.TabIndex = 1
@@ -376,11 +392,13 @@ Partial Class frmNacherfassungLeihgeld
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke
Me.Panel1.Controls.Add(Me.cbxProvAnMA)
Me.Panel1.Controls.Add(Me.cbxProvision)
Me.Panel1.Controls.Add(Me.txtAuftrProvision)
Me.Panel1.Controls.Add(Me.cbxProvisionAuftraggeber)
Me.Panel1.Controls.Add(Me.Label8)
Me.Panel1.Controls.Add(Me.cboProvisionBetrag)
Me.Panel1.Controls.Add(Me.Panel2)
Me.Panel1.Controls.Add(Me.Label10)
Me.Panel1.Controls.Add(Me.cboProvisionStaffel)
Me.Panel1.Controls.Add(Me.txtProvisionProzent)
@@ -388,7 +406,7 @@ Partial Class frmNacherfassungLeihgeld
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel1.Location = New System.Drawing.Point(0, 404)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(441, 122)
Me.Panel1.Size = New System.Drawing.Size(525, 122)
Me.Panel1.TabIndex = 20
'
'txtAuftrProvision
@@ -407,7 +425,7 @@ Partial Class frmNacherfassungLeihgeld
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)
Me.txtAuftrProvision.Location = New System.Drawing.Point(460, 13)
Me.txtAuftrProvision.MaxLineLength = -1
Me.txtAuftrProvision.MaxLines_Warning = ""
Me.txtAuftrProvision.MaxLines_Warning_Label = Nothing
@@ -493,7 +511,7 @@ Partial Class frmNacherfassungLeihgeld
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.Location = New System.Drawing.Point(297, 60)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(228, 59)
Me.Panel2.TabIndex = 21
@@ -636,7 +654,7 @@ Partial Class frmNacherfassungLeihgeld
Me.ksFrachtführerKdNr.MaxLines_Warning_Label = Nothing
Me.ksFrachtführerKdNr.Name = "ksFrachtführerKdNr"
Me.ksFrachtführerKdNr.ReadOnly = True
Me.ksFrachtführerKdNr.Size = New System.Drawing.Size(138, 23)
Me.ksFrachtführerKdNr.Size = New System.Drawing.Size(222, 23)
Me.ksFrachtführerKdNr.TabIndex = 3
'
'txtPassnummer
@@ -660,7 +678,7 @@ Partial Class frmNacherfassungLeihgeld
Me.txtPassnummer.MaxLines_Warning = ""
Me.txtPassnummer.MaxLines_Warning_Label = Nothing
Me.txtPassnummer.Name = "txtPassnummer"
Me.txtPassnummer.Size = New System.Drawing.Size(138, 20)
Me.txtPassnummer.Size = New System.Drawing.Size(222, 20)
Me.txtPassnummer.TabIndex = 9
'
'txtAuftraggeber
@@ -738,7 +756,7 @@ Partial Class frmNacherfassungLeihgeld
Me.txtAuftraggeberKdNr.MaxLines_Warning_Label = Nothing
Me.txtAuftraggeberKdNr.Name = "txtAuftraggeberKdNr"
Me.txtAuftraggeberKdNr.ReadOnly = True
Me.txtAuftraggeberKdNr.Size = New System.Drawing.Size(138, 23)
Me.txtAuftraggeberKdNr.Size = New System.Drawing.Size(222, 23)
Me.txtAuftraggeberKdNr.TabIndex = 13
'
'MyTextBoxLKWKz
@@ -792,7 +810,7 @@ Partial Class frmNacherfassungLeihgeld
'cbxOP_sofort_buchen
'
Me.cbxOP_sofort_buchen.AutoSize = True
Me.cbxOP_sofort_buchen.Location = New System.Drawing.Point(291, 290)
Me.cbxOP_sofort_buchen.Location = New System.Drawing.Point(375, 280)
Me.cbxOP_sofort_buchen.Name = "cbxOP_sofort_buchen"
Me.cbxOP_sofort_buchen.Size = New System.Drawing.Size(145, 17)
Me.cbxOP_sofort_buchen.TabIndex = 213
@@ -811,18 +829,28 @@ Partial Class frmNacherfassungLeihgeld
Me.lblGesperrt.Text = "gesperrt!"
Me.lblGesperrt.Visible = False
'
'cbxProvAnMA
'
Me.cbxProvAnMA.AutoSize = True
Me.cbxProvAnMA.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxProvAnMA.Location = New System.Drawing.Point(161, 13)
Me.cbxProvAnMA.Name = "cbxProvAnMA"
Me.cbxProvAnMA.Size = New System.Drawing.Size(119, 17)
Me.cbxProvAnMA.TabIndex = 22
Me.cbxProvAnMA.Text = "In Mitarbeiter-Kassa"
Me.cbxProvAnMA.UseVisualStyleBackColor = True
'
'frmNacherfassungLeihgeld
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(441, 526)
Me.ClientSize = New System.Drawing.Size(525, 526)
Me.Controls.Add(Me.lblGesperrt)
Me.Controls.Add(Me.cbxOP_sofort_buchen)
Me.Controls.Add(Me.txtOpLeihgeld)
Me.Controls.Add(Me.Label44)
Me.Controls.Add(Me.Label11)
Me.Controls.Add(Me.Panel2)
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.txtKdAuftragsnummer)
Me.Controls.Add(Me.cboPrintAktendeckel)
@@ -906,4 +934,6 @@ Partial Class frmNacherfassungLeihgeld
Friend WithEvents Label44 As Label
Public WithEvents cbxOP_sofort_buchen As CheckBox
Friend WithEvents lblGesperrt As Label
Friend WithEvents btnWiki As Button
Friend WithEvents cbxProvAnMA As CheckBox
End Class

35
SDL/kassenbuch/frmNacherfassungLeihgeld.vb
View File

@@ -306,7 +306,8 @@ Public Class frmNacherfassungLeihgeld
End If
If Not validValues() Then Me.Cursor = Cursors.Default : Exit Sub
datatoBeleg() 'Daten werden in "BELEG" geldaen
datatoBeleg() 'Daten werden in "BELEG" geldae
'n
If BELEG.KundenNr > 0 AndAlso cbxOP_sofort_buchen.Checked Then
Dim KundenKontoArchiv As String = (New VERAG_PROG_ALLGEMEIN.SQL).getValueTxtBySql("SELECT isnull(c_archiv,'A') FROM [FIBU2].dbo.fibu_konto WHERE i_konto = " & BELEG.KundenNr & " AND i_firm_refid = " & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "9", "7"), "FIBU") 'ATILLA MANDANT!'
@@ -405,7 +406,7 @@ Public Class frmNacherfassungLeihgeld
Dim barbetrag As Double = 0
Dim BelegNrProvision = 0
If cbxProvision.Checked Then
printProvision(barbetrag, BelegNrProvision)
printProvision(barbetrag, BelegNrProvision, cbxProvAnMA.Checked)
End If
@@ -454,11 +455,17 @@ Public Class frmNacherfassungLeihgeld
If Not gen_RECHNUNG_BySPEDBUCH(BELEG.KundenNr, SPEDBUCH, RK_ID, cbxOP_sofort_buchen.Checked, summeBRUTTO, summeNETTO) Then verarbOK = False
If RK_ID > 0 Then
Dim RECHNUNG As New cRechnungsausgang(RK_ID)
If Not cFakturierung.doRechnungsDruck(RECHNUNG, Today(),, 7) Then verarbOK = False 'rechnungsNr vergeben, aber nicht gedruckt!
'rechnungsNr vergeben, aber nicht gedruckt!
If Not cFakturierung.doRechnungsDruck(RECHNUNG, Today(),, 4) Then verarbOK = False
If RECHNUNG.[DruckDatumZeit] IsNot Nothing Then
RECHNUNG.[DruckDatumZeit] = Nothing
RECHNUNG.SAVE_DruckDatumZeit()
End If
End If
If verarbOK Then
'MsgBox("Rechnung erstellt!")
Else
MsgBox("Fehler bei Rechnungserstellung!")
@@ -487,8 +494,8 @@ Public Class frmNacherfassungLeihgeld
If KdNr = "" Then Return False
Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(SPEDBUCH.VermittlerKundenNr)
Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(SPEDBUCH.VermittlerKundenNr)
Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr)
Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(KdNr)
Dim RG As New VERAG_PROG_ALLGEMEIN.cRechnungsausgang
Dim OffertenNr As Integer
@@ -537,7 +544,7 @@ Public Class frmNacherfassungLeihgeld
RG.Lastschrift = KD.Lastschrift
RG.Kunden_SVS = KD.SVS
RG.Steuerschlüssel = KD.Steuerschlüssel
RG.Steuerschlüssel = 0 'Immer 0 % weil durchlaufposten!
RG.Vorkasse = KD.Vorkasse
RG.Vorlageprovision_Proz = KD.Vorlageprovision
RG.Kreditaufwendungen_Proz = KD.Kreditaufwendungen
@@ -647,8 +654,15 @@ Public Class frmNacherfassungLeihgeld
Return False
End Function
Function printProvision(ByRef barBetrag As Double, ByRef BelegNrProvision As Integer) As Boolean
Function printProvision(ByRef barBetrag As Double, ByRef BelegNrProvision As Integer, Optional ProvisionAufMAKassa As Boolean = False) As Boolean
printProvision = False
If ProvisionAufMAKassa Then
PERSONAL.ID = PERSONAL_LG.ID
End If
Dim BELEG_Prov As New EABeleg(PERSONAL.Mandant, PERSONAL.Niederlassung, PERSONAL.ID)
'lblRgNr.Text = "12345 / TR"
BELEG_Prov.BelegDat = BELEG.BelegDat
@@ -1029,4 +1043,9 @@ Public Class frmNacherfassungLeihgeld
txtAuftrProvision.Enabled = sender.checked
End Sub
Private Sub btnWikis_Click(sender As Object, e As EventArgs) Handles btnWiki.Click
Dim webAddress As String = "https://wiki.verag.ag/software/aviso/howtos/Leihgeldkassa"
Process.Start(webAddress)
End Sub
End Class

18
SDL/mdm/frmMDMDatenverarbetiung.vb
View File

@@ -1280,7 +1280,7 @@ Public Class frmMDMDatenverarbetiung
Dim SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing
Dim verarbOK = IIf(test, False, True)
Dim RECHNUNG As cRechnungsausgang = Nothing
Dim RECHNUNG As New cRechnungsausgang(4823, 25015595)
If Not gen_SPEDBUCH_ByKdNr(uta("Customer Nr"), SPEDBUCH, "UTA",,,, datPloseAnhang.Value) Then verarbOK = False
@@ -3884,10 +3884,10 @@ Public Class frmMDMDatenverarbetiung
If dictPloseKunden.TryGetValue(ploseKunde, rowKd) Then
r.Cells("VERAGKdNr").Value = rowKd("PLOSEKundenNr")
VERAGKdNr = CInt(rowKd("AdressenNr"))
r.Cells("VERAGKdNr").Style.BackColor = Color.MintCream
'r.Cells("VERAGKdNr").Style.BackColor = Color.MintCream
Else
pruefData_PLOSE = False
r.Cells("VERAGKdNr").Style.BackColor = Color.PapayaWhip
'r.Cells("VERAGKdNr").Style.BackColor = Color.PapayaWhip
End If
'Produkt lookup
@@ -3895,20 +3895,20 @@ Public Class frmMDMDatenverarbetiung
If dictProdukt.TryGetValue(produktCode, rowProdukt) Then
VERAGLeistungsNr = CInt(rowProdukt("plp_LeistungsNr"))
r.Cells("VERAGLeistungsNr").Value = VERAGLeistungsNr
r.Cells("VERAGLeistungsNr").Style.BackColor = Color.MintCream
'r.Cells("VERAGLeistungsNr").Style.BackColor = Color.MintCream
Else
pruefData_PLOSE = False
r.Cells("VERAGLeistungsNr").Style.BackColor = Color.PapayaWhip
'r.Cells("VERAGLeistungsNr").Style.BackColor = Color.PapayaWhip
End If
'Offerte 80 lookup
Dim offered80 As Object = Nothing
If dictOfferte.TryGetValue(VERAGKdNr.ToString(), offered80) Then
r.Cells("KundeOffertenNr").Value = offered80
r.Cells("KundeOffertenNr").Style.BackColor = Color.MintCream
'r.Cells("KundeOffertenNr").Style.BackColor = Color.MintCream
Else
pruefData_PLOSE = False
r.Cells("KundeOffertenNr").Style.BackColor = Color.PapayaWhip
'r.Cells("KundeOffertenNr").Style.BackColor = Color.PapayaWhip
End If
'Leistung lookup
@@ -3917,10 +3917,10 @@ Public Class frmMDMDatenverarbetiung
setLeist.Contains(VERAGLeistungsNr.ToString()) Then
r.Cells("KundeLeistungsNr").Value = VERAGLeistungsNr
r.Cells("KundeLeistungsNr").Style.BackColor = Color.MintCream
'r.Cells("KundeLeistungsNr").Style.BackColor = Color.MintCream
Else
pruefData_PLOSE = False
r.Cells("KundeLeistungsNr").Style.BackColor = Color.PapayaWhip
'r.Cells("KundeLeistungsNr").Style.BackColor = Color.PapayaWhip
End If
'UI update alle 100 Zeilen statt 5

15
SDL/seriendruck/usrCntlFakturierung.Designer.vb generated
View File

@@ -99,6 +99,7 @@ Partial Class usrcntlFakturierung
Me.btnRePos = New System.Windows.Forms.Button()
Me.Validation1 = New SDL.EORI.validation()
Me.btnWikiStatusmails = New System.Windows.Forms.Button()
Me.btnRE_Text = New System.Windows.Forms.Button()
Me.GroupBox1.SuspendLayout()
Me.GBMautberichte.SuspendLayout()
CType(Me.dgvMautbericht, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -343,6 +344,7 @@ Partial Class usrcntlFakturierung
'
'GBSammelrechnung
'
Me.GBSammelrechnung.Controls.Add(Me.btnRE_Text)
Me.GBSammelrechnung.Controls.Add(Me.btnFixeTaxe)
Me.GBSammelrechnung.Controls.Add(Me.Label11)
Me.GBSammelrechnung.Controls.Add(Me.PictureBox6)
@@ -941,6 +943,18 @@ Partial Class usrcntlFakturierung
Me.btnWikiStatusmails.TabIndex = 72
Me.btnWikiStatusmails.UseVisualStyleBackColor = True
'
'btnRE_Text
'
Me.btnRE_Text.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnRE_Text.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.btnRE_Text.Location = New System.Drawing.Point(744, 223)
Me.btnRE_Text.Name = "btnRE_Text"
Me.btnRE_Text.Size = New System.Drawing.Size(107, 32)
Me.btnRE_Text.TabIndex = 127
Me.btnRE_Text.Text = "RE-Text setzen"
Me.btnRE_Text.UseVisualStyleBackColor = True
Me.btnRE_Text.Visible = False
'
'usrcntlFakturierung
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1050,4 +1064,5 @@ Partial Class usrcntlFakturierung
Friend WithEvents Label11 As Label
Friend WithEvents PictureBox6 As PictureBox
Friend WithEvents btnFixeTaxe As Button
Friend WithEvents btnRE_Text As Button
End Class

28
SDL/seriendruck/usrCntlFakturierung.vb
View File

@@ -86,6 +86,8 @@ Public Class usrcntlFakturierung
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", "SDL") Then
Button2.Visible = True
Button3.Visible = True
btnRE_Text.Visible = True
End If
@@ -179,8 +181,9 @@ Public Class usrcntlFakturierung
'es sollen alle RE der letzen 3 Monate gesetzt werden (warum, weil das schon immer so war....)
'ok = SQL.doSQL("update [Rechnungsausgang] set Sachbearbeiter='" & Sachbearbeiter & "' where Sammelrechnung=6 and Firma_ID=19 and Abfertigungsdatum = '" & dtRechnungsdatum.Value & "'", "FMZOLL")
Dim vergangAbfertigunsdatuminMontaen As Integer = -12
ok = SQL.doSQL("update [Rechnungsausgang] set Sachbearbeiter='" & Sachbearbeiter & "' where Firma_ID = 19 And Sammelrechnung = 6 And Abfertigungsdatum > DateAdd(Month, -3, GETDATE())", "FMZOLL")
ok = SQL.doSQL("update [Rechnungsausgang] set Sachbearbeiter='" & Sachbearbeiter & "' where Firma_ID = 19 And Sammelrechnung = 6 And Abfertigungsdatum > DateAdd(Month, " & vergangAbfertigunsdatuminMontaen & ", GETDATE())", "FMZOLL")
showPic(ok, PictureBox1)
@@ -192,7 +195,7 @@ Public Class usrcntlFakturierung
If rechnungenMitAbwAbfDat > 0 Then
Dim res As MsgBoxResult
res = MsgBox("Es gibt noch " & rechnungenMitAbwAbfDat & " Rechnungen mit abweichenden Abfertigungsdatum (Abfertigungsdatum ist nicht " & rechnungsdatum & ")" & vbNewLine & "Möchten Sie fortfahren (Abfertigungsdatum wird automatisch auf " & rechnungsdatum & " gesetzt) ?", vbYesNoCancel)
res = MsgBox("Es gibt noch " & rechnungenMitAbwAbfDat & " Rechnungen mit abweichenden Abfertigungsdatum (Abfertigungsdatum ist nicht " & rechnungsdatum & ")" & vbNewLine & "Möchten Sie fortfahren (Abfertigungsdatum wird automatisch auf " & rechnungsdatum & " gesetzt (nur die letzten " & Math.Abs(vergangAbfertigunsdatuminMontaen) & " Monate ab heute) ?", vbYesNoCancel)
Select Case res
Case MsgBoxResult.Yes : SQL.doSQL("update [Rechnungsausgang] set Abfertigungsdatum = '" & rechnungsdatum & "' WHERE [Status] = 0 AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter]) = '" & Sachbearbeiter & "' AND ([SteuerpflichtigerGesamtbetrag] <> 0 OR [SteuerfreierGesamtbetrag] <> 0) AND cast(Abfertigungsdatum as Date) <> '" & rechnungsdatum & "'", "FMZOLL")
Case MsgBoxResult.No
@@ -681,7 +684,7 @@ Public Class usrcntlFakturierung
End Function
Private Function setRechnungstext(Sachbearbeiter As String, rechnungsdatum As Date, ByRef sammelRechnungen As DataTable) As Boolean
Private Function setRechnungstext(Sachbearbeiter As String, rechnungsdatum As Date, ByRef sammelRechnungen As DataTable, Optional setTextifNull As Boolean = False) As Boolean
Dim varText As String = ""
Dim varNettozahlungsziel As Integer = 0
@@ -692,7 +695,7 @@ Public Class usrcntlFakturierung
Dim dtSelectedSammelrechnungen As DataTable = (New SQL).loadDgvBySql("SELECT [Firma_ID], [Status], [Sammelrechnung], [Sachbearbeiter], [RechnungsKundenNr], [Währungscode], isnull([Steuersatz %],0) as [Steuersatz %], cast([Lastschrift] as bit) as Lastschrift, [RK_ID], [BelegartenNr],cast([Vorkasse] as bit) as Vorkasse, [Nettozahlungsziel], [OffertenNr], [RechnungsLandKz], [Text]
FROM Rechnungsausgang
WHERE [Status] = 0 AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter]) = '" & Sachbearbeiter & "' AND ([SteuerpflichtigerGesamtbetrag] <> 0 OR [SteuerfreierGesamtbetrag] <> 0) AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "'
WHERE " & IIf(setTextifNull, "[Status] = 4 AND Text is null", "[Status] = 0") & " AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter]) = '" & Sachbearbeiter & "' AND ([SteuerpflichtigerGesamtbetrag] <> 0 OR [SteuerfreierGesamtbetrag] <> 0) AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "'
ORDER BY [Firma_ID], [Status], [Sammelrechnung], [Sachbearbeiter], [RechnungsKundenNr], [Währungscode], [Steuersatz %], [Lastschrift], [RK_ID]", "FMZOLL")
Try
@@ -2217,5 +2220,22 @@ Public Class usrcntlFakturierung
Process.Start(webAddress)
End Sub
Private Sub btnRE_Text_Click(sender As Object, e As EventArgs) Handles btnRE_Text.Click
Dim Sachbearbeiter = cboSachbearbeiter._value
Dim rechnungsdatum As Date = CDate(dtRechnungsdatum.Text)
Dim dtSammelrechnungen As New DataTable
Dim setText As Boolean = False
Dim res As MsgBoxResult
res = MsgBox("Möchten Sie den Rechnungstext für bereits gedruckte Rechnungen setzen (WENN TEXT = NULL)?" & vbNewLine & "JA -> nur bei Text = NULL und STATUS = 4" & vbNewLine & "NEIN -> Text bei STATUS = 0" & vbNewLine & "ABBRUCH ->NICHTS MACHEN", vbYesNoCancel)
Select Case res
Case MsgBoxResult.Yes : setText = True
Case MsgBoxResult.No : setText = False
Case MsgBoxResult.Cancel : Exit Sub
End Select
showPic(setRechnungstext(Sachbearbeiter, rechnungsdatum, dtSammelrechnungen, setText), PictureBox3)
End Sub
End Class

44
VERAG_PROG_ALLGEMEIN/Classes/cAufschubKonten.vb
View File

@@ -173,7 +173,18 @@ Public Class cAufschubKonten
Return SQL.doSQL("Update [tblBrgAufschubKonten] Set brgakto_gs_aktSaldo = CAST(REPLACE('" & brgakto_gs_aktSaldo & "' ,',','.')AS decimal(18,2)) WHERE brgakto_gs_standort = '" & brgakto_gs_standort & "'", "ADMIN")
End Function
Public Function CalcSaldo(Optional dtDate As DataTable = Nothing) As String
Public Function CalcSaldo(Optional dtDate As DataTable = Nothing, Optional Stichtag As Date? = Nothing) As String
Dim StichtagSQLGesamtsicherheit = ""
Dim StichtagSQLGesamtsicherheitsPositionen = ""
If Stichtag.HasValue Then
StichtagSQLGesamtsicherheitsPositionen = " And cast(gsp_datum as Date) <= '" & Stichtag.Value.ToShortDateString & "'"
StichtagSQLGesamtsicherheit = " AND cast(gs_datum as Date) <= '" & Stichtag.Value.ToShortDateString & "'"
End If
Dim SaldoString As String =
"select
@@ -184,24 +195,35 @@ Public Class cAufschubKonten
when gs_art = 'Close' then gs_sicherheitsbetrag
end)
as SicherheitsSaldoGS from [tblGesamtsicherheit] Where gs_standort = '" & brgakto_gs_standort & "')+
as SicherheitsSaldoGS from [tblGesamtsicherheit] Where gs_standort = '" & brgakto_gs_standort & "'" & StichtagSQLGesamtsicherheit & ")+
(select SUM(
case
when gsp_art = 'Open' then (gsp_sicherheitsbetrag * -1)
when gsp_art = 'Close' then gsp_sicherheitsbetrag
end)
as SicherheitsSaldoPositionen from [tblGesamtsicherheitsPositionen] Where gsp_gsid IN (select gs_gsId from [tblGesamtsicherheit] where gs_standort = '" & brgakto_gs_standort & "' And ISNULL(gs_ReferenzAenderung,0) = 0 ))"
as SicherheitsSaldoPositionen from [tblGesamtsicherheitsPositionen] Where gsp_gsid IN (select gs_gsId from [tblGesamtsicherheit] where gs_standort = '" & brgakto_gs_standort & "'" & StichtagSQLGesamtsicherheit & " And ISNULL(gs_ReferenzAenderung,0) = 0 )" & StichtagSQLGesamtsicherheitsPositionen & ")"
Dim dt As New DataTable
Dim mrn As Double = 0
dt = SQL.loadDgvBySql(SaldoString, "AVISO", 100, True)
If dt.Rows(0).Item(0).ToString.Length > 0 Then
mrn = dt.Rows(0).Item(0)
End If
Dim mrn As Double = 0
dt = SQL.loadDgvBySql(SaldoString, "AVISO", 100, True)
If dt.Rows(0).Item(0).ToString.Length > 0 Then
mrn = dt.Rows(0).Item(0)
End If
If Stichtag.HasValue Then
brgakto_gs_aktSaldo = getReferenzbetrag(Stichtag.Value) 'aktueller Referenzbetrag + Verwahrungsausgänge - Verwahrungseingänge zum Stichtag!!! -> nicht updaten, nur INFO!!!!
brgakto_gs_aktSaldo += mrn
MsgBox("Saldo zum Stichtag " & Stichtag.Value & ":" & vbNewLine & brgakto_gs_aktSaldo.ToString("N2"))
Else
brgakto_gs_aktSaldo = getReferenzbetrag(Today) 'aktueller Referenzbetrag + Verwahrungsausgänge - Verwahrungseingänge....
brgakto_gs_aktSaldo += mrn
updateSaldo()
End If
brgakto_gs_aktSaldo = getReferenzbetrag(Today) + mrn
updateSaldo()
Return brgakto_gs_aktSaldo
@@ -211,7 +233,7 @@ Public Class cAufschubKonten
Try
Return SQL.getValueTxtBySql("select TOP (1) brgarefb_refbetrag from [tblBrgAufschubReferenzberaege] where [brgarefb_gsid]='" & brgakto_id & "' and brgarefb_gs_aktiv = 1 And [brgarefb_gueltig_ab] <= '" & nowDate & "' order by [brgarefb_gueltig_ab] desc", "ADMIN",,,,)
Return SQL.getValueTxtBySql("select TOP (1) brgarefb_refbetrag from [tblBrgAufschubReferenzberaege] where [brgarefb_gsid]='" & brgakto_id & "' and brgarefb_gs_aktiv = 1 And cast([brgarefb_gueltig_ab] as Date) <= '" & nowDate & "' order by [brgarefb_gueltig_ab] desc", "ADMIN",,,,)
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)

5
VERAG_PROG_ALLGEMEIN/Classes/cIDS.vb
View File

@@ -3,6 +3,7 @@ Imports System.Data.SqlClient
Imports System.IO
Imports System.Net
Imports System.Reflection
Imports DocumentFormat.OpenXml.Office2016.Drawing.ChartDrawing
Public Class cIDS
@@ -632,6 +633,10 @@ Public Class cIDS
End Function
Public Shared Function countBackToCustomerNotSet(SQL As SQL) As Integer
Return SQL.getValueTxtBySql("SELECT count(InvToCustomer) FROM [tblIDSInvoicesNewSplittedByCountry] where InvToCustomer Is null ", "FMZOLL",,, -1)
End Function
Public Shared Function UPDATE_ARCHIV(reDat As Date, reNr As String, ids_kdNr As Integer, country As String, UStVAn_ID As Integer) As Boolean
Try
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL

4
VERAG_PROG_ALLGEMEIN/Classes/cRMC.vb
View File

@@ -278,6 +278,10 @@ Public Class cRMC
End Function
Public Shared Function countBackToCustomerNotSet(SQL As SQL) As Integer
Return SQL.getValueTxtBySql("SELECT count(InvToCustomer) FROM [tblRMCImport] where InvToCustomer Is null ", "FMZOLL",,, -1)
End Function
Public Class Paramter
Shared apiSettingsloaded As Boolean = False

3
VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb
View File

@@ -501,6 +501,9 @@ Class TrdInvoice_FUNCTIONS
If Buchungstext <> "" AndAlso Buchungstext.Contains("Zahlungen von") Then
Buchungstext = Buchungstext.Replace("Zahlungen von", "Zinsen")
' Buchungstext &= " / nicht verzinsen"
ElseIf Buchungstext <> "" AndAlso Buchungstext.Contains("Zahlungen") Then
Buchungstext = Buchungstext.Replace("Zahlungen", "Zinsen")
End If
If TRD_INVOICE.SAVE Then

4
VERAG_PROG_ALLGEMEIN/Classes/cUTA.vb
View File

@@ -41,6 +41,10 @@ Public Class cUTA
End Function
Public Shared Function countBackToCustomerNotSet(SQL As SQL) As Integer
Return SQL.getValueTxtBySql("SELECT count(InvToCustomer) FROM [tblUTAImportNew] where InvToCustomer Is null ", "FMZOLL",,, -1)
End Function
Public Class UTAHeader
Property Übertragungsnummer As Integer

15
VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.Designer.vb generated
View File

@@ -35,6 +35,7 @@ Partial Class frmMitarbeitersuche
Me.lblStatusZE = New System.Windows.Forms.Label()
Me.Label13 = New System.Windows.Forms.Label()
Me.pnlZeiten = New System.Windows.Forms.Panel()
Me.cbxLaengergearbeitet = New System.Windows.Forms.CheckBox()
Me.btnAkten = New System.Windows.Forms.Button()
Me.PictureBox5 = New System.Windows.Forms.PictureBox()
Me.Button2 = New System.Windows.Forms.Button()
@@ -264,6 +265,7 @@ Partial Class frmMitarbeitersuche
Me.pnlZeiten.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.pnlZeiten.BackColor = System.Drawing.Color.Cornsilk
Me.pnlZeiten.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnlZeiten.Controls.Add(Me.cbxLaengergearbeitet)
Me.pnlZeiten.Controls.Add(Me.btnAkten)
Me.pnlZeiten.Controls.Add(Me.PictureBox5)
Me.pnlZeiten.Controls.Add(Me.Button2)
@@ -280,6 +282,18 @@ Partial Class frmMitarbeitersuche
Me.pnlZeiten.TabIndex = 22
Me.pnlZeiten.Visible = False
'
'cbxLaengergearbeitet
'
Me.cbxLaengergearbeitet.AutoSize = True
Me.cbxLaengergearbeitet.ForeColor = System.Drawing.Color.Black
Me.cbxLaengergearbeitet.Location = New System.Drawing.Point(367, -1)
Me.cbxLaengergearbeitet.Name = "cbxLaengergearbeitet"
Me.cbxLaengergearbeitet.Size = New System.Drawing.Size(109, 17)
Me.cbxLaengergearbeitet.TabIndex = 131
Me.cbxLaengergearbeitet.Text = "Länger gearbeitet"
Me.cbxLaengergearbeitet.UseVisualStyleBackColor = True
Me.cbxLaengergearbeitet.Visible = False
'
'btnAkten
'
Me.btnAkten.BackColor = System.Drawing.Color.White
@@ -991,4 +1005,5 @@ Partial Class frmMitarbeitersuche
Friend WithEvents Label17 As Windows.Forms.Label
Friend WithEvents lblNotfall_Handy As Windows.Forms.Label
Friend WithEvents lblNotfall_Name As Windows.Forms.Label
Friend WithEvents cbxLaengergearbeitet As Windows.Forms.CheckBox
End Class

22
VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb
View File

@@ -107,7 +107,7 @@ Public Class frmMitarbeitersuche
lblHandyNr.Visible = MA.mit_MAVerzeichnis_allowHandynummer
lblHandyNr.Text = If(MA.mit_mobiltel, "")
cbxHomeoffice.Checked = MA.mit_homeoffice
cbxHomeoffice.Checked = IIf(MA.mit_homeoffice AndAlso Not MA.mit_timasMehrereFirmen, True, False)
Select Case If(MA.mit_abteilung, "")
@@ -203,6 +203,15 @@ Public Class frmMitarbeitersuche
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZE_AKTENGANG", "SDL") Then btnAkten.Visible = True
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZE_LÄNGER_ARBEITEN", "SDL") Then cbxLaengergearbeitet.Visible = True
'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZE_HOMEOFFICE", "SDL") Then cbxHomeoffice.Visible = True
If MA.mit_timasMehrereFirmen Then
cbxHomeoffice.Visible = False
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Überstunden_auszahlen", "SDL") Then
If MA.getFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then 'MA derselben Firma bearbeiten
Button3.Visible = True
@@ -442,9 +451,14 @@ Public Class frmMitarbeitersuche
'normales kommen/gehen
Dim a As MsgBoxResult = MsgBox(IIf(cbxHomeoffice.Checked, "Homeoffice", "Büro") & vbNewLine & sender.text & " für " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & vbNewLine & Now.ToString(), vbYesNo)
Dim a As MsgBoxResult = MsgBox(IIf(cbxHomeoffice.Checked AndAlso Not MA.mit_timasMehrereFirmen, "Homeoffice", "Büro") & IIf(cbxLaengergearbeitet.Checked, " (Länger gearbeitet)", "") & vbNewLine & sender.text & " für " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & vbNewLine & Now.ToString(), vbYesNo)
If a = vbYes Then
Dim info As String = ""
If art = "out" AndAlso cbxLaengergearbeitet.Checked Then
resultCode = 15 'länger arbeiten
End If
timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, art, resultCode)
MsgBox(info)
Thread.Sleep(2000) 'warten bis Eintrag in Timas-DB
@@ -484,12 +498,14 @@ Public Class frmMitarbeitersuche
btnZEGehen.Enabled = True
btnZEKommen.Enabled = False
btnAkten.Enabled = False
cbxLaengergearbeitet.Enabled = True
Else
lblStatusZE.Text = "OFFLINE"
lblStatusZE.BackColor = Color.Firebrick
btnZEGehen.Enabled = False
btnZEKommen.Enabled = True
btnAkten.Enabled = True
cbxLaengergearbeitet.Enabled = False
End If
Else
@@ -503,7 +519,7 @@ Public Class frmMitarbeitersuche
btnZEKommen.Enabled = False
Button2.Enabled = False
btnAkten.Enabled = False
cbxLaengergearbeitet.Enabled = False
End If

4
VERAG_PROG_ALLGEMEIN/Schnittstellen/MSE/cMSEAPI.vb
View File

@@ -67,6 +67,10 @@ Public Class cMSEAPI
End Function
Public Shared Function countBackToCustomerNotSet(SQL As SQL) As Integer
Return SQL.getValueTxtBySql("SELECT count(InvToCustomer) FROM [tblMSEInvoices] where InvToCustomer Is null ", "FMZOLL",,, -1)
End Function

4
VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb
View File

@@ -934,10 +934,10 @@ Public Class cTimasAPI
Select Case inout
Case "in"
entryType = "KOMMT" & IIf(art = 0, "(Büro)", "") & IIf(art = 3, "(Homeoffice)", "")
entryType = "KOMMT" & IIf(art = 0, " (Büro)", "") & IIf(art = 3, " (Homeoffice)", "")
Case "out"
entryType = "GEHT"
entryType = "GEHT" & IIf(art = 15, " (Länger gearbeitet)", "")
Case Else
entryType = "falscher ErfassgsTyp: " & inout

19
VERAG_PROG_ALLGEMEIN/frmTimasabfrage.vb
View File

@@ -1,5 +1,6 @@
Public Class frmTimasabfrage
Dim mit As VERAG_PROG_ALLGEMEIN.cMitarbeiter
Dim nurBuero As Boolean = False
Public Datum As Date = CDate(Now.ToShortDateString)
Public typ As Integer = -1
Public Schalter As Integer = -1
@@ -15,11 +16,25 @@
mit = mit_
End Sub
Sub New(mit_ As cMitarbeiter, nurBuero_ As Boolean)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
mit = mit_
nurBuero = nurBuero_
End Sub
Private Sub frmTimasabfrage(sender As Object, e As EventArgs) Handles Me.Load
cboTyp.Items.Clear()
cboTyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Büro", "0"))
cboTyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Homeoffice", "3"))
If Not nurBuero Then
cboTyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Homeoffice", "3"))
rbHO.Enabled = True
Else
rbHO.Enabled = False
End If
cbxSchalterID.Items.Clear()
cbxSchalterID.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
@@ -29,7 +44,7 @@
If mit IsNot Nothing Then
Label1.Text = "Zeit erfassen für: " & mit.mit_nname & " " & mit.mit_vname
If mit.mit_homeoffice Then
If mit.mit_homeoffice AndAlso Not nurBuero Then
rbHO.Checked = True
cboTyp.changeItem("Homeoffice")
Else