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