Domoticz

Code: Select all

-- LUA to get P1 usage for the contract period
-- set this info
ContractStartDag = 19
ContractStartMaand = 7
P1idx = 375                       -- IDX of P1 meter device
DomoUrl = "http://127.0.0.1:8080" -- URL of domoticz.

commandArray = {}

-- only run one time per hour at xx:01
if os.date('%M') == '01' then
    json = require 'JSON'

    pers = pers or {}
    function GetDomData(url)
        local sQuery   = 'curl -s "' .. url .. '"'
        --    print("sQuery="..sQuery)
        local handle   = assert(io.popen(sQuery))
        local Web_Data = handle:read('*all')
        handle:close()
        if (Web_Data == '') then
            print('P1 get data Error: Empty result from curl command')
            return ''
        end
        return Web_Data
    end

    --Get values of previous 8 days
    local t, jresponse, status, decoded_response, idx

    -- Calculate start date info
    CurJaar = tonumber(os.date('%Y'))
    CurMaand = tonumber(os.date('%m'))
    CurDag = tonumber(os.date('%d'))
    ContractJaar = CurJaar
    p1resultly = {}
    -- Determine the start year of the contract.
    -- if start year is last year then get also last years data to get the start counters
    if (tonumber(CurMaand) < ContractStartMaand or (tonumber(CurMaand) == ContractStartMaand and tonumber(CurDag) < ContractStartDag)) then
        ContractJaar = CurJaar - 1
        -- P1 information last year year
        t = DomoUrl .. '/json.htm?type=graph&sensor=counter&range=year&idx=' .. tostring(P1idx) .. '&year=' .. ContractJaar
        jresponse = GetDomData(t)
        decoded_response = json:decode(jresponse)
        p1resultly = decoded_response['result']
        for i = 1, #p1resultly do
            record = p1resultly[i]
            if type(record) == 'table' then
                rdate = record['d']
                rJaar = tonumber(rdate:sub(1, 4))
                rMaand = tonumber(rdate:sub(6, 7))
                rDag = tonumber(rdate:sub(9, 10))

                -- Get counter info start contract date.
                if (ContractJaar == rJaar and rMaand == ContractStartMaand and rDag == ContractStartDag) then
                    P1_StartCounterContractUsage = ((record['c1'] or 0) + (record['c3'] or 0))
                    P1_StartCounterContractReturn = ((record['c2'] or 0) + (record['c4'] or 0))
                    --print("Found last year")
                end
            end
        end
    end

    -- P1 information this year
    t = DomoUrl .. '/json.htm?type=graph&sensor=counter&range=year&idx=' .. tostring(P1idx)
    jresponse = GetDomData(t)
    --print(jresponse)
    decoded_response = json:decode(jresponse)
    p1result = decoded_response['result']

    -- List all data
    for i = 1, #p1result do
        record = p1result[i]
        if type(record) == 'table' then
            rdate = record['d']
            rJaar = tonumber(rdate:sub(1, 4))
            rMaand = tonumber(rdate:sub(6, 7))
            rDag = tonumber(rdate:sub(9, 10))

            -- Get counter info start contract date when the contract started in the current year
            if (ContractJaar == CurJaar and ContractJaar == rJaar and rMaand == ContractStartMaand and rDag == ContractStartDag) then
                p1record = p1result[i]
                P1_StartCounterContractUsage = ((p1record['c1'] or 0) + (p1record['c3'] or 0))
                P1_StartCounterContractReturn = ((p1record['c2'] or 0) + (p1record['c4'] or 0))
            end

            -- Get counter info yesterday and add currentday info.
            if (CurJaar == rJaar and CurMaand == rMaand and CurDag == rDag) then
                -- Use yesterday's result and add day values to the daystart counters.
                p1record = p1result[i - 1]
                P1_CurrentCounterUsage = ((p1record['c1'] or 0) + (p1record['c3'] or 0) + (p1record['v'] or 0) + (p1record['v2'] or 0) + (record['v'] or 0) + (record['v2'] or 0))
                P1_CurrentCounterReturn = ((p1record['c2'] or 0) + (p1record['c4'] or 0) + (p1record['r1'] or 0) + (p1record['r2'] or 0) + (record['r1'] or 0) + (record['r2'] or 0))
            end
        end
    end
    P1_StartCounterContractUsage = (P1_StartCounterContractUsage or 0)
    P1_StartCounterContractReturn = (P1_StartCounterContractReturn or 0)
    P1_CurrentCounterUsage = (P1_CurrentCounterUsage or 0)
    P1_CurrentCounterReturn = (P1_CurrentCounterReturn or 0)
    print('Get P1 Contract start P1:' .. (ContractJaar or '?') .. '/' .. (ContractStartMaand or '?') .. '/' .. (ContractStartDag or '?'))
    print('P1 contract verbruik is ' .. P1_CurrentCounterUsage .. ' - ' .. P1_StartCounterContractUsage .. ' = ' .. (P1_CurrentCounterUsage - P1_StartCounterContractUsage) .. 'kWh')
    print('P1 contract levering is ' .. P1_CurrentCounterReturn .. ' - ' .. P1_StartCounterContractReturn .. ' = ' .. (P1_CurrentCounterReturn - P1_StartCounterContractReturn) .. 'kWh')
    print('P1 contract Netto: ' .. ((P1_CurrentCounterUsage - P1_StartCounterContractUsage) - (P1_CurrentCounterReturn - P1_StartCounterContractReturn)) .. 'kWh')
end
return commandArray