Отчет Профстрой 4: вывод откосов

[oknavekker]

Добрый день, Уважаемые коллеги!

 

У кого есть отчет или часть отчета для вывода информации по откосам в проекте к изделию.

 

Нужен отчет вида: таблица

Столбцы: № изделия | Тип откоса * | Ширина | Материал | Стоимость |

* Внешний или внутренний

 

Или можно поделиться тем, что есть, смогу дописать сам и потом представить результат, в случае, если пригодиться.

 

Взамен готов поделиться имеющимися материалами:

Таблица

"Москитные сетки",

"Подставочный профиль",

"Информация по изделию с выводом фурнитуры, москитной сетки и информации по типу открывания, цвету и названию ручек, накладок".

Прикреплены вложением к письму.

 

Заранее благодарю Вас!

[oknavekker]

Написал отчет, но прошу помочь с исправлением ошибок, в отчете есть ошибка с выводом типа откоса в условии IF - ELSE в "Тип откоса", "Ширина", "Материал", вывод только, что откоса нет, то есть выводит "-":

<!--Таблица: Откосы-->
~Проект:НАЧАЛО~
<!--Выбираем из таблицы "Изделия" только те, у которых переменная "Otkos" >0 (Значение "0" или "1")-->
~SQL1:Установить:SELECT pUnic,oNumb,Otkos FROM ListOrd~
~SQL1:Добавить:WHERE (pUnic=:Индекс1.AsInteger:) AND (Otkos>0)~
~SQL1:Добавить:ORDER BY oNumb~
~SQL1:Начало~
~SQL1:Otkos:AsInt:ОТКОСЫ~
<!--Выбираем из таблицы "SaveOtk" по номеру изделия "размеры и параметры откосов по изделию"-->
~SQL2:Установить:SELECT pNumb,pName,zName FROM SaveOtk~
~SQL2:Добавить:WHERE(pUnic=:SQL1pUnic.AsInteger:)~
~SQL2 :Добавить:AND(oNumb=SQL1oNumb.AsInteger:)~
~SQL2:Добавить:ORDER BY pNumb~
~SQL2:Начало~
~SQL2:pName:AsString~
<!--Выбираем из таблицы "Спецификация" артикулы с фильтром по типу группы "15", суммируем погонаж, количество, отходы, если будут и исходя из этого рассчитываем "Стоимость откосов"-->
~SQL3:Установить:SELECT SUM(aPrc1*aQtyA*(1+aPerc/100)) as Price1, SUM(aPrcD*aQtyA*(1+aPerc/100)) as Price2 FROM SpecPAU WHERE (pUnic=:SQL1pUnic.AsInteger:)AND(aTypP=15)~
~SQL3:Начало~
~AsFloat:СтоимостьОткосовБезСкидок=SQL3Price1~
~AsFloat:СтоимостьОткосовСоСкидками=SQL3Price2~
~SQL3:Конец~
~IF(ОТКОСЫ=0)THEN~
~ENDIF~
~IF(ОТКОСЫ>0)THEN~
<table width="100%" style="BORDER-COLLAPSE: collapse; border:0px solid #333;" class="table-text_12px_normal_black" cellSpacing="0" cellPadding="0" border="0">
 <tr>
<td colspan="5"align="left" valign="middle" style="border-bottom:1px solid #333; padding-left:5px;"><br>
<span class="text_12px_bold_blue">
<strong>ОТКОСЫ</strong>
</span></td>
 </tr>
 <tr>
<td align="center" valign="middle" style="border:1px solid #333; padding-left:5px; padding-right:5px;">Изд. №</td>
<td align="center" valign="middle" style="border:1px solid #333; padding-left:5px; padding-right:5px;">Тип откоса</td>
<td align="center" valign="middle" style="border:1px solid #333; padding-left:5px; padding-right:5px;">Ширина</td>
<td align="center" valign="middle" style="border:1px solid #333; padding-left:5px; padding-right:5px;">Материал</td>
<td align="center" valign="middle" style="border:1px solid #333; padding-left:5px; padding-right:5px;">Стоимость, ~Проект:cNumb:As.Валюта.Обозначение~</td>
 </tr>
 <tr>
<td align="center" valign="middle" style="border:1px solid #333; padding-left:5px; padding-right:5px;">
<!--Номер изделия-->
~SQL1:oNumb:AsInt~
</td>
<td align="center" valign="middle" style="border:1px solid #333; padding-left:5px; padding-right:5px;">
<!--Прописываем условия для того, чтобы вывести "Тип откоса: внешний, внутренний" в зависимости от параметров-->
~IF((SQL2pName=Ширина правого откоса, мм)OR(SQL2pName=Ширина левого откоса, мм)OR(SQL2pName=Ширина верхнего откоса, мм))AND(SQL2zName>0)THEN~Внутренний;

~ELSE~
~IF((SQL2pName=Ширина правого откоса, мм)OR(SQL2pName=Ширина левого откоса, мм)OR(SQL2pName=Ширина верхнего откоса, мм))AND(SQL2zName=0)THEN~-;

~ENDIF~

~IF(SQL2pName=Ширина внешнего откоса, мм)AND(SQL2zName>0)THEN~Внешний

~ELSE~
~IF(SQL2pName=Ширина внешнего откоса, мм)AND(SQL2zName=0)THEN~-

~ELSE~
~ENDIF~
</td>
<td align="center" valign="middle" style="border:1px solid #333; padding-left:5px; padding-right:5px;">
<!--Прописываем условия для того, чтобы вывести "Ширину внешнего, внутреннего откосов" в зависимости от параметров-->
~IF(SQL2pName=Ширина правого откоса, мм)OR(SQL2pName=Ширина левого откоса, мм)OR(SQL2pName=Ширина верхнего откоса, мм)AND(SQL2zName>0)THEN~~SQL2:zName:AsInteger~;

~ELSE~
~IF(SQL2pName=Ширина правого откоса, мм)OR(SQL2pName=Ширина левого откоса, мм)OR(SQL2pName=Ширина верхнего откоса, мм)AND(SQL2zName=0)THEN~-;

~ELSE~
~ENDIF~
~IF(SQL2pName=Ширина внешнего откоса, мм)AND(SQL2zName>0)THEN~~SQL2:zName:AsInteger~

~ELSE~
~IF(SQL2pName=Ширина внешнего откоса, мм)AND(SQL2zName=0)THEN~-

~ELSE~
~ENDIF~
</td>
<td align="center" valign="middle" style="border:1px solid #333; padding-left:5px; padding-right:5px;">
  <!--Прописываем условия для того, чтобы вывести "Материал внешнего, внутреннего откосов" в зависимости от параметров-->
  ~IF(SQL2pName=Материал внутреннего откоса)AND(SQL2zName=Панель)THEN~Панель;

~ELSE~
~IF(SQL2pName=Материал внутреннего откоса)AND(SQL2zName=Сэндвич)THEN~Сэндвич;

~ELSE~
~IF(SQL2pName=Материал внутреннего откоса)AND(SQL2zName=0)THEN~-;

~ELSE~
~ENDIF~

~IF(SQL2pName=Материал внешнего откоса)AND(SQL2zName=Панель)THEN~Панель;

~ELSE~
~IF(SQL2pName=Материал внешнего откоса)AND(SQL2zName=Сэндвич)THEN~Сэндвич;

~ELSE~
~IF(SQL2pName=Материал внешнего откоса)AND(SQL2zName=0)THEN~-;

~ELSE~
~ENDIF~
</td>
<td align="center" valign="middle" style="border:1px solid #333; padding-left:5px; padding-right:5px;">
~AsFloat:СтоимостьОткосовБезСкидок~
</td>
 </tr>
 ~ENDIF~

 ~IF(ОбщСтоимостьОткосовБезСкидок>0)THEN~
 ~AsFloat:ОбщСтоимостьОткосовБезСкидок=ОбщСтоимостьОткосовБезСкидок+СтоимостьОткосовБезСкидок~
 ~AsFloat:ОбщСтоимостьОткосовСоСкидками=ОбщСтоимостьОткосовСоСкидками+СтоимостьОткосовСоСкидками~

 ~SQL2:Конец~
~SQL1:Конец~
 <tr>
<td colspan="4" align="right" valign="middle" style="border:1px solid #333; padding-left:5px; padding-right:5px;">
<strong>Стоимость откосов без скидки, ~Проект:cNumb:As.Валюта.Обозначение~</strong>
</td>
<td align="center" valign="middle" style="border:1px solid #333; padding-left:5px; padding-right:5px;">
<strong>~AsFloat:ОбщСтоимостьОткосовБезСкидок~</strong>
</td>
 </tr>
 <tr>
<td colspan="4" align="right" valign="middle" style="border:1px solid #333; padding-left:5px; padding-right:5px;">
<span class="text_12px_bold_blue">
<strong>Итогово за откосы, ~Проект:cNumb:As.Валюта.Обозначение~:</strong>
</span>
</td>
<td align="center" valign="middle" style="border:1px solid #333; padding-left:5px; padding-right:5px;">
<span class="text_12px_bold_blue">
<strong>~AsFloat:ОбщСтоимостьОткосовБезСкидок~</strong>
</span>
</td>
 </tr>
~ENDIF~
</table>
~Проект:КОНЕЦ~
<!--Таблица: Откосы-->