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

Timas, Fakt -> Leihgeldkasse, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-01-09 17:08:34 +01:00
parent 4da7d188d1
commit dc62abfd64
16 changed files with 154 additions and 53 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("GEBUCHT!")
Else
' MsgBox("NICHT GEBUCHT!")
MsgBox("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

3
SDL/Fakturierung/frmAbrechnungsMaske.vb
View File

@@ -117,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

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

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.1")>
<Assembly: AssemblyFileVersion("1.5.1.1")>
<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)

2
SDL/kassenbuch/frmBelegNeu.vb
View File

@@ -1604,7 +1604,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

16
SDL/kassenbuch/frmNacherfassungLeihgeld.vb
View File

@@ -454,11 +454,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 +493,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 +543,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

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

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/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