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

Verträge Suche, modal API, Fremd BRG not found

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-11-26 09:01:41 +01:00
parent d158dc95f1
commit c15c3d0b89
8 changed files with 1616 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

56
SDL/Fakturierung/cFakturierung.vb
View File

@@ -917,17 +917,17 @@ Public Class cFakturierung
If hasVK(Rechnung) Then
rpt.txtBank1.Text = "Volksbank Oberösterreich AG" & vbNewLine & "IBAN:AT35 4480 0365 7822 0002" & vbNewLine & "BIC: VBOEATWWOOE"
rpt.txtBank2.Text = ""
Else
If hasEUSTZOLL(Rechnung) Then
rpt.txtBank1.Text = "Volksbank Oberösterreich AG" & vbNewLine & "IBAN:AT62 4480 0365 7822 0001" & vbNewLine & "BIC: VBOEATWWOOE"
rpt.txtBank2.Text = ""
Else
rpt.txtBank1.Text = "Volksbank Oberösterreich AG" & vbNewLine & "IBAN:AT89 4480 0365 7822 0000" & vbNewLine & "BIC: VBOEATWWOOE"
rpt.txtBank2.Text = ""
End If
End If
rpt.txtBank1.Text = "Volksbank Oberösterreich AG" & vbNewLine & "IBAN:AT35 4480 0365 7822 0002" & vbNewLine & "BIC: VBOEATWWOOE"
rpt.txtBank2.Text = ""
Else
If hasEUSTZOLL(Rechnung) Then
rpt.txtBank1.Text = "Volksbank Oberösterreich AG" & vbNewLine & "IBAN:AT62 4480 0365 7822 0001" & vbNewLine & "BIC: VBOEATWWOOE"
rpt.txtBank2.Text = ""
Else
rpt.txtBank1.Text = "Volksbank Oberösterreich AG" & vbNewLine & "IBAN:AT89 4480 0365 7822 0000" & vbNewLine & "BIC: VBOEATWWOOE"
rpt.txtBank2.Text = ""
End If
End If
Select Case FIRMA.Firma_ID
@@ -2348,8 +2348,8 @@ Public Class cFakturierung
rpt.lblLeistungUeberschrift.Text = "RENR"
rpt.lblAnzahlUeberschrift.Text = "VZ Tage"
rpt.lblSteuerpflichtigUeberschrift.Text = "Zahlungsbetrag"
rpt.lblSteuerfreiUeberschrift.Text = "Verzugszinsen"
'rpt.lbl_onlyZR_ZinsenUeberschrift.Text = "Zinsen p.a."
rpt.lblSteuerfreiUeberschrift.Text = "Verzugszinsen"
'rpt.lbl_onlyZR_ZinsenUeberschrift.Text = "Zinsen p.a."
End Select
@@ -2491,15 +2491,15 @@ Public Class cFakturierung
Dim subRpt = New rptRechnungMDM_AnlagenDruck_Zinsennachberechnung(rpt._LAN, RECHNUNG, rpt.txtLeistung.Text.Replace("*", ""), CInt(rpt.lblAnzahl.Text), steuerfrei + steuerpfl)
rpt.SubReport.Report = subRpt
rpt.lblSteuerfrei.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold)
rpt.lblSteuerpflichtig.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold)
rpt.SubReport.Report = subRpt
rpt.lblSteuerfrei.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
rpt.SubReport.Report = Nothing
'txtPackstuecke.Top += SubReport.Height
'txtKdAuftragsnummer.Top += SubReport.Height
'txtSendungsdetails.Top += SubReport.Height
Else
rpt.SubReport.Report = Nothing
End If
Dim isReverseCharge As Boolean = SQL.getValueTxtBySql("SELECT ReverseCharge as Bit from Leistungen where LeistungsNr= " & rpt.lblLeistungNr.Text, "FMZOLL")
@@ -2681,10 +2681,10 @@ Public Class cFakturierung
'rpt.lblSteuerbetrag.Visible = False
rpt.lblSteuerpflichtigGes.Visible = False
rpt.lblSteuerfreiGes.Visible = False
rpt.lblZwText.Visible = False
rpt.lblZWSumme.Visible = False
End If
rpt.lblSteuerfreiGes.Visible = False
rpt.lblZwText.Visible = False
rpt.lblZWSumme.Visible = False
End If
End Sub
@@ -3590,14 +3590,14 @@ Public Class cFakturierung
Dim PATH_Org = path
Dim pdfReader As itextsharp.text.pdf.PdfReader = New itextsharp.text.pdf.PdfReader(PATH_Org)
Dim pdfReader As iTextSharp.text.pdf.PdfReader = New iTextSharp.text.pdf.PdfReader(PATH_Org)
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
For page As Integer = 1 To pdfReader.NumberOfPages
If page = 1 Then
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RG.RechnungsNr, 7, 23.5, 100, 20, "bold", 12, , itextsharp.text.Element.ALIGN_LEFT, page))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RG.RechnungsNr, 7, 23.5, 100, 20, "bold", 12, , iTextSharp.text.Element.ALIGN_LEFT, page))
Else
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RG.RechnungsNr, 7, 0.5, 100, 20, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT, page))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RG.RechnungsNr, 7, 0.5, 100, 20, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT, page))
End If
Next