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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-09-01 16:11:12 +02:00
parent 7f5057dc3e
commit 4b6d595a89
48 changed files with 1650 additions and 753 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
SDL/Fakturierung/cFakturierung.vb
View File

@@ -316,7 +316,14 @@ Public Class cFakturierung
Select Case RECHNUNG.[BelegartenNr]
Case 70 'RECHNUNG
If Not RECHNUNG.Vorkasse Then
Dim VK = VERAG_PROG_ALLGEMEIN.cVorauskasse.LOADByFilialeAbfNr(RECHNUNG.FilialenNr, RECHNUNG.AbfertigungsNr)
Dim VK_Tmp = False
If RECHNUNG.[Vorkasse] Then
VK_Tmp = (VK IsNot Nothing)
End If
If Not VK_Tmp Then
If RECHNUNG.Lastschrift Then
Select Case RECHNUNG.RechnungSprache
Case "EN" : strText = strText & "The invoice amount was collected by direct debit order." & vbCrLf
@@ -367,7 +374,6 @@ Public Class cFakturierung
End If
Else
Dim VK = VERAG_PROG_ALLGEMEIN.cVorauskasse.LOADByFilialeAbfNr(RECHNUNG.FilialenNr, RECHNUNG.AbfertigungsNr)
If VK IsNot Nothing AndAlso CDbl(VK.vk_Betrag) > 0 Then
If VK.vk_GeldEingetroffen Then ' Wenn 0 dann Fehler
If CDbl(VK.vk_Betrag) = CDbl(RECHNUNG.SteuerfreierGesamtbetrag + RECHNUNG.SteuerpflichtigerGesamtbetrag) Then
@@ -433,15 +439,13 @@ Public Class cFakturierung
Select Case RECHNUNG.[BelegartenNr]
Case 70 'RECHNUNG
If Not RECHNUNG.Vorkasse Then
' Text bei Zoll oder EUSt drucken
If checkIfcheckIfZollbelege(RECHNUNG) Then
Select Case RECHNUNG.RechnungSprache
Case "EN" : strText = strText & "Please check all customs documents immediately for correctness, as objections are only possible 1 month after the date of the customs notification." & vbCrLf
Case Else : strText = strText & "Alle Zollbelege bitte sofort auf Richtigkeit prüfen da Einspruch gemäß § 355 AO nur 1 Monat nach Datum des Zollbescheides möglich." & vbCrLf
End Select
End If
' Text bei Zoll oder EUSt drucken
If checkIfcheckIfZollbelege(RECHNUNG) Then
Select Case RECHNUNG.RechnungSprache
Case "EN" : strText = strText & "Please check all customs documents immediately for correctness, as objections are only possible 1 month after the date of the customs notification." & vbCrLf
Case Else : strText = strText & "Alle Zollbelege bitte sofort auf Richtigkeit prüfen da Einspruch gemäß § 355 AO nur 1 Monat nach Datum des Zollbescheides möglich." & vbCrLf
End Select
End If
End Select
@@ -2232,7 +2236,8 @@ Public Class cFakturierung
ElseIf Rechnugnsdruck = 3 Then
'Process.Start(Path)
.Visible = True
Else
Datei.close
End If
End With