Email Addon

[Shuo]

Hallo zusammen,

vorab: Ich habe gesucht, aber nichts gefunden.....

Ich möchte meine Zählerstände zu einem bestimmte Datum von der CCU2 per eMail schicken lassen. Mein TCL-Skript sieht folgendermaßen aus:

Code: Alles auswählen

load tclrega.so

array set values [rega_script {

real v1 = dom.GetObject("BidCos-RF.NEQ0861202:1.IEC_ENERGY_COUNTER").Value();
real v2 = dom.GetObject(ID_SYSTEM_VARIABLES).Get("Zählerstand Gartenwasser").Value();
real v3 = dom.GetObject(ID_SYSTEM_VARIABLES).Get("Zählerstand Gas").Value();

} ]

set v1 $values(v1)
set v2 $values(v2)
set v3 $values(v3)
set date [clock seconds] 
set date [clock format $date -format {%d.%m.%Y  %T}]

und der Emailaufruf:

Code: Alles auswählen

Hallo,

Strom-Zählerstand am $date: $v1
Gartenwasser-Zählerstand am $date: $v2
Gas-Zählerstand am $date: $v3

Ihre 
Homematic

Das Ergebnis sieht so aus:

Code: Alles auswählen

Hallo,

Strom-Zählerstand am 06.01.2018  14:22:11: 16611.419983
Gartenwasser-Zählerstand am 06.01.2018  14:22:11: null
Gas-Zählerstand am 06.01.2018  14:22:11: 0.000000

Ihre 
Homematic

Ich verstehe nicht, warum ich hier einmal einen Wert null und einemal 0.000000 geschickt bekomme. Direkt beim Skript testen als Eingabe:

Code: Alles auswählen

WriteLine(dom.GetObject("BidCos-RF.NEQ0861202:1.IEC_ENERGY_COUNTER").Value());
WriteLine(dom.GetObject(ID_SYSTEM_VARIABLES).Get("Zählerstand Gartenwasser").Value());
WriteLine(dom.GetObject(ID_SYSTEM_VARIABLES).Get("Zählerstand Gas").Value());

Ergibt als Ausgabe die erwarteten Werte.

Code: Alles auswählen

16611.437073
1.270000
1485.200000

Wo ist der Denkfehler?

Wäre toll, wenn mir jemand einen Tipp geben könnte. Ich bin echt am Verzweifeln.

Viele Grüße
Shuo

[Shuo]

niemand eine Idee?? Komme einfach nicht weiter....

[robsdobs]

Sind deine Systemvariablen vom richtigen Typ?

Versuch sonst mal:

Code: Alles auswählen

load tclrega.so

array set values [rega_script {

real v1 = dom.GetObject("BidCos-RF.NEQ0861202:1.IEC_ENERGY_COUNTER").Value();
var v2 = dom.GetObject(ID_SYSTEM_VARIABLES).Get("Zählerstand Gartenwasser").Variable();
var v3 = dom.GetObject(ID_SYSTEM_VARIABLES).Get("Zählerstand Gas").Variable();

} ]

set v1 $values(v1)
set v2 $values(v2)
set v3 $values(v3)
set date [clock seconds] 
set date [clock format $date -format {%d.%m.%Y  %T}]

Das gibt den Wert als Zeichenkette zurück.

[Shuo]

Leider ohne Erfolg.

Code: Alles auswählen

Strom-Zählerstand am 08.01.2018  21:45:29: 16647.118988
Gartenwasser-Zählerstand am 08.01.2018  21:45:29: null
Gas-Zählerstand am 08.01.2018  21:45:29: null

Wie gesagt. Wenn ich das Script teste, funktioniert alles. Real ist der richtige Wert.

[robsdobs]

Wie gesagt. Wenn ich das Script teste, funktioniert alles. Real ist der richtige Wert.

Eine Vermutung hätte ich noch. Da es unter Script testen funktioniert (auch mal im Log geschaut?), probiere es Bitte noch mal mit einer Systemvariablen ohne Umlaut: "Zählerstand"

[Shuo]

dachte ich auch und habe eine andere Variable getestet. Auch ohne Umlaute....

Welche log meinst Du?

[Shuo]

niemand noch eine Idee?

[alchy]

Poste bitte noch mal den aktuellen TCL Reiter & aktuelle Mailvorlage & aktuelle Mailnachricht die ankommt.
Und vor allem das >> Fehlerprotokoll <<


Alchy

[Shuo]

Hi Alchy,
na klar.

TCL:

Code: Alles auswählen

set serviceliste [encoding convertfrom utf-8 [lindex $argv 1]]
load tclrega.so

array set values [rega_script {
real v1 = dom.GetObject("BidCos-RF.NEQ0861202:1.IEC_ENERGY_COUNTER").Value();
real v2 = dom.GetObject(ID_SYSTEM_VARIABLES).Get("Zählerstand Gartenwasser").Value();
real v3 = dom.GetObject(ID_SYSTEM_VARIABLES).Get("Zählerstand Gas").Value();

} ]

set v1 $values(v1)
set v2 $values(v2)
set v3 $values(v3)
set date [clock seconds] 
set date [clock format $date -format {%d.%m.%Y  %T}]

Mailvorlage:

Code: Alles auswählen

Hallo,

Strom-Zählerstand am $date: $v1
Gartenwasser-Zählerstand am $date: $v2
Gas-Zählerstand am $date: $v3

Ihre 
Homematic

Direkt beim testen:

Code: Alles auswählen

WriteLine(dom.GetObject("BidCos-RF.NEQ0861202:1.IEC_ENERGY_COUNTER").Value());
WriteLine(dom.GetObject(ID_SYSTEM_VARIABLES).Get("Zählerstand Gartenwasser").Value());
WriteLine(dom.GetObject(ID_SYSTEM_VARIABLES).Get("Zählerstand Gas").Value());

Bekomme ich das erwartete Ergebnis:

Code: Alles auswählen

16799.325989
1.270000
1449.000000

Emailnachricht schaut leider so aus:

Code: Alles auswählen

Hallo,

Strom-Zählerstand am 21.01.2018  21:34:26: 16799.360992
Gartenwasser-Zählerstand am 21.01.2018  21:34:26: null
Gas-Zählerstand am 21.01.2018  21:34:26: 0.000000

Ihre 
Homematic

[alchy]

Überschreib bitte mal nur den TCL Reiter mit:

Code: Alles auswählen

set date [clock format [clock seconds] -format "%d.%m.%Y  %H:%M"]
set serviceliste [encoding convertfrom utf-8 [lindex $argv 1]]
load tclrega.so

array set values [rega_script {
real v3 = dom.GetObject(ID_SYSTEM_VARIABLES).Get("Zählerstand Gas").Value();
real v2 = dom.GetObject(ID_SYSTEM_VARIABLES).Get("Zählerstand Gartenwasser").Value();
real v1 = dom.GetObject("BidCos-RF.NEQ0861202:1.IEC_ENERGY_COUNTER").Value();
} ]

set v1 $values(v1)
set v2 $values(v2)
set v3 $values(v3)

Was steht in der Mail?

Alchy