452 lines
20 KiB
Plaintext
452 lines
20 KiB
Plaintext
<cfsilent>
|
||
<cfimport prefix="m" taglib="lib"/>
|
||
<cfimport prefix="c" taglib="lib/controls"/>
|
||
<cfimport prefix="d" taglib="lib/data"/>
|
||
<cfimport prefix="layout" taglib="layout"/>
|
||
</cfsilent>
|
||
|
||
<m:prepare_ls entity="crm2cloud" settingsKey="crm2cloud" accessObject="" pageInfoOut="pageInfo" trackOut="tr"/>
|
||
|
||
<!--- *** нуждается в оптимизации, чтобы фильтр по контрагенту ускорял селект --->
|
||
|
||
<cfquery name="qRead" cachedWithin=#createTimeSpan(0, 0, 25, 0)#>
|
||
WITH
|
||
status(status, status_id, probability_pc) as
|
||
(
|
||
VALUES
|
||
('Закрыта неуспешно',7,0) ,
|
||
('Закрыта успешно',6,100) ,
|
||
('Договор подписан',5,100) ,
|
||
('Договор на подписании',15,90) ,
|
||
('Договор на согласовании',12,70),
|
||
('Тестирование',8,50) ,
|
||
('Отправлено ТКП',10,20) ,
|
||
('Внутреннее согласование',37,10),
|
||
('Проработка решения',4,10) ,
|
||
('Сбор потребностей',1,0)
|
||
),
|
||
line_expanded as
|
||
(
|
||
SELECT
|
||
siv.__id as siv_uid ,
|
||
siv.discount ,
|
||
siv.type as line_pricing_model_id ,
|
||
siv.hash as line_key ,
|
||
siv.is_actual as siv_is_actual ,
|
||
siv.version::numeric as line_version ,
|
||
d.__index as deal_index ,
|
||
d._companies ,
|
||
a.index as agreement_version ,
|
||
siv.date_nop::date as dt_from ,
|
||
siv.date_end::date as dt_to ,
|
||
siv.is_easy as is_simple ,
|
||
siv.cnt ,
|
||
s.probability_pc ,
|
||
a.__id as agreement_uid ,
|
||
a.contract_uid ,
|
||
a.is_actual as agreement_is_actual ,
|
||
a.deal_uid ,
|
||
d.__name as deal ,
|
||
d.__status_status as deal_status_id ,
|
||
siv.user_description ,
|
||
unnest(siv.params) as param_id
|
||
FROM
|
||
elma.deals_services siv
|
||
JOIN elma.deals d on (d.__id = ANY(siv.deal))
|
||
JOIN status s on (d.__status_status=s.status_id)
|
||
LEFT JOIN elma.additional_agreements a on (a.__id = ANY(siv.additional_agreement))
|
||
WHERE
|
||
siv.is_actual
|
||
AND siv."__deletedAt" IS NULL
|
||
and d."__deletedAt" IS NULL
|
||
and a."__deletedAt" IS NULL
|
||
and s.probability_pc >= 50
|
||
--and a.is_actual
|
||
and siv.type IN (2,3)
|
||
),
|
||
component as
|
||
(
|
||
SELECT
|
||
-- price*cnt*(100.0-COALESCE(discount,0))/100.0 as cost ,
|
||
-- price ,
|
||
cnt ,
|
||
code ,
|
||
__id
|
||
FROM
|
||
elma.service_parametrs
|
||
where
|
||
"__deletedAt" IS NULL
|
||
),
|
||
stair as
|
||
(
|
||
select
|
||
*
|
||
FROM
|
||
(
|
||
SELECT
|
||
*,
|
||
MIN(dt_from) OVER (PARTITION BY line_key ORDER BY deal_index desc) running_min_dt
|
||
FROM
|
||
line_expanded
|
||
--line
|
||
WHERE
|
||
probability_pc > 0
|
||
) t
|
||
WHERE
|
||
t.dt_from = t.running_min_dt
|
||
AND ( t.dt_to > CURRENT_TIMESTAMP OR t.dt_to IS NULL )
|
||
),
|
||
alloc as
|
||
(
|
||
select
|
||
c."WZ" as wz ,
|
||
round(sum(c."VM_RAM_Allocated")) as ram ,
|
||
round(sum(CASE WHEN "VM_is_ON" > 0 THEN c."VM_RAM_Allocated" ELSE 0 END)) as ram_on ,
|
||
round(sum(c."VM_vCPU_count")) as cpu ,
|
||
round(sum(CASE WHEN "VM_is_ON" > 0 then c."VM_vCPU_count" ELSE 0 END)) as cpu_on
|
||
from
|
||
vmreports.compute c
|
||
where
|
||
ts= (select max(ts) from vmreports.compute)
|
||
group by c."WZ"
|
||
),
|
||
disk_alloc as
|
||
(
|
||
select
|
||
c."WZ" as wz ,
|
||
round(sum(c."Disk_Allocated")) as disk_alloc
|
||
from
|
||
vmreports.storage c
|
||
where
|
||
ts= (select max(ts) from vmreports.compute)
|
||
group by
|
||
c."WZ" ),
|
||
sold_ram as
|
||
(
|
||
SELECT
|
||
z.id_klienta as WZ ,
|
||
z.__name as client ,
|
||
z.__id as company_uid,
|
||
round(sum(c.cnt*o.cnt)) as quantity ,
|
||
count(*) as lines ,
|
||
STRING_AGG(distinct c.code,', ' order by c.code) as codes
|
||
FROM
|
||
stair o
|
||
JOIN elma.companies z on o._companies=z.__id
|
||
LEFT JOIN component c on c.__id = o.param_id
|
||
--LEFT JOIN component c on (c.__id = ANY (o.params))
|
||
WHERE
|
||
--c.code SIMILAR TO 'iaas.(ngc|dcp).%.ram-_'
|
||
(c.code LIKE 'iaas.ngc.%.ram-_' OR c.code LIKE 'iaas.dcp.%.ram-_')
|
||
AND c.cnt <> 0
|
||
AND o.cnt <> 0
|
||
GROUP BY
|
||
z.id_klienta,
|
||
z.__id ,
|
||
z.__name
|
||
),
|
||
sold_cpu as
|
||
(
|
||
SELECT
|
||
z.id_klienta as WZ ,
|
||
z.__name as client ,
|
||
z.__id as company_uid,
|
||
round(sum(c.cnt*o.cnt)) as quantity ,
|
||
count(*) as lines ,
|
||
STRING_AGG(distinct c.code,', ' order by c.code) as codes
|
||
FROM
|
||
stair o
|
||
JOIN
|
||
elma.companies z on (o._companies=z.__id)
|
||
LEFT JOIN component c on c.__id = o.param_id
|
||
--LEFT JOIN component c on (c.__id = ANY (o.params))
|
||
WHERE
|
||
--c.code SIMILAR TO 'iaas.(ngc|dcp).%.vcpu%-_'
|
||
(c.code LIKE 'iaas.ngc.%.vcpu%-_' OR c.code LIKE 'iaas.dcp.%.vcpu%-_')
|
||
AND c.cnt <> 0
|
||
AND o.cnt <> 0
|
||
GROUP BY
|
||
z.id_klienta,
|
||
z.__id ,
|
||
z.__name
|
||
),
|
||
sold_disk as
|
||
(
|
||
SELECT
|
||
z.id_klienta as WZ ,
|
||
z.__name as client ,
|
||
z.__id as company_uid,
|
||
round(sum(c.cnt*o.cnt)) as quantity ,
|
||
count(*) as lines ,
|
||
STRING_AGG(distinct c.code,', ' order by c.code) as codes
|
||
FROM
|
||
stair o
|
||
JOIN elma.companies z on (o._companies=z.__id)
|
||
LEFT JOIN component c on c.__id = o.param_id
|
||
--LEFT JOIN component c on (c.__id = ANY (o.params))
|
||
WHERE
|
||
--c.code SIMILAR TO 'iaas.(ngc|dcp).%.(ssd|fstssd|sata)-_'
|
||
(c.code LIKE 'iaas.ngc.%.ssd-_' OR c.code LIKE 'iaas.dcp.%.ssd-_'
|
||
or c.code LIKE 'iaas.ngc.%.fstssd-_' OR c.code LIKE 'iaas.dcp.%.fstssd-_'
|
||
or c.code LIKE 'iaas.ngc.%.sata-_' OR c.code LIKE 'iaas.dcp.%.sata-_'
|
||
)
|
||
AND c.cnt <> 0
|
||
AND o.cnt <> 0
|
||
GROUP BY
|
||
z.id_klienta,
|
||
z.__id ,
|
||
z.__name
|
||
),
|
||
sold_gpu as
|
||
(
|
||
SELECT
|
||
z.id_klienta as WZ ,
|
||
z.__name as client ,
|
||
z.__id as company_uid,
|
||
round(sum(c.cnt*o.cnt)) as quantity ,
|
||
count(*) as lines ,
|
||
STRING_AGG(distinct c.code,', ' order by c.code) as codes
|
||
FROM
|
||
stair o
|
||
JOIN
|
||
elma.companies z on (o._companies=z.__id)
|
||
LEFT JOIN component c on c.__id = o.param_id
|
||
WHERE
|
||
--c.code SIMILAR TO 'iaas.(ngc|dcp).%.vcpu%-_'
|
||
(c.code LIKE 'iaas.ngc.%.gpu%-_' OR c.code LIKE 'iaas.dcp.%.gpu%-_')
|
||
AND c.cnt <> 0
|
||
AND o.cnt <> 0
|
||
GROUP BY
|
||
z.id_klienta,
|
||
z.__id ,
|
||
z.__name
|
||
),
|
||
gpu_alloc as
|
||
(
|
||
select
|
||
c."ClientID" as wz ,
|
||
-- json_agg("GPU") as gpu,
|
||
string_agg("GPU"::text||' '||"OrgStatus",', ') as gpu,
|
||
count(*) as gpu_alloc
|
||
from
|
||
vmreports.vm_gpu c
|
||
where
|
||
ts= (select max(ts) from vmreports.vm_gpu)
|
||
group by
|
||
c."ClientID" ),
|
||
deal_stat as
|
||
(
|
||
select
|
||
STRING_AGG(distinct deal_status_id::text,', ' order by deal_status_id::text) as status_ids,
|
||
ARRAY_AGG(distinct deal_status_id order by deal_status_id) as ar_status_ids,
|
||
STRING_AGG(distinct line_pricing_model_id::text,', ' order by line_pricing_model_id::text) as line_pricing_model_ids ,
|
||
ARRAY_AGG(distinct line_pricing_model_id order by line_pricing_model_id) as ar_line_pricing_model_id,
|
||
z.id_klienta as WZ
|
||
from
|
||
line_expanded o
|
||
--line o
|
||
join elma.companies z on (o._companies=z.__id)
|
||
GROUP BY
|
||
z.id_klienta
|
||
)
|
||
|
||
|
||
|
||
select
|
||
<d:field_set titleMapOut="titleMap" lengthOut="fieldCount">
|
||
<d:field title="WZ Elma">r.wz as wz_sold</d:field>
|
||
<d:field title="Клиент">r.client as client_sold</d:field>
|
||
<d:field>r.company_uid</d:field>
|
||
<d:field title="WZ Cloud">a.wz as wz_alloc</d:field>
|
||
<d:field title="Статусы">ds.status_ids</d:field>
|
||
<d:field title="Модели оплаты">ds.line_pricing_model_ids</d:field>
|
||
<d:field title="Коды RAM">r.codes as ram_codes</d:field>
|
||
<d:field title="RAM GB Elma">r.quantity as ram_sold</d:field>
|
||
<d:field title="RAM Cloud">a.ram as ram_alloc</d:field>
|
||
<d:field title="RAM Cloud ON">a.ram_on as ram_alloc_on</d:field>
|
||
<d:field title="Коды CPU">c.codes as cpu_codes</d:field>
|
||
<d:field title="CPU Elma">c.quantity as cpu_sold</d:field>
|
||
<d:field title="CPU Cloud">a.cpu as cpu_alloc</d:field>
|
||
<d:field title="CPU Cloud ON">a.cpu_on as cpu_alloc_on</d:field>
|
||
<d:field title="Коды Дисков">d.codes as disk_codes</d:field>
|
||
<d:field title="Диски GB Elma">d.quantity as disk_sold</d:field>
|
||
<d:field title="Диски Cloud">da.disk_alloc</d:field>
|
||
<d:field title="Коды GPU">g.codes as gpu_codes</d:field>
|
||
<d:field title="GPU Elma">g.quantity as gpu_sold</d:field>
|
||
<d:field title="GPU Cloud">ga.gpu_alloc</d:field>
|
||
<d:field title="GPU">ga.gpu</d:field>
|
||
<d:field>z.__name as alloc_company</d:field>
|
||
<d:field>z.__id as alloc_company_uid</d:field>
|
||
<d:field>ds.ar_status_ids</d:field>
|
||
</d:field_set>
|
||
from sold_ram r
|
||
join deal_stat ds on (lower(r.wz)=lower(ds.wz))
|
||
join sold_cpu c on (lower(r.wz)=lower(c.wz))
|
||
left join sold_disk d on (lower(r.wz)=lower(d.wz))
|
||
left join sold_gpu g on (lower(r.wz)=lower(g.wz))
|
||
full join alloc a on (lower(r.wz)=lower(a.wz))
|
||
left join disk_alloc da on (a.wz=da.wz)
|
||
left join gpu_alloc ga on (a.wz=ga.wz)
|
||
left join elma.companies z on (lower(a.wz)=lower(z.id_klienta))
|
||
where 1=1 <m:filter_build filter=#pageInfo.settings.filter#/>
|
||
order by <m:order_build sortArray=#pageInfo.settings.sort.sortArray# fieldCount=#fieldCount#/>
|
||
</cfquery>
|
||
|
||
|
||
<!--- <cfdump var=#qRead#> --->
|
||
|
||
|
||
<cfif isDefined("output_xls")>
|
||
<layout:xml qRead=#qRead# titleMap=#titleMap# filename="#pageInfo.entity#.xml"/>
|
||
<cfabort/>
|
||
</cfif><cfif isDefined("output_json")>
|
||
<layout:json qRead=#qRead# titleMap=#titleMap# filename="#pageInfo.entity#.json"/>
|
||
<cfabort/>
|
||
</cfif><!---
|
||
---><layout:page section="header" pageInfo=#pageInfo#>
|
||
|
||
<layout:attribute name="title">
|
||
<cfoutput><b>Сверка CRM - Cloud</b></cfoutput>
|
||
</layout:attribute>
|
||
|
||
</layout:page>
|
||
|
||
<!--- <cfdump var=#qRead# abort=true/> --->
|
||
|
||
|
||
<!---<cfoutput> <form method="post" action="">
|
||
Период с <input type="text" name="dt_start" value="#dateFormat(dt_start,'YYYY-MM-DD')#"/>
|
||
по <input type="text" name="dt_finish" value="#dateFormat(dt_finish,'YYYY-MM-DD')#"/>
|
||
<input type="submit" style="cursor:pointer;"/>
|
||
<input type="submit" name="DEBUG" value="DEBUG" style="cursor:pointer;"/>
|
||
</form> --->
|
||
<!--- Часов в периоде: <b>#hours#</b> Строк в отчете: <b>#qCharge.recordCount#</b><br/>
|
||
Актуальность данных:
|
||
VCD Computing: <b>#dateFormat(qComputingAge.dt_load,'YYYY-MM-DD')# #timeFormat(qComputingAge.dt_load,'HH:MM:SS')#</b>
|
||
VCD Storage: <b>#dateFormat(qStorageAge.dt_load,'YYYY-MM-DD')# #timeFormat(qStorageAge.dt_load,'HH:MM:SS')#</b>
|
||
S3 хранение: <b>#dateFormat(qS3VolAge.dt_load,'YYYY-MM-DD')# #timeFormat(qS3VolAge.dt_load,'HH:MM:SS')#</b>
|
||
S3 операции и трафик: <b>#dateFormat(qS3OpsTrfAge.dt_load,'YYYY-MM-DD')# #timeFormat(qS3OpsTrfAge.dt_load,'HH:MM:SS')#</b>
|
||
--->
|
||
<!--- <br/>
|
||
<a href="#request.thisPage#?output_xls" title="экспорт в Excel" style="margin-left:.5em; height:100%;" target="_blank"><img src="img/xls.gif" style="vertical-align:text-bottom;"/></a>
|
||
<a href="#request.thisPage#?output_json" title="экспорт в json" style="margin-left:.5em; height:100%;" target="_blank"><img src="img/json.svg" style="vertical-align:text-bottom;" width="13" height="13"/></a></cfoutput>
|
||
<br/> --->
|
||
<layout:grid_summary
|
||
recordCount=#qRead.recordCount#
|
||
footerOut="gridFooter"
|
||
excelLink="Yes"
|
||
jsonLink="Yes"
|
||
/>
|
||
|
||
<table class="worktable">
|
||
<thead>
|
||
<layout:grid_head titleMap=#titleMap# sortArray=#pageInfo.settings.sort.sortArray#>
|
||
|
||
<th width="5%"><layout:column_head name="wz_sold"/></th>
|
||
<th width="10%"><layout:column_head name="client_sold"/></th>
|
||
<th width="5%"><layout:column_head name="wz_alloc"/></th>
|
||
<th width="3%"><layout:column_head name="status_ids"/></th>
|
||
<th width="3%"><layout:column_head name="line_pricing_model_ids"/></th>
|
||
|
||
<th width="10%"><layout:column_head name="cpu_codes"/></th>
|
||
<th width="3%"><layout:column_head name="cpu_sold"/></th>
|
||
<th width="3%"><layout:column_head name="cpu_alloc"/></th>
|
||
<th width="3%"><layout:column_head name="cpu_alloc_on"/></th>
|
||
|
||
<th width="10%"><layout:column_head name="ram_codes"/></th>
|
||
<th width="3%"><layout:column_head name="ram_sold"/></th>
|
||
<th width="3%"><layout:column_head name="ram_alloc"/></th>
|
||
<th width="3%"><layout:column_head name="ram_alloc_on"/></th>
|
||
|
||
<th width="10%"><layout:column_head name="disk_codes"/></th>
|
||
<th width="3%"><layout:column_head name="disk_sold"/></th>
|
||
<th width="3%"><layout:column_head name="disk_alloc"/></th>
|
||
|
||
<th width="10%"><layout:column_head name="gpu_codes"/></th>
|
||
<th width="3%"><layout:column_head name="gpu_sold"/></th>
|
||
<th width="3%"><layout:column_head name="gpu_alloc"/></th>
|
||
<th width="10%"><layout:column_head name="gpu"/></th>
|
||
<!--- <th width="3%"><layout:column_head name="disk_sold"/></th> --->
|
||
|
||
|
||
</layout:grid_head>
|
||
</thead>
|
||
|
||
<cfflush/>
|
||
|
||
<cfoutput query="qRead">
|
||
<tr>
|
||
<td>#wz_sold#</td>
|
||
<td>
|
||
<cfif len(wz_sold)>
|
||
<a href="contragent_rpt.cfm?__id=#company_uid#&#tr.fwx#">#client_sold#</a>
|
||
<cfelse>
|
||
<a href="contragent_rpt.cfm?__id=#alloc_company_uid#&#tr.fwx#">#alloc_company#</a>
|
||
</cfif>
|
||
</td>
|
||
<td>#wz_alloc#</td>
|
||
<td>#status_ids#</td>
|
||
<td>#line_pricing_model_ids#</td>
|
||
|
||
<td>#cpu_codes#</td>
|
||
<td class="r"<cfif cpu_sold GT ram_alloc> style="background:lightgreen;"</cfif>>#cpu_sold#</td>
|
||
<td class="r"<cfif cpu_sold LT cpu_alloc> style="background:lightcoral;"</cfif>>#cpu_alloc#</td>
|
||
<td class="r"<cfif cpu_sold LT cpu_alloc_on> style="background:lightcoral;"</cfif>>#cpu_alloc_on#</td>
|
||
|
||
<td>#ram_codes#</td>
|
||
<td class="r"<cfif ram_sold GT ram_alloc> style="background:lightgreen;"</cfif>>#ram_sold#</td>
|
||
<td class="r"<cfif ram_sold LT ram_alloc> style="background:lightcoral;"</cfif>>#ram_alloc#</td>
|
||
<td class="r"<cfif ram_sold LT ram_alloc_on> style="background:lightcoral;"</cfif>>#ram_alloc_on#</td>
|
||
|
||
<td>#disk_codes#</td>
|
||
<td class="r"<cfif disk_sold GT disk_alloc> style="background:lightgreen;"</cfif>>#disk_sold#</td>
|
||
<td class="r"<cfif disk_sold LT disk_alloc> style="background:lightcoral;"</cfif>>#disk_alloc#</td>
|
||
|
||
<td>#gpu_codes#</td>
|
||
<td class="r"<cfif gpu_sold GT gpu_alloc> style="background:lightgreen;"</cfif>>#gpu_sold#</td>
|
||
<td class="r"<cfif gpu_sold LT gpu_alloc> style="background:lightcoral;"</cfif>>#gpu_alloc#</td>
|
||
<td>#gpu#</td>
|
||
</tr>
|
||
</cfoutput>
|
||
|
||
<cfquery name="qTotal" dbtype="query">
|
||
select
|
||
sum(cpu_sold) as cpu_sold
|
||
,sum(cpu_alloc) as cpu_alloc
|
||
,sum(cpu_alloc_on) as cpu_alloc_on
|
||
,sum(ram_sold) as ram_sold
|
||
,sum(ram_alloc) as ram_alloc
|
||
,sum(ram_alloc_on) as ram_alloc_on
|
||
,sum(disk_sold) as disk_sold
|
||
,sum(disk_alloc) as disk_alloc
|
||
,sum(gpu_sold) as gpu_sold
|
||
from qRead
|
||
</cfquery>
|
||
|
||
<cfoutput query="qTotal">
|
||
<tr class="b r">
|
||
|
||
<td colspan="6">Итого</td>
|
||
|
||
<td class="r"<cfif cpu_sold GT ram_alloc> style="background:lightgreen;"</cfif>>#cpu_sold#</td>
|
||
<td class="r"<cfif cpu_sold LT cpu_alloc> style="background:lightcoral;"</cfif>>#cpu_alloc#</td>
|
||
<td class="r"<cfif cpu_sold LT cpu_alloc_on> style="background:lightcoral;"</cfif>>#cpu_alloc_on#</td>
|
||
|
||
<td></td>
|
||
<td class="r"<cfif ram_sold GT ram_alloc> style="background:lightgreen;"</cfif>>#ram_sold#</td>
|
||
<td class="r"<cfif ram_sold LT ram_alloc> style="background:lightcoral;"</cfif>>#ram_alloc#</td>
|
||
<td class="r"<cfif ram_sold LT ram_alloc_on> style="background:lightcoral;"</cfif>>#ram_alloc_on#</td>
|
||
|
||
<td></td>
|
||
<td class="r"<cfif disk_sold GT disk_alloc> style="background:lightgreen;"</cfif>>#disk_sold#</td>
|
||
<td class="r"<cfif disk_sold LT disk_alloc> style="background:lightcoral;"</cfif>>#disk_alloc#</td>
|
||
|
||
<td></td>
|
||
<td class="r">#gpu_sold#</td>
|
||
</tr>
|
||
</cfoutput>
|
||
|
||
</table>
|
||
<layout:page section="footer"/>
|
||
|