Der Cube aus dem unterem Beispiel auf einem Android Handy:

Der Cube aus dem unterem Beispiel auf einem Android Handy:

Auf der Basis einer Datenbank-Abfrage werden Balkendiagramme, Tortendiagramme und Liniendiagramme mit Flex 3 und der Middleware FluorineFX, die auf einem Microsoft IIS Server läuft, erstellt.
FluorineFX lässt sich über die Webseite http://www.fluorinefx.com/download.html herunterladen und installieren.
Es handelt sich hierbei lediglich um eine Web-Anwendung, die auf dem Microsoft IIS Server mit dem Enterprise Manager eingebunden werden muss.
Der folgende Code wird in Visual Studion (Express) als Projekttyp Klassenbibliothek (oder FluorineFX Service Projekt) mit der Sprache C# genutzt. Die C# Klassenbibliothek wird im kompilierten Zustand (dll-Datei) in den Order „bin“ im FluorineFX-Verzeichnis (welches als Website in IIS eingebunden wurde) kopiert.
Die SQL-Anweisung sollte aus Performance-Gründen möglichst stark aggregiert werden. Das Beispiel benutzt eine zweispaltige Struktur (ReportVO) und kann beliebig angepasst werden.
C# Code:
using System;
using System.Collections.Generic;
using System.Text;
using System.Collections;
using System.Data.SqlClient;
using FluorineFx; // Wichtig! FluorineFx.dll Verweis einbinden
namespace ITReportingServices
{
[RemotingService("ReportingService")]
public class ReportingService
{
public ArrayList getReport()
{
ArrayList reports = new ArrayList();
SqlConnection conn =
new SqlConnection(MyConfigurationManager.msSqlServerString);
try
{
conn.Open();
SqlCommand comm = new SqlCommand();
comm.Connection = conn;
comm.CommandText = "SELECT MONTH(buchdatum) As Monat, "+
"sum(wert) AS Summe FROM costcenteraccounting "+
"WHERE (YEAR(buchdatum)) = 2011 "+
"AND costcenter='101008960' "+
"GROUP BY (MONTH(buchdatum)), (YEAR(buchdatum)) ";
SqlDataReader reader = comm.ExecuteReader();
while (reader.Read())
{
ReportVO vo = new ReportVO();
vo.monat = reader.GetValue(0).ToString();
vo.summe = reader.GetValue(1).ToString().Replace(",",".");
reports.Add(vo);
}
}
catch (Exception e)
{
reports = new ArrayList();
ReportVO vo = new ReportVO();
vo.monat = e.Message;
vo.summe = e.Message;
reports.Add(vo);
return reports;
}
finally
{
conn.Close();
}
return reports;
}
}
public class ReportVO
{
public string monat;
public string summe;
}
}
Das Model wird auf den .NET-Namespace gemappt.
Model:
package models
{
[RemoteClass(alias="ITReportingServices.ReportVO")]
public class ReportVO
{
public var monat:String;
public var summe:String;
public function ReportVO()
{
}
}
}
Service in Flex-Code aufrufen:
<!-- unter den Script-Teil in MXML schreiben -->
<mx:RemoteObject id="reportingService"
destination="GenericDestination"
source="ITReportingServices.ReportingService"
showBusyCursor="true"
fault="faultHandler(event)" >
<mx:method name="getReport" result="getReportHandler(event)"/>
</mx:RemoteObject>
...
// Das hier in mx:Script Teil
[Bindable] public var reports:ArrayCollection=new ArrayCollection();
public function creationComplete():void
{
reportingService.getReport();
}
public function getReportHandler(event:ResultEvent):void
{
reports = event.result as ArrayCollection;
}
public function faultHandler(event:FaultEvent):void
{
Alert.show(event.fault.toString());
}
Balkendiagramm:
<mx:ColumnChart dataProvider="{reports}"
height="100%" width="100%" id="columnchart1">
<mx:horizontalAxis>
<mx:CategoryAxis id="ca" categoryField="monat" title="Market sizes" />
</mx:horizontalAxis>
<!-- horizontal axis renderer -->
<mx:horizontalAxisRenderers>
<mx:AxisRenderer axis="{ca}" canDropLabels="false" />
</mx:horizontalAxisRenderers>
<mx:series>
<mx:ColumnSeries displayName="Amount"
xField="monat"
yField="summe"/>
</mx:series>
</mx:ColumnChart>
<mx:Legend visible="false" dataProvider="{columnchart1}"/>
Tortendiagramm:
<mx:Label text="Linke Seite" />
<mx:PieChart id="pie2"
width="100%" height="100%"
dataaProvider="{reports}" showDataTips="true">
<mx:series>
<!--Apply the Array of radii to the PieSeries.-->
<mx:PieSeries field="summe"
nameField="monat"
labelPosition="callout"/>
</mx:series>
</mx:PieChart>
<mx:Legend dataProvider="{pie2}"/>
Liniendiagramm:
<mx:LineChart width="100%" height="100%"
id="myChart"
dataProvider="{reports}"
showDataTips="true">
<mx:horizontalAxis>
<mx:CategoryAxis dataProvider="{reports}"
categoryField="month"/>
</mx:horizontalAxis>
<mx:series>
<mx:LineSeries yField="summe"
displayName="Summe"/>
</mx:series>
</mx:LineChart>
Mehrere SQL Statements sollen atomar (ACID) ausgeführt werden.
Beispiel:
Ein Datenimport mit mehreren INSERT Statements und vorherigen DELETE auf eine existierende Tabelle: Während ein anderer Benutzer auf die Tabelle zugreift, sieht er nur die Daten die bereits importiert wurden. Dies kann über eine Transaktion atomar (wie das umlegen eines Schalters mit COMMIT) ausgeführt werden.
Manipulationen (z.B. auf ein Konto) mit mehreren Zugriffen unterschiedlicher User (konkurrierende Zugriffe) können zu falschen Beträgen auf dem Konto führen (Nebenläufigkeitsprobleme):
Bei mehreren SQL Kommandos, die sequenziell/hintereinander ausgeführt werden, soll sichergestellt werden das andere Benutzer keine Werte manipulieren, die zu einer falschen Weiterberechnung führen (siehe auch: Lost update und Dirty Read bei Datenbanken).
Es existiert eine Klasse SqlTransaction, deren Instanz über die FactoryMethode .BeginTransaction(„SampleTransaction“); zugewiesen werden kann. Die Instanz kann anschließend einem Command zugwiesen werden, welches bis zum COMMIT (Schalter umlegen/alles übernehmen) Befehle an den SQL Server sendet.
private static void ExecuteSqlTransaction(string connectionString)
{
using (SqlConnection connection = new SqlConnection(connectionString))
{
connection.Open();
SqlCommand command = connection.CreateCommand();
SqlTransaction transaction;
// Start a local transaction.
transaction = connection.BeginTransaction("SampleTransaction");
// Must assign both transaction object and connection
// to Command object for a pending local transaction
command.Connection = connection;
command.Transaction = transaction;
try
{
command.CommandText =
"Insert into Region (RegionID, RegionDescription) "+
"VALUES (100, 'Description')";
command.ExecuteNonQuery();
command.CommandText =
"Insert into Region (RegionID, RegionDescription) "+
"VALUES (101, 'Description')";
command.ExecuteNonQuery();
// Attempt to commit the transaction.
transaction.Commit();
Console.WriteLine("Both records are written to database.");
}
catch (Exception ex)
{
Console.WriteLine("Commit Exception Type: {0}", ex.GetType());
Console.WriteLine(" Message: {0}", ex.Message);
// Attempt to roll back the transaction.
try
{
transaction.Rollback();
}
catch (Exception ex2)
{
// This catch block will handle any errors that may have occurred
// on the server that would cause the rollback to fail, such as
// a closed connection.
Console.WriteLine("Rollback Exception Type: {0}", ex2.GetType());
Console.WriteLine(" Message: {0}", ex2.Message);
}
}
}
Der Inhalt eines mx:DataGrid soll in die Zwischenablage kopiert werden, um ihn z.B. in Excel einzufügen.
Anmerkung: Für AdvancedDataGrid mit Baum siehe auch
Verwendung von System.setClipboard(…); und Iteration über den DataProvider.
public function clipData( dg:DataGrid ):void
{
var totalExport:String = new String();
var colList:Array = new Array();
for(var i:int = 0; i < dg.columnCount; i++)
{
colList.push(dg.columns[i].dataField);
totalExport += dg.columns[i].headerText + "\t";
}
totalExport += "\r";
for(var yp:int = 0; yp < dg.dataProvider.length; yp++)
{
for(var xp:int = 0; xp < colList.length; xp++)
{
totalExport += dg.dataProvider[yp][colList[xp]] + "\t";
}
totalExport += "\r";
}
System.setClipboard(totalExport);
Alert.show('Copied to clipboard, you can paste it now to excel...');
}
[/javascript]
Eine Datei wird geöffnet und mit einem Dateizeiger über diese iteriert. Das Einlesen von Strukturdateien (z.B. CSV-Dateien) soll somit ermöglicht werden.
Verwendung der Klasse StreamReader zum Öffnen der Datei und der Methoden ReadLine() um Zeile-für-Zeile einen String zu erhalten.
// Pfad muss backslashes maskieren (doppelt)
string pfadZurDatei=
"C:\\meinOrdner\\datei.txt";
if (!File.Exists(pfadZurDatei))
{
// Alternativ Console.Write() nutzen
MessageBox.Show(
"Die Datei existiert nicht! Bitte Datei wählen!",
"Wots lous?");
}
else
{
StreamReader sr = new StreamReader(pfadZurDatei);
string inputLine = "";
// Zeilenzahl (um beim Einlesen z.B. Zeilen zu skippen)
int i=0;
while ((inputLine = sr.ReadLine()) != null)
{
i++;
// Zeile steht in inputLine...
// Es handelt sich um eine CSV Datei
values = inputLine.Split(new Char[] { ';' });
// Iteriere über jede Zelle der Zeile
for(int j = 0; j < values.length; j++)
{
string eineZelle=values[j];
}
}
}
Es wird eine perfomante (ohne Cursor-Iterationen) Möglichkeit gesucht um Textdateien per C#.NET in den Microsoft SQL Server zu importieren.
C# bietet eine Klassenbibliothek mit den Klassen SqlBulkCopy und SqlBulkCopyOptions, die bereits im SAP Stammdaten Importer Tool vorgestellt wurde, und dessen Quellcode im unteren Abschnitt des Artikel als Visual Studio 2005 Projekt zum download angeboten wird. Dieses Tool ermöglicht das einlesen von SE16-Downloaddateien mit ein paar Millionen Datensätzen in weniger als 2 Sekunden. Bei der herkömmlichen Methode, einer Cursor-Iteration, wird je INSERT-Statement ein Datenbankaufruf/Netzwerkzugriff durchgeführt. Dies ist nur nicht mehr notwendig.
...
DataTable dataTable = new DataTable();
...
// Spaltenüberschriften zum Table hinzufügen (in einer Schleife befüllbar)
for (/*Schleife um die Spaltennamen einzulesen*/)
{
// Die Anzahl der Columns muss = objects array sein
dataTable.Columns.Add("SPALTENNAME");
}
...
// Definition des Zeilenarrays
ArrayList objects = new ArrayList();
...
while(/*Schleife um zeilenweise über Datei zu iterieren*/)
{
...
for (/*Schleife um über Zellen der Zeile zu iterieren*/)
{
...
objects.Add(aktuellesZellenElementString);
...
}
...
// Hinzufügen des Datenelements, das die Zeilendaten hat
dataTable.Rows.Add(objects.ToArray());
}
...
private void WriteToDatabase()
{
// get your connection string
string connString = msSqlServerString;
// connect to SQL
using (SqlConnection connection = new SqlConnection(connString))
{
// make sure to enable triggers
// more on triggers in next post
SqlBulkCopy bulkCopy = new SqlBulkCopy
(
connection,
SqlBulkCopyOptions.TableLock |
SqlBulkCopyOptions.FireTriggers |
SqlBulkCopyOptions.UseInternalTransaction,
null
);
// set the destination table name
bulkCopy.DestinationTableName = txtImportTable.Text;
connection.Open();
// write the data in the "dataTable"
try
{
bulkCopy.WriteToServer(dataTable);
}
catch (Exception e)
{
MessageBox.Show("Es ist ein Fehler aufgetreten. "+
"Stellen Sie sicher dass der Timeout im SQL Server "+
"auf unendlich steht und AutoClose für die Verbindung "+
"nicht aktiviert wurde. " + e.Message, "Fehler!");
}
connection.Close();
}
// reset
this.dataTable.Clear();
}
Ein komplettes Beispiel lässt sich hier downloaden:
Quellcode SAP Stammdaten Importer (VS 2005 Projekt)
In größeren Firmen kann über das LDAP-Protkoll auf Personendaten und -informationen zugegriffen werden. Die kann z.B. für eine Authentifizierung per Singlesignon genutzt werden.
Möchte man diesen Dienst nutzen, muss man zunächst wissen auf welchem Server im Unternehmen ein solcher Dienst angeboten wird. Dies könnte z.B. ein Active Directory Server (Windows Server) oder ein Lotus Notes Server (notesldap) sein.
Zunächst benötigt man den Import:
using System.DirectoryServices;
private void button1_Click(object sender, EventArgs e)
{
DirectoryEntry DirEntry = new DirectoryEntry();
{
DirEntry.Path = "LDAP://notesldap.it.company.com";
DirEntry.AuthenticationType = AuthenticationTypes.ServerBind;
}
Console.WriteLine(DirEntry.Name);
DirectorySearcher search = new DirectorySearcher(DirEntry);
{
// Tweak this to refine your search
search.Filter = "(sn=Karpenstein)";
// I limit my results while I tweak
search.SearchScope = SearchScope.Subtree;
}
try
{
foreach (SearchResult result in search.FindAll())
{
if (result != null)
{
DirectoryEntry de = result.GetDirectoryEntry();
textBox1.Text += "===================================="+br();
textBox1.Text +=
"User: \t\t" + de.Properties["uid"].Value.ToString() + br() +
"objectclass:\t\t" + de.Properties["objectclass"].Value.ToString();
IDictionaryEnumerator ide = de.Properties.GetEnumerator();
ide.Reset();
try
{
while (ide.MoveNext())
{
PropertyValueCollection pvc = ide.Entry.Value as
PropertyValueCollection;
textBox1.Text += ide.Entry.Key.ToString();
textBox1.Text += pvc.Value;
}
}
catch (Exception sdf)
{
textBox1.Text += sdf.Message;
}
//textBox1.Text += "location:\t\t" + de.Properties["location"].
Value.ToString() + br();
//textBox1.Text += "maildomain:\t\t" + de.Properties["maildomain"].
Value.ToString() + br();
textBox1.Text += "sn:\t\t" + de.Properties["sn"].
Value.ToString() + br();
//textBox1.Text += "dominocertificate:\t\t" +
de.Properties["dominocertificate"].
Value.ToString() + br();
textBox1.Text += "mail:\t\t" + de.Properties["mail"].
Value.ToString() + br();
textBox1.Text += "l:\t\t" + de.Properties["l"].
Value.ToString() + br();
textBox1.Text += "displayname:\t\t" + de.Properties["displayname"].
Value.ToString() + br();
textBox1.Text += "givenname:\t\t" + de.Properties["givenname"].
Value.ToString() + br();
//textBox1.Text += "dc:\t\t" + de.Properties["dc"].
Value.ToString() + br();
//textBox1.Text += "dn:\t\t" + de.Properties["dn"].
Value.ToString() + br();
textBox1.Text += "cn:\t\t" + de.Properties["cn"].
Value.ToString() + br();
textBox1.Text += "====================================";
}
}
}
catch (Exception ex)
{
Console.WriteLine(ex.Message.ToString());
}
finally
{
search.Dispose();
DirEntry.Close();
}
}
Möchte man eine Seite mit einem iView aufrufen, ist es meistens nötig die komplette Navigation bis zu diesem durchzuklicken. Das Portal besteht bei der Verwendung von iViews aus Frames.
Möchte man das SAP Enterprise Portal anweisen ein spezielles iView/eine spezielle Seite über einen Deeplink in den Frame zu laden, kann der folgende Trick genutzt werden.
iView-Entwickler können den folgenden Code benutzen um Parameter über diesen Deeplink zu übergeben:
URL: http://firmenportalrechner.com:50000/irj/portal?NavigationTarget=navurl://885a76f8628af28c18d76773f98eaaaf&materialId=9380027
…
Java (z.B. iView): String materialId = (String) getPortalRequest().getServletRequest().getParameter(„materialId“);
Es sollen die Anzahl der Nachkommastelle in einem SQL Query abgefragt werden
SELECT * FROM completeyear2011ecoflac
WHERE
right(cast(completeactualyear as varchar(32)),
len(cast(completeactualyear as varchar(32)))
- charindex('.',cast(completeactualyear as varchar(32))))>0
Wenn die SQL-Umgebung keine Funktion zur Verfügung stellt, kann man die obige SQL zwar nutzen, sollte den hinteren Teil allerdings in eine Funktion auslagern. Das Auslagern in eine Funktion dient der Übersichtlichkeit und verletzt das DRY-Prinzip nicht (Don’t repeat yourself!)
In Hochsprachen wie C#.NET und JAVA hilft der Einsatz vom trinären Operator oftmals, den Code leserlicher zu machen.
Ein Beispiel dafür ist das Zuweisen von Werten für ein Datenbankmodell bei einer Cursor-Iteration.
Wenn eine Materialnummer nicht vorhanden/leer ist, soll als String „not available“ angegeben werden:
Bsp. in C#
...
SqlDataReader reader = comm.ExecuteReader();
...
while (reader.Read())
{
vo = new WorkflowPositionVO();
vo.material = (reader.GetValue(0).ToString()=="")?
"not available":reader.GetValue(0).ToString();
...
Da der obige Code kompakt auf einer Zeile steht, und die gewünschte Funktionalität nicht durch 6-zeilige if/else-Konstrukte gewährleistet wird, führt dies bei vielen Attributen des Objektes „WorkflowPositionVO“ zu einer erhöhten Lesbarkeit des Codes. Man stelle sich 100 WorkflowPositionVO-Attribute vor, die zugewiesen werden müssen. Die Zahl von 600 (+100 Leerzeilen) würde auf 100 Zeilen reduziert werden, und die Fehleranfälligkeit dramatisch reduziert.
Der trinäre Operator ?: wird in VBA leider nicht unterstützt.
Die Funktionalität von ?: kann auf einen einfachen IF/ELSE-Zweig abgebildet werden, den man in eine Funktion auslagern könnte. Man könnte sich jetzt eine Funktion selbst implementieren, oder die fertige Funktion IIF benutzen. Hierbei handelt es sich um eine echte VBA-Funktion, die evtl. bereits durch ACCESS-Abfragen in SQL Statements bekannt ist.
Bsp. in VBA:
material = IIf(Tabelle.Cells(i,1)="","not available",Tabelle.Cells(i,1))