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

div. Änderungen, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-07-29 16:14:32 +02:00
parent d78af068f7
commit ec307f7a60
7 changed files with 258 additions and 456 deletions
Download Patch File Download Diff File Expand all files Collapse all files

61
SDL/Fakturierung/cAutomailversand.vb
View File

@@ -173,6 +173,18 @@ Public Class cAutomailversand
Dim TextHTML = "" Dim TextHTML = ""
TextHTML &= HTMLMail TextHTML &= HTMLMail
TextHTML &= "<br>"
TextHTML &= "<br>"
Select Case AD.LandKz
Case "TR"
TextHTML &= "Saygilarimizla<br>"
Case "A", "AT", "D", "DE", "CH"
TextHTML &= "Mit freundlichen Grüßen<br>"
Case Else
TextHTML &= "Best regards<br>"
End Select
TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br><br>"
TextHTML &= cFakturierung.getSignature(AD.LandKz, FirmaID, True, True,,,,, True, True) TextHTML &= cFakturierung.getSignature(AD.LandKz, FirmaID, True, True,,,,, True, True)
HTMLMail = "<div style=""font-family:Calibri, Arial"">" & TextHTML & "</div>" HTMLMail = "<div style=""font-family:Calibri, Arial"">" & TextHTML & "</div>"
@@ -307,6 +319,21 @@ Public Class cAutomailversand
Dim TextHTML = "" Dim TextHTML = ""
TextHTML &= HTMLMail TextHTML &= HTMLMail
TextHTML &= "<br>"
TextHTML &= "<br>"
Select Case AD.LandKz
Case "TR"
TextHTML &= "Saygilarimizla<br>"
Case "A", "AT", "D", "DE", "CH"
TextHTML &= "Mit freundlichen Grüßen<br>"
Case Else
TextHTML &= "Best regards<br>"
End Select
TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br><br>"
TextHTML &= cFakturierung.getSignature(AD.LandKz, FirmaID, True, True,,,,, True, True) TextHTML &= cFakturierung.getSignature(AD.LandKz, FirmaID, True, True,,,,, True, True)
HTMLMail = "<div style=""font-family:Calibri, Arial"">" & TextHTML & "</div>" HTMLMail = "<div style=""font-family:Calibri, Arial"">" & TextHTML & "</div>"
@@ -348,9 +375,18 @@ Public Class cAutomailversand
Select Case row.Item("RechnungsLandKz") Select Case row.Item("RechnungsLandKz")
Case "TR" : spracheRechnung = "TR" : spracheRechnung = row.Item("RechnungsLandKz") : belegtyp = If(BelegartenNr = 71, "Kredi", "Fatura") Case "TR" : spracheRechnung = "TR" : spracheRechnung = row.Item("RechnungsLandKz") : belegtyp = If(BelegartenNr = 71, "Kredi", "Fatura")
Case "RO" : spracheRechnung = "RO" : spracheRechnung = row.Item("RechnungsLandKz") : belegtyp = If(BelegartenNr = 71, "nota de credit", "factura") Case "RO"
If Firma_ID = 19 Then
spracheRechnung = "RO" : spracheRechnung = row.Item("RechnungsLandKz") : belegtyp = If(BelegartenNr = 71, "nota de credit", "factura")
End If
Case "DE", "A", "AT", "D", "CH" : spracheRechnung = "DE" : belegtyp = If(BelegartenNr = 71, "Gutschrift", "Rechnung") Case "DE", "A", "AT", "D", "CH" : spracheRechnung = "DE" : belegtyp = If(BelegartenNr = 71, "Gutschrift", "Rechnung")
Case "SRB", "HR", "SLO", "BIH", "MNE", "MK", "MO" : spracheRechnung = "SRB" : belegtyp = If(BelegartenNr = 71, "credit note", "invoice") 'Belegarten auf Englisch!
Case "SRB", "HR", "SLO", "BIH", "MNE", "MK", "MO"
If Firma_ID = 19 Then
spracheRechnung = "SRB" : belegtyp = If(BelegartenNr = 71, "credit note", "invoice") 'Belegarten auf Englisch!
End If
End Select End Select
If listOfTextconserven.LIST.Any(Function(c) c.txt_sprache = spracheRechnung) Then If listOfTextconserven.LIST.Any(Function(c) c.txt_sprache = spracheRechnung) Then
@@ -468,13 +504,26 @@ Public Class cAutomailversand
Dim belegtyp As String = If(BelegartenNr = 71, "credit note", "invoice") Dim belegtyp As String = If(BelegartenNr = 71, "credit note", "invoice")
Select Case row.Item("RechnungsLandKz") Select Case row.Item("RechnungsLandKz")
Case "TR", "RO", "DE", "SRB" : spracheRechnung = row.Item("RechnungsLandKz") : belegtyp = If(BelegartenNr = 71, "Kredi", "Fatura") Case "TR" : spracheRechnung = "TR" : spracheRechnung = row.Item("RechnungsLandKz") : belegtyp = If(BelegartenNr = 71, "Kredi", "Fatura")
Case "A", "AT", "D", "CH", "DE" : spracheRechnung = "DE" : belegtyp = If(BelegartenNr = 71, "Gutschrift", "Rechnung") Case "RO"
Case "HR", "SLO", "BIH", "MNE", "MK", "MO" : spracheRechnung = "SRB" : belegtyp = If(BelegartenNr = 71, "credit note", "invoice") 'Belegarten auf Englisch! If Firma_ID = 19 Then
spracheRechnung = "RO" : spracheRechnung = row.Item("RechnungsLandKz") : belegtyp = If(BelegartenNr = 71, "nota de credit", "factura")
End If
Case "DE", "A", "AT", "D", "CH" : spracheRechnung = "DE" : belegtyp = If(BelegartenNr = 71, "Gutschrift", "Rechnung")
Case "SRB", "HR", "SLO", "BIH", "MNE", "MK", "MO"
If Firma_ID = 19 Then
spracheRechnung = "SRB" : belegtyp = If(BelegartenNr = 71, "credit note", "invoice") 'Belegarten auf Englisch!
End If
End Select End Select
If listOfTextconserven.LIST.Any(Function(c) c.txt_sprache = spracheRechnung) Then If listOfTextconserven.LIST.Any(Function(c) c.txt_sprache = spracheRechnung) Then
@@ -544,7 +593,7 @@ Public Class cAutomailversand
Select Case AD.LandKz Select Case AD.LandKz
Case "TR" Case "TR"
TextHTML &= "Saygilarimizla<br><br>" TextHTML &= "Saygilarimizla<br>"
Case "A", "AT", "D", "DE", "CH" Case "A", "AT", "D", "DE", "CH"
TextHTML &= "Mit freundlichen Grüßen<br>" TextHTML &= "Mit freundlichen Grüßen<br>"
Case Else Case Else

205
SDL/Fakturierung/cFakturierung.vb
View File

@@ -2197,20 +2197,17 @@ Public Class cFakturierung
Dim rpt As New rptRechnungDruck_MDM(RECHNUNG.RechnungSprache, IIf(RECHNUNG.OffertenNr = 95, RECHNUNG.OffertenNr, Nothing), RECHNUNG.Firma_ID) Dim rpt As New rptRechnungDruck_MDM(RECHNUNG.RechnungSprache, IIf(RECHNUNG.OffertenNr = 95, RECHNUNG.OffertenNr, Nothing), RECHNUNG.Firma_ID)
If RECHNUNG.POSITIONEN.Count = 0 Then MsgBox("Keine Daten vorhanden!") : Return False If RECHNUNG.POSITIONEN.Count = 0 Then MsgBox("Keine Daten vorhanden!") : Return False
Dim dtDataSource As New DataTable Dim dtDataSource As New DataTable
dtDataSource.Columns.Add("LeistungsNr") dtDataSource.Columns.Add("LeistungsNr")
dtDataSource.Columns.Add("LeistungsBez") dtDataSource.Columns.Add("LeistungsBez")
dtDataSource.Columns.Add("Anzahl") dtDataSource.Columns.Add("Anzahl")
dtDataSource.Columns.Add("SteuerpflichtigerBetrag") dtDataSource.Columns.Add("SteuerpflichtigerBetrag")
dtDataSource.Columns.Add("SteuerfreierBetrag") dtDataSource.Columns.Add("SteuerfreierBetrag")
dtDataSource.Columns.Add("Belegdaten") dtDataSource.Columns.Add("Belegdaten")
Dim gsBetrTmp As Double = 0 Dim gsBetrTmp As Double = 0
For Each r In RECHNUNG.POSITIONEN 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) dtDataSource.Rows.Add(r.LeistungsNr, r.LeistungsBez, r.Anzahl, r.SteuerpflichtigerBetrag, r.SteuerfreierBetrag, If(r.Belegdaten, "").ToString.Trim)
@@ -2219,20 +2216,11 @@ Public Class cFakturierung
If gsBetrTmp = 0 Then MsgBox("Rechnungsbetrag ist EUR 0,- ") : Return False If gsBetrTmp = 0 Then MsgBox("Rechnungsbetrag ist EUR 0,- ") : Return False
Dim dataView As New DataView(dtDataSource) Dim dataView As New DataView(dtDataSource)
dataView.Sort = " LeistungsNr " dataView.Sort = " LeistungsNr "
Dim dtTmp As DataTable = dataView.ToTable() Dim dtTmp As DataTable = dataView.ToTable()
' rpt.DataSource = SQL.loadDgvBySql("SELECT * FROM [Rechnungsausgangpositionen] where RK_ID ='" & RECHNUNG.RK_ID & "' ", "FMZOLL")
rpt.DataSource = dtTmp rpt.DataSource = dtTmp
'' MsgBox(rpt.DataSource.rows.count)
'If rpt.DataSource.rows.count = 0 Then
' rpt.Dispose()
' MsgBox("Keine Daten vorhanden!")
' Return False
'End If
Dim sum = 0 Dim sum = 0
Select Case RECHNUNG.RechnungSprache Select Case RECHNUNG.RechnungSprache
@@ -2278,7 +2266,6 @@ Public Class cFakturierung
rpt.lblRgDatumUeberschrift.Text = "Kredi thrihi:" rpt.lblRgDatumUeberschrift.Text = "Kredi thrihi:"
End Select End Select
Case Else Case Else
Select Case RECHNUNG.BelegartenKz Select Case RECHNUNG.BelegartenKz
Case "AR" Case "AR"
@@ -2392,36 +2379,19 @@ Public Class cFakturierung
If If(RECHNUNG.RechnungsName_AdressZusatz, "") <> "" Then rpt.lblRechnungAn.Text &= RECHNUNG.RechnungsName_AdressZusatz & vbNewLine If If(RECHNUNG.RechnungsName_AdressZusatz, "") <> "" Then rpt.lblRechnungAn.Text &= RECHNUNG.RechnungsName_AdressZusatz & vbNewLine
If If(RECHNUNG.RechnungsOrt, "") <> "" Then rpt.lblRechnungAn.Text &= RECHNUNG.RechnungsOrt & vbNewLine If If(RECHNUNG.RechnungsOrt, "") <> "" Then rpt.lblRechnungAn.Text &= RECHNUNG.RechnungsOrt & vbNewLine
If If(RECHNUNG.RechnungsLandKz, "") <> "" Then rpt.lblRechnungAn.Text &= cProgramFunctions.getLandBez_fromISO1Land(RECHNUNG.RechnungsLandKz, "", RECHNUNG.RechnungSprache).ToString.ToUpper If If(RECHNUNG.RechnungsLandKz, "") <> "" Then rpt.lblRechnungAn.Text &= cProgramFunctions.getLandBez_fromISO1Land(RECHNUNG.RechnungsLandKz, "", RECHNUNG.RechnungSprache).ToString.ToUpper
'If If(RECHNUNG.RechnungsName_2, "") = "" Then
' rpt.lblRechnung_Name1.Text = ""
' rpt.lblRechnung_Name2.Text = If(RECHNUNG.RechnungsName_1, "")
'Else
' rpt.lblRechnung_Name1.Text = If(RECHNUNG.RechnungsName_1, "")
' rpt.lblRechnung_Name2.Text = If(RECHNUNG.RechnungsName_2, "")
'End If
'rpt.lblRechnung_Strasse.Text = If(RECHNUNG.RechnungsStraße, "")
'rpt.lblRechnung_Ort.Text = If(RECHNUNG.RechnungsOrt, "")
'rpt.lblRechnung_Land.Text = cProgramFunctions.getLandBez_fromISO1Land(RECHNUNG.RechnungsLandKz, "", RECHNUNG.RechnungSprache).ToString.ToUpper
rpt.txtAbsender.Text = If(RECHNUNG.AbsenderName_1, "") & " " & If(RECHNUNG.AbsenderName_2, "") & vbNewLine & If(RECHNUNG.AbsenderOrt, "").ToString.Trim rpt.txtAbsender.Text = If(RECHNUNG.AbsenderName_1, "") & " " & If(RECHNUNG.AbsenderName_2, "") & vbNewLine & If(RECHNUNG.AbsenderOrt, "").ToString.Trim
rpt.txtEmpfaenger.Text = If(RECHNUNG.EmpfängerName_1, "") & " " & If(RECHNUNG.EmpfängerName_2, "") & vbNewLine & If(RECHNUNG.EmpfängerOrt, "").ToString.Trim rpt.txtEmpfaenger.Text = If(RECHNUNG.EmpfängerName_1, "") & " " & If(RECHNUNG.EmpfängerName_2, "") & vbNewLine & If(RECHNUNG.EmpfängerOrt, "").ToString.Trim
If KD_RG IsNot Nothing AndAlso If(KD_RG.Steuernummer, "") <> String.Empty Then If KD_RG IsNot Nothing AndAlso If(KD_RG.Steuernummer, "") <> String.Empty Then
If RECHNUNG.Firma_ID = 4 Then If RECHNUNG.Firma_ID = 4 Then
rpt.lblRechnung_Steuernummer.Text = If(KD_RG.Steuernummer, "").ToString.Trim 'ohne LandKz gewünscht rpt.lblRechnung_Steuernummer.Text = If(KD_RG.Steuernummer, "").ToString.Trim 'ohne LandKz gewünscht
Else Else
rpt.lblRechnung_Steuernummer.Text = If(KD_RG.LandKz, "") & " " & If(KD_RG.Steuernummer, "").ToString.Trim rpt.lblRechnung_Steuernummer.Text = If(KD_RG.LandKz, "") & " " & If(KD_RG.Steuernummer, "").ToString.Trim
End If End If
' rpt.lblRechnung_UID.Text = If(KD_RG.UstIdKz, "") & " " & If(KD_RG.UstIdNr, "").ToString.Trim
Else Else
rpt.lblRechnung_Steuernummer.Text = "" rpt.lblRechnung_Steuernummer.Text = ""
' rpt.lblRechnung_UID.Text = ""
End If End If
rpt.lblRechnung_Steuernummer.Visible = (rpt.lblRechnung_Steuernummer.Text <> String.Empty) rpt.lblRechnung_Steuernummer.Visible = (rpt.lblRechnung_Steuernummer.Text <> String.Empty)
rpt.lblRechnung_Steuernummer_Ueberschrift.Visible = (rpt.lblRechnung_Steuernummer.Text <> String.Empty) rpt.lblRechnung_Steuernummer_Ueberschrift.Visible = (rpt.lblRechnung_Steuernummer.Text <> String.Empty)
@@ -2618,12 +2588,9 @@ Public Class cFakturierung
End If End If
End If End If
'Dim cnt As Integer = 0
If RECHNUNG.Firma_ID = 19 Then If RECHNUNG.Firma_ID = 19 Then
'rpt.lblSteuersatz.Visible = False
'rpt.lblSteuerbetrag.Visible = False
rpt.lblSteuerpflichtigGes.Visible = False rpt.lblSteuerpflichtigGes.Visible = False
rpt.lblSteuerfreiGes.Visible = False rpt.lblSteuerfreiGes.Visible = False
rpt.lblZwText.Visible = False rpt.lblZwText.Visible = False
@@ -2636,20 +2603,10 @@ Public Class cFakturierung
Dim sumSteuerpflichtig As Double = 0 Dim sumSteuerpflichtig As Double = 0
Dim sumSteuerfrei As Double = 0 Dim sumSteuerfrei As Double = 0
'Dim Anz As Double = 0
'Dim gesSumBt As Double = 0
'Dim gesAnz As Double = 0
Dim vorzeichen = If(If(RECHNUNG.Vorzeichen, "") = "-", -1, 1) Dim vorzeichen = If(If(RECHNUNG.Vorzeichen, "") = "-", -1, 1)
' Dim KUNDE_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(RECHNUNG.RechnungsKundenNr)
' rpt.Line10.AnchorBottom = True
' rpt.Line10.Height = rpt.Detail.Height
AddHandler rpt.Detail.Format, Sub() AddHandler rpt.Detail.Format, Sub()
' rpt.lblVon.Text = CDate(rpt.Fields.Item("von").Value).ToShortDateString
' rpt.lblLKWNr.Text = CDate(rpt.Fields.Item("bis").Value).ToShortDateString
rpt.lblLeistungNr.Text = checkNull(rpt.Fields.Item("LeistungsNr").Value) rpt.lblLeistungNr.Text = checkNull(rpt.Fields.Item("LeistungsNr").Value)
rpt.txtLeistung.Text = checkNull(rpt.Fields.Item("LeistungsBez").Value) rpt.txtLeistung.Text = checkNull(rpt.Fields.Item("LeistungsBez").Value)
@@ -2671,9 +2628,6 @@ Public Class cFakturierung
rpt.lblSteuerfrei.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold) rpt.lblSteuerfrei.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold)
rpt.lblSteuerpflichtig.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold) rpt.lblSteuerpflichtig.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold)
'txtPackstuecke.Top += SubReport.Height
'txtKdAuftragsnummer.Top += SubReport.Height
'txtSendungsdetails.Top += SubReport.Height
Else Else
rpt.SubReport.Report = Nothing rpt.SubReport.Report = Nothing
End If End If
@@ -2753,7 +2707,6 @@ Public Class cFakturierung
End If End If
rpt.lblAnzahl.Text = checkNull(rpt.Fields.Item("Anzahl").Value) rpt.lblAnzahl.Text = checkNull(rpt.Fields.Item("Anzahl").Value)
' rpt.lblBetrag.Text = rpt.Fields.Item("betrag").Value
Dim stPfl As Double = 0 Dim stPfl As Double = 0
Dim stFrei As Double = 0 Dim stFrei As Double = 0
@@ -2768,16 +2721,6 @@ Public Class cFakturierung
sumSteuerpflichtig += stPfl sumSteuerpflichtig += stPfl
sumSteuerfrei += stFrei sumSteuerfrei += stFrei
' Anz += 1
' gesAnz += 1
' If Anz Mod 2 = 0 Then
' rpt.Detail.BackColor = Color.FromArgb(240, 240, 240)
'Else
' rpt.Detail.BackColor = Color.White
' End If
'rpt.Line10.Height = rpt.Detail.Height
End Sub End Sub
AddHandler rpt.ReportFooter1.Format, Sub() AddHandler rpt.ReportFooter1.Format, Sub()
@@ -3534,49 +3477,6 @@ Public Class cFakturierung
Dim netPricePos = netUnitPrice * IIf(anzahl <> 0, Convert.ToDecimal(anzahl), 0) Dim netPricePos = netUnitPrice * IIf(anzahl <> 0, Convert.ToDecimal(anzahl), 0)
sumNetto += netPricePos sumNetto += netPricePos
'For Each search As GrapeCity.ActiveReports.SectionReportModel.ARControl In rpt.Detail.Controls
' If search.Name = "lblAnzahl" Then
' anzahl = IIf(DirectCast(search, GrapeCity.ActiveReports.SectionReportModel.Label).[Text] <> "", DirectCast(search, GrapeCity.ActiveReports.SectionReportModel.Label).[Text], 0)
' End If
' If search.Name = "lblSteuerpflichtig" Then
' SteuerpflichtigerBetrag = IIf(DirectCast(search, GrapeCity.ActiveReports.SectionReportModel.Label).[Text] <> "", DirectCast(search, GrapeCity.ActiveReports.SectionReportModel.Label).[Text], 0)
' End If
' If search.Name = "lblSteuerfrei" Then
' SteuerfreierBetrag = IIf(DirectCast(search, GrapeCity.ActiveReports.SectionReportModel.Label).[Text] <> "", DirectCast(search, GrapeCity.ActiveReports.SectionReportModel.Label).[Text], 0)
' End If
' If search.Name = "txtLeistung" Then
' bez = IIf(DirectCast(search, GrapeCity.ActiveReports.SectionReportModel.TextBox).[Text] <> "", DirectCast(search, GrapeCity.ActiveReports.SectionReportModel.TextBox).[Text], 0)
' End If
'If bez <> "" Then
' einzelpreis = IIf(SteuerpflichtigerBetrag > 0, SteuerpflichtigerBetrag / checkNull(anzahl), SteuerfreierBetrag / checkNull(anzahl))
' Dim tradeLineItemNew As TradeLineItem = desc.AddTradeLineItem(
' name:=checkNull(bez),
' billedQuantity:=Convert.ToDecimal(checkNull(anzahl)),
' unitCode:=QuantityCodes.C62, ' immer in Stück
' netUnitPrice:=Convert.ToDecimal(einzelpreis),
' grossUnitPrice:=Convert.ToDecimal(einzelpreis),
' categoryCode:=IIf(SteuerpflichtigerBetrag > 0, TaxCategoryCodes.S, TaxCategoryCodes.Z),
' taxPercent:=IIf(SteuerpflichtigerBetrag > 0, Convert.ToDecimal(steuerProzent * 100), 0),
' taxType:=IIf(SteuerpflichtigerBetrag > 0, TaxTypes.VAT, TaxTypes.VAT)
' )
' Dim netUnitPrice = Convert.ToDecimal(einzelpreis)
' Dim netPricePos = netUnitPrice * Convert.ToDecimal(checkNull(anzahl))
' sumNetto += netPricePos
' bez = ""
' End If
'Next
Next Next
@@ -3613,14 +3513,6 @@ Public Class cFakturierung
desc.SetPaymentMeans(PaymentMeansTypeCodes.SEPACreditTransfer, rptAnl.Label2.Text) desc.SetPaymentMeans(PaymentMeansTypeCodes.SEPACreditTransfer, rptAnl.Label2.Text)
End If End If
'If RECHNUNG.TextZZ.ToString.Contains("Abbuchungsauftrag") Then
' desc.SetPaymentMeansSepaDirectDebit("", ,"")
'Else
'desc.SetPaymentMeans(PaymentMeansTypeCodes.PaymentToBankAccount, rpt.Label2.Text)
'End If
Select Case FIRMA.Firma_ID Select Case FIRMA.Firma_ID
Case 21, 22, 23 '"UNISPED" Case 21, 22, 23 '"UNISPED"
If FIRMA.Firma_IBAN1 IsNot Nothing AndAlso FIRMA.Firma_BIC1 IsNot Nothing AndAlso FIRMA.Firma_Bankverbindung1 IsNot Nothing Then desc.AddCreditorFinancialAccount(IIf(FIRMA.Firma_IBAN1 IsNot Nothing, FIRMA.Firma_IBAN1.ToString.Replace("IBAN: ", ""), ""), IIf(FIRMA.Firma_BIC1 IsNot Nothing, FIRMA.Firma_BIC1.ToString.Replace("BIC: ", ""), ""),,, IIf(FIRMA.Firma_Bankverbindung1 IsNot Nothing, FIRMA.Firma_Bankverbindung1, "")) If FIRMA.Firma_IBAN1 IsNot Nothing AndAlso FIRMA.Firma_BIC1 IsNot Nothing AndAlso FIRMA.Firma_Bankverbindung1 IsNot Nothing Then desc.AddCreditorFinancialAccount(IIf(FIRMA.Firma_IBAN1 IsNot Nothing, FIRMA.Firma_IBAN1.ToString.Replace("IBAN: ", ""), ""), IIf(FIRMA.Firma_BIC1 IsNot Nothing, FIRMA.Firma_BIC1.ToString.Replace("BIC: ", ""), ""),,, IIf(FIRMA.Firma_Bankverbindung1 IsNot Nothing, FIRMA.Firma_Bankverbindung1, ""))
@@ -3856,7 +3748,7 @@ Public Class cFakturierung
Return firma Return firma
End Function End Function
Shared Function getSignature(RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang) As String Shared Function getSignature(RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang) As String
Return getSignature(RECHNUNG.RechnungsLandKz, RECHNUNG.Firma_ID) Return getSignature(RECHNUNG.RechnungsLandKz, RECHNUNG.Firma_ID,,,,,,,, useLogosFromDB)
End Function End Function
Shared Function getSignature(Optional landKz = "", Optional firma = -1, Optional individuell = False, Optional displayFirmenmane = True, Optional special = "", Optional additionalLine = "", Optional departmentmailadress = True, Optional fakturierung = False, Optional firmenSignature = False, Optional useLogosFromDB = False) As String Shared Function getSignature(Optional landKz = "", Optional firma = -1, Optional individuell = False, Optional displayFirmenmane = True, Optional special = "", Optional additionalLine = "", Optional departmentmailadress = True, Optional fakturierung = False, Optional firmenSignature = False, Optional useLogosFromDB = False) As String
@@ -3911,6 +3803,7 @@ Public Class cFakturierung
imgTag = "<img width=""250"" height=""50"" src=""" & imgsrc & "Verag_Customs_Service_AEO.jpg""/>" imgTag = "<img width=""250"" height=""50"" src=""" & imgsrc & "Verag_Customs_Service_AEO.jpg""/>"
Case 20 'Imex Case 20 'Imex
imgTag = "<img width=""250"" height=""50"" src=""" & imgsrc & "IMEX-LOGO-AEO_sig.jpg""/>" imgTag = "<img width=""250"" height=""50"" src=""" & imgsrc & "IMEX-LOGO-AEO_sig.jpg""/>"
Case 24 'AMBAR Case 24 'AMBAR
@@ -4354,35 +4247,6 @@ Public Class cFakturierung
Return sum Return sum
End Function End Function
'Shared Function getSteuerfreiEUSTZOLL(FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen, RechnungsNr As String, RechnungsDatum As String, Firma_ID As Integer, Optional VorschauID As String = "") As Double
' Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
' Dim SqlStr = "SELECT SUM(dbo.RechnungsausgangPositionen.SteuerfreierBetrag) AS ReverseChargeSumme
' FROM dbo.Rechnungsausgang INNER JOIN
' dbo.RechnungsausgangPositionen ON dbo.Rechnungsausgang.RK_ID = dbo.RechnungsausgangPositionen.RK_ID INNER JOIN
' dbo.Leistungen ON dbo.RechnungsausgangPositionen.LeistungsNr = dbo.Leistungen.LeistungsNr
' WHERE 1=1 "
' If VorschauID = "" Then
' SqlStr &= " AND (dbo.Rechnungsausgang.RechnungsNr = '" & RechnungsNr & "') AND (dbo.Rechnungsausgang.RechnungsDatum = '" & CDate(RechnungsDatum).ToShortDateString & "') "
' Else
' SqlStr &= " AND (dbo.Rechnungsausgang.VorschauID = '" & VorschauID & "') "
' End If
' SqlStr &= " AND Leistungen.Steuerpflichtig=0 "
' SqlStr &= " and Firma_ID= '" & Firma_ID & "' "
' Dim sum = SQL.getValueTxtBySql(SqlStr, "FMZOLL")
' If sum Is DBNull.Value Or sum = "" Then Return 0
' Return sum
'End Function
' 0-_> Rechnung angelegt
' 1-_> Einzel-Rg gedruckt
' 2-_> Anlagen zur Rg gedruckt
' 3-_> Sammel-Rg gedruckt
' 4-_> ? irgendwas mit SR 6 Maut/Diesel??
Public Shared Function GET_SR_SQLDT(Firma_ID As Integer, SammelrechungArt As Integer, DatumBis As Date, Optional whereKdNr As String = "", Optional SB As String = "", Optional AvisoIds As List(Of Integer) = Nothing, Optional FakturierungsGruppe As String = "", Optional Abfertigungsart As String = "", Optional AUTOMailversand As String = "", Optional RechnungsNrAlreadySet As Boolean = False, Optional RechnungNr As Integer = -1) As DataTable Public Shared Function GET_SR_SQLDT(Firma_ID As Integer, SammelrechungArt As Integer, DatumBis As Date, Optional whereKdNr As String = "", Optional SB As String = "", Optional AvisoIds As List(Of Integer) = Nothing, Optional FakturierungsGruppe As String = "", Optional Abfertigungsart As String = "", Optional AUTOMailversand As String = "", Optional RechnungsNrAlreadySet As Boolean = False, Optional RechnungNr As Integer = -1) As DataTable
If whereKdNr <> "" Then whereKdNr = " AND RechnungsKundenNr IN(" & whereKdNr & ") " If whereKdNr <> "" Then whereKdNr = " AND RechnungsKundenNr IN(" & whereKdNr & ") "
Dim whereAbfArt = "" Dim whereAbfArt = ""
@@ -5612,19 +5476,19 @@ Public Class cFakturierung
'Mehrsprachigkeit bei Sammelrechnung vorerst deaktivieren!!!! 'Mehrsprachigkeit bei Sammelrechnung vorerst deaktivieren!!!!
'Case "EN" Case "EN"
' Select Case BelegartenKz Select Case BelegartenKz
' Case "AR" Case "AR"
' rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Attatchment to INVOICE", "INVOICE") rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Attachment to INVOICE", "INVOICE")
' rpt.lblSummeUeberschrift.Text = "Invoice Amount:" rpt.lblSummeUeberschrift.Text = "Invoice Amount:"
' rpt.lblRgNrUeberschrift.Text = "Invoice No.:" rpt.lblRgNrUeberschrift.Text = "Invoice No.:"
' rpt.lblRgDatumUeberschrift.Text = "Invoice Date:" rpt.lblRgDatumUeberschrift.Text = "Invoice Date:"
' Case "AG" Case "AG"
' rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Attatchment to CREDIT NOTE", "CREDIT NOTE") rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Attachment to CREDIT NOTE", "CREDIT NOTE")
' rpt.lblSummeUeberschrift.Text = "Credit Amount:" rpt.lblSummeUeberschrift.Text = "Credit Amount:"
' rpt.lblRgNrUeberschrift.Text = "Credit Note No.:" rpt.lblRgNrUeberschrift.Text = "Credit Note No.:"
' rpt.lblRgDatumUeberschrift.Text = "Credit Note Date:" rpt.lblRgDatumUeberschrift.Text = "Credit Note Date:"
' End Select End Select
Case Else Case Else
Select Case BelegartenKz Select Case BelegartenKz
Case "AR" Case "AR"
@@ -5972,49 +5836,14 @@ Public Class cFakturierung
Dim ROW As DataRow = dt.Rows(0) Dim ROW As DataRow = dt.Rows(0)
Dim rpt As New rptSammelRechnungDruck(ROW("RechnungSprache")) Dim rpt As New rptSammelRechnungDruck(ROW("RechnungSprache"))
Dim firmaID = ROW("Firma_ID") Dim firmaID = ROW("Firma_ID")
Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(firmaID) Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(firmaID)
Dim KD_RG As New VERAG_PROG_ALLGEMEIN.cAdressen(ROW("RechnungsKundenNr")) Dim KD_RG As New VERAG_PROG_ALLGEMEIN.cAdressen(ROW("RechnungsKundenNr"))
Dim isMDMRechnungsdruck = checkIfMDMSammelrechnung(Rechnugnsdruck, ROW("Status"), firmaID) Dim isMDMRechnungsdruck = checkIfMDMSammelrechnung(Rechnugnsdruck, ROW("Status"), firmaID)
If FIRMA Is Nothing Then MsgBox("Keine Firma gewählt!") : Return False If FIRMA Is Nothing Then MsgBox("Keine Firma gewählt!") : Return False
' Dim dataView As New DataView(dtDataSource)
' dataView.Sort = " LeistungsNr "
' Dim dtTmp As DataTable = dataView.ToTable()
' rpt.DataSource = SQL.loadDgvBySql("SELECT * FROM [Rechnungsausgangpositionen] where RK_ID ='" & RECHNUNG.RK_ID & "' ", "FMZOLL")
rpt.DataSource = dt rpt.DataSource = dt
'' MsgBox(rpt.DataSource.rows.count)
'If rpt.DataSource.rows.count = 0 Then
' rpt.Dispose()
' MsgBox("Keine Daten vorhanden!")
' Return False
'End If
Dim sum = 0 Dim sum = 0
'Select Case RECHNUNG.[BelegartenKz]
' Case "AR"
' rpt.lblUeberschriftRG_GS.Text = "RECHNUNG"
' Case "AG"
' rpt.lblUeberschriftRG_GS.Text = "GUTSCHRIFT"
' rpt.Label9.Text = "Gutschriftsbetrag:"
' rpt.Label16.Text = "Gutschrifts-Nr.:"
'End Select
'If RECHNUNG.DruckDatumZeit IsNot Nothing Then rpt.lblUeberschriftRG_GS.Text &= " - KOPIE"
' Dim Gesamt_RG_Betrag As Double = 0
Dim Gesamt_RG_Betrag As Double = CDbl(dt.Compute("SUM(SteuerFreierBetrag)", "")) + CDbl(dt.Compute("SUM(SteuerpflichtigerBetrag)", "")) Dim Gesamt_RG_Betrag As Double = CDbl(dt.Compute("SUM(SteuerFreierBetrag)", "")) + CDbl(dt.Compute("SUM(SteuerpflichtigerBetrag)", ""))
' If ROW("SteuerFreierBetrag") IsNot DBNull.Value AndAlso IsNumeric(ROW("SteuerFreierBetrag")) Then Gesamt_RG_Betrag += ROW("SteuerFreierBetrag")
'If ROW("SteuerpflichtigerBetrag") IsNot DBNull.Value AndAlso IsNumeric(ROW("SteuerpflichtigerBetrag")) Then Gesamt_RG_Betrag += ROW("SteuerpflichtigerBetrag")
Dim BelegartenKz = If(Gesamt_RG_Betrag < 0, "AG", "AR") Dim BelegartenKz = If(Gesamt_RG_Betrag < 0, "AG", "AR")
Select Case ROW("RechnungSprache") Select Case ROW("RechnungSprache")

5
SDL/Fakturierung/frmAbrechnungsMaske.vb
View File

@@ -462,9 +462,6 @@ Public Class frmAbrechnungsMaske
Case Else : orderBy = " ORDER BY /*[BelegartenKz] DESC,*/ FilialenNr, AbfertigungsNr, [RK_ID]" Case Else : orderBy = " ORDER BY /*[BelegartenKz] DESC,*/ FilialenNr, AbfertigungsNr, [RK_ID]"
End Select End Select
'MsgBox("SELECT RK_ID,Rechnungsdruck as Rechnungsdruck FROM Rechnungsausgang INNER JOIN Adressen ON AdressenNr=RechnungsKundenNr WHERE Status=0 " & getRGWhere("ER") & orderBy)
'Exit Sub
Dim PARAM_printZollbeleg = VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("FAKTURIERUNG_PRINT_Zollbeleg") Dim PARAM_printZollbeleg = VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("FAKTURIERUNG_PRINT_Zollbeleg")
Dim dt = SQL.loadDgvBySql("SELECT RK_ID,Rechnungsdruck as Rechnungsdruck FROM Rechnungsausgang INNER JOIN Adressen ON AdressenNr=RechnungsKundenNr WHERE Status=0 " & getRGWhere("ER", FilialNrRestriction) & orderBy, "FMZOLL") Dim dt = SQL.loadDgvBySql("SELECT RK_ID,Rechnungsdruck as Rechnungsdruck FROM Rechnungsausgang INNER JOIN Adressen ON AdressenNr=RechnungsKundenNr WHERE Status=0 " & getRGWhere("ER", FilialNrRestriction) & orderBy, "FMZOLL")
@@ -475,6 +472,8 @@ Public Class frmAbrechnungsMaske
For Each r In dt.Rows For Each r In dt.Rows
If r("Rechnungsdruck") = "2" Or r("Rechnungsdruck") = "5" Then If r("Rechnungsdruck") = "2" Or r("Rechnungsdruck") = "5" Then
cFakturierung.doRechnungsDruck_MAIL(r("RK_ID"), RechnungsDatum,, r("Rechnungsdruck"),, cboPrinter.Text,, PARAM_printZollbeleg) cFakturierung.doRechnungsDruck_MAIL(r("RK_ID"), RechnungsDatum,, r("Rechnungsdruck"),, cboPrinter.Text,, PARAM_printZollbeleg)
ElseIf r("Rechnungsdruck") = "6" OrElse r("Rechnungsdruck") = "7" Then
'AUTO-MAIL- diese überspringen!
Else Else
cFakturierung.doRechnungsDruck(r("RK_ID"), RechnungsDatum,,,, cboPrinter.Text,, PARAM_printZollbeleg) cFakturierung.doRechnungsDruck(r("RK_ID"), RechnungsDatum,,,, cboPrinter.Text,, PARAM_printZollbeleg)
End If End If

377
SDL/Fakturierung/usrCntlFaktAbrechnung.vb
View File

@@ -25,6 +25,7 @@ Public Class usrCntlFaktAbrechnung
Dim veragKunde As Integer = -1 Dim veragKunde As Integer = -1
Public isVZ As Boolean = False Public isVZ As Boolean = False
Dim FormularArt = "" Dim FormularArt = ""
Dim setDefaultAutoMailversand As Boolean = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AUTOMAILVERSAND", "SDL")
' Public VALUE_CHANGED = True ' Eigenschaft, ob das Formular gespeichert ist oder verändert wurde ' Public VALUE_CHANGED = True ' Eigenschaft, ob das Formular gespeichert ist oder verändert wurde
@@ -1064,6 +1065,7 @@ Public Class usrCntlFaktAbrechnung
initRgArt() initRgArt()
initKdAtrNr() initKdAtrNr()
initPkSt() initPkSt()
initDGVAnhaenge()
End Sub End Sub
@@ -1581,50 +1583,19 @@ Public Class usrCntlFaktAbrechnung
Dim vorzeichen = 1 'If(RECHNUNG.Vorzeichen = "-", -1, 1) Dim vorzeichen = 1 'If(RECHNUNG.Vorzeichen = "-", -1, 1)
POS.Preis *= vorzeichen POS.Preis *= vorzeichen
'MsgBox(RECHNUNG.Steuersatz_Proz)
' POS.Steuerpflichtig = r.Cells("Steuerpflichtig").Value
initSteuerbetraege(RECHNUNG, POS) initSteuerbetraege(RECHNUNG, POS)
'If (RECHNUNG.Steuersatz_Proz <> 0) And CBool(SQL.DLookup("Steuerpflichtig", "Leistungen", "[LeistungsNr] = '" & POS.LeistungsNr & "'", "FMZOLL")) Then ' Steuersatz muss ungleich 0 sein, damit der Betrag steuerpflichtig wird
' POS.SteuerpflichtigerBetrag = POS.Preis * POS.Anzahl
' POS.Steuerpflichtig = True
'Else
' POS.SteuerfreierBetrag = POS.Preis * POS.Anzahl
' POS.Steuerpflichtig = False
'End If
' POS.AufschubkontoNr = r.Cells("AufschubkontoNr").Value
' POS.Aufschubfälligkeit = r.Cells("Aufschubfälligkeit").Value
' POS.Prüfsumme_berechnen = r.Cells("Prüfsumme berechnen").Value
' POS.DateiNameAufschub = r.Cells("DateiNameAufschub").Value
' POS.Preisbindung = r.Cells("Preisbindung").Value
' POS.Belegdaten = r.Cells("Belegdaten").Value
' POS.Fremdwährung = r.Cells("Fremdwährung").Value
POS.BGebLeistungsNr = r.Cells("BGebLeistungsNr").Value POS.BGebLeistungsNr = r.Cells("BGebLeistungsNr").Value
POS.BGebProzent = r.Cells("BGebProzent").Value POS.BGebProzent = r.Cells("BGebProzent").Value
POS.BGebMinBetrag = r.Cells("BGebMinBetrag").Value POS.BGebMinBetrag = r.Cells("BGebMinBetrag").Value
' Property RePosZeitstempel As Object = Nothing
POS.IndexZkteing = DBnullNothing(r.Cells("IndexZkteing").Value, 0) POS.IndexZkteing = DBnullNothing(r.Cells("IndexZkteing").Value, 0)
POS.AufschubkontoNr = DBnullNothing(r.Cells("AufschubkontoNr").Value) POS.AufschubkontoNr = DBnullNothing(r.Cells("AufschubkontoNr").Value)
POS.Aufschubfälligkeit = DBnullNothing(r.Cells("Aufschubfälligkeit").Value) POS.Aufschubfälligkeit = DBnullNothing(r.Cells("Aufschubfälligkeit").Value)
POS.DateiNameAufschub = DBnullNothing(r.Cells("DateiNameAufschub").Value) POS.DateiNameAufschub = DBnullNothing(r.Cells("DateiNameAufschub").Value)
POS.Belegdaten = DBnullNothing(r.Cells("Belegdaten").Value) POS.Belegdaten = DBnullNothing(r.Cells("Belegdaten").Value)
' Try : If (r.Cells("BerechnungsartNr").Value = 8) And r.Cells("Anzahl").Value > 1 Then r.Cells("Anzahl").Value = 1
' Catch ex As Exception : End Try
Try : r.Cells("Preis").ReadOnly = (IIf(SPEDBUCH.Abfertigungsart = 114 Or SPEDBUCH.Abfertigungsart = 115, False, r.Cells("BerechnungsartNr").Value = 8)) Try : r.Cells("Preis").ReadOnly = (IIf(SPEDBUCH.Abfertigungsart = 114 Or SPEDBUCH.Abfertigungsart = 115, False, r.Cells("BerechnungsartNr").Value = 8))
Catch ex As Exception : End Try Catch ex As Exception : End Try
'End If
RECHNUNG.POSITIONEN.Add(POS) 'ALLE HINENLADEN! --> Sonst Problem mit SVS/VP/KA RECHNUNG.POSITIONEN.Add(POS) 'ALLE HINENLADEN! --> Sonst Problem mit SVS/VP/KA
Next Next
@@ -1743,77 +1714,24 @@ Public Class usrCntlFaktAbrechnung
RECHNUNG.VermittlerName_1 = SPEDBUCH.Vermittler RECHNUNG.VermittlerName_1 = SPEDBUCH.Vermittler
End If End If
'RECHNUNG.Rechnung_an =
'RECHNUNG.KundenNrZentrale = SPEDBUCH.XXXXXXXX
'RECHNUNG.RechnungsLandKz = SPEDBUCH.XXXXXXXX
'RECHNUNG.RechnungsKundenNr = SPEDBUCH.XXXXXXXX
'RECHNUNG.RechnungsName_1 = SPEDBUCH.XXXXXXXX '!!!!
'RECHNUNG.RechnungsName_2 = SPEDBUCH.XXXXXXXX '!!!!
'RECHNUNG.RechnungsStraße = SPEDBUCH.XXXXXXXX
'RECHNUNG.RechnungsOrt = SPEDBUCH.XXXXXXXX
'RECHNUNG.RechnungsUstIdKz = SPEDBUCH.XXXXXXXX
'RECHNUNG.RechnungsUstIdNr = SPEDBUCH.XXXXXXXX
'RECHNUNG.RechnungsUstIdGeprüft = SPEDBUCH.XXXXXXXX
'RECHNUNG.Lastschrift = SPEDBUCH.
'RECHNUNG.Kunden_SVS = SPEDBUCH.XXXXXXXX '!!!!-
'RECHNUNG.Steuerschlüssel = SPEDBUCH.XXXXXXXX
'RECHNUNG.Steuersatz_Proz = SPEDBUCH.XXXXXXXX '!!!! %
RECHNUNG.LKW_Kennzeichen = SPEDBUCH.LKW_Kennzeichen RECHNUNG.LKW_Kennzeichen = SPEDBUCH.LKW_Kennzeichen
'txtRohmasse SPEDBUCH.Rohmasse
RECHNUNG.WährungsNr = SPEDBUCH.Währungsschlüssel RECHNUNG.WährungsNr = SPEDBUCH.Währungsschlüssel
RECHNUNG.Wert = SPEDBUCH.Rechnungsbetrag RECHNUNG.Wert = SPEDBUCH.Rechnungsbetrag
' RECHNUNG.Umrechnungskurs = "EUR"
RECHNUNG.Packstücke_und_Warenbezeichnung = SPEDBUCH.Packstücke RECHNUNG.Packstücke_und_Warenbezeichnung = SPEDBUCH.Packstücke
RECHNUNG.Vermerk = SPEDBUCH.Vermerk RECHNUNG.Vermerk = SPEDBUCH.Vermerk
'RECHNUNG.Anlage_1 = SPEDBUCH.XXXXXXXX '!!!!
' RECHNUNG.Anlage_2 = SPEDBUCH.XXXXXXXX '!!!!
' RECHNUNG.Anlage_3 = SPEDBUCH.XXXXXXXX '!!!!
' RECHNUNG.Anlage_4 = SPEDBUCH.XXXXXXXX '!!!!
' RECHNUNG.Anlage_5 = SPEDBUCH.XXXXXXXX '!!!!
' RECHNUNG.Anlage_6 = SPEDBUCH.XXXXXXXX '!!!!
'RECHNUNG.OffertenNr = SPEDBUCH.o
'RECHNUNG.Vorlageprovision_Proz = SPEDBUCH.XXXXXXXX '!!!!%
'RECHNUNG.Kreditaufwendungen_Proz = SPEDBUCH.XXXXXXXX '!!!!%
'RECHNUNG.Besonderheiten = SPEDBUCH.XXXXXXXX
'RECHNUNG.Vorkasse = SPEDBUCH.XXXXXXXX
'RECHNUNG.Text = SPEDBUCH.XXXXXXXX
'RECHNUNG.SteuerpflichtigerGesamtbetrag = SPEDBUCH.XXXXXXXX
'RECHNUNG.SteuerfreierGesamtbetrag = SPEDBUCH.XXXXXXXX
'RECHNUNG.Status = SPEDBUCH.XXXXXXXX
'RECHNUNG.DruckDatumZeit = SPEDBUCH.XXXXXXXX
'RECHNUNG.Abfertigungskosten = SPEDBUCH.XXXXXXXX
'RECHNUNG.Vorkosten = SPEDBUCH.XXXXXXXX
'RECHNUNG.Erlös = SPEDBUCH.XXXXXXXX
'RECHNUNG.Buchungsjahr = SPEDBUCH.XXXXXXXX
' RECHNUNG.Währungscode = SPEDBUCH.XXXXXXXX
RECHNUNG.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME RECHNUNG.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
'RECHNUNG.Trdin = SPEDBUCH.XXXXXXXX
'RECHNUNG.KartenNr = SPEDBUCH.XXXXXXXX
'RECHNUNG.RefFilialenNr = SPEDBUCH.XXXXXXXX
'RECHNUNG.RefAbfertigungsNr = SPEDBUCH.XXXXXXXX
'RECHNUNG.RefUnterNr = SPEDBUCH.XXXXXXXX
'RECHNUNG.Notiz = SPEDBUCH.XXXXXXXX
'RECHNUNG.Zucker_MRN_Nr = SPEDBUCH.XXXXXXXX
'RECHNUNG.Zucker_MRN_Datum = SPEDBUCH.XXXXXXXX
'RECHNUNG.Zucker_Aufschub = SPEDBUCH.XXXXXXXX
'RECHNUNG.ReErfZeitstempel = SPEDBUCH.XXXXXXXX
'RECHNUNG.Nettozahlungsziel = SPEDBUCH.XXXXXXXX
' RECHNUNG.Firma_ID = SPEDBUCH.XXXXXXXX
RECHNUNG.SpeditionsbuchUnterNr = SPEDBUCH.UnterNr RECHNUNG.SpeditionsbuchUnterNr = SPEDBUCH.UnterNr
RECHNUNG.ErfassungsNr = SPEDBUCH.ErfassungsNr RECHNUNG.ErfassungsNr = SPEDBUCH.ErfassungsNr
RECHNUNG.AvisiererKundenNr = SPEDBUCH.AvisiererKundenNr RECHNUNG.AvisiererKundenNr = SPEDBUCH.AvisiererKundenNr
RECHNUNG.Avisierer = SPEDBUCH.Avisierer RECHNUNG.Avisierer = SPEDBUCH.Avisierer
'RECHNUNG.EMailRechnungstext = SPEDBUCH.XXXXXXXX
RECHNUNG.AvisoID = SPEDBUCH.AvisoID RECHNUNG.AvisoID = SPEDBUCH.AvisoID
If SPEDBUCH.Grenzstelle IsNot Nothing Then If SPEDBUCH.Grenzstelle IsNot Nothing Then
If SPEDBUCH.Grenzstelle.Replace("???", "") = "" Then If SPEDBUCH.Grenzstelle.Replace("???", "") = "" Then
If RECHNUNG.AvisoID IsNot Nothing Then If RECHNUNG.AvisoID IsNot Nothing Then
Dim Zollstelle = SQL.DLookup("Zollstelle", "AVISO", "AvisoID='" & SPEDBUCH.AvisoID & "'", "AVISO") Dim Zollstelle = SQL.DLookup("Zollstelle", "AVISO", "AvisoID='" & SPEDBUCH.AvisoID & "'", "AVISO")
' RECHNUNG.Grenze = SQL.getValueTxtBySql("SELECT [basncd_name] FROM basncd WHERE basncd_dstnr='" & If(Zollstelle, "") & "' ", "ATLAS")
RECHNUNG.Grenze = SQL.getValueTxtBySql("SELECT [Description] FROM tbl_DY_ZollDE_C0141_Zollstellen WHERE Code='" & If(Zollstelle, "") & "' AND ((StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE())) ", "FMZOLL") RECHNUNG.Grenze = SQL.getValueTxtBySql("SELECT [Description] FROM tbl_DY_ZollDE_C0141_Zollstellen WHERE Code='" & If(Zollstelle, "") & "' AND ((StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE())) ", "FMZOLL")
End If End If
Else Else
Select Case SPEDBUCH.Grenzstelle Select Case SPEDBUCH.Grenzstelle
@@ -1938,85 +1856,55 @@ Public Class usrCntlFaktAbrechnung
'Anhänge aus USTVA -> SPED-BUCH + Excel Pos-Liste 'Anhänge aus USTVA -> SPED-BUCH + Excel Pos-Liste
If SPEDBUCH IsNot Nothing Then If SPEDBUCH IsNot Nothing AndAlso RECHNUNG IsNot Nothing AndAlso RECHNUNG.RK_ID > 0 Then
If FIRMA IsNot Nothing Then If FIRMA IsNot Nothing Then
If FIRMA.Firma_ID = 19 AndAlso SPEDBUCH.ErfassungsNr <> "" AndAlso SPEDBUCH.ErfassungsNr > 0 AndAlso (SPEDBUCH.Abfertigungsart = 114 Or SPEDBUCH.Abfertigungsart = 115 Or SPEDBUCH.Abfertigungsart = 10) Then If FIRMA.Firma_ID = 19 AndAlso SPEDBUCH.ErfassungsNr <> "" AndAlso SPEDBUCH.ErfassungsNr > 0 AndAlso (SPEDBUCH.Abfertigungsart = 114 Or SPEDBUCH.Abfertigungsart = 115 Or SPEDBUCH.Abfertigungsart = 10) Then
Dim func As New cMDMFunctionsAllgemein() Dim func As New cMDMFunctionsAllgemein()
Dim dt = SQL.loadDgvBySql("SELECT UStVPo_daId, UStVPo_ID,UStVPo_SchnittstellenNr, UStVPo_ReNr, UStVPo_ReDat FROM tblUStVPositionen where UStVAn_ID='" & SPEDBUCH.ErfassungsNr & "' /* AND UStVPo_SchnittstellenNr <> 1 */ " & IIf(isVZ, " And UStVPo_VZ = 1 And UStVPo_VZ_RKID Is null", "") & " order by UStVPo_ID", "FMZOLL") Dim dt = SQL.loadDgvBySql("SELECT UStVPo_daId, UStVPo_ID,UStVPo_SchnittstellenNr, UStVPo_ReNr, UStVPo_ReDat FROM tblUStVPositionen where UStVAn_ID='" & SPEDBUCH.ErfassungsNr & "' /* AND UStVPo_SchnittstellenNr <> 1 */ " & IIf(isVZ, " And UStVPo_VZ = 1 And UStVPo_VZ_RKID Is null", "") & " order by UStVPo_ID", "FMZOLL")
Dim USTV As New cUSTVAntrag(SPEDBUCH.ErfassungsNr) Dim USTV As New cUSTVAntrag(SPEDBUCH.ErfassungsNr)
Dim Antrag_LandKz = "" Dim Antrag_LandKz = ""
If USTV.UStVAn_ID > 0 Then Antrag_LandKz = SQL.DLookup("LandKz", "[Länderverzeichnis für die Außenhandelsstatistik]", "Landnr='" & USTV.UStVAn_LandNr & "'", "FMZOLL") If USTV.UStVAn_ID > 0 Then Antrag_LandKz = SQL.DLookup("LandKz", "[Länderverzeichnis für die Außenhandelsstatistik]", "Landnr='" & USTV.UStVAn_LandNr & "'", "FMZOLL")
'soll immer alle POS bekommen! laut Lidya! 28.04.2025 - aber nicht im Excel-Format sondern als PDF-Batinic 15.05.2025 'soll immer alle POS bekommen! laut Lidya! 28.04.2025 - aber nicht im Excel-Format sondern als PDF-Batinic 15.05.2025
Dim dtPOSList As New DataTable Dim dtPOSList As New DataTable
Dim prt As String = func.generatePosList(USTV, "", "", "", False, "prt", dtPOSList, isVZ, IIf(RECHNUNG IsNot Nothing, RECHNUNG.RK_ID, -1)) Dim prt As String = func.generatePosList(USTV, "", "", "", False, "prt", dtPOSList, isVZ, IIf(RECHNUNG IsNot Nothing, RECHNUNG.RK_ID, -1))
If prt <> "" Then If prt <> "" Then
Try Try
Dim tmpPath = createPOSReport(dtPOSList, USTV)
Dim reportAktualisiert As Boolean = False
Dim rpt As New rptMWSTListe If Not String.IsNullOrWhiteSpace(tmpPath) Then
rpt.DataSource = dtPOSList
rpt.GroupHeader1.DataField = "Firma_ID" 'Gruppierung
If rpt.DataSource.rows.count > 0 Then
Dim AD As New cAdressen(USTV.UStVAn_KuNr)
Dim sum As Double = 0
rpt.lblVatNo.Text = USTV.UStVAn_Steuernummer
rpt.lblCompanyname.Text = AD.Name_1 & " " & AD.Name_2
rpt.lblDat.Text = Now.ToShortDateString
AddHandler rpt.Detail.Format, Sub()
rpt.lblNumber.Text = rpt.Fields.Item("Number").Value()
rpt.lblGoods.Text = rpt.Fields.Item("Name of service").Value()
rpt.lblName.Text = rpt.Fields.Item("Name of supplier").Value()
rpt.lblTax.Text = CDbl(rpt.Fields.Item("Amount of tax refund").Value()).ToString("N2")
rpt.lblDate.Text = CDate((rpt.Fields.Item("Date of Invoice").Value())).ToShortDateString
rpt.lblInvoiceNo.Text = rpt.Fields.Item("Number of invoice").Value()
sum += CDbl(rpt.Fields.Item("Amount of tax refund").Value()).ToString("N2")
End Sub
AddHandler rpt.GroupFooter1.Format, Sub()
rpt.lblSumme.Text = sum.ToString("N2")
rpt.lblWahrung.Text = USTV.UStVAn_Währungscode
End Sub
Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(SPEDBUCH.AbfertigungsNr, ".pdf", , False)
Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
rpt.Run(False)
p.NeverEmbedFonts = ""
p.Export(rpt.Document, tmpPath)
rpt.Dispose()
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "MDM", "POS_LISTE", "", "", SPEDBUCH.AbfertigungsNr & ".pdf", USTV.UStVAn_KuNr, False) Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "MDM", "POS_LISTE", "", "", SPEDBUCH.AbfertigungsNr & ".pdf", USTV.UStVAn_KuNr, False)
'If Not DS.hasITEMS Then 'immer neu generieren, falls der Antrag geändert wurde, muss der die neue POS-Liste geladen werden!!!! If Not DS.hasITEMS OrElse (DS.hasITEMS AndAlso DS.da_date < USTV.UStVAn_Zeitstempel) Then
DS.uploadDataToDATENSERVER(tmpPath,,, False,, True, True) Dim DS_NEW As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "MDM", "POS_LISTE", "", "", SPEDBUCH.AbfertigungsNr & "_" & RECHNUNG.RK_ID & ".pdf", USTV.UStVAn_KuNr, False) ' Wechsel auf neues Namensschema
'End If If Not DS_NEW.hasITEMS Then
DS_NEW.uploadDataToDATENSERVER(tmpPath,,, False,, True, True)
reportAktualisiert = True
ElseIf DS_NEW.da_date <= USTV.UStVAn_Zeitstempel Then
DS_NEW.uploadDataToDATENSERVER(tmpPath,,, False,, True, True)
reportAktualisiert = True
End If
DS = DS_NEW
End If
If .Rows.Count > 0 Then If .Rows.Count > 0 Then
For Each r As DataGridViewRow In .Rows For Each r As DataGridViewRow In .Rows
If .Columns.Contains("clmnBezeichnung") AndAlso r.Cells("clmnBezeichnung").Value = DS.da_name AndAlso RECHNUNG.DruckDatumZeit Is Nothing Then If .Columns.Contains("clmnBezeichnung") AndAlso r.Cells("clmnBezeichnung").Value = DS.da_name AndAlso RECHNUNG.DruckDatumZeit Is Nothing Then
.Rows.Remove(r) If reportAktualisiert Then
For Each ATT As cRechnungsausgangAnhaenge In RECHNUNG.ANHAENGE .Rows.Remove(r)
If ATT.Bezeichnung = DS.da_name AndAlso RECHNUNG.DruckDatumZeit Is Nothing Then For Each ATT As cRechnungsausgangAnhaenge In RECHNUNG.ANHAENGE
Dim ANH_DEL As New VERAG_PROG_ALLGEMEIN.cRechnungsausgangAnhaenge() If ATT.Bezeichnung = DS.da_name AndAlso RECHNUNG.DruckDatumZeit Is Nothing Then
ANH_DEL.DELETE(ATT.RK_ID, ATT.dsId) Dim ANH_DEL As New VERAG_PROG_ALLGEMEIN.cRechnungsausgangAnhaenge()
End If ANH_DEL.DELETE(ATT.RK_ID, ATT.dsId)
Next End If
Next
End If
End If End If
@@ -2024,71 +1912,74 @@ Public Class usrCntlFaktAbrechnung
End If End If
If RECHNUNG.ANHAENGE.Count > 0 Then If RECHNUNG.ANHAENGE.Count > 0 Then
If RECHNUNG.DruckDatumZeit IsNot Nothing AndAlso Not RECHNUNG.ANHAENGE.Exists(Function(c) c.Bezeichnung = DS.da_name) Or RECHNUNG.DruckDatumZeit Is Nothing Then If (RECHNUNG.DruckDatumZeit IsNot Nothing AndAlso Not RECHNUNG.ANHAENGE.Exists(Function(c) c.Bezeichnung = DS.da_name)) OrElse RECHNUNG.DruckDatumZeit Is Nothing Then
.Rows.Add(-1, "POS-LIST", DS.da_name, DS.da_id, -1) If reportAktualisiert Then .Rows.Add(-1, "POS-LIST", DS.da_name, DS.da_id, -1)
End If End If
Else Else
.Rows.Add(-1, "POS-LIST", DS.da_name, DS.da_id, -1) .Rows.Add(-1, "POS-LIST", DS.da_name, DS.da_id, -1)
End If End If
End If
End If
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End If MsgBox(ex.Message & ex.StackTrace)
If dt IsNot Nothing Then End Try
For Each r In dt.Rows
'WARUM NOCHMAL not null??? -> weil laut lydia erst ab 2025 (und ab diesem Datum wird die daid in der USTVA_POS befüllt) die Dokumente digital mitgeschickt werden, vorher noch alles per POST!!!!!!!!!!!!!!!!!! End If
If Not IsDBNull(r("UStVPo_daId")) Then
If RECHNUNG.ANHAENGE IsNot Nothing AndAlso Not RECHNUNG.ANHAENGE.Exists(Function(c) c.dsId = r("UStVPo_daId")) Then 'wenn der Anhang schon existiert! If dt IsNot Nothing Then
For Each r In dt.Rows
Dim DAID As String = "" 'WARUM NOCHMAL not null??? -> weil laut lydia erst ab 2025 (und ab diesem Datum wird die daid in der USTVA_POS befüllt) die Dokumente digital mitgeschickt werden, vorher noch alles per POST!!!!!!!!!!!!!!!!!!
DAID = func.getPDF(r("UStVPo_SchnittstellenNr"), r("UStVPo_ReNr"), r("UStVPo_ReDat"), r("UStVPo_daId"), False, True, Antrag_LandKz, USTV, New cFakturierung, True) If Not IsDBNull(r("UStVPo_daId")) Then
Dim nameLief As String = "" If RECHNUNG.ANHAENGE IsNot Nothing AndAlso Not RECHNUNG.ANHAENGE.Exists(Function(c) c.dsId = r("UStVPo_daId")) Then 'wenn der Anhang schon existiert!
Select Case r("UStVPo_SchnittstellenNr") Dim DAID As String = ""
Case 1 : nameLief = "VERAG-" 'Verag360 DAID = func.getPDF(r("UStVPo_SchnittstellenNr"), r("UStVPo_ReNr"), r("UStVPo_ReDat"), r("UStVPo_daId"), False, True, Antrag_LandKz, USTV, New cFakturierung, True)
Case 2, 8, 12 : nameLief = "IDS-"
Case 3 : nameLief = "IT-"
Case 4, 9 : nameLief = "MSE-"
Case 5, 10 : nameLief = "UTA-"
Case 6, 11 : nameLief = "PLOSE-"
Case 7 : nameLief = "RMC-"
End Select
nameLief &= "RE" Dim nameLief As String = ""
If DAID <> "" AndAlso IsNumeric(DAID) AndAlso r("UStVPo_SchnittstellenNr") <> 1 Then Select Case r("UStVPo_SchnittstellenNr")
Dim daidno As Integer = CInt(DAID) Case 1 : nameLief = "VERAG-" 'Verag360
Dim ds As New cDATENSERVER(daidno) Case 2, 8, 12 : nameLief = "IDS-"
.Rows.Add(-1, nameLief, ds.da_name, ds.da_id, -1) Case 3 : nameLief = "IT-"
Case 4, 9 : nameLief = "MSE-"
Case 5, 10 : nameLief = "UTA-"
Case 6, 11 : nameLief = "PLOSE-"
Case 7 : nameLief = "RMC-"
End Select
ElseIf DAID <> "" AndAlso r("UStVPo_SchnittstellenNr") = 1 Then nameLief &= "RE"
Dim DS_Eigenrechnungen As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "MDM", "VERAG-RECHNUNGEN", "", "", USTV.UStVAn_KuNr & "_" & r("UStVPo_ReNr") & ".pdf", USTV.UStVAn_KuNr, False) If DAID <> "" AndAlso IsNumeric(DAID) AndAlso r("UStVPo_SchnittstellenNr") <> 1 Then
Dim daidno As Integer = CInt(DAID)
Dim ds As New cDATENSERVER(daidno)
.Rows.Add(-1, nameLief, ds.da_name, ds.da_id, -1)
If Not DS_Eigenrechnungen.hasITEMS Then 'falls bereits vorhanden, nicht nochmals erstellen! ElseIf DAID <> "" AndAlso r("UStVPo_SchnittstellenNr") = 1 Then
DS_Eigenrechnungen.uploadDataToDATENSERVER(DAID, USTV.UStVAn_KuNr & "_" & r("UStVPo_ReNr") & ".pdf",, False,, True, True)
End If
.Rows.Add(-1, nameLief, DS_Eigenrechnungen.da_name, DS_Eigenrechnungen.da_id, -1)
Dim DS_Eigenrechnungen As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "MDM", "VERAG-RECHNUNGEN", "", "", USTV.UStVAn_KuNr & "_" & r("UStVPo_ReNr") & ".pdf", USTV.UStVAn_KuNr, False)
If Not DS_Eigenrechnungen.hasITEMS Then 'falls bereits vorhanden, nicht nochmals erstellen!
DS_Eigenrechnungen.uploadDataToDATENSERVER(DAID, USTV.UStVAn_KuNr & "_" & r("UStVPo_ReNr") & ".pdf",, False,, True, True)
End If End If
.Rows.Add(-1, nameLief, DS_Eigenrechnungen.da_name, DS_Eigenrechnungen.da_id, -1)
End If End If
End If
Next End If
End If End If
Next
End If End If
End If End If
End If
End If End If
@@ -2097,6 +1988,56 @@ Public Class usrCntlFaktAbrechnung
End With End With
dgvAnhaenge.ClearSelection() dgvAnhaenge.ClearSelection()
End Sub End Sub
Private Function createPOSReport(dtPOSList As DataTable, USTV As cUSTVAntrag) As String
Dim rpt As New rptMWSTListe
rpt.DataSource = dtPOSList
rpt.GroupHeader1.DataField = "Firma_ID" 'Gruppierung
If rpt.DataSource.rows.count = 0 Then Return ""
Dim AD As New cAdressen(USTV.UStVAn_KuNr)
Dim sum As Double = 0
rpt.lblVatNo.Text = USTV.UStVAn_Steuernummer
rpt.lblCompanyname.Text = AD.Name_1 & " " & AD.Name_2
rpt.lblDat.Text = Now.ToShortDateString
AddHandler rpt.Detail.Format, Sub()
rpt.lblNumber.Text = rpt.Fields.Item("Number").Value()
rpt.lblGoods.Text = rpt.Fields.Item("Name of service").Value()
rpt.lblName.Text = rpt.Fields.Item("Name of supplier").Value()
rpt.lblTax.Text = CDbl(rpt.Fields.Item("Amount of tax refund").Value()).ToString("N2")
rpt.lblDate.Text = CDate((rpt.Fields.Item("Date of Invoice").Value())).ToShortDateString
rpt.lblInvoiceNo.Text = rpt.Fields.Item("Number of invoice").Value()
sum += CDbl(rpt.Fields.Item("Amount of tax refund").Value()).ToString("N2")
End Sub
AddHandler rpt.GroupFooter1.Format, Sub()
rpt.lblSumme.Text = sum.ToString("N2")
rpt.lblWahrung.Text = USTV.UStVAn_Währungscode
End Sub
Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(SPEDBUCH.AbfertigungsNr, ".pdf", , False)
Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
rpt.Run(False)
p.NeverEmbedFonts = ""
p.Export(rpt.Document, tmpPath)
rpt.Dispose()
Return tmpPath
End Function
Sub getDataFromSpedbuch_SHOW() Sub getDataFromSpedbuch_SHOW()
txtAbfertigungsart.Text = "" txtAbfertigungsart.Text = ""
txtAbfertigungsanzahl.Text = "" txtAbfertigungsanzahl.Text = ""
@@ -4198,11 +4139,6 @@ Nächste_Textzeile_lesen:
initRECHNUNG() initRECHNUNG()
RaiseEvent SOMETHING_CHANGED(-1) RaiseEvent SOMETHING_CHANGED(-1)
'If cFakturierung.doRechnungsDruck(RECHNUNG,,, 2,, getPrinterFromParent) Then
' initRECHNUNG()
' RaiseEvent SOMETHING_CHANGED(-1)
'End If
End If End If
cbxOriginalPrint.Checked = False cbxOriginalPrint.Checked = False
End Sub End Sub
@@ -4265,21 +4201,12 @@ Nächste_Textzeile_lesen:
RECHNUNG.POSITIONEN.Add(TMPPos) RECHNUNG.POSITIONEN.Add(TMPPos)
sbLeistung._value = "" sbLeistung._value = ""
'aktualisieren:
'przBerechneRAPos("")
przBerechneRAPos("") przBerechneRAPos("")
loadFormRGPosInOfferte() loadFormRGPosInOfferte()
initDGVRechnungenPositionen() initDGVRechnungenPositionen()
'przRefreshDGV_Positionen() 'false
'initDGVRechnungenPositionen()
' przRefreshDGV_Positionen()
' przRefreshDGV_Positionen()
sbLeistung.SET_VALUE("") sbLeistung.SET_VALUE("")
' loadFormRGPosInOfferte(False)
End If End If
End Sub End Sub
@@ -4758,7 +4685,7 @@ Nächste_Textzeile_lesen:
End Select End Select
Else Else
MsgBox("Speditionsbuch Eintrag nicht gefunden.") MsgBox("Speditionsbuch-Eintrag nicht gefunden.")
End If End If
@@ -5587,6 +5514,8 @@ mwst:
Dim enableAUTOMAIL As Boolean = False Dim enableAUTOMAIL As Boolean = False
If setDefaultAutoMailversand Then cbxAUTOMailversand.Checked = False
If RECHNUNG Is Nothing Then If RECHNUNG Is Nothing Then
@@ -5596,28 +5525,28 @@ mwst:
Dim RD_DRUCK = -1 Dim RD_DRUCK = -1
Dim AD As cAdressen Dim AD As cAdressen
Select Case cboRechnungAn._value Select Case cboRechnungAn._value
Case "1" Case "1"
If kdFirmaAbsender.KdNr = "" Then Return enableAUTOMAIL If kdFirmaAbsender.KdNr = "" Then Return enableAUTOMAIL
AD = New cAdressen(kdFirmaAbsender.KdNr) AD = New cAdressen(kdFirmaAbsender.KdNr)
RD_DRUCK = If(AD.Rechnungsdruck, -1) RD_DRUCK = If(AD.Rechnungsdruck, -1)
Case "2" Case "2"
If kdFirmaEmpfaenger.KdNr = "" Then Return enableAUTOMAIL If kdFirmaEmpfaenger.KdNr = "" Then Return enableAUTOMAIL
AD = New cAdressen(kdFirmaEmpfaenger.KdNr) AD = New cAdressen(kdFirmaEmpfaenger.KdNr)
RD_DRUCK = If(AD.Rechnungsdruck, -1) RD_DRUCK = If(AD.Rechnungsdruck, -1)
Case "3" Case "3"
If kdFirmaAuftraggeber.KdNr = "" Then Return enableAUTOMAIL If kdFirmaAuftraggeber.KdNr = "" Then Return enableAUTOMAIL
AD = New cAdressen(kdFirmaAuftraggeber.KdNr) AD = New cAdressen(kdFirmaAuftraggeber.KdNr)
RD_DRUCK = If(AD.Rechnungsdruck, -1) RD_DRUCK = If(AD.Rechnungsdruck, -1)
Case "4" Case "4"
If kdFirmaAvisierer.KdNr = "" Then Return enableAUTOMAIL If kdFirmaAvisierer.KdNr = "" Then Return enableAUTOMAIL
AD = New cAdressen(kdFirmaAvisierer.KdNr) AD = New cAdressen(kdFirmaAvisierer.KdNr)
RD_DRUCK = If(AD.Rechnungsdruck, -1) RD_DRUCK = If(AD.Rechnungsdruck, -1)
Case Else Case Else
Return enableAUTOMAIL Return enableAUTOMAIL
End Select End Select
'BEI EINZELRECHNUNG WIRD STATUS 0 und 2 geprüft 'BEI EINZELRECHNUNG WIRD STATUS 0 und 2 geprüft
@@ -5632,15 +5561,16 @@ mwst:
Return enableAUTOMAIL = False Return enableAUTOMAIL = False
Else Else
enableAUTOMAIL = True enableAUTOMAIL = True
If setDefaultAutoMailversand AndAlso Not (FIRMA.Firma_ID = 19) Then cbxAUTOMailversand.Checked = True
End If End If
Else Else
enableAUTOMAIL = False enableAUTOMAIL = False
End If End If
Else Else
'If RECHNUNG.Rechnung_an = 0 Then 'If RECHNUNG.Rechnung_an = 0 Then
@@ -5661,7 +5591,7 @@ mwst:
Dim RD_DRUCK = -1 Dim RD_DRUCK = -1
Dim AD As cAdressen Dim AD As cAdressen
Select Case cboRechnungAn._value Select Case cboRechnungAn._value
Case "1" Case "1"
If RECHNUNG.AbsenderKundenNr Is Nothing Then Return enableAUTOMAIL If RECHNUNG.AbsenderKundenNr Is Nothing Then Return enableAUTOMAIL
@@ -5694,18 +5624,19 @@ mwst:
If RECHNUNG.Sammelrechnung = 0 AndAlso RECHNUNG.DruckDatumZeit Is Nothing AndAlso (RD_DRUCK = 2 Or RD_DRUCK = 5) AndAlso (RECHNUNG.Status = 0 Or RECHNUNG.Status = 2) Then ' (RECHNUNG.Status <> 4 ANDAlso RECHNUNG.Status <> 0) WARUM NOCHMALS?? If RECHNUNG.Sammelrechnung = 0 AndAlso RECHNUNG.DruckDatumZeit Is Nothing AndAlso (RD_DRUCK = 2 Or RD_DRUCK = 5) AndAlso (RECHNUNG.Status = 0 Or RECHNUNG.Status = 2) Then ' (RECHNUNG.Status <> 4 ANDAlso RECHNUNG.Status <> 0) WARUM NOCHMALS??
enableAUTOMAIL = True enableAUTOMAIL = True
If setDefaultAutoMailversand AndAlso Not (FIRMA.Firma_ID = 19) Then cbxAUTOMailversand.Checked = True
Else Else
enableAUTOMAIL = False enableAUTOMAIL = False
End If
End If End If
End If
' If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then ' If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
' 'Button8.Enabled = Not enableAUTOMAIL ' 'Button8.Enabled = Not enableAUTOMAIL
' 'Button9.Enabled = Not enableAUTOMAIL ' 'Button9.Enabled = Not enableAUTOMAIL

56
SDL/mdm/frmMDMDatenverarbetiung.vb
View File

@@ -3546,23 +3546,40 @@ LEFT JOIN VERAG.dbo.tbl_IDS_Länder land
Dim OffertenNr As Integer Dim OffertenNr As Integer
Dim Abfertigungsart As Integer Dim Abfertigungsart As Integer
Dim KUNDE_ERW As New cKundenErweitert(KdNr)
Dim anh_Bez As String = "Email-Anhang"
If KUNDE_ERW IsNot Nothing AndAlso KUNDE_ERW.kde_Fakturierung_Sprache IsNot Nothing Then
Select Case KUNDE_ERW.kde_Fakturierung_Sprache
Case "DE"
anh_Bez = "Email-Anhang"
RG.RechnungSprache = KUNDE_ERW.kde_Fakturierung_Sprache
Case Else
anh_Bez = "Email-Attachement"
RG.RechnungSprache = "EN"
End Select
End If
Select Case Lieferant Select Case Lieferant
Case "PLOSE" : OffertenNr = 80 : Abfertigungsart = 10 : RG.Anlage_1 = "" Case "PLOSE" : OffertenNr = 80 : Abfertigungsart = 10 : RG.Anlage_1 = anh_Bez
Case "ASFINAG" : OffertenNr = 11 : Abfertigungsart = 10 : RG.Anlage_1 = "Email Anhang" Case "ASFINAG" : OffertenNr = 11 : Abfertigungsart = 10 : RG.Anlage_1 = anh_Bez
Case "UTA" : OffertenNr = 30 : Abfertigungsart = 10 : RG.Anlage_1 = "Email Anhang" Case "UTA" : OffertenNr = 30 : Abfertigungsart = 10 : RG.Anlage_1 = anh_Bez
Case "MSE" : OffertenNr = 23 : Abfertigungsart = 10 : RG.Anlage_1 = "Email Anhang" Case "MSE" : OffertenNr = 23 : Abfertigungsart = 10 : RG.Anlage_1 = anh_Bez
Case "IDS" : OffertenNr = 17 : Abfertigungsart = 10 : RG.Anlage_1 = "Email Anhang" Case "IDS" : OffertenNr = 17 : Abfertigungsart = 10 : RG.Anlage_1 = anh_Bez
Case "IDS_AT" : OffertenNr = 21 : Abfertigungsart = 10 : RG.Anlage_1 = "Email Anhang" Case "IDS_AT" : OffertenNr = 21 : Abfertigungsart = 10 : RG.Anlage_1 = anh_Bez
End Select End Select
RG.Firma_ID = 19 'RG.Firma_ID = 15 RG.Firma_ID = 19 'RG.Firma_ID = 15
RG.FilialenNr = SPEDBUCH.FilialenNr RG.FilialenNr = SPEDBUCH.FilialenNr
RG.AbfertigungsNr = SPEDBUCH.AbfertigungsNr RG.AbfertigungsNr = SPEDBUCH.AbfertigungsNr
RG.SpeditionsbuchUnterNr = SPEDBUCH.UnterNr RG.SpeditionsbuchUnterNr = SPEDBUCH.UnterNr
RG.UnterNr = RG.getMaxRGUnterNr() RG.UnterNr = RG.getMaxRGUnterNr()
RG.Buchungsjahr = cRKSV.getGJ(datPloseAnhang.Value, RG.Firma_ID) 'If(Now.Month = 1, Now.Year - 1, Now.Year) RG.Buchungsjahr = cRKSV.getGJ(datPloseAnhang.Value, RG.Firma_ID) 'If(Now.Month = 1, Now.Year - 1, Now.Year)
RG.FilialenNr = SPEDBUCH.FilialenNr RG.FilialenNr = SPEDBUCH.FilialenNr
RG.Abfertigungsdatum = SPEDBUCH.Abfertigungsdatum RG.Abfertigungsdatum = SPEDBUCH.Abfertigungsdatum
@@ -3571,7 +3588,6 @@ LEFT JOIN VERAG.dbo.tbl_IDS_Länder land
RG.BelegartenNr = 70 RG.BelegartenNr = 70
RG.BelegartenBez = "Rechnung" RG.BelegartenBez = "Rechnung"
RG.Vorzeichen = "+" RG.Vorzeichen = "+"
RG.VermittlerKundenNr = AD.AdressenNr RG.VermittlerKundenNr = AD.AdressenNr
RG.VermittlerLandKz = AD.LandKz RG.VermittlerLandKz = AD.LandKz
RG.VermittlerName_1 = AD.Name_1 RG.VermittlerName_1 = AD.Name_1
@@ -3581,7 +3597,6 @@ LEFT JOIN VERAG.dbo.tbl_IDS_Länder land
RG.VermittlerStraße = AD.Straße RG.VermittlerStraße = AD.Straße
RG.Rechnung_an = 3 RG.Rechnung_an = 3
RG.OffertenNr = OffertenNr RG.OffertenNr = OffertenNr
RG.KundenNrZentrale = KD.KundenNrZentrale RG.KundenNrZentrale = KD.KundenNrZentrale
RG.RechnungsKundenNr = AD.AdressenNr RG.RechnungsKundenNr = AD.AdressenNr
RG.RechnungsLandKz = AD.LandKz RG.RechnungsLandKz = AD.LandKz
@@ -3589,52 +3604,35 @@ LEFT JOIN VERAG.dbo.tbl_IDS_Länder land
RG.RechnungsName_2 = AD.Name_2 RG.RechnungsName_2 = AD.Name_2
RG.RechnungsOrt = (If(AD.LandKz, "") & " " & If(AD.PLZ, "") & " " & If(AD.Ort, "")) RG.RechnungsOrt = (If(AD.LandKz, "") & " " & If(AD.PLZ, "") & " " & If(AD.Ort, ""))
RG.RechnungsStraße = AD.Straße RG.RechnungsStraße = AD.Straße
RG.RechnungsUstIdKz = AD.UstIdKz RG.RechnungsUstIdKz = AD.UstIdKz
RG.RechnungsUstIdNr = AD.UstIdNr RG.RechnungsUstIdNr = AD.UstIdNr
RG.RechnungsUstIdGeprüft = AD.UstIdGeprüft RG.RechnungsUstIdGeprüft = AD.UstIdGeprüft
RG.Lastschrift = KD.Lastschrift RG.Lastschrift = KD.Lastschrift
RG.Kunden_SVS = KD.SVS RG.Kunden_SVS = KD.SVS
RG.Steuerschlüssel = KD.Steuerschlüssel RG.Steuerschlüssel = KD.Steuerschlüssel
RG.Vorkasse = KD.Vorkasse RG.Vorkasse = KD.Vorkasse
RG.Vorlageprovision_Proz = KD.Vorlageprovision RG.Vorlageprovision_Proz = KD.Vorlageprovision
RG.Kreditaufwendungen_Proz = KD.Kreditaufwendungen RG.Kreditaufwendungen_Proz = KD.Kreditaufwendungen
RG.RechnungSprache = "DE"
RG.Anlage_2 = "" RG.Anlage_2 = ""
RG.Anlage_3 = "" RG.Anlage_3 = ""
RG.Anlage_4 = "" RG.Anlage_4 = ""
RG.Anlage_5 = "" RG.Anlage_5 = ""
RG.Anlage_6 = "" RG.Anlage_6 = ""
RG.Text = "" RG.Text = ""
RG.EMailRechnungstext = Nothing ' "" RG.EMailRechnungstext = Nothing ' ""
RG.Nettozahlungsziel = KD.Zahlungsziel RG.Nettozahlungsziel = KD.Zahlungsziel
RG.SteuerpflichtigerGesamtbetrag = 0 RG.SteuerpflichtigerGesamtbetrag = 0
RG.SteuerfreierGesamtbetrag = 0 RG.SteuerfreierGesamtbetrag = 0
RG.Status = 0 '<= Status während der Erfassung über die Maut/Diesel-Schnittstelle - Nach Abschluss der Datenübernahme Änderung auf 0 20231220 -> gleich auf 0 setzen! RG.Status = 0 '<= Status während der Erfassung über die Maut/Diesel-Schnittstelle - Nach Abschluss der Datenübernahme Änderung auf 0 20231220 -> gleich auf 0 setzen!
RG.[Vorkosten] = 0 RG.[Vorkosten] = 0
RG.[Erlös] = 0 RG.[Erlös] = 0
'RG.[Buchungsjahr] = 0
RG.[Währungscode] = "EUR" RG.[Währungscode] = "EUR"
RG.ReErfZeitstempel = Now RG.ReErfZeitstempel = Now
RG.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME RG.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
'RG.Buchungsjahr = cRKSV.getGJ(RG.RechnungsDatum, RG.Firma_ID)
Dim sqlstr As String = "" Dim sqlstr As String = ""
Dim useNettogesamtbetrag As Boolean = False Dim useNettogesamtbetrag As Boolean = False
'If KdNr = "401715" Or KdNr = "401943" Or KdNr = "402179" Or KdNr = "402598" Or KdNr = "402656" Or KdNr = "402688" Or KdNr = "402719" Or KdNr = "402888" Or KdNr = "402933" Then
'MsgBox("Test")
'End If
Dim OFFERTE As New VERAG_PROG_ALLGEMEIN.cOfferte(KdNr, OffertenNr, True) Dim OFFERTE As New VERAG_PROG_ALLGEMEIN.cOfferte(KdNr, OffertenNr, True)
RG.LOAD_OFFERT_POSITIONEN() ' --> OFFERTE MIT ANZAHL >0 und Preis >0 RG.LOAD_OFFERT_POSITIONEN() ' --> OFFERTE MIT ANZAHL >0 und Preis >0
@@ -3642,9 +3640,7 @@ LEFT JOIN VERAG.dbo.tbl_IDS_Länder land
Select Case Lieferant Select Case Lieferant
Case "PLOSE" Case "PLOSE"
'Dim OFFERTE As New VERAG_PROG_ALLGEMEIN.cOfferte(KdNr, OffertenNr, True)
'RG.LOAD_OFFERT_POSITIONEN() ' --> OFFERTE MIT ANZAHL >0 und Preis >0
' RG.LOAD_POSITIONEN_FROM_OFFERTE(OFFERTE)
sqlstr &= " SELECT [plp_LeistungsNr],sum([plose_NettobetragWaehrungAbbuchung]) as plose_NettobetragWaehrungAbbuchung,sum([plose_MWSTBetragWaehrungAbbuchung]) as [plose_MWSTBetragWaehrungAbbuchung],sum([plose_BruttobetragWaehrungAbbuchung]) as [plose_BruttobetragWaehrungAbbuchung] " sqlstr &= " SELECT [plp_LeistungsNr],sum([plose_NettobetragWaehrungAbbuchung]) as plose_NettobetragWaehrungAbbuchung,sum([plose_MWSTBetragWaehrungAbbuchung]) as [plose_MWSTBetragWaehrungAbbuchung],sum([plose_BruttobetragWaehrungAbbuchung]) as [plose_BruttobetragWaehrungAbbuchung] "
sqlstr &= " FROM tblPLOSE_Details INNER JOIN [tblPLOSE_Produktbeschreibung] on plose_ProduktCode=plp_ProductCode " sqlstr &= " FROM tblPLOSE_Details INNER JOIN [tblPLOSE_Produktbeschreibung] on plose_ProduktCode=plp_ProductCode "

2
VERAG_PROG_ALLGEMEIN/AuditFlow/frmFirmenuebersicht.vb
View File

@@ -10,7 +10,7 @@ Public Class frmFirmenuebersicht
Private Sub frminterneEmailBenachrichtigungen_Load(sender As Object, e As EventArgs) Handles Me.Load Private Sub frminterneEmailBenachrichtigungen_Load(sender As Object, e As EventArgs) Handles Me.Load
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
loadDGVMailbenachrichtigungen() loadDGVMailbenachrichtigungen()

8
VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb
View File

@@ -7,13 +7,9 @@ Imports System.Text
Imports System.Text.RegularExpressions Imports System.Text.RegularExpressions
Imports System.Windows.Forms Imports System.Windows.Forms
Imports System.Xml Imports System.Xml
Imports DocumentFormat.OpenXml
Imports iText.Kernel.Pdf Imports iText.Kernel.Pdf
Imports iText.Kernel.Pdf.Filespec Imports iText.Kernel.Pdf.Filespec
Imports iText.Kernel.XMP
Imports iText.Kernel.XMP.Options
Imports iText.Pdfa Imports iText.Pdfa
Imports iText.Pdfa.Exceptions
Imports iTextSharp.text Imports iTextSharp.text
Imports iTextSharp.text.pdf Imports iTextSharp.text.pdf
Imports Spire.Pdf Imports Spire.Pdf
@@ -21,7 +17,6 @@ Imports Spire.Pdf.Attachments
Imports Spire.Pdf.Graphics Imports Spire.Pdf.Graphics
Imports Spire.Pdf.Print Imports Spire.Pdf.Print
Imports Font = iTextSharp.text.Font Imports Font = iTextSharp.text.Font
Imports PdfName = iTextSharp.text.pdf.PdfName
@@ -39,6 +34,7 @@ Public Class cDATENSERVER
'Property da_pfad As Object = Nothing 'Property da_pfad As Object = Nothing
Property da_info As String = "" Property da_info As String = ""
Property da_multifiles As Boolean = False Property da_multifiles As Boolean = False
Property da_date As Object = Nothing
Public Property DATA_LIST As New cDatenserverIDCollectionList Public Property DATA_LIST As New cDatenserverIDCollectionList
@@ -117,6 +113,7 @@ Public Class cDATENSERVER
Me.da_name = dr.Item("da_name") Me.da_name = dr.Item("da_name")
Me.da_info = dr.Item("da_info") Me.da_info = dr.Item("da_info")
Me.da_multifiles = dr.Item("da_multifiles") Me.da_multifiles = dr.Item("da_multifiles")
Me.da_date = dr.Item("da_date")
DATA_LIST = New cDatenserverIDCollectionList(Me.da_id, rootDir) DATA_LIST = New cDatenserverIDCollectionList(Me.da_id, rootDir)
End If End If
@@ -152,6 +149,7 @@ Public Class cDATENSERVER
Me.da_vorlage = dr.Item("da_vorlage") Me.da_vorlage = dr.Item("da_vorlage")
Me.da_info = dr.Item("da_info") Me.da_info = dr.Item("da_info")
Me.da_multifiles = dr.Item("da_multifiles") Me.da_multifiles = dr.Item("da_multifiles")
Me.da_date = dr.Item("da_date")
DATA_LIST = New cDatenserverIDCollectionList(Me.da_id, rootDir) DATA_LIST = New cDatenserverIDCollectionList(Me.da_id, rootDir)
End If End If