Fakt MDM
This commit is contained in:
@@ -2978,7 +2978,7 @@ Public Class cFakturierung
|
||||
|
||||
End Function
|
||||
|
||||
Public Shared Function doSAMMELRechnungsDruck_Abschnitt(ByRef RechnungsNr As Integer, Firma_ID As Integer, Buchungsjahr As Integer, DruckdatumUhrzeit As DateTime, PrinterName As String, Optional AnlageEinzelRg As Boolean = True, Optional Sammelrechnungsbericht As Boolean = True, Optional RechnungsdruckArt As Integer = -1, Optional ByRef pathPDF As String = "", Optional SRDruckWiederholen As Boolean = False, Optional SB As String = "", Optional AnlageExcelEvolog As Boolean = False, Optional ByRef SonstAnlagen As List(Of String) = Nothing, Optional VorschauID As String = "", Optional AnlageExcelTransferry360 As Boolean = False, Optional FakturierungsGruppe As String = "", Optional Abfertigungsart As String = "", Optional mergePDF As Boolean = False) As Boolean
|
||||
Public Shared Function doSAMMELRechnungsDruck_Abschnitt(ByRef RechnungsNr As Integer, Firma_ID As Integer, Buchungsjahr As Integer, DruckdatumUhrzeit As DateTime, PrinterName As String, Optional AnlageEinzelRg As Boolean = True, Optional Sammelrechnungsbericht As Boolean = True, Optional RechnungsdruckArt As Integer = -1, Optional ByRef pathPDF As String = "", Optional SRDruckWiederholen As Boolean = False, Optional SB As String = "", Optional AnlageExcelEvolog As Boolean = False, Optional ByRef SonstAnlagen As List(Of String) = Nothing, Optional VorschauID As String = "", Optional AnlageExcelTransferry360 As Boolean = False, Optional FakturierungsGruppe As String = "", Optional Abfertigungsart As String = "", Optional mergePDF As Boolean = False, Optional RechnungsmautanhangAsPDF As Boolean = False) As Boolean
|
||||
'SB Nicht mehr benötigt, da RG-Nr und DruckdatumUhrzeit
|
||||
|
||||
Dim dt As DataTable
|
||||
@@ -3007,6 +3007,31 @@ Public Class cFakturierung
|
||||
doSAMMELRechnungsDruck_Abschnitt = doSAMMELRechnungDruck_Rechnungsdruck(dt, RechnungsNr, DruckdatumUhrzeit, 3, RechnungsdruckArt, pathPDF_SammelRg, PrinterName, SRDruckWiederholen, VorschauID) 'Sammelrechnung drucken
|
||||
If Sammelrechnungsbericht Then If Not doSAMMELRechnungDruck_Rechnungsdruck_Sammelrechnungsbericht(RechnungsNr, DruckdatumUhrzeit, RechnungsdruckArt, pathPDF_SammelBericht, PrinterName, VorschauID, dt) Then doSAMMELRechnungsDruck_Abschnitt = False 'Sammelrechnungsbericht drucken
|
||||
If AnlageEinzelRg Then If Not doSAMMELRechnungDruck_Rechnungsdruck_Anlagen(RechnungsNr, DruckdatumUhrzeit, PrinterName, pathPDF_Anlage, RechnungsdruckArt, VorschauID) Then doSAMMELRechnungsDruck_Abschnitt = False 'Anlagen drucken
|
||||
If RechnungsmautanhangAsPDF Then
|
||||
|
||||
Dim displayView = New DataView(dt, "", "RK_ID", DataViewRowState.CurrentRows)
|
||||
Dim distinctDT_RK As DataTable = displayView.ToTable(True, "RK_ID")
|
||||
|
||||
For Each r In distinctDT_RK.Rows
|
||||
Dim RG As New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(r("RK_ID"))
|
||||
If RG IsNot Nothing Then
|
||||
RG.LOAD_ANHAENGE()
|
||||
For Each RG_AH In RG.ANHAENGE
|
||||
If RG_AH.Bezeichnung.ToUpper.Contains("MAUT") Or RG_AH.Bezeichnung.ToUpper.Contains("DIESEL") Or RG_AH.Bezeichnung.ToUpper.Contains("INVOICE") Then
|
||||
Dim Path = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(RG_AH.dsId)
|
||||
If Not pathPDF_Anlage.Contains(Path) Then
|
||||
|
||||
If Not (pathPDF_Anlage.Any(Function(f) f.Contains("COPY_INVOICE")) And Path.ToUpper.Contains("COPY_INVOICE")) Then 'damit diesel IDS-Rechnung nicht doppelt hinzugefügt wird.
|
||||
pathPDF_Anlage.Add(Path)
|
||||
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
|
||||
'SONSTIGE ANLAGEN:
|
||||
If AnlageExcelEvolog Then 'Sammelrechnungsbericht EVOLOG
|
||||
|
||||
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
|
||||
' übernehmen, indem Sie "*" eingeben:
|
||||
' <Assembly: AssemblyVersion("1.0.*")>
|
||||
|
||||
<Assembly: AssemblyVersion("1.3.5.3")>
|
||||
<Assembly: AssemblyFileVersion("1.3.5.3")>
|
||||
<Assembly: AssemblyVersion("1.3.5.4")>
|
||||
<Assembly: AssemblyFileVersion("1.3.5.4")>
|
||||
|
||||
15
SDL/seriendruck/usrCntlFakturierung.Designer.vb
generated
15
SDL/seriendruck/usrCntlFakturierung.Designer.vb
generated
@@ -76,6 +76,7 @@ Partial Class usrcntlFakturierung
|
||||
Me.Label63 = New System.Windows.Forms.Label()
|
||||
Me.Label45 = New System.Windows.Forms.Label()
|
||||
Me.Button14 = New System.Windows.Forms.Button()
|
||||
Me.cbxMautanh = New System.Windows.Forms.CheckBox()
|
||||
Me.GroupBox1.SuspendLayout()
|
||||
Me.GBMautberichte.SuspendLayout()
|
||||
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
@@ -303,6 +304,7 @@ Partial Class usrcntlFakturierung
|
||||
'
|
||||
'GBSammelrechnung
|
||||
'
|
||||
Me.GBSammelrechnung.Controls.Add(Me.cbxMautanh)
|
||||
Me.GBSammelrechnung.Controls.Add(Me.Button1)
|
||||
Me.GBSammelrechnung.Controls.Add(Me.PictureBox6)
|
||||
Me.GBSammelrechnung.Controls.Add(Me.PictureBox5)
|
||||
@@ -666,6 +668,18 @@ Partial Class usrcntlFakturierung
|
||||
Me.Button14.Text = "Rechnungspos. berechnen"
|
||||
Me.Button14.UseVisualStyleBackColor = True
|
||||
'
|
||||
'cbxMautanh
|
||||
'
|
||||
Me.cbxMautanh.AutoSize = True
|
||||
Me.cbxMautanh.Checked = True
|
||||
Me.cbxMautanh.CheckState = System.Windows.Forms.CheckState.Checked
|
||||
Me.cbxMautanh.Location = New System.Drawing.Point(450, 262)
|
||||
Me.cbxMautanh.Name = "cbxMautanh"
|
||||
Me.cbxMautanh.Size = New System.Drawing.Size(184, 17)
|
||||
Me.cbxMautanh.TabIndex = 107
|
||||
Me.cbxMautanh.Text = "Mautanhänge im PDF hinzufügen"
|
||||
Me.cbxMautanh.UseVisualStyleBackColor = True
|
||||
'
|
||||
'usrcntlFakturierung
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
@@ -747,4 +761,5 @@ Partial Class usrcntlFakturierung
|
||||
Friend WithEvents PictureBox3 As PictureBox
|
||||
Friend WithEvents PictureBox2 As PictureBox
|
||||
Friend WithEvents Button1 As Button
|
||||
Friend WithEvents cbxMautanh As CheckBox
|
||||
End Class
|
||||
|
||||
@@ -961,7 +961,7 @@ Public Class usrcntlFakturierung
|
||||
|
||||
Dim SQLStringGruppierteSammelrechnung = "SELECT [Firma_ID], RechnungsNr,Buchungsjahr,DruckDatumZeit,[Status], RechnungsKundenNr, Adressen.LandKz
|
||||
FROM Rechnungsausgang INNER JOIN Adressen on AdressenNr = RechnungsKundenNr
|
||||
WHERE [Status] = 2 AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter]) = '" & Sachbearbeiter & "' AND ([SteuerpflichtigerGesamtbetrag] <> 0 OR [SteuerfreierGesamtbetrag] <> 0) AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "' and RechnungsNr is not null " & IIf(kdnr > 0, " AND RechnungsKundenNr = " & kdnr, "") & "
|
||||
WHERE [Status] = 2 AND [Sammelrechnung] = 6 AND UPPER(Rechnungsausgang.Sachbearbeiter) = '" & Sachbearbeiter & "' AND ([SteuerpflichtigerGesamtbetrag] <> 0 OR [SteuerfreierGesamtbetrag] <> 0) AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "' and RechnungsNr is not null " & IIf(kdnr > 0, " AND RechnungsKundenNr = " & kdnr, "") & "
|
||||
group by [Firma_ID], RechnungsNr,Buchungsjahr,DruckDatumZeit,[Status], RechnungsKundenNr, Adressen.LandKz
|
||||
ORDER BY [Firma_ID], [Status], RechnungsNr"
|
||||
|
||||
@@ -972,28 +972,30 @@ Public Class usrcntlFakturierung
|
||||
If cbxVorschau.Checked Then
|
||||
Dim nurNICHTEUKunden As Boolean = False
|
||||
If rbAlleKunden.Checked Then
|
||||
If vbYes = MsgBox("Sollen nur die Rechnungen der NICHT-EU Kunden gedruckt werden?", vbYesNoCancel) Then nurNICHTEUKunden = True
|
||||
nurNICHTEUKunden = MsgBox("Sollen nur die Rechnungen der NICHT-EU Kunden gedruckt werden?", vbYesNo)
|
||||
End If
|
||||
|
||||
For Each rowRE In dtSelectedSammelrechnungen.Rows
|
||||
Dim dTLANDEU As DataTable = (New SQL).loadDgvBySql("select LandKz, MitgliedslandEU from Währungstabelle where LandKz is not null", "FMZOLL")
|
||||
|
||||
Dim R As DataRow = dTLANDEU.NewRow
|
||||
R("LandKz") = "MK"
|
||||
R("MitgliedslandEU") = False
|
||||
dTLANDEU.Rows.Add(R)
|
||||
|
||||
For Each rowRE In dtSelectedSammelrechnungen.Rows
|
||||
|
||||
Dim path = ""
|
||||
|
||||
If nurNICHTEUKunden Then
|
||||
Dim isEU As Boolean = True
|
||||
isEU = (New SQL).getValueTxtBySql("select MitgliedslandEU from Währungstabelle where landkz = '" & rowRE("Adressen.LandKz") & "'", "FMZOLL",)
|
||||
If Not isEU Then cFakturierung.doSAMMELRechnungsDruck_Abschnitt(rowRE("RechnungsNr"), rowRE("Firma_ID"), rowRE("Buchungsjahr"), rowRE("DruckDatumZeit"), "", True, True, 7, path,, , , , , , , )
|
||||
|
||||
Dim isEU As Boolean = dTLANDEU.AsEnumerable().Where(Function(res) res.Field(Of String)("LandKz") = rowRE("LandKZ")).Select(Function(res) res.Field(Of Boolean)("MitgliedslandEU")).FirstOrDefault()
|
||||
If Not isEU Then cFakturierung.doSAMMELRechnungsDruck_Abschnitt(rowRE("RechnungsNr"), rowRE("Firma_ID"), rowRE("Buchungsjahr"), rowRE("DruckDatumZeit"), "", True, True, 7, path,, , , , , , ,,, cbxMautanh.Checked)
|
||||
If path <> "" Then listPDFs.Add(path)
|
||||
Else
|
||||
|
||||
cFakturierung.doSAMMELRechnungsDruck_Abschnitt(rowRE("RechnungsNr"), rowRE("Firma_ID"), rowRE("Buchungsjahr"), rowRE("DruckDatumZeit"), "", True, True, 7, path,, , , , , , , )
|
||||
cFakturierung.doSAMMELRechnungsDruck_Abschnitt(rowRE("RechnungsNr"), rowRE("Firma_ID"), rowRE("Buchungsjahr"), rowRE("DruckDatumZeit"), "", True, True, 7, path,, , , , , , , ,, cbxMautanh.Checked)
|
||||
If path <> "" Then listPDFs.Add(path)
|
||||
|
||||
If path <> "" Then
|
||||
|
||||
listPDFs.Add(path)
|
||||
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
@@ -1005,9 +1007,11 @@ Public Class usrcntlFakturierung
|
||||
'GroupBox12.Refresh()
|
||||
My.Application.DoEvents()
|
||||
End If
|
||||
cnt += 1
|
||||
cnt += 1
|
||||
|
||||
Next
|
||||
'Exit For
|
||||
|
||||
Next
|
||||
|
||||
If listPDFs.Count > 0 Then
|
||||
|
||||
@@ -1518,16 +1522,14 @@ Public Class usrcntlFakturierung
|
||||
|
||||
Dim rechnungenMitGesamtmautanhantCSV As String = (New SQL).getValueTxtBySqlVarList("SELECT COUNT(*) FROM Rechnungsausgang
|
||||
inner join RechnungsausgangAnhaenge on Rechnungsausgang.RK_ID = RechnungsausgangAnhaenge.RK_ID
|
||||
WHERE [Status] = 0 AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter]) = '" & Sachbearbeiter & "' AND ([SteuerpflichtigerGesamtbetrag] <> 0 OR [SteuerfreierGesamtbetrag] <> 0) AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "'
|
||||
and (RechnungsausgangAnhaenge.Bezeichnung like '%Maut.csv')
|
||||
group by [Firma_ID], RechnungsNr,Buchungsjahr,DruckDatumZeit,[Status], RechnungsausgangAnhaenge.Bezeichnung ", "FMZOLL",, 0)
|
||||
WHERE ([Status] = 0 or [Status] = 2 or [Status] = 4) AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter]) = '" & Sachbearbeiter & "' AND ([SteuerpflichtigerGesamtbetrag] <> 0 OR [SteuerfreierGesamtbetrag] <> 0) AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "'
|
||||
and (RechnungsausgangAnhaenge.Bezeichnung like '%Maut.csv')", "FMZOLL",, 0)
|
||||
|
||||
|
||||
Dim rechnungenMitGesamtmautanhantPDF As String = (New SQL).getValueTxtBySqlVarList("SELECT COUNT(*) FROM Rechnungsausgang
|
||||
inner join RechnungsausgangAnhaenge on Rechnungsausgang.RK_ID = RechnungsausgangAnhaenge.RK_ID
|
||||
WHERE [Status] = 0 AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter]) = '" & Sachbearbeiter & "' AND ([SteuerpflichtigerGesamtbetrag] <> 0 OR [SteuerfreierGesamtbetrag] <> 0) AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "'
|
||||
and (RechnungsausgangAnhaenge.Bezeichnung like '%Maut.pdf')
|
||||
group by [Firma_ID], RechnungsNr,Buchungsjahr,DruckDatumZeit,[Status], RechnungsausgangAnhaenge.Bezeichnung ", "FMZOLL",, 0)
|
||||
WHERE ([Status] = 0 or [Status] = 2 or [Status] = 4) AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter]) = '" & Sachbearbeiter & "' AND ([SteuerpflichtigerGesamtbetrag] <> 0 OR [SteuerfreierGesamtbetrag] <> 0) AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "'
|
||||
and (RechnungsausgangAnhaenge.Bezeichnung like '%Maut.pdf')", "FMZOLL",, 0)
|
||||
|
||||
MsgBox("Anzahl CSV-Anhänge: " & rechnungenMitGesamtmautanhantCSV & vbNewLine & "Anzahl PDF-Anhänge: " & rechnungenMitGesamtmautanhantPDF)
|
||||
|
||||
@@ -1538,7 +1540,7 @@ Public Class usrcntlFakturierung
|
||||
sammelrechnung0vorhanden = checkIfStatus0Sammelrechnugnenvorhanden(cboSachbearbeiter._value, CDate(dtRechnungsdatum.Text))
|
||||
|
||||
Button14.Enabled = sammelrechnung0vorhanden
|
||||
Button19.Enabled = sammelrechnung0vorhanden
|
||||
'Button19.Enabled = sammelrechnung0vorhanden wenn RE bereits Status 2 wird sie nur gedruckt!!!!
|
||||
Button20.Enabled = sammelrechnung0vorhanden
|
||||
|
||||
|
||||
@@ -1547,6 +1549,10 @@ Public Class usrcntlFakturierung
|
||||
|
||||
Private Function checkIfStatus0Sammelrechnugnenvorhanden(Sachbearbeiter As String, rechnungsdatum As Date) As Boolean
|
||||
|
||||
If Sachbearbeiter = "" Then Return False
|
||||
|
||||
If rechnungsdatum > Today() Then Return False
|
||||
|
||||
|
||||
Dim rechnungenMitStatus0 As Integer = CInt((New SQL).getValueTxtBySqlVarList("SELECT COUNT(*) From Rechnungsausgang
|
||||
Where [Status] = 0 And [Sammelrechnung] = 6 And UPPER([Sachbearbeiter]) = '" & Sachbearbeiter & "' AND ([SteuerpflichtigerGesamtbetrag] <> 0 OR [SteuerfreierGesamtbetrag] <> 0) AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "'", "FMZOLL",, 0))
|
||||
@@ -1559,7 +1565,7 @@ Public Class usrcntlFakturierung
|
||||
Dim sammelrechnung0vorhanden As Boolean = True
|
||||
sammelrechnung0vorhanden = checkIfStatus0Sammelrechnugnenvorhanden(cboSachbearbeiter._value, CDate(dtRechnungsdatum.Text))
|
||||
|
||||
Button19.Enabled = sammelrechnung0vorhanden
|
||||
'Button19.Enabled = sammelrechnung0vorhanden wenn RE bereits Status 2 wird sie nur gedruckt!!!!
|
||||
Button14.Enabled = sammelrechnung0vorhanden
|
||||
Button20.Enabled = sammelrechnung0vorhanden
|
||||
|
||||
|
||||
Reference in New Issue
Block a user