From 4027773db1aa4891e1ddaa8e9de0008cff95f033 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Mon, 6 Nov 2023 08:31:05 +0100 Subject: [PATCH] Fakt --- SDL/Fakturierung/cFakturierung.vb | 27 ++++++++++++++++++++++- SDL/Fakturierung/usrCntlFaktAbrechnung.vb | 4 ++-- SDL/mdm/frmMDMDatenverarbetiung.vb | 2 +- 3 files changed, 29 insertions(+), 4 deletions(-) diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index af07dc0a..c9969de4 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -1,5 +1,6 @@  Imports System.Globalization +Imports awt.ShellApi Imports Microsoft.Office.Interop Public Class cFakturierung @@ -429,12 +430,24 @@ Public Class cFakturierung End Function + Shared Function checkAnlage_Orig(RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang) + If RECHNUNG IsNot Nothing Then + If (RECHNUNG.Anlage_1.contains("ATR") Or RECHNUNG.Anlage_1.contains("ATR") Or RECHNUNG.Anlage_1.contains("Präf")) And Not (RECHNUNG.Anlage_1.contains("Kopie") Or RECHNUNG.Anlage_1.contains("Copy")) Then Return True + If (RECHNUNG.Anlage_2.contains("ATR") Or RECHNUNG.Anlage_2.contains("ATR") Or RECHNUNG.Anlage_2.contains("Präf")) And Not (RECHNUNG.Anlage_2.contains("Kopie") Or RECHNUNG.Anlage_2.contains("Copy")) Then Return True + If (RECHNUNG.Anlage_3.contains("ATR") Or RECHNUNG.Anlage_3.contains("ATR") Or RECHNUNG.Anlage_3.contains("Präf")) And Not (RECHNUNG.Anlage_3.contains("Kopie") Or RECHNUNG.Anlage_3.contains("Copy")) Then Return True + If (RECHNUNG.Anlage_4.contains("ATR") Or RECHNUNG.Anlage_4.contains("ATR") Or RECHNUNG.Anlage_4.contains("Präf")) And Not (RECHNUNG.Anlage_4.contains("Kopie") Or RECHNUNG.Anlage_4.contains("Copy")) Then Return True + If (RECHNUNG.Anlage_5.contains("ATR") Or RECHNUNG.Anlage_5.contains("ATR") Or RECHNUNG.Anlage_5.contains("Präf")) And Not (RECHNUNG.Anlage_5.contains("Kopie") Or RECHNUNG.Anlage_5.contains("Copy")) Then Return True + If (RECHNUNG.Anlage_6.contains("ATR") Or RECHNUNG.Anlage_6.contains("ATR") Or RECHNUNG.Anlage_6.contains("Präf")) And Not (RECHNUNG.Anlage_6.contains("Kopie") Or RECHNUNG.Anlage_6.contains("Copy")) Then Return True + End If + Return False + End Function + 'Shared Function przRechnungstext(ByRef RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang) As String ', ByRef strZahlbar As String, ByRef strText As String) ' Dim txtZZ = przRechnungstextTXT(RECHNUNG) ' Dim txtTXT = przRechnungstextZZ(RECHNUNG) ' Return (txtZZ & vbNewLine & txtTXT).Trim 'End Function - Shared Function przRechnungstextTXT(ByRef RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang) As String ', ByRef strZahlbar As String, ByRef strText As String) + Shared Function przRechnungstextTXT(ByRef RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch) As String ', ByRef strZahlbar As String, ByRef strText As String) If RECHNUNG Is Nothing Then Exit Function @@ -539,6 +552,18 @@ Public Class cFakturierung ' strText = strText.Replace("", "") 'End Select + If SPEDBUCH IsNot Nothing Then + Select Case SPEDBUCH.Abfertigungsart + Case 1, 2, 3, 4, 23, 28, 39, 47 + If checkAnlage_Orig(RECHNUNG) Then + Select Case RECHNUNG.RechnungSprache + Case "EN" : strText = strText & "Please keep the original documents (e.g. ATR, EUR1) carefully for at least 7 years, as these will be required for any inspections by the customs authorities!" & vbCrLf + Case Else : strText = strText & "Bitte bewahren Sie die Original Dokumente (zB ATR, EUR1) mid. 7 Jahre sorgfältig auf, diese werden bei etwaigen Prüfungen durch die Zollbehörde benötigt!" & vbCrLf + End Select + End If + End Select + End If + 'MsgBox("Firma:" & RECHNUNG.Firma_ID & " - Land:" & "" & RECHNUNG.RechnungsLandKz & " - OffertenNr:" & RECHNUNG.OffertenNr & " - TXT: " & strText) diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb index 8f41c78d..6b9c1ca5 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb +++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb @@ -1269,7 +1269,7 @@ Public Class usrCntlFaktAbrechnung ' RECHNUNG.SteuerpflichtigerGesamtbetrag = steuerPflichtigerBetrag ' RECHNUNG.SteuerfreierGesamtbetrag = steuerFreierBetrag - txtText.Text = cFakturierung.przRechnungstextTXT(RECHNUNG) 'Das war vorher unter przBerechneRAPos + txtText.Text = cFakturierung.przRechnungstextTXT(RECHNUNG, SPEDBUCH) 'Das war vorher unter przBerechneRAPos txtTextZZ.Text = cFakturierung.przRechnungstextZZ(RECHNUNG) 'Das war vorher unter przBerechneRAPos ' przBerechneRAPos("") @@ -3673,7 +3673,7 @@ Nächste_Textzeile_lesen: Private Sub cboRechnungSprache_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboRechnungSprache.SelectedIndexChanged txtTextZZ.Text = cFakturierung.przRechnungstextZZ(RECHNUNG) - txtText.Text = cFakturierung.przRechnungstextTXT(RECHNUNG) + txtText.Text = cFakturierung.przRechnungstextTXT(RECHNUNG, SPEDBUCH) End Sub Private Sub dbgAnhaenge_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvAnhaenge.CellClick 'dbgAnhaenge.CellContentClick, diff --git a/SDL/mdm/frmMDMDatenverarbetiung.vb b/SDL/mdm/frmMDMDatenverarbetiung.vb index 23c1c6b2..466302cc 100644 --- a/SDL/mdm/frmMDMDatenverarbetiung.vb +++ b/SDL/mdm/frmMDMDatenverarbetiung.vb @@ -1437,7 +1437,7 @@ Public Class frmMDMDatenverarbetiung cFakturierung.setGesamtBetraege(RG) - RG.Text = (cFakturierung.przRechnungstextTXT(RG) & vbNewLine & cFakturierung.przRechnungstextZZ(RG)).Trim + RG.Text = (cFakturierung.przRechnungstextTXT(RG, SPEDBUCH) & vbNewLine & cFakturierung.przRechnungstextZZ(RG)).Trim ' Call usrCntlFaktAbrechnung.przSVSRVS(RG) ' SVS/RVS errechnen ' Call przSKR() ' SKR errechnen