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

TIMOCOM, Anpassung Auftrag Kopieren

Browse Source
This commit is contained in:
ms
2019-12-05 11:49:37 +01:00
parent 8cbc8c3728
commit 64db243fb3
17 changed files with 563 additions and 479 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
UID/Reports/Auswertung/subrptEinzelauswertung.vb
View File

@@ -22,8 +22,9 @@ Public Class subrptEinzelauswertung
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")
' txtAusgaben.Text = CDbl((Fields.Item("Vorkosten_Vorzeichen").Value)).ToString("c2")
txtAusgaben.Text = CDbl(CleanValue(Fields, "Vorkosten", "Integer")).ToString("c2")
txtGewinn.Text = (CDbl(Fields.Item("Rechnungen").Value) - CDbl(CleanValue(Fields, "Vorkosten", "Integer"))).ToString("c2") '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)
@@ -68,15 +69,38 @@ Public Class subrptEinzelauswertung
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")
TransporteAusgaben = TransporteAusgaben + CDbl(CleanValue(Fields, "Vorkosten", "Integer")).ToString("c2") '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")
HandlingsAusgaben = HandlingsAusgaben + CDbl(CleanValue(Fields, "Vorkosten", "Integer")).ToString("c2") 'CDbl(Fields.Item("Vorkosten_Vorzeichen").Value).ToString("c2")
End If
End Sub
Function CleanString(StringIn As String)
If StringIn.Length > 0 Then
Return StringIn
Else
Return 0
End If
End Function
Function CleanValue(FC As GrapeCity.ActiveReports.Data.FieldCollection, FI As String, ReturnArt As String)
If FC.Item(FI) Is Nothing Then
Select Case ReturnArt
Case "Integer"
Return 0
Case "String"
Return ""
End Select
Else
Return FC.Item(FI).Value
End If
End Function
Private Sub subrptEinzelauswertung_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
DataSource = frmAuswertung.dt
End Sub