Ustv, etc.

SDL/Fakturierung/cFakturierung.vb

@@ -1167,7 +1167,9 @@ Public Class cFakturierung
             Dim gsBetrTmp As Double = 0
             For Each r In RECHNUNG.POSITIONEN
                 ' dtDataSource.Rows.Add(r.LeistungsNr, r.LeistungsBez, r.Anzahl, r.SteuerpflichtigerBetrag, r.SteuerfreierBetrag, (If(r.Belegdaten, "") & " " & If(r.Aufschubfälligkeit, "")).ToString.Trim)
+
                 dtDataSource.Rows.Add(r.LeistungsNr, r.LeistungsBez, r.Anzahl, r.SteuerpflichtigerBetrag, r.SteuerfreierBetrag, If(r.Belegdaten, "").ToString.Trim)
+
                 gsBetrTmp += CDbl(r.SteuerpflichtigerBetrag + r.SteuerfreierBetrag)
             Next
 
@@ -1264,13 +1266,19 @@ Public Class cFakturierung
             End If
 
             Select Case RECHNUNG.RechnungSprache
-                Case "EN" : rpt.Label2.Text = ZZTage & " Days" : rpt.Label1.Text = "Payment target:"
+                Case "EN" : rpt.Label2.Text = ZZTage & " Days" : rpt.Label1.Text = "Payment target:" : rpt.lblSendungsdatenUeberschrift.Text = "Service:"
-                Case Else : rpt.Label2.Text = ZZTage & " Tage"
+                Case "RO" : rpt.Label2.Text = ZZTage & " Zile" : rpt.Label1.Text = "Termen de plată:" : rpt.lblSendungsdatenUeberschrift.Text = "Descriere:"
+                Case Else : rpt.Label2.Text = ZZTage & " Tage" : rpt.lblSendungsdatenUeberschrift.Text = "Bezeichnung:"
             End Select
 
 
             Select Case RECHNUNG.Firma_ID
                 Case 21, 22, 23, 26 : rpt.Label1.Visible = False : rpt.Label2.Visible = False 'Ka warum
+                Case 19
+                    rpt.txtGrenze.Visible = False
+                    rpt.txtGrenzeUeberschrift.Visible = False
+                    rpt.lblWarenWertUeberschrift.Visible = False
+                    rpt.txtWarenwert.Visible = False
             End Select
 
             rpt.lblKundenNr.Text = If(RECHNUNG.RechnungsKundenNr > 0, RECHNUNG.RechnungsKundenNr, "")
@@ -1366,14 +1374,35 @@ Public Class cFakturierung
             '             Dies hat zur Folge, dass steuerfreie Rechnungsbeträge für Leistungen,
             '             die in der Leistungstabelle als ReverseCharge gekennzeichnet sind,
             '             summiert und auf der Rechnung ausgewiesen werden.
+
             If isReverseChargeSumme(FIRMA, RECHNUNG) Then
-                Select Case RECHNUNG.RechnungSprache
+
-                    '  Case "EN" : rpt.txtInfo.Text = "Attention! For EU customers! Since 1.1.2010, services are subject to the application of the reverse charge procedure. Transfer of the tax liability to the recipient of the service."
+                If RECHNUNG.Firma_ID = 19 Then
-                  '  Case Else : rpt.txtInfo.Text = "Achtung! Für EU-Kunden! Seit 1.1.2010 unterliegen Leistungen der Anwendung des Reverse Charge Verfahrens. Übergang der Steuerschuld an den Leistungsempfänger."
+
-                    Case "RO" : rpt.txtInfo.Text = "Obligația de TVA este transferată beneficiarului serviciului (Reverse Charge)."
+                    Select Case RECHNUNG.RechnungSprache
-                    Case "EN" : rpt.txtInfo.Text = "VAT liability is transferred to the recipient (Reverse Charge)." '"Attention! For EU customers! Since 1.1.2010, services are subject to the application of the reverse charge procedure. Transfer of the tax liability to the recipient of the service."
+                        Case "RO" : rpt.txtInfo.Text = "*Taxare inversa"
-                    Case Else : rpt.txtInfo.Text = "Die Umsatzsteuerschuld geht auf den Leistungsempfänger über (Reverse Charge Verfahren)." '"Achtung! Für EU-Kunden! Seit 1.1.2010 unterliegen Leistungen der Anwendung des Reverse Charge Verfahrens. Übergang der Steuerschuld an den Leistungsempfänger."
+                        Case "EN" : rpt.txtInfo.Text = "*Reverse Charge"
-                End Select
+                        Case Else : rpt.txtInfo.Text = "*Reverse Charge"
+                    End Select
+
+                    rpt.lblSteuersatz.Visible = False
+                    rpt.lblSteuerbetrag.Visible = False
+                    rpt.lblSteuerfrei.Visible = False
+                    rpt.lblSteuerfreiGes.Visible = False
+                    rpt.lblZwText.Visible = False
+                    rpt.lblZWSumme.Visible = False
+
+                Else
+
+                    Select Case RECHNUNG.RechnungSprache
+                        Case "RO" : rpt.txtInfo.Text = "Obligația de TVA este transferată beneficiarului serviciului (Reverse Charge)."
+                        Case "EN" : rpt.txtInfo.Text = "VAT liability is transferred to the recipient (Reverse Charge)."
+                        Case Else : rpt.txtInfo.Text = "Die Umsatzsteuerschuld geht auf den Leistungsempfänger über (Reverse Charge Verfahren)."
+                    End Select
+
+
+                End If
+
             Else : rpt.txtInfo.Text = "" : End If
 
 
@@ -1492,6 +1521,13 @@ Public Class cFakturierung
                                               rpt.lblLeistungNr.Text = checkNull(rpt.Fields.Item("LeistungsNr").Value)
                                               rpt.txtLeistung.Text = checkNull(rpt.Fields.Item("LeistungsBez").Value)
 
+                                              If FIRMA.Firma_ID = 19 Then
+                                                  Dim isReverseCharge As Boolean = SQL.getValueTxtBySql("SELECT ReverseCharge as Bit from Leistungen where LeistungsNr= " & rpt.lblLeistungNr.Text, "FMZOLL")
+                                                  If isReverseCharge Then
+                                                      rpt.txtLeistung.Text &= IIf(Not rpt.txtLeistung.Text.Contains("*"), "*", "")
+                                                  End If
+                                              End If
+
 
                                               If rpt.Fields.Item("Belegdaten").Value IsNot Nothing Then
                                                   rpt.txtLeistung.Text &= vbNewLine & checkNull(rpt.Fields.Item("Belegdaten").Value)

SDL/Fakturierung/rptRechnungDruck.Designer.vb

@@ -1635,7 +1635,7 @@ Partial Public Class rptRechnungDruck
     Private WithEvents lblSachbearbeiterUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
     Private WithEvents lblFirmenbuchUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
     Private WithEvents lblUIDUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
-    Private WithEvents lblSendungsdatenUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
+    Public WithEvents lblSendungsdatenUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
     Private WithEvents lblBankUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
     Public WithEvents txtDisclaimer As GrapeCity.ActiveReports.SectionReportModel.TextBox
     Public WithEvents lblRgNr As GrapeCity.ActiveReports.SectionReportModel.Label

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

@@ -379,7 +379,7 @@ Public Class usrCntlFaktAbrechnung
     Sub setControlsEnabled(pnl As Panel, pnlEnabled As Boolean)
         For Each c In pnl.Controls
             If c.GetType Is GetType(VERAG_PROG_ALLGEMEIN.MyTextBox) Or c.GetType Is GetType(VERAG_PROG_ALLGEMEIN.KdSearchBox) Then
-                c.Enabled = IIf(cboFiliale._value = "5701" AndAlso VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AMBAR_ALLE_RECHNUNGSEMPFÄNGER", "SDL"), True, pnlEnabled)
+                c.Enabled = IIf(cboFiliale._value = "5701" AndAlso VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AMBAR_ALLE_RECHNUNGSEMPFÄNGER", "SDL") Or (cboFiliale._value = "4817" And FIRMA.Firma_ID = 19 And RECHNUNG.DruckDatumZeit Is Nothing), True, pnlEnabled)
             End If
         Next
     End Sub
@@ -1208,9 +1208,10 @@ Public Class usrCntlFaktAbrechnung
             c = New DataGridViewTextBoxColumn() : c.Name = "DateiNameAufschub" : .Columns.Add(c)
             c = New DataGridViewTextBoxColumn() : c.Name = "Belegdaten" : .Columns.Add(c)
             c = New DataGridViewTextBoxColumn() : c.Name = "BerechnungsartPosInkludiert" : .Columns.Add(c)
+            c = New DataGridViewTextBoxColumn() : c.Name = "ReverseCharge" : .Columns.Add(c)
 
 
-            Dim dt As DataTable = SQL.loadDgvBySql(" SELECT [Offertenpositionen].[LeistungsNr],[Offertenpositionen].[LeistungsBez],[Anzahl],[Preis],[Offertenpositionen].[BerechnungsartNr],[BGebLeistungsNr],[BGebProzent],[BGebMinBetrag],Steuerpflichtig/*,[Geändert am],[Sachbearbeiter]*/,BerechnungsartPosInkludiert " &
+            Dim dt As DataTable = SQL.loadDgvBySql(" SELECT [Offertenpositionen].[LeistungsNr],[Offertenpositionen].[LeistungsBez],[Anzahl],[Preis],[Offertenpositionen].[BerechnungsartNr],[BGebLeistungsNr],[BGebProzent],[BGebMinBetrag],Steuerpflichtig, ReverseCharge/*,[Geändert am],[Sachbearbeiter]*/,BerechnungsartPosInkludiert " &
                                            " FROM [Offertenpositionen] INNER JOIN [Leistungen] ON leistungen.LeistungsNr=Offertenpositionen.LeistungsNr " &
                                            " WHERE KundenNr='" & kdNr & "' and OffertenNr='" & OffertenNr & "' ORDER BY LeistungsNr ", "FMZOLL")
 
@@ -1266,6 +1267,7 @@ Public Class usrCntlFaktAbrechnung
             .Columns("BGebMinBetrag").Visible = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
             .Columns("Steuerpflichtig").Visible = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
             .Columns("BerechnungsartPosInkludiert").Visible = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
+            .Columns("ReverseCharge").Visible = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
             ' .Columns("Geändert am").Visible = False
             '.Columns("Sachbearbeiter").Visible = False
 
@@ -1287,7 +1289,7 @@ Public Class usrCntlFaktAbrechnung
                 If True Then
 
                     dgvOfferteDetailsUebersicht.Rows.Add(r("LeistungsNr"), r("LeistungsBez"), r("Anzahl"), r("Preis"), r("BerechnungsartNr"), r("BGebLeistungsNr"), r("BGebProzent"), r("BGebMinBetrag"), steuerpflichtigTMP,
-                                DBNull.Value, DBNull.Value, DBNull.Value, DBNull.Value, DBNull.Value, r("BerechnungsartPosInkludiert"))
+                                DBNull.Value, DBNull.Value, DBNull.Value, DBNull.Value, DBNull.Value, r("BerechnungsartPosInkludiert"), r("ReverseCharge"))
 
                 Else
                     dgvOfferteDetailsUebersicht.Rows.Add(r("LeistungsNr"), r("LeistungsBez"), r("Anzahl"), r("Preis"), r("BerechnungsartNr"), DBNull.Value, DBNull.Value, DBNull.Value, steuerpflichtigTMP,
@@ -1421,7 +1423,9 @@ Public Class usrCntlFaktAbrechnung
         End Try
         Try
             Dim landNr As String = ""
-            Dim landBez = CheckLandNr_getLandBezFromLandNr(landNr)
+            Dim landBez As String = ""
+            Dim antrag As cUSTVAntrag = Nothing
+            If FIRMA.Firma_ID = 19 AndAlso SPEDBUCH IsNot Nothing AndAlso SPEDBUCH.FilialenNr = 4817 Then landBez = CheckLandNr_getLandBezFromAntrag(landNr, antrag)
 
             For Each r As DataGridViewRow In dgvOfferteDetailsUebersicht.Rows
                 If r.Cells("Anzahl").Value IsNot DBNull.Value AndAlso Not IsNumeric(r.Cells("Anzahl").Value) Then r.Cells("Anzahl").Value = 0
@@ -1431,13 +1435,20 @@ Public Class usrCntlFaktAbrechnung
                 Dim POS As New VERAG_PROG_ALLGEMEIN.cRechnungsausgangPositionen
                 POS.LeistungsNr = r.Cells("LeistungsNr").Value
                 POS.LeistungsBez = If(r.Cells("LeistungsBez").Value, "")
+
+
+
                 '    POS.IndexZkteing = r.Cells("IndexZkteing").Value
                 POS.BerechnungsartNr = r.Cells("BerechnungsartNr").Value
                 POS.Preis = If(r.Cells("Preis").Value Is DBNull.Value, 0, CDbl(r.Cells("Preis").Value.ToString.Replace(".", "")))
                 POS.Anzahl = If(r.Cells("Anzahl").Value Is DBNull.Value, 0, r.Cells("Anzahl").Value)
 
                 '-----------------------MWST-Abrechnung! +  Kompat. zu FM-Zoll
-                setMWSTABRfromSPEDinPOS(r, POS, landNr, landBez)
+                If FIRMA.Firma_ID = 19 Then
+                    Dim isRC As Boolean = If(r.Cells("ReverseCharge").Value IsNot DBNull.Value, r.Cells("ReverseCharge").Value, False)
+                    setMWSTABRfromSPEDinPOS(r, POS, landNr, landBez, antrag)
+                End If
+
                 '-----------------------MWST-Abrechnung! +  Kompat. zu FM-Zoll
 
                 If POS.Anzahl = 0 And POS.BerechnungsartNr = 8 And POS.Preis <> 0 Then
@@ -2370,7 +2381,7 @@ Public Class usrCntlFaktAbrechnung
                 If RECHNUNG.RechnungSprache = "DE" Or FindPOS.LeistungsBez Is Nothing Then FindPOS.LeistungsBez = "Vorlageprovision"
                 'RECHNUNG.POSITIONEN.Add(FindPOS)
                 FindPOS.Anzahl = 1
-                FindPOS.Preis = Math.round(Vorlageprovision_Berechnungbetrag * (RECHNUNG.Vorlageprovision_Proz), 2) 'Int(Vorlageprovision_Berechnungbetrag * (RECHNUNG.Vorlageprovision_Proz) * 10 + 0.5) / 10
+                FindPOS.Preis = Math.Round(Vorlageprovision_Berechnungbetrag * (RECHNUNG.Vorlageprovision_Proz), 2) 'Int(Vorlageprovision_Berechnungbetrag * (RECHNUNG.Vorlageprovision_Proz) * 10 + 0.5) / 10
                 '...und der Wert gesetzt.
 
                 initSteuerbetraege(RECHNUNG, FindPOS)
@@ -2415,7 +2426,7 @@ Public Class usrCntlFaktAbrechnung
                 If RECHNUNG.RechnungSprache = "DE" Or FindPOS.LeistungsBez Is Nothing Then FindPOS.LeistungsBez = "Kapitalbereitstellung"
                 'RECHNUNG.POSITIONEN.Add(FindPOS)
                 FindPOS.Anzahl = 1
-                FindPOS.Preis = Math.round(Vorlageprovision_Berechnungbetrag * (RECHNUNG.Vorlageprovision_Proz), 2) ' Int(Vorlageprovision_Berechnungbetrag * (RECHNUNG.Vorlageprovision_Proz) * 10 + 0.5) / 10
+                FindPOS.Preis = Math.Round(Vorlageprovision_Berechnungbetrag * (RECHNUNG.Vorlageprovision_Proz), 2) ' Int(Vorlageprovision_Berechnungbetrag * (RECHNUNG.Vorlageprovision_Proz) * 10 + 0.5) / 10
                 '...und der Wert gesetzt.
 
                 initSteuerbetraege(RECHNUNG, FindPOS)
@@ -2453,7 +2464,7 @@ Public Class usrCntlFaktAbrechnung
 
         For Each POS In RECHNUNG.POSITIONEN
             '            Dim BGebErrBetrag As Double = Int(If(If(POS.BGebBgl, 0), If(POS.Preis, 0) * If(POS.Anzahl, 0)) * If(POS.BGebProzent, 0) * 10 + 0.5) / 10
-            Dim BGebErrBetrag As Double = Math.round(If(POS.BGebBgl IsNot Nothing, POS.BGebBgl, getNumeric(POS.Preis) * getNumeric(POS.Anzahl)) * getNumeric(POS.BGebProzent), 2) 'Int(If(POS.BGebBgl IsNot Nothing, POS.BGebBgl, getNumeric(POS.Preis) * getNumeric(POS.Anzahl)) * getNumeric(POS.BGebProzent) * 10 + 0.5) / 10
+            Dim BGebErrBetrag As Double = Math.Round(If(POS.BGebBgl IsNot Nothing, POS.BGebBgl, getNumeric(POS.Preis) * getNumeric(POS.Anzahl)) * getNumeric(POS.BGebProzent), 2) 'Int(If(POS.BGebBgl IsNot Nothing, POS.BGebBgl, getNumeric(POS.Preis) * getNumeric(POS.Anzahl)) * getNumeric(POS.BGebProzent) * 10 + 0.5) / 10
 
 
             curBGebBetrag = 0
@@ -2537,7 +2548,7 @@ Public Class usrCntlFaktAbrechnung
 
             If (BGebLeistungsNr > 0 AndAlso BGebProzent > 0 AndAlso BGebBgl <> 0) Then
 
-                Dim Betrag As Double = Math.round(BGebBgl * BGebProzent, 1)
+                Dim Betrag As Double = Math.Round(BGebBgl * BGebProzent, 1)
                 For Each o In OFFERTE.POSITIONEN
                     If o.LeistungsNr = BGebLeistungsNr Then
 
@@ -4449,38 +4460,166 @@ Nächste_Textzeile_lesen:
         Return landbez
     End Function
 
-    Private Sub setMWSTABRfromSPEDinPOS(r As DataGridViewRow, POS As cRechnungsausgangPositionen, LandNr As String, LandBez As String)
+    Private Function CheckLandNr_getLandBezFromAntrag(ByRef LandNr As String, ByRef Antrag As cUSTVAntrag) As String
+
+        Dim landbez As String = ""
+        If SPEDBUCH Is Nothing Then Return landbez
+        If SPEDBUCH.FilialenNr = 4817 AndAlso SPEDBUCH.AbfertigungsNr > 0 And FIRMA.Firma_ID = 19 Then
+
+
+            Dim antragsID As Integer = CInt(SQL.getValueTxtBySql("SELECT UStVAn_ID FROM tblUStVAntrag WHERE FilialenNr = " & SPEDBUCH.FilialenNr & " AND AbfertigungsNr = " & SPEDBUCH.AbfertigungsNr, "FMZOLL",,, "-1"))
+
+            If antragsID > 0 Then
+                Dim MWSTAntrag As New cUSTVAntrag(antragsID)
+                LandNr = MWSTAntrag.UStVAn_LandNr
+                landbez = SQL.getValueTxtBySql("select LandKz from [Länderverzeichnis für die Außenhandelsstatistik] where LandNr = " & MWSTAntrag.UStVAn_LandNr, "FMZOLL")
+                Antrag = MWSTAntrag
+
+            End If
+        End If
+
+        Return landbez
+
+    End Function
+
+    Private Sub setMWSTABRfromSPEDinPOS(r As DataGridViewRow, POS As cRechnungsausgangPositionen, LandNr As String, LandBez As String, Optional antrag As cUSTVAntrag = Nothing, Optional isVZ As Boolean = False)
+
 
         If SPEDBUCH.Abfertigungsart = 114 Or SPEDBUCH.Abfertigungsart = 115 Or SPEDBUCH.Abfertigungsart = 10 Then
+
             Dim LeistungsBez = r.Cells("LeistungsBez").Value
             If LeistungsBez <> "" Then
                 Dim isMWST As Boolean = False
-                If LandBez <> "" AndAlso LandNr <> "" Then
+                Dim kdNr = IIf(RECHNUNG.RechnungsKundenNr > 0, RECHNUNG.RechnungsKundenNr, kdFirmaRechnungAn.KdNr)
-                    If SPEDBUCH.Packstücke.ToString.Replace("Mehrwertsteuerrückerstattung " & LandNr, "MWSt-Rückerstattung " & LandBez).StartsWith(LeistungsBez.ToString) AndAlso LeistungsBez.ToString.StartsWith("MWSt-Rückerstattung") Then isMWST = True
+                Dim isRMC = IIf(kdNr = 150000 AndAlso antrag.UStVAn_AntragArt = "MWST", True, False)
+
+                Dim sumRMC As Double = 0
+                Dim sumFremdBeleg As Double = 0
+
+                If antrag IsNot Nothing AndAlso LandBez <> "" AndAlso antrag.UStVAn_AntragArt <> "" Then
+
+                    If antrag.UStVAn_AntragArt <> "MWST" Then isRMC = False
+
+                    Dim LandISO2 = ""
+
+                        If LandBez.Length = 2 Then
+                            LandISO2 = LandBez
+                        ElseIf LandBez.Length = 3 Then
+                            LandISO2 = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO3Land(LandBez)
+                        ElseIf LandBez.Length = 1 Then
+                            LandISO2 = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO1Land(LandBez)
+                        End If
+
+
+                        If LeistungsBez.ToString.Contains(LandISO2) AndAlso LeistungsBez.ToString.ToLower.StartsWith(antrag.UStVAn_AntragArt.ToString.ToLower) AndAlso IIf(isVZ, LeistungsBez.ToString.Contains("VZ"), Not LeistungsBez.ToString.Contains("VZ")) Then
+
+                            'wenn RMC, dann ebenfalls unterscheiden!
+
+                            If isRMC Then
+
+                                'aus AntragsPOS die
+
+                                For Each ANTR_POS As cUStVPositionen In antrag.POSITIONEN
+
+                                    If ANTR_POS.UStVPo_Leistender.ToString.ToUpper.StartsWith("RMC") Then
+                                        sumRMC += ANTR_POS.UStVPo_USteuerbetragEUR
+                                    Else
+                                        sumFremdBeleg += ANTR_POS.UStVPo_USteuerbetragEUR
+                                    End If
+
+                                Next
+
+                                'SPEDBUCH.Abfertigungsart = 114 -> EU
+                                'SPEDBUCH.Abfertigungsart = 115 -> DL Drittland
+
+                                Dim BEZ_LAND_RMC As String = ""
+                                Select Case SPEDBUCH.Abfertigungsart
+                                    Case 114 : BEZ_LAND_RMC = "00-"
+                                    Case 115 : BEZ_LAND_RMC = "DL-00"
+                                End Select
+
+
+                                If LeistungsBez.ToString.Contains("RMC-RG") AndAlso LeistungsBez.ToString.Contains(BEZ_LAND_RMC) Then
+                                    isMWST = True
+                                    GoTo mwst
+                                ElseIf LeistungsBez.ToString.Contains("FREMD-RG") AndAlso LeistungsBez.ToString.Contains(BEZ_LAND_RMC) Then
+                                    isMWST = True
+                                    GoTo mwst
+                                End If
+
+                            Else
+                                isMWST = True
+                                GoTo mwst
+                            End If
+
+
+                        End If
+                    End If
+
+
+                    If LandBez <> "" AndAlso LandNr <> "" Then
+                    If SPEDBUCH.Packstücke.ToString.Replace("Mehrwertsteuerrückerstattung " & LandNr, "MWSt-Rückerstattung " & LandBez).StartsWith(LeistungsBez.ToString) AndAlso LeistungsBez.ToString.StartsWith("MWSt-Rückerstattung") Then
+                        isMWST = True
+                        GoTo mwst
+                    End If
+
+
                 Else
-                    If SPEDBUCH.Packstücke.ToString().Replace("Mehrwertsteuerrückerstattung ", "MWSt-Rückerstattung ").StartsWith(LeistungsBez.ToString) AndAlso LeistungsBez.ToString.StartsWith("MWSt-Rückerstattung") Then isMWST = True
+                    If SPEDBUCH.Packstücke.ToString().Replace("Mehrwertsteuerrückerstattung ", "MWSt-Rückerstattung ").StartsWith(LeistungsBez.ToString) AndAlso LeistungsBez.ToString.StartsWith("MWSt-Rückerstattung") Then
+                        isMWST = True
+                        GoTo mwst
+                    End If
                 End If
+mwst:
 
                 If isMWST Then
                     POS.Anzahl = 1
 
-                    If POS.Preis = 0 Then
+
-                        POS.Preis = IIf(SPEDBUCH.Rechnungsbetrag Is Nothing, 0, SPEDBUCH.Rechnungsbetrag) * -1
+                    If antrag IsNot Nothing AndAlso antrag.UStVAn_ID > 0 Then
+
+                        If POS.Preis = 0 Then
+
+                            Dim GesamtUSteuerEUR As Double = SQL.DLookup("isnull(sum(UStVPo_USteuerbetragEUR),0)", "tblUStVPositionen", "UStVAn_ID='" & antrag.UStVAn_ID & "'", "FMZOLL", "0")
+                            Dim GesamtErstattungEUR As Double = SQL.DLookup("isnull(sum(UStVEr_USteuerbetragEUR),0)", "tblUStVErstattung", "UStVAn_ID='" & antrag.UStVAn_ID & "'", "FMZOLL", "0")
+
+                            If isRMC Then
+                                If LeistungsBez.ToString.Contains("RMC-RG") AndAlso sumRMC <> 0 Then
+                                    POS.Preis = sumRMC * -1
+                                ElseIf LeistungsBez.ToString.Contains("FREMD-RG") AndAlso sumFremdBeleg <> 0 Then
+                                    POS.Preis = sumFremdBeleg * -1
+                                End If
+
+                            Else
+
+                                Dim DiffernezbetragEUR As Double = GesamtUSteuerEUR - GesamtErstattungEUR
+                                If DiffernezbetragEUR <> 0 Then
+                                    POS.Preis = DiffernezbetragEUR * -1
+                                End If
+
+
+                            End If
+
+                        End If
+
                     End If
 
+
                     If r.Cells("BGebLeistungsNr").Value IsNot Nothing AndAlso Not IsDBNull(r.Cells("BGebLeistungsNr").Value) AndAlso r.Cells("BGebProzent").Value IsNot Nothing AndAlso Not IsDBNull(r.Cells("BGebProzent").Value) Then
 
                         Dim OffertNr As Integer = IIf(IsNumeric(RECHNUNG.OffertenNr), RECHNUNG.OffertenNr, (SPEDBUCH.Abfertigungsart - 100))
                         If OffertNr < 0 Then OffertNr = 15
 
-                        Dim OFFERTE As New VERAG_PROG_ALLGEMEIN.cOfferte(RECHNUNG.KundenNrZentrale, OffertNr, True)
+                        Dim OFFERTE As New VERAG_PROG_ALLGEMEIN.cOfferte(IIf(RECHNUNG.RechnungsKundenNr > 0, RECHNUNG.RechnungsKundenNr, kdFirmaRechnungAn.KdNr), OffertNr, True)
                         Call prBearbGeb(POS, OFFERTE, RECHNUNG, r.Cells("BGebLeistungsNr").Value, r.Cells("BGebProzent").Value, POS.Preis * If(RECHNUNG.Vorzeichen = "-", -1, 1))
 
                     End If
 
                 End If
-                End If
+            End If
         End If
+
+
     End Sub
 
 End Class

SDL/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.4.0.2")>
+<Assembly: AssemblyVersion("1.4.0.3")>
-<Assembly: AssemblyFileVersion("1.4.0.2")>
+<Assembly: AssemblyFileVersion("1.4.0.3")>

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -2755,7 +2755,7 @@ Public Class frmMDM_USTVAntrag
             .AnzahlSonstiges = 1
             .Abfertigungsart = IIf(isEU, 114, 115)
             .Abfertigungsanzahl = 1
-            .Packstücke = "MWSt-Rückerstattung " & Antrag_LandKz & " / " & USTV_ANTRAG.UStVAn_ReDatVon & " - " & USTV_ANTRAG.UStVAn_ReDatBis
+            .Packstücke = USTV_ANTRAG.UStVAn_AntragArt & "-Rückerstattung " & Antrag_LandKz & " / " & USTV_ANTRAG.UStVAn_ReDatVon & " - " & USTV_ANTRAG.UStVAn_ReDatBis
             .VermittlerKundenNr = IIf(kunde.KundenNrZentrale IsNot Nothing, kunde.KundenNrZentrale, kunde.KundenNr)
 
             If .VermittlerKundenNr = 140000 Or .VermittlerKundenNr = 150000 Then

SDL/buchhaltung/frmBU_Mahnlauf.vb

@@ -409,6 +409,11 @@ Public Class frmBU_Mahnlauf
                     rpt.lblSteuersatz.Text = "Penalitati întârziere la plată 9,5 % "
                     rpt.lblZwText.Text = "Taxa somatie"
                     rpt.lblZwischensumme.Text = "Subtotal"
+                Case "TR"
+                    rpt.lblSummeUeberschrift.Text = "Ttoplam:"
+                    rpt.lblSteuersatz.Text = "Gecikme faizi %9,5 "
+                    rpt.lblZwText.Text = "Hhatırlatma ücreti"
+                    rpt.lblZwischensumme.Text = "Ara toplam"
             End Select
 
 

SDL/kunden/usrcntlKundeBearbeitenFull.vb

@@ -901,7 +901,7 @@
         cboRechnungSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Deutsch", "DE"))
         cboRechnungSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Englisch", "EN"))
         cboRechnungSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Rumänisch", "RO"))
-        If isVerag360 Then cboRechnungSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Türkisch", "TR"))
+        cboRechnungSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Türkisch", "TR"))
         cboRechnungSprache.changeItem(0)
 
         cboProvisionStaffelArt.fillWithSQL("SELECT [PreislistenNr],[PreislistenBez]  FROM [VERAG].[dbo].[tblPreislisten] WHERE Art='E' ORDER BY Preislistenbez", False, "FMZOLL", True)

SDLUPDATER/UPDATERfrm.vb

@@ -163,7 +163,7 @@ Public Class UPDATERfrm
     End Function
 
     Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
-        Me.Close()
+        'Me.Close()
 
     End Sub
 

VERAG_PROG_ALLGEMEIN/Classes/cKundenKontakte.vb

@@ -106,6 +106,8 @@ Public Class cKundenKontakte
     Property kkd_Geburtsort As Object = Nothing
     Property kkd_Geburtsland As Object = Nothing
 
+    Public hasEntry = False
+
 
 
 
@@ -121,6 +123,13 @@ Public Class cKundenKontakte
         LOAD(kkd_id)
     End Sub
 
+
+    Sub New(kkda_id, kkd_KundenNr)
+        Me.kkd_kkaId = kkda_id
+        Me.kkd_KundenNr = kkd_KundenNr
+        LOAD(kkda_id, kkd_KundenNr)
+    End Sub
+
     Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
         Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_id", kkd_id,, True, True))
@@ -157,6 +166,9 @@ Public Class cKundenKontakte
 
     Public Sub LOAD(kkd_id)
         Try
+
+            hasEntry = False
+
             Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
                 Using cmd As New SqlCommand("SELECT * FROM [tblKundenKontakt] WHERE kkd_id=@kkd_id ", conn)
                     cmd.Parameters.AddWithValue("@kkd_id", kkd_id)
@@ -173,6 +185,41 @@ Public Class cKundenKontakte
                             End If
 
                         Next
+                        hasEntry = True
+                    End If
+                    dr.Close()
+                End Using
+            End Using
+            'Return Nothing
+        Catch ex As Exception
+            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+        End Try
+        '  Return Nothing
+    End Sub
+
+    Public Sub LOAD(kkda_id, kkd_KundenNr)
+        Try
+
+            hasEntry = False
+
+            Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
+                Using cmd As New SqlCommand("SELECT * FROM [tblKundenKontakt] WHERE kkd_kkaId=@kkd_kkaId and kkd_KundenNr=@kkd_KundenNr ", conn)
+                    cmd.Parameters.AddWithValue("@kkd_kkaId", kkda_id)
+                    cmd.Parameters.AddWithValue("@kkd_KundenNr", kkd_KundenNr)
+
+                    Dim dr = cmd.ExecuteReader()
+                    If dr.Read Then
+                        For Each li In getParameterList()
+                            Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
+
+                            If dr.Item(li.Text) Is DBNull.Value Then
+                                propInfo.SetValue(Me, Nothing)
+                            Else
+                                propInfo.SetValue(Me, dr.Item(li.Text))
+                            End If
+
+                        Next
+                        hasEntry = True
                     End If
                     dr.Close()
                 End Using