shu/QW2021
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Rel 20210426

Browse Source
This commit is contained in:
Stefan Hutter
2021-04-26 19:53:18 +02:00
parent 37df435d53
commit bcd59bc5e9
112 changed files with 784968 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Resultate/Auswertungen.aspx
View File

@@ -53,7 +53,7 @@
<td>
<ej:Button ID="btnAufbereiten" runat="server" Type="Button" OnClick="btnAufbereiten_Click" Text="Daten aufbereiten"></ej:Button>
<asp:Panel ID="pnlreports" runat="server" Visible="false">
<asp:HyperLink ID="ReportGesamt" runat="server" NavigateUrl="~/Resultate/Report.aspx?rpt=Rpt_Auswertung_Gesamt.rpt" Text="Report Komplett" Target="_blank" Enabled="True"></asp:HyperLink>
<asp:HyperLink ID="ReportGesamt" runat="server" NavigateUrl="~/Resultate/Report.aspx?rpt=Rpt_Auswertung_GesamtSponsoren.rpt" Text="Report Komplett" Target="_blank" Enabled="True"></asp:HyperLink>
<br />
<asp:HyperLink ID="ReportGesamtTop20" runat="server" NavigateUrl="~/Resultate/Report.aspx?rpt=Rpt_Auswertung_Gesamt_top_20.rpt" Text="Report Komplett Top 20" Target="_blank" Enabled="True"></asp:HyperLink>
<br />

11
Resultate/Auswertungen.aspx.cs
View File

@@ -152,13 +152,20 @@ namespace QW2021C.Resultate
string orte;
int ortnr = 0;
s = this.selEinzelauswertung.Text.ToString();
ortnr = Convert.ToInt32(this.selEinzelauswertung.Value);
clsDB db = new clsDB();
db.Get_Tabledata("Select * from res_ort where ort='" + s.ToString() + "'", false, true);
if (db.dsdaten.Tables[0].Rows.Count == 0) return;
ortnr = Convert.ToInt32(db.dsdaten.Tables[0].Rows[0][0]);
db.dsdaten.Tables.Clear();
orte = s;
DataTable ortdata = Get_Orttabelle(orte);
if (this.cbu10u12Einzel.Checked == true) U1012 = "J";
DataSet ds = new DataSet();
clsDB db = new clsDB();
//clsDB db = new clsDB();
db.Get_Reportdata(orte, U1012, erdgas, vierkampf,ortnr);
string dataname = DateTime.Now.ToString("ddMMyyyyHHmmss") + "_Rpt.xml";

40
Resultate/Report.aspx.cs
View File

@@ -23,6 +23,23 @@ namespace QW2021C.Resultate
ReportDocument cr = new ReportDocument();
cr.Load(rptfilename);
int i;
//FormulaFieldDefinitions crFormulaFieldDefinitions;
//FormulaFieldDefinition crFormulaFieldDefinition;
//FormulaFieldDefinition=crim
//Section section;
//int LoopFormula;
//string FormulaName;
//crFormulaFieldDefinitions = cr.DataDefinition.
//for (LoopFormula = 0; LoopFormula <= crFormulaFieldDefinitions.Count - 1; LoopFormula++)
//{
// crFormulaFieldDefinition = crFormulaFieldDefinitions[LoopFormula];
// FormulaName = crFormulaFieldDefinition.Name;
// Console.WriteLine(FormulaName);
//}
switch (report)
{
case "Vierkampf.rpt":
@@ -101,11 +118,26 @@ namespace QW2021C.Resultate
string[] splitter = ortliste.Split(';');
int i;
for (i = 1; i < splitter.Length; i++)
//int i;
for (i = 1; i < 9; i++)
{
// CrystalDecisions.CrystalReports.Engine.TextObject MyTextObject;
try
{
MyTextObject = cr.ReportDefinition.ReportObjects["Text" + i.ToString()] as TextObject;
MyTextObject.Text = "";
}
catch
{
}
}
for (i = 1; i <= splitter.Length; i++)
{
// CrystalDecisions.CrystalReports.Engine.TextObject MyTextObject;
MyTextObject = cr.ReportDefinition.ReportObjects["Text" + i.ToString()] as TextObject;
MyTextObject.Text = "";
try

134
Resultate/Report.aspx.vb Normal file
View File

@@ -0,0 +1,134 @@
Imports CrystalDecisions.CrystalReports.Engine
Imports System
Imports System.Web.UI
Imports System.Data
Namespace QW2021C.Resultate
Public Partial Class Report
Inherits Page
Protected Sub Page_Init(ByVal sender As Object, ByVal e As EventArgs)
Dim report As String = Request.QueryString("rpt").ToString()
Dim ds As DataSet = New DataSet()
ds.ReadXml(MyBase.Session("Reportdaten").ToString())
Dim rptfilename As String = Server.MapPath("~\Resultate\Reports\" & report.ToString())
Dim cr As ReportDocument = New ReportDocument()
cr.Load(rptfilename)
Dim i As Integer
'FormulaFieldDefinitions crFormulaFieldDefinitions;
'FormulaFieldDefinition crFormulaFieldDefinition;
'FormulaFieldDefinition=crim
'Section section;
'int LoopFormula;
'string FormulaName;
'crFormulaFieldDefinitions = cr.DataDefinition.
'for (LoopFormula = 0; LoopFormula <= crFormulaFieldDefinitions.Count - 1; LoopFormula++)
'{
' crFormulaFieldDefinition = crFormulaFieldDefinitions[LoopFormula];
' FormulaName = crFormulaFieldDefinition.Name;
' Console.WriteLine(FormulaName);
'}
Select Case report
Case "Vierkampf.rpt"
Dim MyTextObject As TextObject
MyTextObject = TryCast(cr.ReportDefinition.ReportObjects("txtheader0"), TextObject)
MyTextObject.Text = MyBase.Session("Kopfzeile1").ToString()
MyTextObject = TryCast(cr.ReportDefinition.ReportObjects("txtheader1"), TextObject)
MyTextObject.Text = MyBase.Session("Kopfzeile1").ToString()
MyTextObject = TryCast(cr.ReportDefinition.ReportObjects("txttitel"), TextObject)
MyTextObject.Text = MyBase.Session("Titel").ToString()
MyTextObject = TryCast(cr.ReportDefinition.ReportObjects("txtstadion"), TextObject)
MyTextObject.Text = MyBase.Session("Stadion").ToString()
MyTextObject = TryCast(cr.ReportDefinition.ReportObjects("txtorganisator"), TextObject)
MyTextObject.Text = MyBase.Session("Organisator").ToString()
MyTextObject = TryCast(cr.ReportDefinition.ReportObjects("txtdatum"), TextObject)
MyTextObject.Text = MyBase.Session("Datum").ToString()
MyTextObject = TryCast(cr.ReportDefinition.ReportObjects("txtwettkampfnr"), TextObject)
MyTextObject.Text = MyBase.Session("Wettkampfnr").ToString()
cr.SetDataSource(ds.Tables(1))
Me.CrystalReportViewer1.ReportSource = cr
Me.CrystalReportViewer1.RefreshReport()
Dim ci As CrystalDecisions.Shared.ConnectionInfo = New CrystalDecisions.Shared.ConnectionInfo()
Case "erdgas.rpt"
'CrystalDecisions.CrystalReports.Engine.TextObject MyTextObject;
MyTextObject = TryCast(cr.ReportDefinition.ReportObjects("txtheader0"), TextObject)
MyTextObject.Text = MyBase.Session("Kopfzeile1").ToString()
MyTextObject = TryCast(cr.ReportDefinition.ReportObjects("txtheader1"), TextObject)
MyTextObject.Text = MyBase.Session("Kopfzeile1").ToString()
MyTextObject = TryCast(cr.ReportDefinition.ReportObjects("txttitel"), TextObject)
MyTextObject.Text = MyBase.Session("Titel").ToString()
MyTextObject = TryCast(cr.ReportDefinition.ReportObjects("txtstadion"), TextObject)
MyTextObject.Text = MyBase.Session("Stadion").ToString()
MyTextObject = TryCast(cr.ReportDefinition.ReportObjects("txtorganisator"), TextObject)
MyTextObject.Text = MyBase.Session("Organisator").ToString()
MyTextObject = TryCast(cr.ReportDefinition.ReportObjects("txtdatum"), TextObject)
MyTextObject.Text = MyBase.Session("Datum").ToString()
MyTextObject = TryCast(cr.ReportDefinition.ReportObjects("txtwettkampfnr"), TextObject)
MyTextObject.Text = MyBase.Session("Wettkampfnr").ToString()
cr.SetDataSource(ds.Tables(1))
Me.CrystalReportViewer1.ReportSource = cr
'CrystalDecisions.Shared.ConnectionInfo ci = new CrystalDecisions.Shared.ConnectionInfo();
Me.CrystalReportViewer1.RefreshReport()
Case Else
Dim ortliste = ""
For Each dr As DataRow In ds.Tables(0).Rows
If Not Equals(ortliste, "") Then ortliste = ortliste & ";"
ortliste = ortliste & dr(0).ToString()
Next
Dim dt As DataTable = New DataTable()
For Each c As DataColumn In ds.Tables(1).Columns
If Equals(c.ColumnName.ToString(), "Rang") OrElse Equals(c.ColumnName.ToString(), "BestPunkte") Then
dt.Columns.Add(c.ColumnName, Type.GetType("System.Int32"))
Else
dt.Columns.Add(c.ColumnName)
End If
Next
For Each dr As DataRow In ds.Tables(1).Rows
dt.ImportRow(dr)
Next
Dim splitter = ortliste.Split(";"c)
'int i;
For i = 1 To 9 - 1
Try
MyTextObject = TryCast(cr.ReportDefinition.ReportObjects("Text" & i.ToString()), TextObject)
MyTextObject.Text = ""
Catch
End Try
Next
For i = 1 To splitter.Length
' CrystalDecisions.CrystalReports.Engine.TextObject MyTextObject;
MyTextObject = TryCast(cr.ReportDefinition.ReportObjects("Text" & i.ToString()), TextObject)
MyTextObject.Text = ""
Try
MyTextObject.Text = splitter(i - 1).ToString()
Catch
End Try
Next
cr.SetDataSource(dt)
Me.CrystalReportViewer1.ReportSource = cr
'CrystalDecisions.Shared.ConnectionInfo ci = new CrystalDecisions.Shared.ConnectionInfo();
Me.CrystalReportViewer1.RefreshReport()
End Select
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
If MyBase.Page.IsPostBack = True Then Return
End Sub
End Class
End Namespace

193
Resultate/Reports/Rpt_Auswertung_GesamtSponsoren.cs Normal file
View File

@@ -0,0 +1,193 @@
//------------------------------------------------------------------------------
// <auto-generated>
// Dieser Code wurde von einem Tool generiert.
// Laufzeitversion:4.0.30319.42000
//
// Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
// der Code erneut generiert wird.
// </auto-generated>
//------------------------------------------------------------------------------
namespace QW2021C.Resultate.Reports {
using System;
using System.ComponentModel;
using CrystalDecisions.Shared;
using CrystalDecisions.ReportSource;
using CrystalDecisions.CrystalReports.Engine;
public class Rpt_Auswertung_GesamtSponsoren : ReportClass {
public Rpt_Auswertung_GesamtSponsoren() {
}
public override string ResourceName {
get {
return "Rpt_Auswertung_GesamtSponsoren.rpt";
}
set {
// Do nothing
}
}
public override bool NewGenerator {
get {
return true;
}
set {
// Do nothing
}
}
public override string FullResourceName {
get {
return "QW2021C.Resultate.Reports.Rpt_Auswertung_GesamtSponsoren.rpt";
}
set {
// Do nothing
}
}
[Browsable(false)]
[DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)]
public CrystalDecisions.CrystalReports.Engine.Section Section1 {
get {
return this.ReportDefinition.Sections[0];
}
}
[Browsable(false)]
[DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)]
public CrystalDecisions.CrystalReports.Engine.Section Section2 {
get {
return this.ReportDefinition.Sections[1];
}
}
[Browsable(false)]
[DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)]
public CrystalDecisions.CrystalReports.Engine.Section GroupHeaderSection1 {
get {
return this.ReportDefinition.Sections[2];
}
}
[Browsable(false)]
[DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)]
public CrystalDecisions.CrystalReports.Engine.Section GroupHeaderSection2 {
get {
return this.ReportDefinition.Sections[3];
}
}
[Browsable(false)]
[DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)]
public CrystalDecisions.CrystalReports.Engine.Section GroupHeaderSection4 {
get {
return this.ReportDefinition.Sections[4];
}
}
[Browsable(false)]
[DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)]
public CrystalDecisions.CrystalReports.Engine.Section DetailSection3 {
get {
return this.ReportDefinition.Sections[5];
}
}
[Browsable(false)]
[DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)]
public CrystalDecisions.CrystalReports.Engine.Section GroupFooterSection2 {
get {
return this.ReportDefinition.Sections[6];
}
}
[Browsable(false)]
[DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)]
public CrystalDecisions.CrystalReports.Engine.Section GroupFooterSection1 {
get {
return this.ReportDefinition.Sections[7];
}
}
[Browsable(false)]
[DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)]
public CrystalDecisions.CrystalReports.Engine.Section Section4 {
get {
return this.ReportDefinition.Sections[8];
}
}
[Browsable(false)]
[DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)]
public CrystalDecisions.CrystalReports.Engine.Section Section5 {
get {
return this.ReportDefinition.Sections[9];
}
}
}
[System.Drawing.ToolboxBitmapAttribute(typeof(CrystalDecisions.Shared.ExportOptions), "report.bmp")]
public class CachedRpt_Auswertung_GesamtSponsoren : Component, ICachedReport {
public CachedRpt_Auswertung_GesamtSponsoren() {
}
[Browsable(false)]
[DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)]
public virtual bool IsCacheable {
get {
return true;
}
set {
//
}
}
[Browsable(false)]
[DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)]
public virtual bool ShareDBLogonInfo {
get {
return false;
}
set {
//
}
}
[Browsable(false)]
[DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)]
public virtual System.TimeSpan CacheTimeOut {
get {
return CachedReportConstants.DEFAULT_TIMEOUT;
}
set {
//
}
}
public virtual CrystalDecisions.CrystalReports.Engine.ReportDocument CreateReport() {
Rpt_Auswertung_GesamtSponsoren rpt = new Rpt_Auswertung_GesamtSponsoren();
rpt.Site = this.Site;
return rpt;
}
public virtual string GetCustomizedCacheKey(RequestContext request) {
String key = null;
// // The following is the code used to generate the default
// // cache key for caching report jobs in the ASP.NET Cache.
// // Feel free to modify this code to suit your needs.
// // Returning key == null causes the default cache key to
// // be generated.
//
// key = RequestContext.BuildCompleteCacheKey(
// request,
// null, // sReportFilename
// this.GetType(),
// this.ShareDBLogonInfo );
return key;
}
}
}

BIN
Resultate/Reports/Rpt_Auswertung_GesamtSponsoren.rpt Normal file
View File

Binary file not shown.

BIN
Resultate/Reports/Vierkampf.rpt
View File

Binary file not shown.

45
Resultate/Resultat_Upload.aspx.cs
View File

@@ -2,7 +2,9 @@
using System;
using System.Collections.Generic;
using System.Data;
using System.IO;
using System.Linq;
using System.Text;
using System.Web;
using System.Web.UI;
using System.Web.UI.WebControls;
@@ -66,27 +68,33 @@ namespace QW2021C.Resultate
string filename = this.hiddenfilename.Value;
string targetFolder = HttpContext.Current.Server.MapPath("~/Upload");
filename = targetFolder + "\\" + filename;
string fn;
GenericParserAdapter Parser = new GenericParserAdapter(filename);
GenericParserAdapter Parser = new GenericParserAdapter(filename,System.Text.Encoding.GetEncoding("Windows-1252"));
DataSet ds = new DataSet();
Parser.ColumnDelimiter = Convert.ToChar(";");
Parser.FirstRowHasHeader = true;
ds = Parser.GetDataSet();
clsDB db = new clsDB();
db.truncate_table("dbo.res_taf_import");
db.dsdaten.Tables.Clear();
db.Get_Tabeldata_for_Update("Select * from dbo.res_taf_import", false, true);
foreach (System.Data.DataRow r in ds.Tables[0].Rows )
{
System.Data.DataRow rn = db.dsdaten.Tables[0].NewRow();
for (int i = 0; i < 23; i++)
for (int i = 0; i < 24; i++)
{
rn[i] = r[i];
}
rn[23] = this.hiddenortnr.Value.ToString();
rn[24] = this.hiddenortnr.Value.ToString();
rn[25] = 0;
db.dsdaten.Tables[0].Rows.Add(rn);
}
db.Update_Tabeldata();
@@ -95,5 +103,32 @@ namespace QW2021C.Resultate
}
protected byte[] GetCSVFileContent(string fileName)
{
StringBuilder sb = new StringBuilder();
using (StreamReader sr = new StreamReader(fileName, Encoding.Default, true))
{
String line;
// Read and display lines from the file until the end of
// the file is reached.
while ((line = sr.ReadLine()) != null)
{
sb.AppendLine(line);
}
}
string allines = sb.ToString();
UTF8Encoding utf8 = new UTF8Encoding();
var preamble = utf8.GetPreamble();
var data = utf8.GetBytes(allines);
return data;
}
}
}