DB_Query_Monitoring_DB {
my $HTML_Anzeige_Zaehler = 0;
foreach( @Ergebnis_SQL_DB )
{
my $Anzahl = 1;
my $x = 0;
# ------------------------------------------------------------
my $HTML_Anzeige_SSTs = $Ergebnis_SQL_DB[$i][3];
my $HTML_Anzeige_Broker = $Ergebnis_SQL_DB[$i][4];
my $HTML_Anzeige_MTs = $Ergebnis_SQL_DB[$i][7];
my $HTML_Anzeige_Status = $Ergebnis_SQL_DB[$i][9];
my $HTML_Anzeige_EC = $Ergebnis_SQL_DB[$i][10];
my $HTML_Anzeige_Anzahl = $Ergebnis_SQL_DB[$i][11];
# ------------------------------------------------------------
for ( $x = 0; $x < $Anzahl; $x++ )
{
if ( $Ergebnis_SQL_DB[$i][10] == '00000' )
{
my $Verarbeitung_TS_I = $Ergebnis_SQL_DB[$i][1];
my $Verarbeitung_TS_II = $Ergebnis_SQL_DB[$i][2];
my ( $HTML_Anzeige_TS_I , $HTML_Anzeige_TS_II , $HTML_Anzeige_TS_Differenz ) = &TS_Konvertierung( $Verarbeitung_TS_I , $Verarbeitung_TS_II );
my @HTML_Anzeige_Parameter = ( $HTML_Anzeige_Zaehler , $HTML_Anzeige_SSTs , $HTML_Anzeige_Broker , $HTML_Anzeige_MTs ,
$HTML_Anzeige_Status , $HTML_Anzeige_EC , $HTML_Anzeige_TS_I , $HTML_Anzeige_TS_II ,
$HTML_Anzeige_TS_Differenz , $HTML_Anzeige_Anzahl );
&Anzeige_Ergebnisse( @HTML_Anzeige_Parameter );
# Ausgabe des Rückgabe - Parameter
# print "\n";
# print "TS I : $HTML_Anzeige_TS_I" , "\n";
# print "TS II : $HTML_Anzeige_TS_II" , "\n";
# print "Differenz : $HTML_Anzeige_TS_Differenz" , "\n";
# print "\n";
}
if ( $Ergebnis_SQL_DB[$i][10] != '00000' )
{
my $Verarbeitung_TS_I = $Ergebnis_SQL_DB[$i][1];
my $Verarbeitung_TS_II = $Ergebnis_SQL_DB[$i][2];
my ( $HTML_Anzeige_TS_I , $HTML_Anzeige_TS_II , $HTML_Anzeige_TS_Differenz ) = &TS_Konvertierung( $Verarbeitung_TS_I , $Verarbeitung_TS_II );
my @HTML_Anzeige_Parameter = ( $HTML_Anzeige_Zaehler , $HTML_Anzeige_SSTs , $HTML_Anzeige_Broker , $HTML_Anzeige_MTs ,
$HTML_Anzeige_Status , $HTML_Anzeige_EC , $HTML_Anzeige_TS_I , $HTML_Anzeige_TS_II ,
$HTML_Anzeige_TS_Differenz , $HTML_Anzeige_Anzahl );
&Anzeige_Ergebnisse( @HTML_Anzeige_Parameter );
# Ausgabe des Rückgabe - Parameter
# print "\n";
# print "TS I : $HTML_Anzeige_TS_I" , "\n";
# print "TS II : $HTML_Anzeige_TS_II" , "\n";
# print "Differenz : $HTML_Anzeige_TS_Differenz" , "\n";
# print "\n";
}
}
print "\n";
$i++;
$HTML_Anzeige_Zaehler++;
}
}