20200108

2020-01-08 14:52:43 +01:00
parent bea8632eb5
commit f4c1a74870
136 changed files with 11561 additions and 1072 deletions
--- a/SDL/Fakturierung/cFakturierung.vb
+++ b/SDL/Fakturierung/cFakturierung.vb
@@ -181,7 +181,48 @@ Public Class cFakturierung
    End Function


+    Shared Sub setGesamtBetraege(ByRef RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, Optional Steuersatz_Proz As Object = Nothing)
+        Dim steuerPflichtigerBetrag As Double = 0
+        Dim steuerFreierBetrag As Double = 0
+        Dim Abfertigungskosten As Double = 0
+        Dim vorzeichen = 1 'If(RECHNUNG.Vorzeichen = "-", -1, 1)
+        If Steuersatz_Proz IsNot Nothing Then
+            RECHNUNG.Steuersatz_Proz = CDbl(Steuersatz_Proz)
+        End If ' RECHNUNG.Steuersatz_Proz = If(txtSteuersatz._value, 0)

+        For Each POS In RECHNUNG.POSITIONEN
+            If POS.Anzahl > 0 And POS.Preis <> 0 Then 'HIER WIRD GEFILTERT --> Nur wo etwas zu verrechnen ist!
+                If CBool(POS.Steuerpflichtig) Then
+                    steuerPflichtigerBetrag += POS.SteuerpflichtigerBetrag
+                Else
+                    steuerFreierBetrag += POS.SteuerfreierBetrag
+                End If
+
+                If CBool(SQL.DLookup("[Abfertigungskosten]", "Leistungen", "[LeistungsNr]=" & POS.[LeistungsNr], "FMZOLL", False)) Then
+
+                    Abfertigungskosten += VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(POS.[SteuerpflichtigerBetrag], RECHNUNG.Währungscode, "EUR")
+                    Abfertigungskosten += VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(POS.[SteuerfreierBetrag], RECHNUNG.Währungscode, "EUR")
+
+                End If
+            End If
+        Next
+
+        RECHNUNG.Abfertigungskosten = Abfertigungskosten * vorzeichen
+
+        steuerFreierBetrag *= vorzeichen
+        steuerPflichtigerBetrag *= vorzeichen
+        steuerFreierBetrag *= vorzeichen
+
+        Dim steuerBetrag As Double = 0
+        If RECHNUNG.Steuersatz_Proz <> 0 Then
+            steuerBetrag = steuerPflichtigerBetrag * RECHNUNG.Steuersatz_Proz
+            RECHNUNG.SteuerpflichtigerGesamtbetrag = steuerPflichtigerBetrag + steuerBetrag
+            RECHNUNG.SteuerfreierGesamtbetrag = steuerFreierBetrag
+        Else
+            RECHNUNG.SteuerpflichtigerGesamtbetrag = 0
+            RECHNUNG.SteuerfreierGesamtbetrag = steuerFreierBetrag + steuerPflichtigerBetrag
+        End If
+    End Sub

    Shared Function przRechnungstext(ByRef RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang) As String ', ByRef strZahlbar As String, ByRef strText As String)

@@ -215,22 +256,20 @@ Public Class cFakturierung
                            End If

                            'Zahlungsziel bei Maut/Diesel.
-                            If RECHNUNG.OffertenNr IsNot Nothing And RECHNUNG.RechnungsKundenNr > 0 And RECHNUNG.RechnungsLandKz IsNot Nothing Then
-                                Dim ZahlungszielOffert As String = SQL.getValueTxtBySql("SELECT isnull(Zahlungsziel,'') FROM Offertenstamm  WHERE OffertenNr='" & RECHNUNG.OffertenNr & "' AND Zahlungsziel Is Not Null", "FMZOLL")
+                            'DA STIMMT WAS NICHT::::::
+                            'If RECHNUNG.OffertenNr IsNot Nothing And RECHNUNG.RechnungsKundenNr > 0 And RECHNUNG.RechnungsLandKz IsNot Nothing Then
+                            '    Dim ZahlungszielOffert As String = SQL.getValueTxtBySql("SELECT isnull(Zahlungsziel,'') FROM Offertenstamm  WHERE OffertenNr='" & RECHNUNG.OffertenNr & "' AND Zahlungsziel Is Not Null", "FMZOLL")
+                            '    Dim ZahlungszielKunde As String = If(RECHNUNG_KD.Zahlungsziel, "")
+                            '    Dim ZahlungszielText As String = SQL.getValueTxtBySql("SELECT isnull(tblZahlungszieltexte.Text,'')  FROM tblZahlungszieltexte WHERE tblZahlungszieltexte.LandKz='" & RECHNUNG.RechnungsLandKz & "' AND tblZahlungszieltexte.Text Is Not Null", "FMZOLL")

-                                If ZahlungszielOffert <> "" Then
-                                    Dim ZahlungszielKunde As String = If(RECHNUNG_KD.Zahlungsziel, "")
-                                    Dim ZahlungszielText As String = SQL.getValueTxtBySql("SELECT isnull(tblZahlungszieltexte.Text,'')  FROM tblZahlungszieltexte WHERE tblZahlungszieltexte.LandKz='" & RECHNUNG.RechnungsLandKz & "' AND tblZahlungszieltexte.Text Is Not Null", "FMZOLL")
-
-                                    If ZahlungszielKunde <> "" Then  'Zahlungsziel für Kunde verwenden
-                                        RECHNUNG.Nettozahlungsziel = ZahlungszielKunde
-                                        strZahlbar = If(ZahlungszielText <> "", ZahlungszielText, "Rechnung zahlbar spätestens bis") & " " & ZahlungszielKunde & "!"
-                                    Else                    'Zahlungsziel für Offerte verwenden
-                                        RECHNUNG.Nettozahlungsziel = ZahlungszielOffert
-                                        strZahlbar = If(ZahlungszielText <> "", ZahlungszielText, "Rechnung zahlbar spätestens bis") & " " & ZahlungszielOffert & "!"
-                                    End If
-                                End If
-                            End If
+                            '    If ZahlungszielKunde <> "" Then  'Zahlungsziel für Kunde verwenden
+                            '        RECHNUNG.Nettozahlungsziel = ZahlungszielKunde
+                            '        strZahlbar = If(ZahlungszielText <> "", ZahlungszielText, "Rechnung zahlbar spätestens bis") & " " & ZahlungszielKunde & "!"
+                            '    ElseIf ZahlungszielOffert <> "" Then                    'Zahlungsziel für Offerte verwenden
+                            '        RECHNUNG.Nettozahlungsziel = ZahlungszielOffert
+                            '        strZahlbar = If(ZahlungszielText <> "", ZahlungszielText, "Rechnung zahlbar spätestens bis") & " " & ZahlungszielOffert & "!"
+                            '    End If
+                            'End If


                            ' Text bei Zoll oder EUSt drucken
@@ -382,7 +421,8 @@ Public Class cFakturierung
        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
            Case "IMEX"
                If Rechnung.RechnungsLandKz = "TR" Then
-                    rpt.txtBank1.Text = "Garanti Bank " & vbNewLine & "IBAN:TR84 0006 2001 6040 0009 0987 13 " & vbNewLine & "BLZ Sube.: 1604 - Beykent Ticari - Hesap: 9098713"
+                    'rpt.txtBank1.Text = "Garanti Bank " & vbNewLine & "IBAN:TR84 0006 2001 6040 0009 0987 13 " & vbNewLine & "BLZ Sube.: 1604 - Beykent Ticari - Hesap: 9098713"
+                    rpt.txtBank1.Text = "Garanti Bank " & vbNewLine & "IBAN:TR21 0006 2000 5440 0009 0818 67" & vbNewLine & "BLZ Sube.: 544 - Beykent Ticari - Hesap: 9081867"
                    rpt.txtBank2.Text = ""
                Else
                    If hasVK(Rechnung) Then
@@ -668,6 +708,13 @@ Public Class cFakturierung
            If rpt.txtAnlagen.Text.Replace(" ", "") = "" Then
                rpt.lblAnlagenUeberschrift.Visible = False
            End If
+
+            rpt.txtHandlingATA.Text = If(RECHNUNG.Handling, "")
+            If rpt.txtHandlingATA.Text.Replace(" ", "") = "" Then
+                rpt.lblHandlingATA.Visible = False
+            End If
+
+
            'rpt.lblMandantNiederlassung.Text = PERSONAL.Mandant & "  /  " & PERSONAL.Niederlassung

            'ANLAGE ZUR RECHNUNG:
@@ -816,7 +863,7 @@ Public Class cFakturierung
                End If

                'Rechnugnsdruck  =  Individuell für deise Rechnung, wird optional mitgegeben
-                Dim RG_Bezeichnung = "VERAG_Rechnung_" & If(RECHNUNG.RechnungsNr, "") & ".pdf"
+                Dim RG_Bezeichnung = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "_Rechnung_" & If(RECHNUNG.RechnungsNr, "") & ".pdf"

                'Immer Exportieren, da in Therefore speichern
                Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(RG_Bezeichnung, ".pdf", , False)
@@ -925,6 +972,9 @@ Public Class cFakturierung
                Case "VERAG" : firma = 1
                Case "IMEX" : firma = 20
                Case "ATILLA" : firma = 7
+                Case "UNISPED" : firma = 21
+                Case "AMBAR" : firma = 22
+                Case "FRONTOFFICE" : firma = 23
                Case Else : firma = 1
            End Select
        End If
@@ -996,7 +1046,7 @@ Public Class cFakturierung
                    End If
                    '        RECHNUNG.Buchungsjahr = If(Now.Month = 1, Now.Year - 1, Now.Year)
                End If
-                RECHNUNG.Buchungsjahr = If(CDate(RECHNUNG.[RechnungsDatum]).Month = 1, CDate(RECHNUNG.[RechnungsDatum]).Year - 1, CDate(RECHNUNG.[RechnungsDatum]).Year)
+                RECHNUNG.Buchungsjahr = cRKSV.getGJ(RECHNUNG.[RechnungsDatum]) ' If(CDate(RECHNUNG.[RechnungsDatum]).Month = 1, CDate(RECHNUNG.[RechnungsDatum]).Year - 1, CDate(RECHNUNG.[RechnungsDatum]).Year)

                If RECHNUNG.Buchungsjahr < 2000 Then
                    MsgBox("Buchungsjahr im falschen Format!")
@@ -1112,7 +1162,7 @@ Public Class cFakturierung
            If dt Is Nothing Then MsgBox("ERR01: Keine Daten") : Return True
            If dt.Rows.Count = 0 Then MsgBox("ERR02: Keine Daten") : Return True

-            Dim Buchungsjahr = IIf(Rechnungsdatum.Month = 1, Rechnungsdatum.Year - 1, Rechnungsdatum.Year)
+            Dim Buchungsjahr = cRKSV.getGJ(Rechnungsdatum) 'IIf(Rechnungsdatum.Month = 1, Rechnungsdatum.Year - 1, Rechnungsdatum.Year)


            Dim Aktuelle_RgNr As Integer = getNewRgNr(Firma_ID, Buchungsjahr) 'Nimmt die aktuelle RgNr und zählt eine Pos. hoch.
@@ -1227,7 +1277,7 @@ Public Class cFakturierung

        If list.Count > 0 Then
            '            pathPDF = ""        'PAD Pfad zurückgeben!!!!!!
-            pathPDF = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("VERAG_Sammelrechnung_" & RechnungsNr & ".pdf", ".pdf", False, False)
+            pathPDF = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "_Sammelrechnung_" & RechnungsNr & ".pdf", ".pdf", False, False)

            If Not FormularManagerNEU.MergePdfFiles(list, pathPDF) Then
                pathPDF = "" : MsgBox("Fehler PDF")
@@ -1388,6 +1438,10 @@ Public Class cFakturierung
                                                  If RECHNUNG.LKW_Kennzeichen <> "" Then rpt.txtSendungsdetails.Text &= "LKW-Kennzeichen: " & RECHNUNG.LKW_Kennzeichen & vbNewLine
                                                  If RECHNUNG.BelegNr <> "" Then rpt.txtSendungsdetails.Text &= "Zollbeleg-Nr.: " & RECHNUNG.BelegNr & vbNewLine

+                                                  If If(RECHNUNG.Handling, "") <> "" Then
+                                                      rpt.txtSendungsdetails.Text &= "Handling: " & RECHNUNG.Handling.ToString.Replace(vbNewLine, ", ").Replace(vbCr, ", ").Replace(vbLf, ", ") & vbNewLine
+                                                  End If
+
                                                  If True Then 'ANLAGEN
                                                      Dim Anlagen = ""
                                                      If If(RECHNUNG.Anlage_1, "") <> "" Then Anlagen &= RECHNUNG.Anlage_1 & ", "
@@ -1400,6 +1454,8 @@ Public Class cFakturierung
                                                      If Anlagen.Replace(" ", "").Trim <> "" Then rpt.txtSendungsdetails.Text &= "Anlagen: " & Anlagen
                                                  End If

+
+
                                                  rpt.txtSendungsdetails.Text = rpt.txtSendungsdetails.Text.Trim
                                                  rpt.txtKdAuftragsnummer.Text = If(RECHNUNG.KdAuftragsNr, "")

@@ -1466,7 +1522,7 @@ Public Class cFakturierung

            'ORIGINAL
            Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(ROW("RechnungsKundenNr"))
-            Dim RG_Bezeichnung = "VERAG_Rechnung_" & RechnungsNr & ".pdf"
+            Dim RG_Bezeichnung = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & " _Rechnung_" & RechnungsNr & ".pdf"
            'Rechnugnsdruck  =  Individuell für deise Rechnung, wird optional mitgegeben

            Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(RG_Bezeichnung, ".pdf", , False)
@@ -1489,9 +1545,9 @@ Public Class cFakturierung
                        Dim outl As New Outlook.Application
                        Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
                        Mail = outl.CreateItem(0)
-                        Mail.Subject = "VERAG Rechnung Nr. " & ROW("RechnungsNr")
+                        Mail.Subject = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & " Rechnung Nr. " & ROW("RechnungsNr")
                        Mail.HTMLBody = "Sehr geehrte Damen und Herren,<br><br>anbei erhalten Sie die Rechnung Nr. " & ROW("RechnungsNr") & "."
-                        Mail.Attachments.Add(tmpPath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "VERAG_Formular.pdf")
+                        Mail.Attachments.Add(tmpPath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "_Formular.pdf")
                        Mail.Display()

                    Catch ex As Exception
@@ -1764,7 +1820,7 @@ Public Class cFakturierung

                'ORIGINAL
                Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(ROW("RechnungsKundenNr"))
-                Dim RG_Bezeichnung = "VERAG_Rechnung_" & RechnungsNr & ".pdf"
+                Dim RG_Bezeichnung = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "_Rechnung_" & RechnungsNr & ".pdf"
                'Rechnugnsdruck  =  Individuell für deise Rechnung, wird optional mitgegeben
                '  MsgBox("RechnungsdruckArt2: " & If(Rechnugnsdruck > 0, Rechnugnsdruck, If(AD.Rechnungsdruck, 0)))

@@ -1795,9 +1851,9 @@ Public Class cFakturierung
                            Dim outl As New Outlook.Application
                            Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
                            Mail = outl.CreateItem(0)
-                            Mail.Subject = "VERAG Rechnung Nr. " & ROW("RechnungsNr")
+                            Mail.Subject = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & " Rechnung Nr. " & ROW("RechnungsNr")
                            Mail.HTMLBody = "Sehr geehrte Damen und Herren,<br><br>anbei erhalten Sie die Rechnung Nr. " & ROW("RechnungsNr") & "."
-                            Mail.Attachments.Add(tmpPath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "VERAG_Formular.pdf")
+                            Mail.Attachments.Add(tmpPath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "_Formular.pdf")
                            Mail.Display()

                        Catch ex As Exception