121 lines
5.8 KiB
VB.net
121 lines
5.8 KiB
VB.net
Imports GrapeCity.ActiveReports
|
|
Imports GrapeCity.ActiveReports.Document
|
|
|
|
Public Class rptPOS_ZNB
|
|
|
|
Dim RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang = Nothing
|
|
Dim Betrag As Double
|
|
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
|
Sub New(RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, Betrag As Double)
|
|
|
|
' Dieser Aufruf ist für den Designer erforderlich.
|
|
InitializeComponent()
|
|
Me.RECHNUNG = RECHNUNG
|
|
Me.Betrag = Betrag
|
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
|
End Sub
|
|
|
|
|
|
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
|
|
If Me.DataSource IsNot Nothing AndAlso Me.Fields IsNot Nothing Then
|
|
txtREnr.Text = ""
|
|
txtReDat.Text = ""
|
|
txtReBetrag.Text = ""
|
|
|
|
txtZE.Text = ""
|
|
txtTage.Text = ""
|
|
txtZinsen.Text = ""
|
|
txtVZ.Text = ""
|
|
txtFaellig.Text = ""
|
|
txt_Anmerkung.Text = ""
|
|
|
|
If Me.Fields.Item("clmnReNr") IsNot Nothing AndAlso Me.Fields.Item("clmnReNr").Value IsNot Nothing Then txtREnr.Text &= Me.Fields.Item("clmnReNr").Value.ToString
|
|
If Me.Fields.Item("clmnReDatum") IsNot Nothing AndAlso Me.Fields.Item("clmnReDatum").Value IsNot Nothing AndAlso IsDate(Me.Fields.Item("clmnReDatum").Value) Then txtReDat.Text &= CDate(Me.Fields.Item("clmnReDatum").Value).ToShortDateString
|
|
If Me.Fields.Item("clmnReBetrag") IsNot Nothing AndAlso Me.Fields.Item("clmnReBetrag").Value IsNot Nothing AndAlso IsNumeric(Me.Fields.Item("clmnReBetrag").Value) AndAlso CDbl(Me.Fields.Item("clmnReBetrag").Value) <> 0 Then txtReBetrag.Text &= Math.Abs(CDbl(Me.Fields.Item("clmnReBetrag").Value)).ToString("N2")
|
|
If Me.Fields.Item("clmnFaellig") IsNot Nothing AndAlso Me.Fields.Item("clmnFaellig").Value IsNot Nothing AndAlso IsDate(Me.Fields.Item("clmnFaellig").Value) Then txtFaellig.Text &= CDate(Me.Fields.Item("clmnFaellig").Value).ToShortDateString
|
|
If Me.Fields.Item("clmnZE") IsNot Nothing AndAlso Me.Fields.Item("clmnZE").Value IsNot Nothing Then
|
|
If IsDate(Me.Fields.Item("clmnZE").Value) Then
|
|
txtZE.Text &= CDate(Me.Fields.Item("clmnZE").Value).ToShortDateString
|
|
txt_Anmerkung.Visible = False
|
|
txtZE.Visible = True
|
|
txtFaellig.Visible = True
|
|
txtTage.Visible = True
|
|
txtReBetrag.Visible = True
|
|
Else
|
|
txt_Anmerkung.Text &= Me.Fields.Item("clmnZE").Value
|
|
txt_Anmerkung.Visible = True
|
|
txtZE.Visible = False
|
|
txtFaellig.Visible = False
|
|
txtTage.Visible = False
|
|
txtReBetrag.Visible = False
|
|
End If
|
|
End If
|
|
If Me.Fields.Item("clmnTage") IsNot Nothing AndAlso Me.Fields.Item("clmnTage").Value IsNot Nothing Then txtTage.Text &= Me.Fields.Item("clmnTage").Value.ToString
|
|
If Me.Fields.Item("clmnZinsen") IsNot Nothing AndAlso Me.Fields.Item("clmnZinsen").Value IsNot Nothing AndAlso IsNumeric(Me.Fields.Item("clmnZinsen").Value) AndAlso CDbl(Me.Fields.Item("clmnZinsen").Value) <> 0 Then txtZinsen.Text &= CDbl(Me.Fields.Item("clmnZinsen").Value).ToString("N2")
|
|
If Me.Fields.Item("clmnVZ") IsNot Nothing AndAlso Me.Fields.Item("clmnVZ").Value IsNot Nothing AndAlso IsNumeric(Me.Fields.Item("clmnVZ").Value) Then txtVZ.Text &= Me.Fields.Item("clmnVZ").Value.ToString() & "%"
|
|
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
|
|
|
|
|
|
Dim dt As New DataTable
|
|
dt.Columns.Add("clmnID")
|
|
dt.Columns.Add("clmnReNr")
|
|
dt.Columns.Add("clmnReDatum")
|
|
dt.Columns.Add("clmnAbfNr")
|
|
dt.Columns.Add("clmnReBetrag")
|
|
dt.Columns.Add("clmnZE")
|
|
dt.Columns.Add("clmnTage")
|
|
dt.Columns.Add("clmnZinsen")
|
|
dt.Columns.Add("clmnVZ")
|
|
dt.Columns.Add("clmnFaellig")
|
|
|
|
|
|
If Betrag < 0 Then
|
|
|
|
Dim Rabatt As String = "Rabatt"
|
|
|
|
Select Case RECHNUNG.RechnungSprache
|
|
Case "EN" : Rabatt = "Discount"
|
|
Case "RO" : Rabatt = "Reducere"
|
|
Case "TR" : Rabatt = "İndirim"
|
|
Case Else
|
|
Rabatt = "Rabatt"
|
|
|
|
End Select
|
|
|
|
|
|
dt.Rows.Add("0", Rabatt, RECHNUNG.Abfertigungsdatum.ToShortDateString, "", "", "", "", Betrag.ToString, "", "")
|
|
'dt.Rows.Add(rg.Item("clmnID"), rg.Item("clmnReNr"), rg.Item("clmnReDatum"), rg.Item("clmnAbfNr"), rg.Item("clmnReBetrag"), rg.Item("clmnZE"), rg.Item("clmnTage"), rg.Item("clmnZinsen"), rg.Item("clmnVZ"), rg.Item("clmnFaellig"))
|
|
|
|
Else
|
|
|
|
|
|
If RECHNUNG.BelegartenKz <> "AG" Then
|
|
|
|
' Dim dtTemp As DataTable
|
|
' dtTemp = SQL.loadDgvBySql_Param("select [id] as clmnID,[belegNr] as clmnReNr,[buchungstext] as clmnAbfNr,[zinssatz] clmnVZ,[belegZahlungsziel],[ueberschreitungInTagen] clmnTage,[zinsbetrag] clmnZinsen,[belegDatum] as clmnReDatum,[zahlungsBetrag] as clmnReBetrag,[zahlungDatum] as clmnZE, [faelligkeitsDatum] as clmnFaellig from tblMDM_Zinsberechnung where RK_ID =" & RECHNUNG.RK_ID, "FMZOLL")
|
|
|
|
For Each rg As DataRow In Me.DataSource.Rows
|
|
dt.Rows.Add(rg.Item("id"), rg.Item("belegNr"), rg.Item("belegDatum"), rg.Item("buchungstext"), rg.Item("zahlungsBetrag"), rg.Item("zahlungDatum"), rg.Item("ueberschreitungInTagen"), rg.Item("zinsbetrag"), rg.Item("zinssatz"), rg.Item("faelligkeitsDatum"))
|
|
Next
|
|
Else
|
|
dt.Rows.Add("0", "", RECHNUNG.Abfertigungsdatum.ToShortDateString, "", "", "", "", Betrag.ToString, "", "")
|
|
|
|
End If
|
|
|
|
End If
|
|
|
|
|
|
|
|
Me.DataSource = dt
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
End Class
|