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

Kundenübersicht / Risiko; Verag ZA

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-02-02 10:26:30 +01:00
parent 7d3ce50b9b
commit 41f28aa4fb
12 changed files with 2294 additions and 2166 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
SDL/Fakturierung/usrCntlFaktAbrechnung.vb
View File

@@ -1831,11 +1831,13 @@ Public Class usrCntlFaktAbrechnung
Else
cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Standard", "RG"))
cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Unvollständig", "RU"))
cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("PROFORMA", "PROFORMA"))
End If
Else
cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("RG-Kopf", "RK"))
cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Standard", "RG"))
cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Unvollständig", "RU"))
cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("PROFORMA", "PROFORMA"))
End If
cboRgArt.SelectedIndex = 0
@@ -3983,6 +3985,8 @@ Nächste_Textzeile_lesen:
' RECHNUNG.DruckDatumZeit
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
If Not checkUIDNR() Then Exit Sub
getValues()
If RECHNUNG.Rechnungsart = "PROFORMA" And RECHNUNG.Sammelrechnung <> "0" Then MsgBox("Proforma-Rechnung nur bei Einzelrechnung möglich!") : Exit Sub
If RECHNUNG.Sammelrechnung <> "0" Then MsgBox("Nur bei Einzelrechnung möglich!") : Exit Sub
If RECHNUNG.Status <> 0 OrElse vbYes = MsgBox("Möchten Sie das PDF erstellen?" & vbNewLine & "Es wird eine Rechnungsnummer vergeben, die Rechnung gilt somit als gedruckt und kann nicht mehr bearbeitet werden.", vbYesNoCancel) Then
If RECHNUNG.Status <> 0 OrElse saveMe() Then
@@ -3996,6 +4000,7 @@ Nächste_Textzeile_lesen:
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
getValues()
If RECHNUNG.Sammelrechnung <> "0" Then MsgBox("Nur bei Einzelrechnung möglich!") : Exit Sub
If RECHNUNG.Status <> 0 OrElse vbYes = MsgBox("Möchten Sie die Rechnung drucken?" & vbNewLine & "Es wird eine Rechnungsnummer vergeben, die Rechnung kann nicht mehr bearbeitet werden.", vbYesNoCancel) Then
If RECHNUNG.Status <> 0 OrElse saveMe() Then
@@ -4043,6 +4048,7 @@ Nächste_Textzeile_lesen:
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click, Button16.Click
If Not checkUIDNR() Then Exit Sub
getValues()
If RECHNUNG.Sammelrechnung <> "0" Then MsgBox("Nur bei Einzelrechnung möglich!") : Exit Sub
If RECHNUNG.Status <> 0 OrElse saveMe() Then
' Anhänge sichern, falls geändert