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

keine Fehlermeldung bei Nichtveragbe von RechnungsNr bei Vorschau!

Browse Source
This commit is contained in:
d.breimaier
2023-10-13 13:59:29 +02:00
parent f552555a40
commit b1a481d56e
3 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
SDL/Fakturierung/cFakturierung.vb
View File

@@ -2070,7 +2070,7 @@ Public Class cFakturierung
RG.SAVE() RG.SAVE()
If Not RG.checkRechnungsNrIsSet() Then If Not RG.checkRechnungsNrIsSet() AndAlso Not vorschau Then
MsgBox("Rechnungsnummer wurde nicht in Datenbank eingetragen" & vbNewLine & "Vorgang wird abgebrochen") MsgBox("Rechnungsnummer wurde nicht in Datenbank eingetragen" & vbNewLine & "Vorgang wird abgebrochen")
Return False Return False
Else Else

5
SDL/Fakturierung/frmFaktSammelRgDrucken.vb
View File

@@ -260,10 +260,13 @@ Public Class frmFaktSammelRgDrucken
'-------------- für PDF-Sammel-Rechnung -------------- '-------------- für PDF-Sammel-Rechnung --------------
If Not RechnungsNrisSet Then If Not RechnungsNrisSet Then
MsgBox("Rechnungsnummer wurde nicht in Datenbank eingetragen" & vbNewLine & "Vorgang wird abgebrochen") initDGV()
Me.Enabled = True
Me.Cursor = Cursors.Default
Exit Sub Exit Sub
End If End If
If cbxZusammenfassen.Checked Then ' Gibt an, ob mehrere Sammelrechnung zusammengefasst werden sollten If cbxZusammenfassen.Checked Then ' Gibt an, ob mehrere Sammelrechnung zusammengefasst werden sollten
Select Case ausgabeArt Select Case ausgabeArt

1
SDL/kunden/frmKundenUebersichtZollRgDetails.vb
View File

@@ -28,6 +28,7 @@ Public Class frmKundenUebersichtZollRgDetails
lblOrt.Text = dt("RechnungsOrt").ToString lblOrt.Text = dt("RechnungsOrt").ToString
lblUID.Text = dt("RechnungsUstIdKz").ToString & " " & dt("RechnungsUstIdNr").ToString lblUID.Text = dt("RechnungsUstIdKz").ToString & " " & dt("RechnungsUstIdNr").ToString
lblSteuerbetrag.Text = CDbl(dt("ErgSteuerbetrag")).ToString("N2", CultureInfo.CurrentCulture) lblSteuerbetrag.Text = CDbl(dt("ErgSteuerbetrag")).ToString("N2", CultureInfo.CurrentCulture)
lblAbfDat.Text = dt("Abfertigungsdatum").ToString
lblAbfNr.Text = dt("FilialenNr").ToString & " " & dt("AbfertigungsNr").ToString lblAbfNr.Text = dt("FilialenNr").ToString & " " & dt("AbfertigungsNr").ToString
filialeTmp = dt("FilialenNr").ToString filialeTmp = dt("FilialenNr").ToString