006 improvements xl export, removed outdated lines

Application.cfc

@@ -99,7 +99,7 @@
 		
 		
 		<cfset request.RECORDS_PER_PAGE=500/>
-		<cfset request.APP_VERSION="0.00.005"/>
+		<cfset request.APP_VERSION="0.00.006"/>
 		<cfset request.STAND=getStand()/>		
 		
 		<cflock scope="application" type="readonly" timeout=3>

additional_agreement.cfm

@@ -1,3 +1,6 @@
+UNDER CONSTRUCTION<cfabort/>
+
+
 <cfsilent>
 <cfimport prefix="m" taglib="lib"/>
 <cfimport prefix="c" taglib="lib/controls"/>

deal.cfm

@@ -0,0 +1 @@
+UNDER CONSTRUCTION

payg.cfm

@@ -43,6 +43,8 @@
 	join elma.additional_agreements aa on (aa.__id = ANY(siv.additional_agreement))
 	join elma.aggrements a on (aa.contract_uid = a.__id)
 	where p.type=3 AND aa.is_actual
+	AND siv.date_nop < <cfqueryparam cfsqltype="cf_sql_timestamp" value=#dt_finish#/> 
+	AND (siv.date_end > <cfqueryparam cfsqltype="cf_sql_timestamp" value=#dt_start#/> OR siv.date_end IS NULL)
 	order by k.id_klienta, p.code
 </cfquery>
 <cfquery name="qSivAge" datasource="dwh">
@@ -246,31 +248,47 @@ select wz, code || '.trf-m', bytes_sent as raw_metric, bytes_sent_gb as metric,
 
 <cfquery name="qCharge" dbType="query">
 SELECT 
- s.wz
+<d:field_set titleMapOut="titleMap" lengthOut="fieldCount">
-,s.code
+	<d:field title="WZ">s.wz</d:field>
-,s.price
+	<d:field title="Артикул">s.code</d:field>
-,s.discount
+	<d:field title="Кол-во (метрика)" cfSqlType="CF_SQL_NUMERIC">m.chargeable_metric</d:field>
-,s.contragent, s.contragent_uid
+	<d:field title="Ед.изм.">s.ed_izm</d:field>
-,s.contract,s.contract_uid
+	<d:field title="Цена &##8381; с НДС" cfSqlType="CF_SQL_NUMERIC">s.price*(100-s.discount)/100 as discounted_price</d:field>
-,s.deal, s.deal_uid
+	<d:field title="Стоимость &##8381; с НДС" cfSqlType="CF_SQL_NUMERIC">s.price*(100-s.discount)/100*m.chargeable_metric as charge</d:field>
-,s.additional_agreement, s.additional_agreement_uid
+	<d:field title="Дата НОУ" cfSqlType="CF_SQL_TIMESTAMP">s.dt_from</d:field>
-,s.abstract_service
+	<d:field title="Дата оконч." cfSqlType="CF_SQL_TIMESTAMP">s.dt_to</d:field>
-,s.modifier
+	<d:field title="Ключ строки">s.line_key</d:field>
-,user_description
+	<d:field title="GPL с НДС" cfSqlType="CF_SQL_NUMERIC">s.price</d:field>
-,s.ed_izm
+	<d:field title="Скидка%" cfSqlType="CF_SQL_NUMERIC">s.discount</d:field>
-,s.line_key, s.dt_from, s.dt_to
+	<d:field title="Сырая метрика" cfSqlType="CF_SQL_NUMERIC">m.raw_metric</d:field>
-,s.deal,s.abstract_service,s.modifier,s.user_description
+	<d:field title="Приведен&shy;ная метрика" cfSqlType="CF_SQL_NUMERIC">m.metric</d:field>
-,m.raw_metric
+	<d:field title="Контрагент">s.contragent</d:field>
-,m.metric
+	<d:field title="contragent_uid">s.contragent_uid</d:field>
-,m.chargeable_metric
+	<d:field title="Договор">s.contract</d:field>
-,s.price*(100-s.discount)/100 as discounted_price
+	<d:field title="contract_uid">s.contract_uid</d:field>
-,s.price*(100-s.discount)/100*m.chargeable_metric as charge
+	<d:field title="Допник">s.additional_agreement</d:field>
+	<d:field title="additional_agreement_uid">s.additional_agreement_uid</d:field>
+	<d:field title="Сделка">s.deal</d:field>
+	<d:field title="deal_uid">s.deal_uid</d:field>
+	<d:field title="Абстрактная услуга">s.abstract_service</d:field>
+	<d:field title="Модификатор">s.modifier</d:field>
+	<d:field title="Клиентс. назв.">s.user_description</d:field>
+</d:field_set>
 FROM qSpec as s, qUnifiedMetric as m WHERE s.wz=m.wz AND s.code=m.code
 order by s.wz, s.code
 </cfquery>
 <!--- looks like QoQ does not support join syntax, at least of Lucee 5.4--->
 
-<layout:page section="header" pageInfo=#pageInfo#>	
+
+
+<cfif isDefined("output_xls")>
+	<layout:xml qRead=#qCharge# titleMap=#titleMap# filename="#pageInfo.entity#.xml"/>
+	<cfabort/>
+	</cfif><cfif isDefined("output_json")>
+	<layout:json qRead=#qCharge# titleMap=#titleMap# filename="#pageInfo.entity#.json"/>
+	<cfabort/>
+	</cfif><!--- 
+---><layout:page section="header" pageInfo=#pageInfo#>	
 	
 	<layout:attribute name="title">
 		<cfoutput><b>Отчет по PAYG</b></cfoutput>
@@ -284,7 +302,7 @@ order by s.wz, s.code
 Внимание! округление вверх при расчете метрик get, put S3. Расчетные суммы могут содержать погрешности округления, поэтому окончательный расчет стоимости (количество * цену) должен выполняться в бухгалтерской программе.
 <b>Если у клиента больше 1 действующего допника с услугами PAYG, то данные в отчете могут быть замножены, в этом случае считать вручную</b>
 <br/>
-Даты актуальности пока проверять вручную
+Даты актуальности пока проверять вручную. Обращать внимание на замножение строк.
 <cfoutput>
 <form method="post" action="">
 Период с <input type="text" name="dt_start" value="#dateFormat(dt_start,'YYYY-MM-DD')#"/>
@@ -298,11 +316,12 @@ VCD Computing: <b>#dateFormat(qComputingAge.dt_load,'YYYY-MM-DD')# #timeFormat(q
 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>
-</cfoutput>
-<!--- <cfdump var=#dt_start#/>
-<cfdump var=#dt_finish#/>
-<cfdump var=#hours#/> --->
 
+<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>
 <table class="worktable">	
 	<thead>
 		<td width="1%"></td>