Projektdateien hinzufügen.
This commit is contained in:
120
UID/Reports/Auswertung/subrptEinzelauswertung.vb
Normal file
120
UID/Reports/Auswertung/subrptEinzelauswertung.vb
Normal file
@@ -0,0 +1,120 @@
|
||||
Imports GrapeCity.ActiveReports
|
||||
Imports GrapeCity.ActiveReports.Document
|
||||
|
||||
Public Class subrptEinzelauswertung
|
||||
Public Rechnungssumme As Double = 0
|
||||
Public Vorkostensumme As Double = 0
|
||||
Public MargeSumme As Double = 0
|
||||
Public AnzahlSumme As Double = 0
|
||||
Public AnzahlProz As Double = 0
|
||||
|
||||
Public Transporte As Double = 0
|
||||
Public Handlings As Double = 0
|
||||
|
||||
Public TransporteAusgaben As Double = 0
|
||||
Public HandlingsAusgaben As Double = 0
|
||||
Public TransporteEinnahmen As Double = 0
|
||||
Public HandlingsEinnahmen As Double = 0
|
||||
|
||||
Public c As Integer = 0 'Counter
|
||||
|
||||
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
|
||||
txtPosNr.Text = Fields.Item("atr_frachtpos").Value
|
||||
txtAuftraggeber.Text = Fields.Item("atr_auftr_firma").Value
|
||||
txtEinnahmen.Text = CDbl(Fields.Item("Rechnungen").Value).ToString("c2")
|
||||
txtAusgaben.Text = CDbl(Fields.Item("Vorkosten_Vorzeichen").Value).ToString("c2")
|
||||
txtGewinn.Text = (CDbl(Fields.Item("Rechnungen").Value) - CDbl(Fields.Item("Vorkosten_Vorzeichen").Value)).ToString("c2") 'CDbl(Fields.Item("Marge").Value).ToString("c2")
|
||||
Dim i As Double = CDbl((100 * txtGewinn.Text) / txtEinnahmen.Text).ToString("N2")
|
||||
txtMarge.Text = CDbl((100 * txtGewinn.Text) / txtEinnahmen.Text).ToString("N2") & "%"
|
||||
txtFraechter.Text = VERAG_PROG_ALLGEMEIN.SQL.checkNullStr(Fields.Item("Frächter").Value)
|
||||
txtLeistung.Text = Fields.Item("ShortAuftragsart").Value
|
||||
|
||||
If c Mod 2 = 0 Then
|
||||
txtPosNr.BackColor = Color.Transparent
|
||||
txtAuftraggeber.BackColor = Color.Transparent
|
||||
txtEinnahmen.BackColor = Color.Transparent
|
||||
txtAusgaben.BackColor = Color.Transparent
|
||||
txtGewinn.BackColor = Color.Transparent
|
||||
txtMarge.BackColor = Color.Transparent
|
||||
txtFraechter.BackColor = Color.Transparent
|
||||
txtLeistung.BackColor = Color.Transparent
|
||||
Else
|
||||
txtPosNr.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
txtAuftraggeber.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
txtEinnahmen.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
txtAusgaben.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
txtGewinn.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
txtMarge.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
txtFraechter.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
txtLeistung.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
End If
|
||||
c = c + 1
|
||||
|
||||
Rechnungssumme = Rechnungssumme + txtEinnahmen.Text
|
||||
Vorkostensumme = Vorkostensumme + txtAusgaben.Text
|
||||
MargeSumme = MargeSumme + txtGewinn.Text
|
||||
AnzahlSumme = c
|
||||
AnzahlProz = AnzahlProz + i
|
||||
|
||||
'If Fields.Item("ShortAuftragsart").Value = "TRANSP." Then
|
||||
' Transporte = Transporte + 1
|
||||
' TransporteEinnahmen = TransporteEinnahmen + CDbl(Fields.Item("Rechnungen").Value).ToString("c2")
|
||||
' TransporteAusgaben = TransporteAusgaben + CDbl(Fields.Item("Vorkosten").Value).ToString("c2")
|
||||
'ElseIf Fields.Item("ShortAuftragsart").Value = "HANDLING" Then
|
||||
' Handlings = Handlings + 1
|
||||
' HandlingsEinnahmen = HandlingsEinnahmen + CDbl(Fields.Item("Rechnungen").Value).ToString("c2")
|
||||
' HandlingsAusgaben = HandlingsAusgaben + CDbl(Fields.Item("Vorkosten").Value).ToString("c2")
|
||||
'End If
|
||||
If Fields.Item("ShortAuftragsart").Value = "TRANSP." Then
|
||||
Transporte = Transporte + 1
|
||||
TransporteEinnahmen = TransporteEinnahmen + CDbl(Fields.Item("Rechnungen").Value).ToString("c2")
|
||||
TransporteAusgaben = TransporteAusgaben + CDbl(Fields.Item("Vorkosten_Vorzeichen").Value).ToString("c2")
|
||||
ElseIf Fields.Item("ShortAuftragsart").Value = "HANDLING" Then
|
||||
Handlings = Handlings + 1
|
||||
HandlingsEinnahmen = HandlingsEinnahmen + CDbl(Fields.Item("Rechnungen").Value).ToString("c2")
|
||||
HandlingsAusgaben = HandlingsAusgaben + CDbl(Fields.Item("Vorkosten_Vorzeichen").Value).ToString("c2")
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub subrptEinzelauswertung_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
|
||||
DataSource = frmAuswertung.dt
|
||||
End Sub
|
||||
|
||||
Private Sub ReportFooter1_Format(sender As Object, e As EventArgs) Handles ReportFooter1.Format
|
||||
txtMargeSumme.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
txtRechnungenSumme.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
txtVorkostenSumme.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
txtAnzahlSumme.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
TxtSumme.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
|
||||
txtMargeSummeTransporte.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
txtRechnungenSummeTransporte.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
txtVorkostenSummeTransporte.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
txtAnzahlSummeTransporte.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
txtTransporte.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
txtMargeProzSchnittTransporte.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
|
||||
txtMargeSumme.Text = MargeSumme.ToString("c2")
|
||||
txtRechnungenSumme.Text = Rechnungssumme.ToString("c2")
|
||||
txtVorkostenSumme.Text = Vorkostensumme.ToString("c2")
|
||||
txtAnzahlSumme.Text = AnzahlSumme.ToString
|
||||
|
||||
txtMargeSchnitt.Text = (MargeSumme / c).ToString("c2")
|
||||
txtRechnungenSchnitt.Text = (Rechnungssumme / c).ToString("c2")
|
||||
txtVorkostenSchnitt.Text = (Vorkostensumme / c).ToString("c2")
|
||||
txtMargeProzSchnitt.Text = (txtMargeSchnitt.Text * 100 / txtRechnungenSchnitt.Text).ToString("n2") & "%"
|
||||
|
||||
txtAnzahlSummeTransporte.Text = Transporte
|
||||
txtRechnungenSummeTransporte.Text = TransporteEinnahmen.ToString("c2")
|
||||
txtVorkostenSummeTransporte.Text = TransporteAusgaben.ToString("c2")
|
||||
txtMargeSummeTransporte.Text = (TransporteEinnahmen - TransporteAusgaben).ToString("c2")
|
||||
txtMargeProzSchnittTransporte.Text = (txtMargeSummeTransporte.Text * 100 / TransporteEinnahmen).ToString("n2") & "%"
|
||||
|
||||
txtAnzahlSummeHandlings.Text = Handlings
|
||||
txtRechnungenSummeHandlings.Text = HandlingsEinnahmen.ToString("c2")
|
||||
txtVorkostenSummeHandlings.Text = HandlingsAusgaben.ToString("c2")
|
||||
txtMargeSummeHandlings.Text = (HandlingsEinnahmen - HandlingsAusgaben).ToString("c2")
|
||||
txtMargeProzSchnittHandlings.Text = "" '(txtMargeSummeHandlings.Text * 100 / HandlingsEinnahmen).ToString("n2") & "%"
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user