diff --git a/SDL/Classes/cRKSV.vb b/SDL/Classes/cRKSV.vb index 6ee3618d..1b02d6d6 100644 --- a/SDL/Classes/cRKSV.vb +++ b/SDL/Classes/cRKSV.vb @@ -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 diff --git a/SDL/Fakturierung/frmAbrechnungsMaske.vb b/SDL/Fakturierung/frmAbrechnungsMaske.vb index 63b989a4..3f7d1fca 100644 --- a/SDL/Fakturierung/frmAbrechnungsMaske.vb +++ b/SDL/Fakturierung/frmAbrechnungsMaske.vb @@ -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 diff --git a/SDL/Fakturierung/frmRechnungenSuche.Designer.vb b/SDL/Fakturierung/frmRechnungenSuche.Designer.vb index 8e50eaa9..9c9f772d 100644 --- a/SDL/Fakturierung/frmRechnungenSuche.Designer.vb +++ b/SDL/Fakturierung/frmRechnungenSuche.Designer.vb @@ -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 diff --git a/SDL/Fakturierung/frmRechnungenSuche.vb b/SDL/Fakturierung/frmRechnungenSuche.vb index c6dd7344..35245d53 100644 --- a/SDL/Fakturierung/frmRechnungenSuche.vb +++ b/SDL/Fakturierung/frmRechnungenSuche.vb @@ -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 \ No newline at end of file diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb index 82d72cbc..a61ee201 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb +++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb @@ -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 diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index 9b1d6528..9b02a82c 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/buchhaltung/usrCntlBH.Designer.vb b/SDL/buchhaltung/usrCntlBH.Designer.vb index 2cbae264..ebd71923 100644 --- a/SDL/buchhaltung/usrCntlBH.Designer.vb +++ b/SDL/buchhaltung/usrCntlBH.Designer.vb @@ -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 diff --git a/SDL/buchhaltung/usrCntlBH.vb b/SDL/buchhaltung/usrCntlBH.vb index 9069c535..070bc413 100644 --- a/SDL/buchhaltung/usrCntlBH.vb +++ b/SDL/buchhaltung/usrCntlBH.vb @@ -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 & " diff --git a/SDL/frmMain.vb b/SDL/frmMain.vb index 3469541e..6aee74e8 100644 --- a/SDL/frmMain.vb +++ b/SDL/frmMain.vb @@ -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) diff --git a/SDL/kassenbuch/frmBelegNeu.vb b/SDL/kassenbuch/frmBelegNeu.vb index a7a2efc8..c389370f 100644 --- a/SDL/kassenbuch/frmBelegNeu.vb +++ b/SDL/kassenbuch/frmBelegNeu.vb @@ -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 diff --git a/SDL/kassenbuch/frmNacherfassungLeihgeld.vb b/SDL/kassenbuch/frmNacherfassungLeihgeld.vb index 6ec8ad54..87577af6 100644 --- a/SDL/kassenbuch/frmNacherfassungLeihgeld.vb +++ b/SDL/kassenbuch/frmNacherfassungLeihgeld.vb @@ -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 diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb b/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb index 85b38ea7..b803c356 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb @@ -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 diff --git a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.Designer.vb b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.Designer.vb index 4893670c..47710036 100644 --- a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.Designer.vb +++ b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.Designer.vb @@ -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 diff --git a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb index 67131b18..d257bfae 100644 --- a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb +++ b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb @@ -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 diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb index 4a01cfe5..31d6ec89 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb @@ -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 diff --git a/VERAG_PROG_ALLGEMEIN/frmTimasabfrage.vb b/VERAG_PROG_ALLGEMEIN/frmTimasabfrage.vb index e933f231..bce31e71 100644 --- a/VERAG_PROG_ALLGEMEIN/frmTimasabfrage.vb +++ b/VERAG_PROG_ALLGEMEIN/frmTimasabfrage.vb @@ -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