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

Beleg, cFakt.

Browse Source
This commit is contained in:
d.breimaier
2025-10-31 14:35:06 +01:00
parent e057d69624
commit 18b089d9ab
4 changed files with 224 additions and 155 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
SDL/kassenbuch/frmBelegNeu.vb
View File

@@ -1,12 +1,7 @@
Imports System.Data.SqlClient
Imports System.Drawing.Printing
Imports System.Drawing.Printing
Imports System.Globalization
Imports com.sun.org.apache.xpath.internal.operations
Imports com.sun.xml.internal.ws.api.model
Imports DAKOSY_Worker.DEXPRD
Imports Microsoft.Win32
Imports SDL.RKSVServer
Imports VERAG_PROG_ALLGEMEIN.TESTJSON
Public Class frmBelegNeu
Implements System.ComponentModel.INotifyPropertyChanged
@@ -1050,7 +1045,7 @@ Public Class frmBelegNeu
End Sub
Private Sub btnEinnahmeBeleg_Click(sender As Object, e As EventArgs) Handles btnEinnahmeBeleg.Click
If BELEG.POS.Count > 0 Then
If vbYes <> MsgBox("Es wurden bereits Positionen angelegt, sollen diese geslöscht werden?", MsgBoxStyle.YesNoCancel) Then
If vbYes <> MsgBox("Es wurden bereits Positionen angelegt, sollen diese gelöscht werden?", MsgBoxStyle.YesNoCancel) Then
Exit Sub
End If
End If
@@ -1063,7 +1058,7 @@ Public Class frmBelegNeu
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnAusgabebeleg.Click
If BELEG.POS.Count > 0 Then
If vbYes <> MsgBox("Es wurden bereits Positionen angelegt, sollen diese geslöscht werden?", MsgBoxStyle.YesNoCancel) Then
If vbYes <> MsgBox("Es wurden bereits Positionen angelegt, sollen diese gelöscht werden?", MsgBoxStyle.YesNoCancel) Then
Exit Sub
End If
End If