antrag, Email, MWST-Liste
This commit is contained in:
@@ -1,6 +1,8 @@
|
||||
|
||||
Imports System.IO
|
||||
Imports System.Web.UI.WebControls.Expressions
|
||||
Imports DAKOSY_Worker.DETPDD
|
||||
Imports GrapeCity.DataVisualization.Chart
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
Public Class usrCntlFaktAbrechnung
|
||||
@@ -1237,8 +1239,8 @@ Public Class usrCntlFaktAbrechnung
|
||||
" WHERE KundenNr='" & kdNr & "' and OffertenNr='" & OffertenNr & "' ORDER BY LeistungsNr ", "FMZOLL")
|
||||
|
||||
|
||||
'If .ColumnCount = 0 Then Exit Sub
|
||||
.Columns("LeistungsNr").Width = 30
|
||||
'If .ColumnCount = 0 Then Exit Sub
|
||||
.Columns("LeistungsNr").Width = 30
|
||||
.Columns("LeistungsNr").HeaderText = "Nr"
|
||||
.Columns("LeistungsBez").MinimumWidth = 180
|
||||
.Columns("LeistungsBez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
@@ -1788,11 +1790,72 @@ Public Class usrCntlFaktAbrechnung
|
||||
'Anhänge aus USTVA -> SPED-BUCH + Excel Pos-Liste
|
||||
If SPEDBUCH 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) 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 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 order by UStVPo_ID", "FMZOLL")
|
||||
Dim USTV As New cUSTVAntrag(SPEDBUCH.ErfassungsNr)
|
||||
|
||||
'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 prt As String = func.generatePosList(USTV, "", "", "", False, "prt", dtPOSList, isVZ)
|
||||
If prt <> "" Then
|
||||
|
||||
Try
|
||||
|
||||
Dim rpt As New rptMWSTListe
|
||||
|
||||
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
|
||||
|
||||
|
||||
|
||||
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 = "EUR"
|
||||
|
||||
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)
|
||||
DS.uploadDataToDATENSERVER(tmpPath,,, False,,, True)
|
||||
.Rows.Add(-1, "POS-LIST", DS.da_name, DS.da_id, -1)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
|
||||
End If
|
||||
|
||||
If dt IsNot Nothing Then
|
||||
For Each r In dt.Rows
|
||||
|
||||
@@ -1821,18 +1884,9 @@ Public Class usrCntlFaktAbrechnung
|
||||
|
||||
Next
|
||||
End If
|
||||
'soll immer alle POS bekommen! laut Lidya! 28.04.2025 - aber nicht im Excel-Format sondern als PDF-Batinic 15.05.2025
|
||||
'Dim pfadExcel As String = func.generateExcelPosList(USTV, "", "", "", False)
|
||||
'If pfadExcel <> "" Then
|
||||
|
||||
' Dim FI As New FileInfo(pfadExcel)
|
||||
' Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "MDM", "POS_LISTE", "", "", SPEDBUCH.AbfertigungsNr & FI.Extension, USTV.UStVAn_KuNr, False)
|
||||
' DS.uploadDataToDATENSERVER(pfadExcel, FI.Name, FI.Extension,,,, True)
|
||||
' .Rows.Add(1, "POS-LIST", DS.da_name, DS.da_id, -1)
|
||||
'End If
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
@@ -2922,7 +2976,7 @@ Public Class usrCntlFaktAbrechnung
|
||||
If Kreditaufwendungen_Berechnungbetrag <> 0 Then
|
||||
' MsgBox("1: " & Kreditaufwendungen_Berechnungbetrag)
|
||||
If Kreditaufwendungen_Berechnungbetrag < 0 Then Kreditaufwendungen_Berechnungbetrag *= -1
|
||||
Kreditaufwendungen = Math.round(Kreditaufwendungen_Berechnungbetrag * KD.Kreditaufwendungen, 2) '(Int(Kreditaufwendungen_Berechnungbetrag * KD.Kreditaufwendungen) * 10 + 0.5) / 10
|
||||
Kreditaufwendungen = Math.Round(Kreditaufwendungen_Berechnungbetrag * KD.Kreditaufwendungen, 2) '(Int(Kreditaufwendungen_Berechnungbetrag * KD.Kreditaufwendungen) * 10 + 0.5) / 10
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
Reference in New Issue
Block a user