neu
This commit is contained in:
@@ -578,14 +578,14 @@ Public Class cFakturierung
|
||||
rpt.txtBank2.Text = ""
|
||||
Else
|
||||
If hasVK(Rechnung) Then
|
||||
rpt.txtBank1.Text = "Volksbank Schärding" & vbNewLine & "IBAN:AT35 4480 0365 7822 0002" & vbNewLine & "BIC: VBWEAT2WXXX"
|
||||
rpt.txtBank1.Text = "Volksbank Schärding" & vbNewLine & "IBAN:AT35 4480 0365 7822 0002" & vbNewLine & "BIC: VBOEATWWOOE"
|
||||
rpt.txtBank2.Text = ""
|
||||
Else
|
||||
If hasEUSTZOLL(Rechnung) Then
|
||||
rpt.txtBank1.Text = "Volksbank Schärding" & vbNewLine & "IBAN:AT62 4480 0365 7822 0001" & vbNewLine & "BIC: VBWEAT2WXXX"
|
||||
rpt.txtBank1.Text = "Volksbank Schärding" & vbNewLine & "IBAN:AT62 4480 0365 7822 0001" & vbNewLine & "BIC: VBOEATWWOOE"
|
||||
rpt.txtBank2.Text = ""
|
||||
Else
|
||||
rpt.txtBank1.Text = "Volksbank Schärding" & vbNewLine & "IBAN:AT89 4480 0365 7822 0000" & vbNewLine & "BIC: VBWEAT2WXXX"
|
||||
rpt.txtBank1.Text = "Volksbank Schärding" & vbNewLine & "IBAN:AT89 4480 0365 7822 0000" & vbNewLine & "BIC: VBOEATWWOOE"
|
||||
rpt.txtBank2.Text = ""
|
||||
End If
|
||||
End If
|
||||
@@ -639,14 +639,14 @@ Public Class cFakturierung
|
||||
rpt.txtBank2.Text = ""
|
||||
Else
|
||||
If hasVK(RechnungsNr, Buchungsjahr) Then
|
||||
rpt.txtBank1.Text = "Volksbank Schärding" & vbNewLine & "IBAN:AT35 4480 0365 7822 0002" & vbNewLine & "BIC: VBWEAT2WXXX"
|
||||
rpt.txtBank1.Text = "Volksbank Schärding" & vbNewLine & "IBAN:AT35 4480 0365 7822 0002" & vbNewLine & "BIC: VBOEATWWOOE"
|
||||
rpt.txtBank2.Text = ""
|
||||
Else
|
||||
If hasEUSTZOLL(RechnungsNr) Then
|
||||
rpt.txtBank1.Text = "Volksbank Schärding" & vbNewLine & "IBAN:AT62 4480 0365 7822 0001" & vbNewLine & "BIC: VBWEAT2WXXX"
|
||||
rpt.txtBank1.Text = "Volksbank Schärding" & vbNewLine & "IBAN:AT62 4480 0365 7822 0001" & vbNewLine & "BIC: VBOEATWWOOE"
|
||||
rpt.txtBank2.Text = ""
|
||||
Else
|
||||
rpt.txtBank1.Text = "Volksbank Schärding" & vbNewLine & "IBAN:AT89 4480 0365 7822 0000" & vbNewLine & "BIC: VBWEAT2WXXX"
|
||||
rpt.txtBank1.Text = "Volksbank Schärding" & vbNewLine & "IBAN:AT89 4480 0365 7822 0000" & vbNewLine & "BIC: VBOEATWWOOE"
|
||||
rpt.txtBank2.Text = ""
|
||||
End If
|
||||
End If
|
||||
@@ -691,14 +691,14 @@ Public Class cFakturierung
|
||||
rpt.txtBank2.Text = ""
|
||||
Else
|
||||
If hasVK(RechnungsNr, Buchungsjahr) Then
|
||||
rpt.txtBank1.Text = "Volksbank Schärding" & vbNewLine & "IBAN:AT35 4480 0365 7822 0002" & vbNewLine & "BIC: VBWEAT2WXXX"
|
||||
rpt.txtBank1.Text = "Volksbank Schärding" & vbNewLine & "IBAN:AT35 4480 0365 7822 0002" & vbNewLine & "BIC: VBOEATWWOOE"
|
||||
rpt.txtBank2.Text = ""
|
||||
Else
|
||||
If hasEUSTZOLL(RechnungsNr) Then
|
||||
rpt.txtBank1.Text = "Volksbank Schärding" & vbNewLine & "IBAN:AT62 4480 0365 7822 0001" & vbNewLine & "BIC: VBWEAT2WXXX"
|
||||
rpt.txtBank1.Text = "Volksbank Schärding" & vbNewLine & "IBAN:AT62 4480 0365 7822 0001" & vbNewLine & "BIC: VBOEATWWOOE"
|
||||
rpt.txtBank2.Text = ""
|
||||
Else
|
||||
rpt.txtBank1.Text = "Volksbank Schärding" & vbNewLine & "IBAN:AT89 4480 0365 7822 0000" & vbNewLine & "BIC: VBWEAT2WXXX"
|
||||
rpt.txtBank1.Text = "Volksbank Schärding" & vbNewLine & "IBAN:AT89 4480 0365 7822 0000" & vbNewLine & "BIC: VBOEATWWOOE"
|
||||
rpt.txtBank2.Text = ""
|
||||
End If
|
||||
End If
|
||||
@@ -742,7 +742,7 @@ Public Class cFakturierung
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Try
|
||||
' MsgBox(RECHNUNG.Firma_ID)
|
||||
Dim rpt As New rptRechnungDruck
|
||||
Dim rpt As New rptRechnungDruck(RECHNUNG.RechnungSprache)
|
||||
|
||||
Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(RECHNUNG.Firma_ID)
|
||||
Dim KD_RG As New VERAG_PROG_ALLGEMEIN.cAdressen(RECHNUNG.RechnungsKundenNr)
|
||||
@@ -1130,7 +1130,9 @@ Public Class cFakturierung
|
||||
Dim ret = cProgramFunctions.printRpt(rpt, PrinterName, False)
|
||||
|
||||
If printStbVdb Then
|
||||
printSpedBuchAnhaenge(RECHNUNG)
|
||||
If (RECHNUNG.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Zollbeleg drucken?", vbYesNoCancel)) Then
|
||||
printSpedBuchAnhaenge(RECHNUNG, True, True)
|
||||
End If
|
||||
End If
|
||||
|
||||
Return ret
|
||||
@@ -1220,10 +1222,10 @@ Public Class cFakturierung
|
||||
If SPEDBCUH.DokumentId_Steuerbeleg IsNot Nothing Then
|
||||
VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBCUH.DokumentId_Steuerbeleg)})
|
||||
End If
|
||||
If printVbD Then
|
||||
If SPEDBCUH.DokumentId_VBD IsNot Nothing Then
|
||||
VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBCUH.DokumentId_VBD)})
|
||||
End If
|
||||
End If
|
||||
If printVbD Then
|
||||
If SPEDBCUH.DokumentId_VBD IsNot Nothing Then
|
||||
VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBCUH.DokumentId_VBD)})
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
@@ -1233,6 +1235,24 @@ Public Class cFakturierung
|
||||
|
||||
End Sub
|
||||
|
||||
Shared Function getSpedBuchAnhaenge_Path(FilialenNr As Integer, AbfertigungsNr As Integer, SpeditionsbuchUnterNr As Integer) As String
|
||||
Try
|
||||
Dim SPEDBCUH = New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(FilialenNr, AbfertigungsNr, SpeditionsbuchUnterNr)
|
||||
If SPEDBCUH.hasEntry Then
|
||||
If SPEDBCUH.DokumentId_Steuerbeleg IsNot Nothing Then
|
||||
Return VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBCUH.DokumentId_Steuerbeleg)
|
||||
End If
|
||||
If SPEDBCUH.DokumentId_VBD IsNot Nothing Then
|
||||
Return VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBCUH.DokumentId_VBD)
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Shared Function getFirmaNr(Optional firma = -1) As String
|
||||
If firma < 0 Then 'Falls keine Firma
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
@@ -1251,43 +1271,52 @@ Public Class cFakturierung
|
||||
Return getSignature(RECHNUNG.RechnungsLandKz, RECHNUNG.Firma_ID)
|
||||
End Function
|
||||
|
||||
Shared Function getSignature(Optional landKz = "", Optional firma = -1, Optional individuell = False, Optional displayFirmenmane = False) As String
|
||||
Shared Function getSignature(Optional landKz = "", Optional firma = -1, Optional individuell = False, Optional displayFirmenmane = False, Optional special = "") As String
|
||||
getSignature = ""
|
||||
|
||||
firma = getFirmaNr(firma)
|
||||
|
||||
Dim imgsrc = System.IO.Path.GetFullPath(Application.StartupPath & "\Resources\").Replace("\", "/")
|
||||
|
||||
Dim emailindividuell = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email
|
||||
|
||||
Select Case firma
|
||||
Case 1 'VERAG
|
||||
Select Case special
|
||||
Case "BREXIT_VERAG"
|
||||
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "VERAG_AEO_MailSig.jpg""/>"
|
||||
If displayFirmenmane Then getSignature &= "<br>VERAG Spedition AG<br>"
|
||||
getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Nr. 100 <br><b>T</b> +43 7711 2777-0 | <b>F</b> +43 7711 31 073 | <b>@</b> " & If(individuell, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email, "rechnungsversand@verag.ag") & " | www.verag.ag | FN 216714y</div>"
|
||||
Case 7 'ATILLA
|
||||
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "Atilla.jpg""/>"
|
||||
If displayFirmenmane Then getSignature &= "<br>ATILLA Spedition GmbH<br>"
|
||||
getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Nr. 15 <br><b>T</b> +43 7711 2845-0 | <b>@</b> " & If(individuell, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email, "rechnungsversand@verag.ag") & " | www.verag.ag | FN 288916b</div>"
|
||||
Case 11 'VERAG CS
|
||||
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "Verag-Customs-Service-GMBH-Logo_sig.png""/>"
|
||||
If displayFirmenmane Then getSignature &= "<br>VERAG Customs Service<br>"
|
||||
getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Nr. 14 <br><b>T</b> +43 7711 2777-0 | <b>F</b> +43 7711 31 073 | <b>@</b> " & If(individuell, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email, "versand@verag.com") & " | www.verag.ag | FN 406316z</div>"
|
||||
Case 20 'Imex
|
||||
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "IMEX-LOGO-AEO_sig.jpg""/>"
|
||||
If displayFirmenmane Then getSignature &= "<br>Imex Customs Service GmbH<br>"
|
||||
getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Autobahngrenze 15 <br><b>T</b> +43 7711 31630 | <b>F</b> +43 7711 31630-1 | <b>@</b> " & If(individuell, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email, "info@imex-group.at") & " | www.imex-group.at | FN 410356s</div>"
|
||||
Case 21 'UNISPED
|
||||
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "Unisped_logo.jpg""/>"
|
||||
If displayFirmenmane Then getSignature &= "<br>Unisped Speditions GmbH<br>"
|
||||
getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Nr. 15 <br><b>T</b> +43 7711 2677-0 | <b>F</b> +43 7711 2677-27 | <b>@</b> " & If(individuell, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email, "office@unisped.at") & " | www.unisped.at | FN 375838d</div>"
|
||||
Case 99 'GmbH
|
||||
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "Verag-Spedition-GMBH-Logo1.png""/>"
|
||||
If displayFirmenmane Then getSignature &= "<br>VERAG Spedition GmbH<br>"
|
||||
getSignature &= "<div style=""font-size:12px"">D 94152 Neuhaus/Inn, Hartham 6 <br><b>T</b> +43 7711 2777-0 | <b>F</b> +43 7711 31 073 | <b>@</b> " & If(individuell, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email, "rechnungsversand@verag.ag") & " | www.verag.ag </div>"
|
||||
Case 17 'Front-Office
|
||||
getSignature &= "<img width=""170"" height=""50"" src=""" & imgsrc & "Logo_blue_globe_Horizontal.jpg""/>"
|
||||
If displayFirmenmane Then getSignature &= "<br>Front Office Suben eG<br>"
|
||||
getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Nr. 14<br><b>T</b> +43 7711 31636 -0 | <b>@</b> " & If(individuell, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email, "suben@front-office.eu") & " | www.front-office.eu </div>"
|
||||
getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Nr. 100 <br><b>T</b> +43 7711 2777-885 | <b>F</b> +43 7711 31 073 | <b>@</b> " & If(individuell, emailindividuell, "brexit@verag.ag") & " | www.verag.ag | FN 216714y</div>"
|
||||
|
||||
Case Else
|
||||
Select Case firma
|
||||
Case 1 'VERAG
|
||||
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "VERAG_AEO_MailSig.jpg""/>"
|
||||
If displayFirmenmane Then getSignature &= "<br>VERAG Spedition AG<br>"
|
||||
getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Nr. 100 <br><b>T</b> +43 7711 2777-0 | <b>F</b> +43 7711 31 073 | <b>@</b> " & If(individuell, emailindividuell, "rechnungsversand@verag.ag") & " | www.verag.ag | FN 216714y</div>"
|
||||
Case 7 'ATILLA
|
||||
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "Atilla.jpg""/>"
|
||||
If displayFirmenmane Then getSignature &= "<br>ATILLA Spedition GmbH<br>"
|
||||
getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Nr. 15 <br><b>T</b> +43 7711 2845-0 | <b>@</b> " & If(individuell, emailindividuell, "rechnungsversand@verag.ag") & " | www.verag.ag | FN 288916b</div>"
|
||||
Case 11 'VERAG CS
|
||||
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "Verag-Customs-Service-GMBH-Logo_sig.png""/>"
|
||||
If displayFirmenmane Then getSignature &= "<br>VERAG Customs Service<br>"
|
||||
getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Nr. 14 <br><b>T</b> +43 7711 2777-0 | <b>F</b> +43 7711 31 073 | <b>@</b> " & If(individuell, emailindividuell, "versand@verag.com") & " | www.verag.ag | FN 406316z</div>"
|
||||
Case 20 'Imex
|
||||
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "IMEX-LOGO-AEO_sig.jpg""/>"
|
||||
If displayFirmenmane Then getSignature &= "<br>Imex Customs Service GmbH<br>"
|
||||
getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Autobahngrenze 15 <br><b>T</b> +43 7711 31630 | <b>F</b> +43 7711 31630-1 | <b>@</b> " & If(individuell, emailindividuell, "info@imex-group.at") & " | www.imex-group.at | FN 410356s</div>"
|
||||
Case 21 'UNISPED
|
||||
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "Unisped_logo.jpg""/>"
|
||||
If displayFirmenmane Then getSignature &= "<br>Unisped Speditions GmbH<br>"
|
||||
getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Nr. 15 <br><b>T</b> +43 7711 2677-0 | <b>F</b> +43 7711 2677-27 | <b>@</b> " & If(individuell, emailindividuell, "office@unisped.at") & " | www.unisped.at | FN 375838d</div>"
|
||||
Case 99 'GmbH
|
||||
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "Verag-Spedition-GMBH-Logo1.png""/>"
|
||||
If displayFirmenmane Then getSignature &= "<br>VERAG Spedition GmbH<br>"
|
||||
getSignature &= "<div style=""font-size:12px"">D 94152 Neuhaus/Inn, Hartham 6 <br><b>T</b> +43 7711 2777-0 | <b>F</b> +43 7711 31 073 | <b>@</b> " & If(individuell, emailindividuell, "rechnungsversand@verag.ag") & " | www.verag.ag </div>"
|
||||
Case 17 'Front-Office
|
||||
getSignature &= "<img width=""170"" height=""50"" src=""" & imgsrc & "Logo_blue_globe_Horizontal.jpg""/>"
|
||||
If displayFirmenmane Then getSignature &= "<br>Front Office Suben eG<br>"
|
||||
getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Nr. 14<br><b>T</b> +43 7711 31636 -0 | <b>@</b> " & If(individuell, emailindividuell, "suben@front-office.eu") & " | www.front-office.eu </div>"
|
||||
End Select
|
||||
End Select
|
||||
getSignature &= "<br>"
|
||||
|
||||
@@ -1617,6 +1646,17 @@ Public Class cFakturierung
|
||||
End If
|
||||
End If
|
||||
|
||||
'ZOLLBELEGE:
|
||||
If RechnungsdruckArt = 0 Or RechnungsdruckArt = 1 Then 'DRUCK
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("FAKTURIERUNG_PRINT_Zollbeleg") Then 'Sammelrechnungsbericht EVOLOG
|
||||
Try
|
||||
Dim pathZollbeleg = getSpedBuchAnhaenge_Path(dt.Rows(0)("FilialenNr"), dt.Rows(0)("AbfertigungsNr"), dt.Rows(0)("SpeditionsbuchUnterNr"))
|
||||
If pathZollbeleg <> "" Then SonstAnlagen.Add(pathZollbeleg)
|
||||
Catch ex As Exception
|
||||
MsgBox("ERR ZOLLBELEG-ANHNAG: " & ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
End If
|
||||
End If
|
||||
|
||||
'-------------- für PDF-Sammel-Rechnung --------------
|
||||
Dim list As New List(Of String) ' Sammlung PDFs
|
||||
@@ -1795,7 +1835,6 @@ Public Class cFakturierung
|
||||
Shared Function doSAMMELRechnungDruck_Rechnungsdruck_Sammelrechnungsbericht(RechnungsNr As Integer, DruckdatumUhrzeit As Date, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "", Optional PrinterName As String = "", Optional VorschauID As String = "") As Boolean 'RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "") As Boolean
|
||||
Try
|
||||
|
||||
Dim rpt As New rptSammelRechnungAnlagenDruck
|
||||
|
||||
Dim dt As DataTable
|
||||
If VorschauID = "" Then
|
||||
@@ -1803,9 +1842,11 @@ Public Class cFakturierung
|
||||
Else
|
||||
dt = SQL.loadDgvBySql("Select * FROM Rechnungsausgang WHERE RechnungsNr is null AND VorschauID='" & VorschauID & "' ORDER BY FilialenNr, AbfertigungsNr", "FMZOLL")
|
||||
End If
|
||||
Dim ROW As DataRow = dt.Rows(0)
|
||||
|
||||
Dim rpt As New rptSammelRechnungAnlagenDruck(ROW("RechnungSprache"))
|
||||
rpt.DataSource = dt
|
||||
|
||||
Dim ROW As DataRow = dt.Rows(0)
|
||||
Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(ROW("Firma_ID"))
|
||||
Dim KD_RG As New VERAG_PROG_ALLGEMEIN.cAdressen(ROW("RechnungsKundenNr"))
|
||||
|
||||
@@ -1996,8 +2037,8 @@ Public Class cFakturierung
|
||||
|
||||
If CDbl((sumSteuerpflichtig + sumSteuerfrei + (sumSteuerpflichtig * steuerProz))) < 0 Then
|
||||
|
||||
rpt.Label9.Text = "Gutschriftsbetrag:"
|
||||
rpt.Label16.Text = "Gutschrifts-Nr.:"
|
||||
rpt.lblSummeUeberschrift.Text = "Gutschriftsbetrag:"
|
||||
rpt.lblRgNrUeberschrift.Text = "Gutschrifts-Nr.:"
|
||||
End If
|
||||
|
||||
End Sub
|
||||
@@ -2112,9 +2153,10 @@ Public Class cFakturierung
|
||||
Shared Function doSAMMELRechnungDruck_Rechnungsdruck(dt As DataTable, RechnungsNr As Integer, DruckdatumUhrzeit As Date, Rgstatus As Integer, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "", Optional PrinterName As String = "", Optional SRDruckWiederholen As Boolean = False, Optional VorschauID As String = "") As Boolean 'RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "") As Boolean
|
||||
Try
|
||||
|
||||
Dim rpt As New rptSammelRechnungDruck
|
||||
|
||||
Dim ROW As DataRow = dt.Rows(0)
|
||||
Dim rpt As New rptSammelRechnungDruck(ROW("RechnungSprache"))
|
||||
|
||||
Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(ROW("Firma_ID"))
|
||||
Dim KD_RG As New VERAG_PROG_ALLGEMEIN.cAdressen(ROW("RechnungsKundenNr"))
|
||||
|
||||
@@ -2191,7 +2233,7 @@ Public Class cFakturierung
|
||||
'rpt.lblUID.Text = If(FIRMA.Firma_UID, "")
|
||||
'rpt.lblEORI.Text = If(FIRMA.Firma_EORI, "")
|
||||
rpt.lblLKWId.Text = getLKWID(RechnungsNr, DruckdatumUhrzeit, Rgstatus)
|
||||
rpt.Label24.Visible = (rpt.lblLKWId.Text <> "")
|
||||
rpt.lblLKWIdUebeschrift.Visible = (rpt.lblLKWId.Text <> "")
|
||||
|
||||
If If(ROW("RechnungsName 2") IsNot DBNull.Value, ROW("RechnungsName 2"), "") = "" Then
|
||||
rpt.lblRechnung_Name1.Text = ""
|
||||
@@ -2312,8 +2354,8 @@ Public Class cFakturierung
|
||||
|
||||
If CDbl((sumSteuerpflichtig + sumSteuerfrei + (sumSteuerpflichtig * steuerProz))) < 0 Then
|
||||
rpt.lblUeberschriftRG_GS.Text = "GUTSCHRIFT"
|
||||
rpt.Label9.Text = "Gutschriftsbetrag:"
|
||||
rpt.Label16.Text = "Gutschrifts-Nr.:"
|
||||
rpt.lblSummeUeberschrift.Text = "Gutschriftsbetrag:"
|
||||
rpt.lblRgNrUeberschrift.Text = "Gutschrifts-Nr.:"
|
||||
End If
|
||||
|
||||
|
||||
@@ -2434,7 +2476,7 @@ Public Class cFakturierung
|
||||
tblFirma.Firma_IBAN1, tblFirma.Firma_BIC1, tblFirma.Firma_Bankverbindung2, tblFirma.Firma_BLZ2, tblFirma.Firma_KTO2, tblFirma.Firma_IBAN2,
|
||||
tblFirma.Firma_BIC2, tblFirma.Firma_Ort, tblFirma.Firma_Straße, tblFirma.Firma_Telefon, tblFirma.Firma_Telefax, tblFirma.[Firma_E-Mail],
|
||||
tblFirma.Firma_Webadresse, MIN(Rechnungsausgang.KdAuftragsNr) as KdAuftragsNr,
|
||||
MIN(Rechnungsausgang.RechnungsLandKz) AS RechnungsLandKz
|
||||
MIN(Rechnungsausgang.RechnungsLandKz) AS RechnungsLandKz, MIN(Rechnungsausgang.RechnungSprache) AS RechnungSprache
|
||||
FROM ((Adressen INNER JOIN ((Rechnungsausgang INNER JOIN Filialen ON Rechnungsausgang.FilialenNr = Filialen.FilialenNr) INNER JOIN Steuertabelle ON Rechnungsausgang.Steuerschlüssel = Steuertabelle.Steuerschlüssel) ON Adressen.AdressenNr = Rechnungsausgang.RechnungsKundenNr) INNER JOIN tblFirma ON Rechnungsausgang.Firma_ID = tblFirma.Firma_ID) INNER JOIN RechnungsausgangPositionen ON Rechnungsausgang.RK_ID = RechnungsausgangPositionen.RK_ID
|
||||
|
||||
where 1=1 "
|
||||
|
||||
Reference in New Issue
Block a user