{"SOURCE":"ReportMaster: Ubilling 1.5.9 rev 9523","REPORTID":"rm1766752372","REPORTCODE":"REPORT_NAME=\"\u0411\u043e\u0440\u0436\u043d\u0438\u043a\u0438 \u043f\u043e \u043c\u0456\u0441\u044f\u0446\u044f\u0445\"\nREPORT_TYPE=\"ONEPUNCH\"\nREPORT_ALLOWADMINS=\"\"\nREPORT_QUERY=\"debtorsmonthcount\"\nREPORT_ONTB=\"1\"\nREPORT_AOTD=\"0\"\nREPORT_ICON=\"moon.png\"\n","OPSCRIPT":{"id":"113","alias":"debtorsmonthcount","name":"\u0411\u043e\u0440\u0436\u043d\u0438\u043a\u0438 \u0437\u0430 \u0441\u043a\u0456\u043b\u044c\u043a\u0438\u0441\u044c \u0442\u0430\u043c \u043c\u0456\u0441\u044f\u0446\u0456\u0432 (RM)","content":"    $allUsers=zb_UserGetAllDataCache();\r\n    $allTariffs=zb_TariffGetAllData();\r\n\r\n    $result='';\r\n    $monthDebtLimit=ubRouting::checkPost('monthdebtlimit') ? ubRouting::post('monthdebtlimit', 'int') : 6;\r\n    $inputs=wf_TextInput('monthdebtlimit', __('Month'), $monthDebtLimit, false, '3', 'digits');\r\n    $inputs.=wf_Submit(__('Show'));\r\n    $form=wf_Form('', 'POST', $inputs, 'glamour');\r\n    show_window(__(''),$form);\r\n    $debtors=array();\r\n\r\n    if (!empty($allUsers) and !empty($allTariffs)) {\r\n        foreach ($allUsers as $userLogin=>$userData) {\r\n            $login=$userLogin;\r\n            $tariff=$userData['Tariff'];\r\n            \r\n            if (isset($allTariffs[$tariff])) {\r\n                $tariffData=$allTariffs[$tariff];\r\n                $tariffName=$tariffData['name'];\r\n                $tariffFee=$tariffData['Fee'];\r\n                $tariffPeriod=$tariffData['period'];\r\n                $monthFee=$tariffFee;\r\n                if ($tariffPeriod=='day') {\r\n                    $monthFee=$tariffFee*30;\r\n                }\r\n\r\n                $maxDebt=$monthFee*$monthDebtLimit;\r\n                if ($userData['Cash']<=('-'.$maxDebt)) {\r\n                    $debtors[$login]=$userData['login'];\r\n                }\r\n            }\r\n        }\r\n\r\n        $result=web_UserArrayShower($debtors);\r\n        show_window(__('Debtors').' > '.$monthDebtLimit.' '.__('month'),$result);\r\n    } else {\r\n        show_error('No users or tariffs found');\r\n    }\r\n\r\n"}}