Паровозы — это круто.
Паровозы — это красиво.
Паровозы — это мощно.
После посещения базы хранения паровозов под Смоленском я стал большим поклонником этих огромных, чёрных, пыхающих паром машин. Ссылка на статью внизу.
До базы хранения ехать из Москвы больше 480 км, а посмотреть на паровозы и снова почувствовать их мощь хочется.
Самое ближайшее место, где это можно сделать Музейно – производственный комплекс «Паровозное депо» на станции «Подмосковная».
Берём ноги в руки и отправляемся на экскурсию.
Паровоз — самая надежная техника для обеспечения перевозок грузов: случись война, паровоз может работать, используя только угль, дрова и воду.
А производимый котлом пар можно использовать в хозяйственных нуждах. Идеальная машина.
 

Перед входом в музей маневрирует паровоз. Его пыхтение слышно издалека.

Тёплая ламповая картинка про машиниста =)

Тёплая ламповая картинка про машиниста =)Недалеко на путях стоят два старых, ржавых и фотогеничных паровоза, ждут своей очереди на реставрацию.


От входа идти до них далеко, но если вам нужна фактурная фотография, то подойти стоит непременно.


Музей небольшой, но насыщенный экспонатами. Обойти всё можно за час-полтора.


На территории в здании вокзала есть стилизованные комнаты телеграфа, буфета, багажного отделения и смотрителя станции.


Элементы и детали экспозиций собраны с большой любовью к деталям.


Буфет.

Багаж.

Первый русский паровоз Черепановых. Копия.


Прелесть музея в том, что в эти паровозы можно залезть и поглазеть, что там внутри. Для России это очень большая редкость. Обычно ничего нельзя, а тут хочешь — залезай.


Паровоз — фотогеничная машина. Много узлов и деталей, много трубок и изгибов. Фотографировать его приятно.
Особенно крупные планы.

.

Паровозный круг для разворота паровозов. Более 100 лет назад круг приводили в движение рабочие, а не лошади. Оказывается лошади очень боятся паровозов.


Маневровый локомотив. С помощью него передвигаются вагоны, паровозы и другая техника на ж.д. ходу.


В музее есть депо и есть действующий механический цех. Все станки для обработки металла в рабочем состоянии.


Как и положено — всё в масле и в стружке!


Интерактивный и зрелищный экспонат. Паровоз в разрезе.


Наглядно и понятно показаны процессы, происходящие внутри паровоза при движении.
Выглядит очень!


Я не смог отказать себе забраться в кабину паровоза.


Внутри куча рычажков, переключалок и неведомых трубок.

В 40-х и 50-тых годах прошлого века профессия машинист паровоза считалась престижной и почётной. Доподлинно известно, что машинист I класса по уровню жизни был на наравне с армейским полковником. А это вам не хухры мухры.
Машинист паровоза должен был держать в голове огромное количество различных факторов: следить за отсечкой, запасом воды, давлением в котле, влажностью угля и прочее.
А еще машинист должен на свой страх и риск принимать ответственные решения по движению состава и знать профиль пути.
Напоминаю, мобильной связи тогда еще не придумали =)
.
Смело могу рекомендовать Музейно – производственный комплекс «Паровозное депо» на станции «Подмосковная» для посещения всей семьёй. Познавательно, интересно и красиво. Россия, г. Москва. 2-ой Амбулаторный проезд, д. 8-А. Метро "Динамо", далее автобусами №105, 110 до остановки "МИИТ". От метро "Сокол" пешком до железнодорожной станции Красный Балтиец. Ср. - вс.: 10:00-16:00 Выходные: пн., вт.

PS. А знаете, почему паровозы так часто гудят? Это машинист стравливает лишний пар из котла, чтобы уменьшить давление.

Отстойник, боковой путь с паровозами.
Рославльский район
Смоленская область, Россия


 


Category:  МОИ ЗАМЕТКИ  |   Comments: 0 для печати создать PDF документ из этой новости
Вторник 15 Январь 2019 - 09:44:33  |  Admin

logo_eirc_1.jpg

24.07.14
В Московской области введен единый платежный документ. Интервью с начальником абонентского отдела ОАО «Раменский ЕИРЦ» Ю.А.Клочковой и инженером-программистом Е.В.Тикиновым провел директор — главный редактор «Раменского информагентства» А.Н.Иванов


01.04.14
У жителей Раменского района появилась возможность оплачивать коммунальные платежи и следить за состоянием своего счёта в системе оплаты ЖКХ, не выходя из дома.

 


Category:  МОИ ЗАМЕТКИ  |   Comments: 0 для печати создать PDF документ из этой новости
Четверг 03 Январь 2019 - 15:57:32  |  Admin

3 января 2019 года удалось прокатиться пассажиром в грузовом автомобиле Камаз, который используют для расчистки зимой автодорог, а точнее участка А-107 от Бронниц до Электростали.


 

 


Category:  ПОДМОСКОВЬЕ  |   Comments: 0 для печати создать PDF документ из этой новости
Суббота 29 Декабрь 2018 - 08:04:56  |  Admin

deer_hunter_2005__2__by_solobrus22-d52tzov.pngГод выпуска: 2005
Жанр: Спорт
Разработчик: Southlogic Studios
Издательство: Atari\Akella в России
Платформа: PC
Системные требования: Operating System: Windows® 98/2000/Me/XP
Processor: Pentium® III 700 MHz or higher (Pentium® 4 1.2 Ghz recommended)
Memory: 128 MB RAM (256 MB RAM recommended)
Hard Disk Space: 200 MB Free (750 MB recommended)
CD-ROM Drive: 8X Speed or higher
Video: 32 MB graphics card (GeForce 256 DDR, ATI Radeon 32 MB) 64 MB graphics card (GeForce 2 MX400, ATI Radeon 7200 recommended)
Sound: DirectX 9.0 compatible sound card
DirectX®: DirectX version 9.0 (included) or higher
Modem: 56K, DSL, Cable modems supported
Тип издания: лицензия
Язык интерфейса: только русский
Таблэтка: Не требуется
Порядок установки: Смонтировать образ, установить, играть!


Описание: Охота – издревле мужской промысел, который с незапамятных времён обеспечивал человека пищей и одеждой. Часто от успеха засады или погони зависело выживание семьи, а то и племени. Поэтому неудивительно, что охотник до сих пор живёт в каждом мужчине. Правда, современная жизнь не слишком благоприятствует проявлениям охотничьего инстинкта: растут города, торопится прогресс... Но даже в таких условиях можно вдоволь поохотиться. И для этого не обязательно собираться загород.
dwnl1.png

 


See also link news Смотрите также: 
Category:  GAMES  |   Comments: 0 для печати создать PDF документ из этой новости
Суббота 29 Декабрь 2018 - 07:40:15  |  Admin

72376049.jpgГод выпуска: 2008
Жанр: симулятор\менеджер
Разработчик: Technobrain
Издательство: aerostudios
Платформа: PS
Системные требования: OS - Windows XP / Vista CPU -1.8GHz(Pentium4) minimum System Memory - 512MB/ Vista - 1GB Storage Space - 1.2GB Video cards - DirectX9 compatible/·Intel915G·NVIDIA GeForce 5000/ATI RADEON X300 or newer 9200 or newer with 64MB video memory / Vista-128MB video memory DirectX Sound compatible sound card DVD-ROM drive Video display resolution 1024×768 or higher (widescreen mode is supported)
Тип издания: лицензия
Язык интерфейса: только английский
Таблэтка: Не требуется
Serial KEY: XTBLF1401TD12AHA
Описание: Air Traffic Controller 3 (ATC3) - это уникальный симулятор авиадиспетчера. Эта игра позволяет получить полный опыт управления воздушным пространством. От разрешения на вылет, наземного управления самолетом, до управления с башни и затем управления прилетами/вылетами, это все захватывающий сердце невероятный опыт для настоящих энтузиастов авиадиспетчеров! Серия игр Air Traffic Controller очень популярна в Японии уже на протяжении многих лет, а от недавно и по всему миру, благодаря английской версии игры - I am an Air Traffic Controller - Tokyo Bigwing. Это самый лучший и самый успешный симулятор авиадиспетчера на рынке. Третья часть игры предоставляет полное управление камерой (множество углов и гибкость кружения). Все самолеты теперь в реальном масштабе. Прибытие и отправление объединены в один модуль с информацией по каждому полету. Добавлено еще больше гейтов. Теперь самолеты могут ехать по любой рулежной дорожке.
dwnl1.png

 


Category:  GAMES  |   Comments: 0 для печати создать PDF документ из этой новости
Пятница 07 Декабрь 2018 - 08:26:41  |  Admin

igrushki_dly_vzroslyh_2018.pngГод выхода: 2018
Выпущено: США, Китай / Black Bear Pictures
Жанр: боевик, триллер, комедия, криминал, детектив
Продолжительность: 01:30:49
Перевод: Профессиональный (полное дублирование)
Субтитры: нет
Режиссер: Брайан Хенсон / Brian Henson
В ролях: Мелисса МакКарти, Элизабет Бэнкс, Майя Рудольф, Лесли Дэвид Бэйкер, Джоэл МакХэйл, Синти У, Майкл МакДональд, Митч Силпа, Хемки Мадера, Бенджамин Коул Ройер

О фильме: Лос-Анджелес — город денег, знаменитостей и взрослых развлечений, здесь куклы живут бок о бок с людьми. Внезапно по мегаполису прокатывается волна загадочных преступлений, связанных со звездами популярного телешоу. И тогда на охоту выходят бывшие напарники — брутальный частный детектив и коп в юбке…


download_torrent.jpg

Смотреть Он-лайн


 


Category:  ФИЛЬМЫ  |   Comments: 0 для печати создать PDF документ из этой новости
Вторник 04 Сентябрь 2018 - 08:26:15  |  Admin

В период с сентября 2007 по декабрь 2013, мне довелось работать в организации занимающейся размещением наружной рекламы в Москве.
Хочу разместить наиболее понравившиеся мне фотографии, проделанной работы наших организаций: «Скайтэк», «Спецпроект».sp_moscow_1.jpg











 


Category:  МОИ ЗАМЕТКИ  |   Comments: 0 для печати создать PDF документ из этой новости
Вторник 28 Август 2018 - 09:32:55  |  Admin

В ходе работы появлялись задачи по переносу информацию из одной БД в другую. Программная среда работает под управлением MS FoxPro и означает, что данные находятся в файлах DBF. Для этого приходилось писать различные запросы для изымания информации из БД и размещении её в файле XLS. Решил поделиться данными записями, возможно кому-то понадобиться.

1)
SELECT C.LIC ;
,C.LICERC ;
,C.AID ;
,A.IDSA ;
,A.KODST ;
,A.VIDST ;
,A.STATUS ;
,A.TIP ;
,A.MODEL_PU ;
,A.MARKA_PU ;
,A.ZNOM ;
,DTOC(A.Dat_akt ) Dat_akt ;
,DTOC(A.Dat_p1 ) Dat_p1 ;
,DTOC(A.Dat_p2 ) Dat_p2 ;
from dat_s_a A LEFT JOIN dataa C ON A.aid = C.aid ;
WHERE A.STATUS = 'Проверка' ;
ORDER BY A.STATUS

2)
SELECT A.Street, A.HOME ,A.FLAT ;
, COUNT(*) AS KKK ;
FROM dataa A ;
GROUP BY A.Street, A.HOME ,A.FLAT HAVING COUNT(*) > 1 ;
order by A.HOME ;
INTO CURSOR CUR1
SELECT * FROM dataa A INTO CURSOR CUR2
SELECT CUR2.LIC, CUR2.LICERC,CUR1.Street, CUR1.HOME, CUR1.FLAT , CUR1.KKK FROM CUR1 LEFT JOIN CUR2 ON CUR1.Street = CUR2.Street AND CUR1.HOME = CUR2.HOME AND CUR1.FLAT = CUR2.FLAT ;
WHERE CUR1.KKK

3)
select A.AID, A.LIC, A.LICERC,B.KAT P1 , "Подогрев воды" AS P2, B.TNPL93 AS P3 FROM datab B LEFT JOIN dataa A ON A.KAT= B.KAT WHERE B.TNPL93 <> 0 ;
UNION ALL ;
select A.AID, A.LIC, A.LICERC,B.KAT P1 , "Холодное водоснабжение ФВ" AS P2, B.OPLS51 AS P3 FROM datab B LEFT JOIN dataa A ON A.KAT= B.KAT WHERE B.OPLS51 <> 0;
UNION ALL ;
select A.AID, A.LIC, A.LICERC,B.KAT P1 , "Водоотведение по холодной воде" AS P2, B.OPLS52 AS P3 FROM datab B LEFT JOIN dataa A ON A.KAT= B.KAT WHERE B.OPLS52 <> 0;
ORDER BY 2

4)
select A.AID, A.LIC, A.LICERC, A.Street , A.Home , A.Flat , D.KAT P1 , "ТО ВКГО" AS P2, LPLSTR P3 , IIF ( A.OPLKV = A.OPL AND A.OPL <> 0, 0 , (LPLSTR / A.OPLKV * A.OPL)) AS P4, A.OPLKV OPL_KV , A.OPL OPL_ , LPLSTR TARIFF FROM datad D LEFT JOIN dataa A ON A.LGOTA= D.KAT WHERE LPLSTR <> 0 ;
ORDER BY 2


5)

select LS_DGH P1 , "UST_ODPU" AS P2 , UST_ODPU AS P3 FROM PER WHERE VAL(UST_ODPU) <> 0 ;

UNION ALL ;

select LS_DGH P1 , "DOP_USL" AS P2 , DOP_USL AS P3 FROM PER WHERE VAL(DOP_USL ) <> 0 ;

UNION ALL ;

select LS_DGH P1 , "DOMOFON" AS P2 , DOMOFON AS P3 FROM PER WHERE VAL(DOMOFON ) <> 0 ;

UNION ALL ;

select LS_DGH P1 , "TO_VKGO" AS P2 , TO_VKGO AS P3 FROM PER WHERE VAL(TO_VKGO ) <> 0 ;

Order by LS_DGH

6)
select DISTINCT A.AID, A.LIC, A.LICERC, A.Street, A.Home, A.Flat, "Горячая вода ФВ" AS P1 , A.PL91 AS P2 ;
FROM dataa A LEFT JOIN dat_s_a S ON A.AID = S.AID ;
WHERE S.VIDST ='Горячая вода' AND S.STATUS= 'Действует' AND A.PL91 >= 0 INTO CURSOR C1

select DISTINCT A.AID, A.LIC, A.LICERC, A.Street, A.Home, A.Flat, "Горячая вода ФВ" AS P1 , G.DPL91 AS P2 ;
FROM dataa A LEFT JOIN dat_s_a S ON A.AID = S.AID LEFT JOIN datag G ON A.AID = G.AID ;
WHERE S.VIDST ='Горячая вода' AND S.STATUS= 'Действует' AND G.DPL91 <> 0 AND G.DATRAS = CTOD('05.06.2018') INTO CURSOR C61

select DISTINCT A.AID, A.LIC, A.LICERC, A.Street, A.Home, A.Flat, "Горячая вода ФВ" AS P1 , G.PL91 AS P2 ;
FROM dataa A LEFT JOIN dat_s_a S ON A.AID = S.AID LEFT JOIN datag G ON A.AID = G.AID ;
WHERE S.VIDST ='Горячая вода' AND S.STATUS= 'Действует' AND G.PL91 > 0 AND G.DATRAS = CTOD('05.06.2018') INTO CURSOR C62

select DISTINCT A.AID, A.LIC, A.LICERC, A.Street, A.Home, A.Flat, "Горячая вода ФВ" AS P1 , G.DPL91 AS P2 ;
FROM dataa A LEFT JOIN dat_s_a S ON A.AID = S.AID LEFT JOIN datag G ON A.AID = G.AID ;
WHERE S.VIDST ='Горячая вода' AND S.STATUS= 'Действует' AND G.DPL91 <> 0 AND G.DATRAS = CTOD('05.05.2018') INTO CURSOR C51

select DISTINCT A.AID, A.LIC, A.LICERC, A.Street, A.Home, A.Flat, "Горячая вода ФВ" AS P1 , G.PL91 AS P2 ;
FROM dataa A LEFT JOIN dat_s_a S ON A.AID = S.AID LEFT JOIN datag G ON A.AID = G.AID ;
WHERE S.VIDST ='Горячая вода' AND S.STATUS= 'Действует' AND G.PL91 > 0 AND G.DATRAS = CTOD('05.05.2018') INTO CURSOR C52

select DISTINCT A.AID, A.LIC, A.LICERC, A.Street, A.Home, A.Flat, "Горячая вода ФВ" AS P1 , G.DPL91 AS P2 ;
FROM dataa A LEFT JOIN dat_s_a S ON A.AID = S.AID LEFT JOIN datag G ON A.AID = G.AID ;
WHERE S.VIDST ='Горячая вода' AND S.STATUS= 'Действует' AND G.DPL91 <> 0 AND G.DATRAS = CTOD('05.04.2018') INTO CURSOR C41

select DISTINCT A.AID, A.LIC, A.LICERC, A.Street, A.Home, A.Flat, "Горячая вода ФВ" AS P1 , G.PL91 AS P2 ;
FROM dataa A LEFT JOIN dat_s_a S ON A.AID = S.AID LEFT JOIN datag G ON A.AID = G.AID ;
WHERE S.VIDST ='Горячая вода' AND S.STATUS= 'Действует' AND G.PL91 > 0 AND G.DATRAS = CTOD('05.04.2018') INTO CURSOR C42

select DISTINCT A.AID, A.LIC, A.LICERC, A.Street, A.Home, A.Flat, "Горячая вода ФВ" AS P1 , G.DPL91 AS P2 ;
FROM dataa A LEFT JOIN dat_s_a S ON A.AID = S.AID LEFT JOIN datag G ON A.AID = G.AID ;
WHERE S.VIDST ='Горячая вода' AND S.STATUS= 'Действует' AND G.DPL91 <> 0 AND G.DATRAS = CTOD('05.03.2018') INTO CURSOR C31

select DISTINCT A.AID, A.LIC, A.LICERC, A.Street, A.Home, A.Flat, "Горячая вода ФВ" AS P1 , G.PL91 AS P2 ;
FROM dataa A LEFT JOIN dat_s_a S ON A.AID = S.AID LEFT JOIN datag G ON A.AID = G.AID ;
WHERE S.VIDST ='Горячая вода' AND S.STATUS= 'Действует' AND G.PL91 > 0 AND G.DATRAS = CTOD('05.03.2018') INTO CURSOR C32

select DISTINCT A.AID, A.LIC, A.LICERC, A.Street, A.Home, A.Flat, "Горячая вода ФВ" AS P1 , G.DPL91 AS P2 ;
FROM dataa A LEFT JOIN dat_s_a S ON A.AID = S.AID LEFT JOIN datag G ON A.AID = G.AID ;
WHERE S.VIDST ='Горячая вода' AND S.STATUS= 'Действует' AND G.DPL91 <> 0 AND G.DATRAS = CTOD('05.02.2018') INTO CURSOR C21

select DISTINCT A.AID, A.LIC, A.LICERC, A.Street, A.Home, A.Flat, "Горячая вода ФВ" AS P1 , G.PL91 AS P2 ;
FROM dataa A LEFT JOIN dat_s_a S ON A.AID = S.AID LEFT JOIN datag G ON A.AID = G.AID ;
WHERE S.VIDST ='Горячая вода' AND S.STATUS= 'Действует' AND G.PL91 > 0 AND G.DATRAS = CTOD('05.02.2018') INTO CURSOR C22

select DISTINCT A.AID, A.LIC, A.LICERC, A.Street, A.Home, A.Flat, "Горячая вода ФВ" AS P1 , G.DPL91 AS P2 ;
FROM dataa A LEFT JOIN dat_s_a S ON A.AID = S.AID LEFT JOIN datag G ON A.AID = G.AID ;
WHERE S.VIDST ='Горячая вода' AND S.STATUS= 'Действует' AND G.DPL91 <> 0 AND G.DATRAS = CTOD('05.01.2018') INTO CURSOR C11

select DISTINCT A.AID, A.LIC, A.LICERC, A.Street, A.Home, A.Flat, "Горячая вода ФВ" AS P1 , G.PL91 AS P2 ;
FROM dataa A LEFT JOIN dat_s_a S ON A.AID = S.AID LEFT JOIN datag G ON A.AID = G.AID ;
WHERE S.VIDST ='Горячая вода' AND S.STATUS= 'Действует' AND G.PL91 > 0 AND G.DATRAS = CTOD('05.01.2018') INTO CURSOR C12

* ==========================================================
* ЗАПРОС 1 Горячая вода
* ==========================================================

SELECT C1.P1 ;
, C1.AID ;
, C1.LIC ;
, C1.LICERC;
, C1.Street;
, C1.Home;
, C1.Flat;
, THISFORM.metod_tip(C1.P2) AS "M_ИЮЛЬ" ;
, THISFORM.metod_tip(C61.P2) AS "M_ИЮНЬ" ;
, THISFORM.metod_tip (C62.P2) AS "M_ИЮНЬ_Н" ;
, THISFORM.metod_tip (C51.P2) AS "M_МАЙ" ;
, THISFORM.metod_tip (C52.P2) AS "M_МАЙ_Н" ;
, THISFORM.metod_tip (C41.P2) AS "M_АПР" ;
, THISFORM.metod_tip (C42.P2) AS "M_АПР_Н" ;
, THISFORM.metod_tip (C31.P2) AS "M_МАРТ" ;
, THISFORM.metod_tip (C32.P2) AS "M_МАРТ_Н" ;
, THISFORM.metod_tip (C21.P2) AS "M_ФЕВ" ;
, THISFORM.metod_tip (C22.P2) AS "M_ФЕВ_Н" ;
, THISFORM.metod_tip (C11.P2) AS "M_ЯНВ" ;
, THISFORM.metod_tip (C12.P2) AS "M_ЯНВ_Н" ;
FROM C1 ;
LEFT JOIN C61 ON C1.AID = C61.AID ;
LEFT JOIN C62 ON C1.AID = C62.AID ;
LEFT JOIN C51 ON C1.AID = C51.AID ;
LEFT JOIN C52 ON C1.AID = C52.AID ;
LEFT JOIN C41 ON C1.AID = C41.AID ;
LEFT JOIN C42 ON C1.AID = C42.AID ;
LEFT JOIN C31 ON C1.AID = C31.AID ;
LEFT JOIN C32 ON C1.AID = C32.AID ;
LEFT JOIN C21 ON C1.AID = C21.AID ;
LEFT JOIN C22 ON C1.AID = C22.AID ;
LEFT JOIN C11 ON C1.AID = C11.AID ;
LEFT JOIN C12 ON C1.AID = C12.AID ;
ORDER BY C1.AID INTO CURSOR GLOB1

* ==========================================================
* ЗАПРОС 2 Холодная вода
* ==========================================================

select DISTINCT A.AID, A.LIC, A.LICERC, A.Street, A.Home, A.Flat, "Холодная вода ФВ" AS P1 , A.PL51 AS P2 ;
FROM dataa A LEFT JOIN dat_s_a S ON A.AID = S.AID ;
WHERE S.VIDST ='Холодная вода' AND S.STATUS= 'Действует' AND A.PL51 => 0 ;
INTO CURSOR C1

select DISTINCT A.AID, A.LIC, A.LICERC, A.Street, A.Home, A.Flat, "Холодная вода ФВ" AS P1 , G.DPL51 AS P2 ;
FROM dataa A LEFT JOIN dat_s_a S ON A.AID = S.AID LEFT JOIN datag G ON A.AID = G.AID ;
WHERE S.VIDST ='Холодная вода' AND S.STATUS= 'Действует' AND G.DPL51 <> 0 AND G.DATRAS = CTOD('05.06.2018') ;
INTO CURSOR C61

select DISTINCT A.AID, A.LIC, A.LICERC, A.Street, A.Home, A.Flat, "Холодная вода ФВ" AS P1 , G.PL51 AS P2 ;
FROM dataa A LEFT JOIN dat_s_a S ON A.AID = S.AID LEFT JOIN datag G ON A.AID = G.AID ;
WHERE S.VIDST ='Холодная вода' AND S.STATUS= 'Действует' AND G.PL51 > 0 AND G.DATRAS = CTOD('05.06.2018') ;
INTO CURSOR C62

select DISTINCT A.AID, A.LIC, A.LICERC, A.Street, A.Home, A.Flat, "Холодная вода ФВ" AS P1 , G.DPL51 AS P2 ;
FROM dataa A LEFT JOIN dat_s_a S ON A.AID = S.AID LEFT JOIN datag G ON A.AID = G.AID ;
WHERE S.VIDST ='Холодная вода' AND S.STATUS= 'Действует' AND G.DPL51 <> 0 AND G.DATRAS = CTOD('05.05.2018') ;
INTO CURSOR C51

select DISTINCT A.AID, A.LIC, A.LICERC, A.Street, A.Home, A.Flat, "Холодная вода ФВ" AS P1 , G.PL51 AS P2 ;
FROM dataa A LEFT JOIN dat_s_a S ON A.AID = S.AID LEFT JOIN datag G ON A.AID = G.AID ;
WHERE S.VIDST ='Холодная вода' AND S.STATUS= 'Действует' AND G.PL51 > 0 AND G.DATRAS = CTOD('05.05.2018') ;
INTO CURSOR C52

select DISTINCT A.AID, A.LIC, A.LICERC, A.Street, A.Home, A.Flat, "Холодная вода ФВ" AS P1 , G.DPL51 AS P2 ;
FROM dataa A LEFT JOIN dat_s_a S ON A.AID = S.AID LEFT JOIN datag G ON A.AID = G.AID ;
WHERE S.VIDST ='Холодная вода' AND S.STATUS= 'Действует' AND G.DPL51 <> 0 AND G.DATRAS = CTOD('05.04.2018') ;
INTO CURSOR C41

select DISTINCT A.AID, A.LIC, A.LICERC, A.Street, A.Home, A.Flat, "Холодная вода ФВ" AS P1 , G.PL51 AS P2 ;
FROM dataa A LEFT JOIN dat_s_a S ON A.AID = S.AID LEFT JOIN datag G ON A.AID = G.AID ;
WHERE S.VIDST ='Холодная вода' AND S.STATUS= 'Действует' AND G.PL51 > 0 AND G.DATRAS = CTOD('05.04.2018') ;
INTO CURSOR C42

select DISTINCT A.AID, A.LIC, A.LICERC, A.Street, A.Home, A.Flat, "Холодная вода ФВ" AS P1 , G.DPL51 AS P2 ;
FROM dataa A LEFT JOIN dat_s_a S ON A.AID = S.AID LEFT JOIN datag G ON A.AID = G.AID ;
WHERE S.VIDST ='Холодная вода' AND S.STATUS= 'Действует' AND G.DPL51 <> 0 AND G.DATRAS = CTOD('05.03.2018') ;
INTO CURSOR C31

select DISTINCT A.AID, A.LIC, A.LICERC, A.Street, A.Home, A.Flat, "Холодная вода ФВ" AS P1 , G.PL51 AS P2 ;
FROM dataa A LEFT JOIN dat_s_a S ON A.AID = S.AID LEFT JOIN datag G ON A.AID = G.AID ;
WHERE S.VIDST ='Холодная вода' AND S.STATUS= 'Действует' AND G.PL51 > 0 AND G.DATRAS = CTOD('05.03.2018') ;
INTO CURSOR C32

select DISTINCT A.AID, A.LIC, A.LICERC, A.Street, A.Home, A.Flat, "Холодная вода ФВ" AS P1 , G.DPL51 AS P2 ;
FROM dataa A LEFT JOIN dat_s_a S ON A.AID = S.AID LEFT JOIN datag G ON A.AID = G.AID ;
WHERE S.VIDST ='Холодная вода' AND S.STATUS= 'Действует' AND G.DPL51 <> 0 AND G.DATRAS = CTOD('05.02.2018') ;
INTO CURSOR C21

select DISTINCT A.AID, A.LIC, A.LICERC, A.Street, A.Home, A.Flat, "Холодная вода ФВ" AS P1 , G.PL51 AS P2 ;
FROM dataa A LEFT JOIN dat_s_a S ON A.AID = S.AID LEFT JOIN datag G ON A.AID = G.AID ;
WHERE S.VIDST ='Холодная вода' AND S.STATUS= 'Действует' AND G.PL51 > 0 AND G.DATRAS = CTOD('05.02.2018') ;
INTO CURSOR C22

select DISTINCT A.AID, A.LIC, A.LICERC, A.Street, A.Home, A.Flat, "Холодная вода ФВ" AS P1 , G.DPL51 AS P2 ;
FROM dataa A LEFT JOIN dat_s_a S ON A.AID = S.AID LEFT JOIN datag G ON A.AID = G.AID ;
WHERE S.VIDST ='Холодная вода' AND S.STATUS= 'Действует' AND G.DPL51 <> 0 AND G.DATRAS = CTOD('05.01.2018') ;
INTO CURSOR C11

select DISTINCT A.AID, A.LIC, A.LICERC, A.Street, A.Home, A.Flat, "Холодная вода ФВ" AS P1 , G.PL51 AS P2 ;
FROM dataa A LEFT JOIN dat_s_a S ON A.AID = S.AID LEFT JOIN datag G ON A.AID = G.AID ;
WHERE S.VIDST ='Холодная вода' AND S.STATUS= 'Действует' AND G.PL51 > 0 AND G.DATRAS = CTOD('05.01.2018') ;
INTO CURSOR C12

* ==========================================================
* ЗАПРОС 2 Холодная вода
* ==========================================================

SELECT C1.P1 ;
, C1.AID ;
, C1.LIC ;
, C1.LICERC;
, C1.Street;
, C1.Home;
, C1.Flat;
, THISFORM.metod_tip(C1.P2) AS "M_ИЮЛЬ" ;
, THISFORM.metod_tip(C61.P2) AS "M_ИЮНЬ" ;
, THISFORM.metod_tip (C62.P2) AS "M_ИЮНЬ_Н" ;
, THISFORM.metod_tip (C51.P2) AS "M_МАЙ" ;
, THISFORM.metod_tip (C52.P2) AS "M_МАЙ_Н" ;
, THISFORM.metod_tip (C41.P2) AS "M_АПР" ;
, THISFORM.metod_tip (C42.P2) AS "M_АПР_Н" ;
, THISFORM.metod_tip (C31.P2) AS "M_МАРТ" ;
, THISFORM.metod_tip (C32.P2) AS "M_МАРТ_Н" ;
, THISFORM.metod_tip (C21.P2) AS "M_ФЕВ" ;
, THISFORM.metod_tip (C22.P2) AS "M_ФЕВ_Н" ;
, THISFORM.metod_tip (C11.P2) AS "M_ЯНВ" ;
, THISFORM.metod_tip (C12.P2) AS "M_ЯНВ_Н" ;
FROM C1 ;
LEFT JOIN C61 ON C1.AID = C61.AID ;
LEFT JOIN C62 ON C1.AID = C62.AID ;
LEFT JOIN C51 ON C1.AID = C51.AID ;
LEFT JOIN C52 ON C1.AID = C52.AID ;
LEFT JOIN C41 ON C1.AID = C41.AID ;
LEFT JOIN C42 ON C1.AID = C42.AID ;
LEFT JOIN C31 ON C1.AID = C31.AID ;
LEFT JOIN C32 ON C1.AID = C32.AID ;
LEFT JOIN C21 ON C1.AID = C21.AID ;
LEFT JOIN C22 ON C1.AID = C22.AID ;
LEFT JOIN C11 ON C1.AID = C11.AID ;
LEFT JOIN C12 ON C1.AID = C12.AID ;
ORDER BY C1.AID INTO CURSOR GLOB2

* ==========================================================
* ЗАПРОС 3 Холодная вода и горячая
* ==========================================================

SELECT * FROM GLOB1 ;
UNION ALL ;
SELECT * FROM GLOB2 ;
ORDER BY AID

*=========
* Methods

Metod_tip

LPARAMETERS val AS Variant

TIP = VARTYPE(val )
VOZVRAT = 0

DO CASE
Case TIP = 'N'
VOZVRAT = val

OTHERWISE
VOZVRAT = 0

ENDCASE

RETURN VOZVRAT

 


Category:  iT  |   Comments: 0 для печати создать PDF документ из этой новости
Переход на страницу   <<        >>  
Добро пожаловать,
Пользователь:

Пароль:


Запомнить

[ ]
Дата / Время
 
Главное меню
RSS трансляции
Наши новости могут транслироваться, используя rss.
rss1.0
rss2.0
rdf
Голосование


Оцените пожалуйста мой сайт



Отличный

Неплохой

Ужас



Добавил Admin
Голоса: 19
Предыдущие голосования


ФК Сатурн
Новости за 2019
ПнВтСрЧтПтСбВс
 12345
6789101112
13141516171819
20212223242526
2728293031 
 
Яндекс.Метрика

Сколько дней блогу
Статистика
Эта страница сегодня ...
всего: 7
уникальных: 5

Эта страница когда-либо ...
всего: 19242
уникальных: 12053

Сайт...
всего: 29327
уникальных: 16213

cf9a9b4bec8034b6
© 2002-2012 e107 Inc. All Rights Reserved. © e107 Club, 2004-2012. All Rights Reserved.