Имя: Пароль:
LIFE
 
OFF: Девушка (женщина) программист - бывают такие?
↓ (Волшебник 23.12.2005 15:16)
0 dhl1090
 
23.12.05
12:48
Никогда не видел...Есть другие мнения?
1 Таня
 
23.12.05
12:49
в поиск
2 ец34 н6е
 
23.12.05
12:50
Их никто не видел в живую, но говорят всё же они есть.
3 Omega
 
23.12.05
12:50
я видел.
4 ккккк
 
23.12.05
12:51
я видел, симпатичная кстати..
5 dhl1090
 
23.12.05
12:52
спросить у гугла :) бугага, симпатичная :) Это наверное и есть ее вклад в развитие IT
6 кккккк
 
23.12.05
12:54
зря.. она правда симпатичная, и вдобавок умнее чем многие мужики-программисты
7 GrayT
 
23.12.05
12:54
+1 Это даже не смешно - даже месяца не прошло :(
8 Rovan
 
гуру
23.12.05
12:56
(4) ты видел ? как определил что она-программист ? она тебе документы показывала или что ?
9 Лошадка в пальто
 
23.12.05
12:56
10 Ёпрст2
 
23.12.05
12:56
Дежавю
11 dhl1090
 
23.12.05
12:56
кому +1? И с чего месяца не прошло? Такой же топик был?
12 Rovan
 
гуру
23.12.05
12:56
13 dhl1090
 
23.12.05
12:58
ну, нормально, за месяц вдруг ситуация поменялась... Вообще я думаю, что только в 1се такое и возможно, ненавижу блин бухучет, а им нормально, походу
14 колодина
 
23.12.05
12:59
не надоело вам еще....
15 Лошадка в пальто
 
23.12.05
13:02
(14) пусть трындят... это ж одноэсники... у них как в поговорке "на безбабье - кулак блондинка"...
16 BuHHu_l7yx
 
23.12.05
13:04
(9)Сегодня уже в 4й раз эту ссылку вижу :))
17 dhl1090
 
23.12.05
13:05
:) стопудова 1сники ну максимум дотнетеры, уррродддыбль, а про кулак зачОт, только если это кулак блондинки
18 Демогоргон
 
23.12.05
13:06
(0) Передомной сидит...
19 AeDen
 
23.12.05
13:07
(0) 1. Лошадка.
2. Таня.
Обе симпатишные.
20 Don K
 
23.12.05
13:08
Не видел, но слышал что есть...
21 Волшебник
 
модератор
23.12.05
13:09
22 ец34 н6е
 
23.12.05
13:10
(15)LOL! Респект!
23 dhl1090
 
23.12.05
13:13
21 - чему тут респект? Давай факты
24 Лихо
 
23.12.05
13:52
У меня жена красивая.
25 Vint Kras
 
23.12.05
13:55
(0) нет, это фантастика...
26 Лихо
 
23.12.05
13:57
(25) Да, она - фантастика!
27 vvv29
 
23.12.05
13:58
(0)Баян
28 be-may
 
23.12.05
13:59
а потом еще удивляются, откуда берется феминизм.. м-да... сами и культивируете!
29 be-may
 
23.12.05
14:00
а если честно, достало уже.
30 dhl1090
 
23.12.05
14:00
бойан, пиши правильно :) У нас недавно девчонку уволили, за на сорссайве снесла 2 проекта
31 SnarkHunter
 
23.12.05
14:03
Передо мною две девушки программера сидят. Симпатичные, умненькие. Запросы на T-SQL пишут - любо-дорого посмотреть...
32 dhl1090
 
23.12.05
14:04
31 дай пример их скрипта
33 and2
 
23.12.05
14:26
(32) Зачем пример.
Адрес давай.
34 dhl1090
 
23.12.05
14:29
33 - ЗАЧОТ :) о???еть дайте два :)
35 колодина
 
23.12.05
14:32
похоже у автора комплексы.... сужу по его ответам в различных ветках.
36 SnarkHunter
 
23.12.05
14:32
Не только комплексы.
37 dhl1090
 
23.12.05
14:35
однозначно, нужно навестить психолога ;)
38 колодина
 
23.12.05
14:35
ну вот видишь - ты и сам понял.
39 Лошадка в пальто
 
23.12.05
14:36
(36)  неужели еще и педикулёз?
40 be-may
 
23.12.05
14:36
(32) будешь оценивать сложность, красоту написания или все-таки правильность ?
41 колодина
 
23.12.05
14:37
(40) он сможет это сделать только после визита к психологу - так что не торопись. видишь, и еще проблема есть(39).
42 and2
 
23.12.05
14:40
(35)1.Знаю только зенитно-ракетные комплексы. С-75,С-200, С-300.
2.Нормальные мужики, не видев даму, ее стати не обсуждают. И ум тоже.
43 be-may
 
23.12.05
14:41
(41) да, не.. я и не собиралась..
если каждый раз на чье-то "ГАВ" отвечать "ГАВ-ГАВ".. извините, не нагавкаешься))
да и кто он такой, чтобы судить чей-то код..?!
44 Композитор
 
23.12.05
14:43
(40) Некрасивый самолет не летает.
45 be-may
 
23.12.05
14:45
(44) неправда. Неисправный самолет не летает.. Или летает, но в последний раз.. /*сорри, за черный юмор*/
Да, кстати, и не факт что красивый - взлетит.. ;)
46 AeDen
 
23.12.05
14:45
(44) Красота - понятие относительное... Мне танки больше нравятся.
47 dhl1090
 
23.12.05
14:48
Cite (36)  неужели еще и педикулёз?
Первое что в голову пришло, скорее всего наболевшее...
Cite(32) будешь оценивать сложность, красоту написания или все-таки правильность ?
Да, хотелось бы посмотреть, что там за элегантные скрипты
Cite да и кто он такой, чтобы судить чей-то код..?!
Вообще не а ВАМ обращались, это раз, суди свой код, это два
48 колодина
 
23.12.05
14:50
(47) начал отругиваться.... скоро грубить начнет.... известный сценарий, не раз прокрученный на желтых полях мисты...
49 Лошадка в пальто
 
23.12.05
14:51
(48) а у меня голубые... что я делаю не так?
50 be-may
 
23.12.05
14:51
(47) ну, в таком случае, в 43 обращались и не к ВАМ тоже :)
а во-вторых, мне как то больше нравится "не суди, да не судим будешь"..
51 колодина
 
23.12.05
14:52
(49) желтые - патриотичнее...
52 SnarkHunter
 
23.12.05
14:55
ТекстЗапроса =
   " Set NoCount ON
   |
   | Select Sum(ВходСтоимостьТоваров) ВходСтоимостьТоваров, Sum(ВходСтоимостьПК)ВходСтоимостьПК
   |      , Sum(ВходСтоимостьТоваровПерНаВремХРан) ВходСтоимостьТоваровПерНаВремХРан
   |      , Sum(ВходСтоимостьКомповПерНаВремХРан) ВходСтоимостьКомповПерНаВремХРан
   |      , Sum(ВходСтоимостьТоваровВТранзитеОтНас) ВходСтоимостьТоваровВТранзитеОтНас
   |      , Sum(ВходСтоимостьКомповВТранзитеОтНас) ВходСтоимостьКомповВТранзитеОтНас
   |      , Sum(ВходСтоимостьКомплектующихВПроизводстве)ВходСтоимостьКомплектующихВПроизводстве
   |      , Sum(ВходСтоимостьСобствТоваровВРемонте)ВходСтоимостьСобствТоваровВРемонте
   |      , ВидТовара
   | From (--товары на складах
   |   Select Sum("+РесОстатокТовараРегОстаткиТоваров+" * ISNULL(Vol,0)) ВходСтоимостьТоваров
   |        , 0 ВходСтоимостьПК
   |        , 0 ВходСтоимостьТоваровПерНаВремХРан
   |        , 0 ВходСтоимостьКомповПерНаВремХРан          
   |        , 0 ВходСтоимостьТоваровВТранзитеОтНас
   |        , 0 ВходСтоимостьКомповВТранзитеОтНас
   |        , 0 ВходСтоимостьКомплектующихВПроизводстве
   |        , 0 ВходСтоимостьСобствТоваровВРемонте
   |        , Case Substring("+РекШаблонТемыСпрНоменклатура+",2,1) When '1' Then 'климатический' Else 'розница' End ВидТовара
   |   From "+ТабИТРегОстаткиТоваров+" With (NoLock)
   |    Left Join "+СпрНоменклатура+" With (NoLock) ON "+СпрНоменклатура+".ID = "+ИзмТоварРегОстаткиТоваров+"
   |    Left Join ( Select "+ИзмТоварРегОстаткиТоваров+" Товар, MAX(ISNULL(Dat,'')) Dat
   |                From "+ТабИТРегОстаткиТоваров+" With (NoLock)
   |                 Left Join "+ИмяВторойБазы+".Tovar As CenaTov With (NoLock) ON CenaTov.IdTov = "+ИзмТоварРегОстаткиТоваров+" And IdSpr = '"+ИдВходнойЦены+"' And Dat <= '"+КонДатаСтр+"'
   |                Where PERIOD = '"+НачДатаСтр+"' And "+РесОстатокТовараРегОстаткиТоваров+" > 0
   |                Group By "+ИзмТоварРегОстаткиТоваров+"
   |              ) TablCen ON TablCen.Товар = "+ИзмТоварРегОстаткиТоваров+"
   |    Left Join "+ИмяВторойБазы+".Tovar With (NoLock) ON "+ИмяВторойБазы+".Tovar.IdTov = "+ИзмТоварРегОстаткиТоваров+"
   |                                                   And "+ИмяВторойБазы+".Tovar.Dat = TablCen.Dat And "+ИмяВторойБазы+".Tovar.IdSpr = '"+ИдВходнойЦены+"'
   |   Where PERIOD = '"+НачДатаСтр+"' And "+РесОстатокТовараРегОстаткиТоваров+" > 0
   |   Group By Case Substring("+РекШаблонТемыСпрНоменклатура+",2,1) When '1' Then 'климатический' Else 'розница' End
   |  
   |   UNION ALL --компьютеры на складах
   |   Select 0 ВходСтоимостьТоваров
   |        , Sum("+РесКоличествоРегКомпьютерныйСклад+" * ISNULL(CenKompl.Vol,CenVhod.Vol)) ВходСтоимостьПК  
   |        , 0 ВходСтоимостьТоваровПерНаВремХРан
   |        , 0 ВходСтоимостьКомповПерНаВремХРан
   |        , 0 ВходСтоимостьТоваровВТранзитеОтНас
   |        , 0 ВходСтоимостьКомповВТранзитеОтНас      
   |        , 0 ВходСтоимостьКомплектующихВПроизводстве
   |        , 0 ВходСтоимостьСобствТоваровВРемонте
   |        , 'розница' ВидТовара
   |   From "+ТабИТРегКомпьютерныйСклад+" With (NoLock)
   |    Left Join ( Select "+ИзмТоварРегКомпьютерныйСклад+" Товар, MAX(ISNULL(Dat,'')) Dat
   |                From "+ТабИТРегКомпьютерныйСклад+" With (NoLock)
   |                 Left Join "+ИмяВторойБазы+".Tovar As CenaTov With (NoLock) ON CenaTov.IdTov = "+ИзмТоварРегКомпьютерныйСклад+" And IdSpr = '"+ИдВходнойЦеныВКомплекте+"' And Dat <= '"+КонДатаСтр+"'
   |                Where PERIOD = '"+НачДатаСтр+"' And "+РесКоличествоРегКомпьютерныйСклад+" > 0
   |                Group By "+ИзмТоварРегКомпьютерныйСклад+"
   |              ) TablCen ON TablCen.Товар = "+ИзмТоварРегКомпьютерныйСклад+"
   |    Left Join "+ИмяВторойБазы+".Tovar As CenKompl With (NoLock) ON CenKompl.IdTov = "+ИзмТоварРегКомпьютерныйСклад+"
   |                                                               And CenKompl.Dat = TablCen.Dat And CenKompl.IdSpr = '"+ИдВходнойЦеныВКомплекте+"'
   |    Left Join ( Select "+ИзмТоварРегКомпьютерныйСклад+" Товар, MAX(ISNULL(Dat,'')) Dat
   |                From "+ТабИТРегКомпьютерныйСклад+" With (NoLock)
   |                 Left Join "+ИмяВторойБазы+".Tovar As CenaTov With (NoLock) ON CenaTov.IdTov = "+ИзмТоварРегКомпьютерныйСклад+" And IdSpr = '"+ИдВходнойЦены+"' And Dat <= '"+КонДатаСтр+"'
   |                Where PERIOD = '"+НачДатаСтр+"' And "+РесКоличествоРегКомпьютерныйСклад+" > 0
   |                Group By "+ИзмТоварРегКомпьютерныйСклад+"
   |              ) TablCenVhod ON TablCenVhod.Товар = "+ИзмТоварРегКомпьютерныйСклад+"
   |    Left Join "+ИмяВторойБазы+".Tovar As CenVhod With (NoLock) ON CenVhod.IdTov = "+ИзмТоварРегКомпьютерныйСклад+"
   |                                                              And CenVhod.Dat = TablCenVhod.Dat And CenVhod.IdSpr = '"+ИдВходнойЦены+"'
   |   Where PERIOD = '"+НачДатаСтр+"' And "+РесКоличествоРегКомпьютерныйСклад+" > 0
   |  
   |   UNION ALL --товары переданные на временное хранение
   |   Select 0 ВходСтоимостьТоваров
   |        , 0 ВходСтоимостьПК
   |        , Sum("+РесКоличествоРегСкладВременногоХранения+" * ISNULL(Vol,0)) ВходСтоимостьТоваровПерНаВремХРан
   |        , 0 ВходСтоимостьКомповПерНаВремХРан
   |        , 0 ВходСтоимостьТоваровВТранзитеОтНас
   |        , 0 ВходСтоимостьКомповВТранзитеОтНас
   |        , 0 ВходСтоимостьКомплектующихВПроизводстве
   |        , 0 ВходСтоимостьСобствТоваровВРемонте
   |        , Case Substring("+РекШаблонТемыСпрНоменклатура+",2,1) When '1' Then 'климатический' Else 'розница' End ВидТовара
   |   From "+ТабИТРегСкладВременногоХранения+" With (NoLock)
   |    Left Join "+ШапкаДокПриходПоВрХранению+" (NoLock) ON "+ШапкаДокПриходПоВрХранению+".IDDOC = RIGHT("+ТабИТРегСкладВременногоХранения+"."+ИзмДокументРегСкладВременногоХранения+",9)
   |    Left Join "+СпрНоменклатура+" With (NoLock) ON "+СпрНоменклатура+".ID = "+ИзмТоварРегСкладВременногоХранения+"
   |    Left Join ( Select "+ИзмТоварРегСкладВременногоХранения+" Товар, MAX(ISNULL(Dat,'')) Dat
   |                From "+ТабИТРегСкладВременногоХранения+" With (NoLock)
   |                 Left Join "+ШапкаДокПриходПоВрХранению+" (NoLock) ON "+ШапкаДокПриходПоВрХранению+".IDDOC = RIGHT("+ТабИТРегСкладВременногоХранения+"."+ИзмДокументРегСкладВременногоХранения+",9)
   |                 Left Join "+ИмяВторойБазы+".Tovar As CenaTov With (NoLock) ON CenaTov.IdTov = "+ИзмТоварРегСкладВременногоХранения+" And IdSpr = '"+ИдВходнойЦены+"' And Dat <= '"+КонДатаСтр+"'
   |                Where PERIOD = '"+НачДатаСтр+"'
   |                  And "+РесКоличествоРегСкладВременногоХранения+" > 0
   |                  And "+ИзмСтатусТовараРегСкладВременногоХранения+" = 0
   |                  And "+ИзмЗаказНаСборкуРегСкладВременногоХранения+" = '     0   '
   |                  And "+ИзмПартияРегСкладВременногоХранения+" = ''
   |                  And ISNULL("+РекШапкиВидДвиженияПоВрХрДокПриходПоВрХранению+",'') <> '"+ИД_ПерВидДвПоВрХрМыОтдалиИзВрХр+"'
   |                  And LEFT("+ТабИТРегСкладВременногоХранения+"."+ИзмДокументРегСкладВременногоХранения+",4) <> '"+ИД_36_ДокТрРасходСВХ+"'
   |                  And LEFT("+ТабИТРегСкладВременногоХранения+"."+ИзмДокументРегСкладВременногоХранения+",4) <> '"+ИД_36_ДокПостВСЦ+"'
   |                  And (("+РекШапкиВидДвиженияПоВрХрДокПриходПоВрХранению+" = '"+ИД_ПерВидДвПоВрХрМыОтдали+"') OR ("+РекШапкиВидДвиженияПоВрХрДокПриходПоВрХранению+" IS NULL))
   |                Group By "+ИзмТоварРегСкладВременногоХранения+"
   |              ) TablCen ON TablCen.Товар = "+ИзмТоварРегСкладВременногоХранения+"
   |    Left Join "+ИмяВторойБазы+".Tovar With (NoLock) ON "+ИмяВторойБазы+".Tovar.IdTov = "+ИзмТоварРегСкладВременногоХранения+"
   |                                                   And "+ИмяВторойБазы+".Tovar.Dat = TablCen.Dat And "+ИмяВторойБазы+".Tovar.IdSpr = '"+ИдВходнойЦены+"'
   |   Where PERIOD = '"+НачДатаСтр+"'
   |     And "+РесКоличествоРегСкладВременногоХранения+" > 0
   |     And "+ИзмСтатусТовараРегСкладВременногоХранения+" = 0
   |     And "+ИзмЗаказНаСборкуРегСкладВременногоХранения+" = '     0   '    
   |     And "+ИзмПартияРегСкладВременногоХранения+" = ''
   |     And ISNULL("+РекШапкиВидДвиженияПоВрХрДокПриходПоВрХранению+",'') <> '"+ИД_ПерВидДвПоВрХрМыОтдалиИзВрХр+"'
   |     And LEFT("+ТабИТРегСкладВременногоХранения+"."+ИзмДокументРегСкладВременногоХранения+",4) <> '"+ИД_36_ДокТрРасходСВХ+"'
   |     And LEFT("+ТабИТРегСкладВременногоХранения+"."+ИзмДокументРегСкладВременногоХранения+",4) <> '"+ИД_36_ДокПостВСЦ+"'
   |     And (("+РекШапкиВидДвиженияПоВрХрДокПриходПоВрХранению+" = '"+ИД_ПерВидДвПоВрХрМыОтдали+"') OR ("+РекШапкиВидДвиженияПоВрХрДокПриходПоВрХранению+" IS NULL))
   |   Group By Case Substring("+РекШаблонТемыСпрНоменклатура+",2,1) When '1' Then 'климатический' Else 'розница' End
   |
   |   UNION ALL --компы на временном хранении
   |   Select 0 ВходСтоимостьТоваров
   |        , 0 ВходСтоимостьПК  
   |        , 0 ВходСтоимостьТоваровПерНаВремХРан
   |        , Sum("+РесКоличествоРегСкладВременногоХранения+" * ISNULL(CenKompl.Vol,CenVhod.Vol)) ВходСтоимостьКомповПерНаВремХРан
   |        , 0 ВходСтоимостьТоваровВТранзитеОтНас
   |        , 0 ВходСтоимостьКомповВТранзитеОтНас
   |        , 0 ВходСтоимостьКомплектующихВПроизводстве
   |        , 0 ВходСтоимостьСобствТоваровВРемонте
   |        , 'розница' ВидТовара
   |   From "+ТабИТРегСкладВременногоХранения+" With (NoLock)
   |    Left Join "+ШапкаДокПриходПоВрХранению+" (NoLock) ON "+ШапкаДокПриходПоВрХранению+".IDDOC = RIGHT("+ТабИТРегСкладВременногоХранения+"."+ИзмДокументРегСкладВременногоХранения+",9)
   |    Left Join (Select "+ИзмТоварРегСкладВременногоХранения+" Товар, MAX(ISNULL(Dat,'')) Dat
   |               From "+ТабИТРегСкладВременногоХранения+" With (NoLock)
   |                Left Join "+ШапкаДокПриходПоВрХранению+" (NoLock) ON "+ШапкаДокПриходПоВрХранению+".IDDOC = RIGHT("+ТабИТРегСкладВременногоХранения+"."+ИзмДокументРегСкладВременногоХранения+",9)
   |                Left Join "+ИмяВторойБазы+".Tovar As CenaTov With (NoLock) ON CenaTov.IdTov = "+ИзмТоварРегСкладВременногоХранения+" And IdSpr = '"+ИдВходнойЦеныВКомплекте+"' And Dat <= '"+КонДатаСтр+"'
   |               Where PERIOD = '"+НачДатаСтр+"'
   |                 And "+РесКоличествоРегСкладВременногоХранения+" > 0
   |                 And "+ИзмСтатусТовараРегСкладВременногоХранения+" = 0
   |                 And "+ИзмЗаказНаСборкуРегСкладВременногоХранения+" <> '     0   '
   |                 And LEFT("+ТабИТРегСкладВременногоХранения+"."+ИзмДокументРегСкладВременногоХранения+",4) <> '"+ИД_36_ДокТрРасходСВХ+"'
   |                 And LEFT("+ТабИТРегСкладВременногоХранения+"."+ИзмДокументРегСкладВременногоХранения+",4) <> '"+ИД_36_ДокПостВСЦ+"'
   |                 And (("+РекШапкиВидДвиженияПоВрХрДокПриходПоВрХранению+" = '"+ИД_ПерВидДвПоВрХрМыОтдали+"') OR ("+РекШапкиВидДвиженияПоВрХрДокПриходПоВрХранению+" IS NULL))
   |               Group By "+ИзмТоварРегСкладВременногоХранения+"
   |              ) TablCenKompl ON TablCenKompl.Товар = "+ИзмТоварРегСкладВременногоХранения+"
   |    Left Join "+ИмяВторойБазы+".Tovar As CenKompl With (NoLock) ON CenKompl.IdTov = "+ИзмТоварРегСкладВременногоХранения+"
   |                                                               And CenKompl.Dat = TablCenKompl.Dat And CenKompl.IdSpr = '"+ИдВходнойЦеныВКомплекте+"'
   |    Left Join (Select "+ИзмТоварРегСкладВременногоХранения+" Товар, MAX(ISNULL(Dat,'')) Dat
   |               From "+ТабИТРегСкладВременногоХранения+" With (NoLock)
   |                Left Join "+ШапкаДокПриходПоВрХранению+" (NoLock) ON "+ШапкаДокПриходПоВрХранению+".IDDOC = RIGHT("+ТабИТРегСкладВременногоХранения+"."+ИзмДокументРегСкладВременногоХранения+",9)
   |                Left Join "+ИмяВторойБазы+".Tovar As CenaTov With (NoLock) ON CenaTov.IdTov = "+ИзмТоварРегСкладВременногоХранения+" And IdSpr = '"+ИдВходнойЦены+"' And Dat <= '"+КонДатаСтр+"'
   |               Where PERIOD = '"+НачДатаСтр+"'
   |                 And "+РесКоличествоРегСкладВременногоХранения+" > 0
   |                 And "+ИзмСтатусТовараРегСкладВременногоХранения+" = 0
   |                 And "+ИзмЗаказНаСборкуРегСкладВременногоХранения+" <> '     0   '
   |                 And (("+РекШапкиВидДвиженияПоВрХрДокПриходПоВрХранению+" = '"+ИД_ПерВидДвПоВрХрМыОтдали+"') OR ("+РекШапкиВидДвиженияПоВрХрДокПриходПоВрХранению+" IS NULL))
   |               Group By "+ИзмТоварРегСкладВременногоХранения+"
   |              ) TablCenVhod ON TablCenVhod.Товар = "+ИзмТоварРегСкладВременногоХранения+"
   |    Left Join "+ИмяВторойБазы+".Tovar As CenVhod With (NoLock) ON CenVhod.IdTov = "+ИзмТоварРегСкладВременногоХранения+"
   |                                                              And CenVhod.Dat = TablCenVhod.Dat And CenVhod.IdSpr = '"+ИдВходнойЦены+"'
   |   Where PERIOD = '"+НачДатаСтр+"'
   |     And "+РесКоличествоРегСкладВременногоХранения+" > 0
   |     And "+ИзмСтатусТовараРегСкладВременногоХранения+" = 0
   |     And "+ИзмЗаказНаСборкуРегСкладВременногоХранения+" <> '     0   '
   |     And LEFT("+ТабИТРегСкладВременногоХранения+"."+ИзмДокументРегСкладВременногоХранения+",4) <> '"+ИД_36_ДокТрРасходСВХ+"'
   |     And LEFT("+ТабИТРегСкладВременногоХранения+"."+ИзмДокументРегСкладВременногоХранения+",4) <> '"+ИД_36_ДокПостВСЦ+"'
   |     And (("+РекШапкиВидДвиженияПоВрХрДокПриходПоВрХранению+" = '"+ИД_ПерВидДвПоВрХрМыОтдали+"') OR ("+РекШапкиВидДвиженияПоВрХрДокПриходПоВрХранению+" IS NULL))
   |
   |   UNION ALL  --товары находящиеся в транзите от нас
   |   Select 0 ВходСтоимостьТоваров
   |        , 0 ВходСтоимостьПК
   |        , 0 ВходСтоимостьТоваровПерНаВремХРан
   |        , 0 ВходСтоимостьКомповПерНаВремХРан
   |        , Sum("+РесКоличествоРегТранзит+" * ISNULL(Vol,0)) ВходСтоимостьТоваровВТранзитеОтНас
   |        , 0 ВходСтоимостьКомповВТранзитеОтНас
   |        , 0 ВходСтоимостьКомплектующихВПроизводстве
   |        , 0 ВходСтоимостьСобствТоваровВРемонте
   |        , Case Substring("+РекШаблонТемыСпрНоменклатура+",2,1) When '1' Then 'климатический' Else 'розница' End ВидТовара
   |   From "+ТабИТРегТранзит+" With (NoLock)
   |    Left Join "+СпрНоменклатура+" With (NoLock) ON "+СпрНоменклатура+".ID = "+ИзмТоварРегТранзит+"
   |    Left Join (Select "+ИзмТоварРегТранзит+" Товар, MAX(ISNULL(Dat,'')) Dat
   |               From "+ТабИТРегТранзит+" With (NoLock)
   |                Left Join "+ИмяВторойБазы+".Tovar As CenaTov With (NoLock) ON CenaTov.IdTov = "+ИзмТоварРегТранзит+" And IdSpr = '"+ИдВходнойЦены+"' And Dat <= '"+КонДатаСтр+"'
   |               Where PERIOD = '"+НачДатаСтр+"'
   |                 And "+РесКоличествоРегТранзит+" > 0
   |                 And "+ИзмЗаказНаСборкуРегТранзит+" = '     0   '
   |                 And "+ИзмПартияРегТранзит+" = ''
   |                 And "+ИзмОтделРегТранзит+" <> '"+ИдТекущегоОтдела+"'
   |               Group By "+ИзмТоварРегТранзит+"
   |              ) TablCen ON TablCen.Товар = "+ИзмТоварРегТранзит+"
   |    Left Join "+ИмяВторойБазы+".Tovar With (NoLock) ON "+ИмяВторойБазы+".Tovar.IdTov = "+ИзмТоварРегТранзит+"
   |                                                   And "+ИмяВторойБазы+".Tovar.Dat = TablCen.Dat And "+ИмяВторойБазы+".Tovar.IdSpr = '"+ИдВходнойЦены+"'
   |    Left Join "+ШапкаДокТранзитРасход+" (NoLock) ON "+ШапкаДокТранзитРасход+".IDDOC = "+ИзмДокументРегТранзит+"
   |   Where PERIOD = '"+НачДатаСтр+"'
   |     And "+РесКоличествоРегТранзит+" > 0
   |     And "+ИзмЗаказНаСборкуРегТранзит+" = '     0   '
   |     And "+ИзмПартияРегТранзит+" = ''
   |     And "+ИзмОтделРегТранзит+" <> '"+ИдТекущегоОтдела+"'
   |     And LEFT("+ШапкаДокТранзитРасход+"."+ОбщийРеквизитДокументОснование+",4) <> '"+ИД_36_ДокПостВСЦ+"'
   |   Group By Case Substring("+РекШаблонТемыСпрНоменклатура+",2,1) When '1' Then 'климатический' Else 'розница' End
   |
   |   UNION ALL --компьютеры находящиеся в транзите от нас
   |   Select 0 ВходСтоимостьТоваров
   |        , 0 ВходСтоимостьПК
   |        , 0 ВходСтоимостьТоваровПерНаВремХРан
   |        , 0 ВходСтоимостьКомповПерНаВремХРан
   |        , 0 ВходСтоимостьТоваровВТранзитеОтНас
   |        , Sum("+РесКоличествоРегТранзит+" * ISNULL(ISNULL(CenaVhodKompl.Vol,CenaVhod.Vol),0)) ВходСтоимостьКомповВТранзитеОтНас
   |        , 0 ВходСтоимостьКомплектующихВПроизводстве
   |        , 0 ВходСтоимостьСобствТоваровВРемонте
   |        , 'розница' ВидТовара
   |   From "+ТабИТРегТранзит+" With (NoLock)
   |    Left Join (Select "+ИзмТоварРегТранзит+" Товар, MAX(ISNULL(Dat,'')) Dat --остатки товаров
   |               From "+ТабИТРегТранзит+" With (NoLock)
   |                Left Join "+ИмяВторойБазы+".Tovar As CenaTov With (NoLock) ON CenaTov.IdTov = "+ИзмТоварРегТранзит+" And IdSpr = '"+ИдВходнойЦеныВКомплекте+"' And Dat <= '"+КонДатаСтр+"'
   |               Where PERIOD = '"+НачДатаСтр+"'
   |                 And "+РесКоличествоРегТранзит+" > 0
   |                 And "+ИзмЗаказНаСборкуРегТранзит+" <> '     0   '
   |                 And "+ИзмОтделРегТранзит+" <> '"+ИдТекущегоОтдела+"'
   |               Group By "+ИзмТоварРегТранзит+"
   |              ) TablCen ON TablCen.Товар = "+ИзмТоварРегТранзит+"
   |    Left Join "+ИмяВторойБазы+".Tovar As CenaVhodKompl With (NoLock) ON CenaVhodKompl.IdTov = "+ИзмТоварРегТранзит+"
   |                                                                    And CenaVhodKompl.Dat = TablCen.Dat And CenaVhodKompl.IdSpr = '"+ИдВходнойЦеныВКомплекте+"'
   |    Left Join (Select "+ИзмТоварРегТранзит+" Товар, MAX(ISNULL(Dat,'')) Dat
   |               From "+ТабИТРегТранзит+" With (NoLock)
   |                Left Join "+ИмяВторойБазы+".Tovar As CenaTov With (NoLock) ON CenaTov.IdTov = "+ИзмТоварРегТранзит+" And IdSpr = '"+ИдВходнойЦены+"' And Dat <= '"+КонДатаСтр+"'
   |               Where PERIOD = '"+НачДатаСтр+"'
   |                 And "+РесКоличествоРегТранзит+" > 0
   |                 And "+ИзмЗаказНаСборкуРегТранзит+" <> '     0   '
   |                 And "+ИзмОтделРегТранзит+" <> '"+ИдТекущегоОтдела+"'
   |               Group By "+ИзмТоварРегТранзит+"
   |              ) TablCenVhod ON TablCenVhod.Товар = "+ИзмТоварРегТранзит+"
   |    Left Join "+ИмяВторойБазы+".Tovar  As CenaVhod With (NoLock) ON CenaVhod.IdTov = "+ИзмТоварРегТранзит+"
   |                                                                And CenaVhod.Dat = TablCenVhod.Dat And CenaVhod.IdSpr = '"+ИдВходнойЦены+"'
   |    Left Join "+ШапкаДокТранзитРасход+" (NoLock) ON "+ШапкаДокТранзитРасход+".IDDOC = "+ИзмДокументРегТранзит+"
   |   Where PERIOD = '"+НачДатаСтр+"'
   |     And "+РесКоличествоРегТранзит+" > 0
   |     And "+ИзмЗаказНаСборкуРегТранзит+" <> '     0   '
   |     And "+ИзмОтделРегТранзит+" <> '"+ИдТекущегоОтдела+"'  
   |     And LEFT("+ШапкаДокТранзитРасход+"."+ОбщийРеквизитДокументОснование+",4) <> '"+ИД_36_ДокПостВСЦ+"'
   |
   |   UNION ALL --комплектующие находящиеся в производстве
   |   Select 0 ВходСтоимостьТоваров
   |        , 0 ВходСтоимостьПК
   |        , 0 ВходСтоимостьТоваровПерНаВремХРан
   |        , 0 ВходСтоимостьКомповПерНаВремХРан
   |        , 0 ВходСтоимостьТоваровВТранзитеОтНас
   |        , 0 ВходСтоимостьКомповВТранзитеОтНас
   |        , ISNULL(Sum(Количество*ISNULL(TablZnCen.Vol,TablZnCenVhod.Vol)),0) ВходСтоимостьКомплектующихВПроизводстве
   |        , 0 ВходСтоимостьСобствТоваровВРемонте
   |        , 'розница' ВидТовара                                                                                      
   |   From (Select "+ИзмТоварРегПроизводство+" Товар, Sum("+РесКоличествоРегПроизводство+") Количество
   |         From "+ТабИТРегПроизводство+" With (NoLock)
   |         Where PERIOD = '"+НачДатаСтр+"'
   |         Group By "+ИзмТоварРегПроизводство+"
   |         HAVING Sum("+РесКоличествоРегПроизводство+") > 0
   |        ) DD
   |    Left Join (Select Товар, MIN(Dat) Dat
   |               From (Select "+ИзмТоварРегПроизводство+" Товар, Sum("+РесКоличествоРегПроизводство+") Количество
   |                     From "+ТабИТРегПроизводство+" With (NoLock)
   |                     Where PERIOD = '"+НачДатаСтр+"'
   |                     Group By "+ИзмТоварРегПроизводство+"
   |                     HAVING Sum("+РесКоличествоРегПроизводство+") > 0
   |                    ) QQ
   |                Left Join "+ИмяВторойБазы+".Tovar As CenaTov With (NoLock) ON CenaTov.IdTov = Товар
   |                                                                          And IdSpr = '"+ИдВходнойЦеныВКомплекте+"' And Dat <= '"+КонДатаСтр+"'
   |               Group By Товар
   |              ) TablCen ON TablCen.Товар = DD.Товар
   |    Left Join "+ИмяВторойБазы+".Tovar As TablZnCen With (NoLock) ON TablZnCen.IdTov = DD.Товар
   |                                                                And TablZnCen.Dat = TablCen.Dat And TablZnCen.IdSpr = '"+ИдВходнойЦеныВКомплекте+"'
   |    Left Join (Select Товар, MIN(Dat) Dat
   |               From (Select "+ИзмТоварРегПроизводство+" Товар, Sum("+РесКоличествоРегПроизводство+") Количество
   |                     From "+ТабИТРегПроизводство+" With (NoLock)
   |                     Where PERIOD = '"+НачДатаСтр+"'
   |                     Group By "+ИзмТоварРегПроизводство+"
   |                     HAVING Sum("+РесКоличествоРегПроизводство+") > 0
   |                    ) QQ
   |                Left Join "+ИмяВторойБазы+".Tovar As CenaTov With (NoLock) ON CenaTov.IdTov = Товар
   |                                                                          And IdSpr = '"+ИдВходнойЦены+"' And Dat <= '"+КонДатаСтр+"'
   |               Group By Товар) TablCenVhod ON TablCenVhod.Товар = DD.Товар
   |    Left Join "+ИмяВторойБазы+".Tovar As TablZnCenVhod With (NoLock) ON TablZnCenVhod.IdTov = DD.Товар
   |                                                                    And TablZnCenVhod.Dat = TablCenVhod.Dat And TablZnCenVhod.IdSpr = '"+ИдВходнойЦены+"'
   |
   |   UNION ALL --собственные товары находящиеся в ремонте
   |   Select 0 ВходСтоимостьТоваров
   |        , 0 ВходСтоимостьПК
   |        , 0 ВходСтоимостьТоваровПерНаВремХРан
   |        , 0 ВходСтоимостьКомповПерНаВремХРан
   |        , 0 ВходСтоимостьТоваровВТранзитеОтНас
   |        , 0 ВходСтоимостьКомповВТранзитеОтНас
   |        , 0 ВходСтоимостьКомплектующихВПроизводстве
   |        , Sum(ISNULL(Vol,0) * "+РесКоличествоРегСкладВременногоХранения+") ВходСтоимостьСобствТоваровВРемонте
   |        , Case Substring("+РекШаблонТемыСпрНоменклатура+",2,1) When '1' Then 'климатический' Else 'розница' End ВидТовара
   |   From "+ТабИТРегСкладВременногоХранения+" (NoLock)
   |    Left Join "+ШапкаДокЗаявкаВ_СЦ+" (NoLock) ON "+ШапкаДокЗаявкаВ_СЦ+".IDDOC = RIGHT("+ИзмДокументРегСкладВременногоХранения+",9)
   |    Left Join (Select "+ИзмТоварРегСкладВременногоХранения+" Товар, MAX(ISNULL(Dat,'')) Dat
   |                From "+ТабИТРегСкладВременногоХранения+" (NoLock)
   |                 Left Join "+ШапкаДокЗаявкаВ_СЦ+" (NoLock) ON "+ШапкаДокЗаявкаВ_СЦ+".IDDOC = RIGHT("+ИзмДокументРегСкладВременногоХранения+",9)
   |                 Left Join "+ИмяВторойБазы+".Tovar As CenaTov With (NoLock) ON CenaTov.IdTov = "+ИзмТоварРегСкладВременногоХранения+"
   |                                                                           And IdSpr = '"+ИдВходнойЦены+"' And Dat <= '"+КонДатаСтр+"'
   |                Where PERIOD = '"+НачДатаСтр+"'
   |                  And "+ИзмПартияРегСкладВременногоХранения+" = ''--пустая партия
   |                  And "+ШапкаДокЗаявкаВ_СЦ+"."+РекШапкиСтатусДокументаДокЗаявкаВ_СЦ+" = 2
   |                  And "+РесКоличествоРегСкладВременногоХранения+" > 0
   |                  And "+ИзмСтатусТовараРегСкладВременногоХранения+" > 0
   |               Group By "+ИзмТоварРегСкладВременногоХранения+"
   |                 ) ZZ ON ZZ.Товар = "+ИзмТоварРегСкладВременногоХранения+"
   |    Left Join "+ИмяВторойБазы+".Tovar As CenaTov With (NoLock) ON CenaTov.IdTov = "+ИзмТоварРегСкладВременногоХранения+"
   |                                                              And IdSpr = '"+ИдВходнойЦены+"' And CenaTov.Dat = ZZ.Dat
   |    Left Join "+СпрНоменклатура+" (NoLock) ON "+СпрНоменклатура+".ID = "+ИзмТоварРегСкладВременногоХранения+"
   |   Where PERIOD = '"+НачДатаСтр+"'
   |     And "+ИзмПартияРегСкладВременногоХранения+" = ''--пустая партия
   |     And "+ШапкаДокЗаявкаВ_СЦ+"."+РекШапкиСтатусДокументаДокЗаявкаВ_СЦ+" = 2
   |     And "+РесКоличествоРегСкладВременногоХранения+" > 0
   |     And "+ИзмСтатусТовараРегСкладВременногоХранения+" > 0
   |   Group By Case Substring("+РекШаблонТемыСпрНоменклатура+",2,1) When '1' Then 'климатический' Else 'розница' End
   |      ) ZZ
   | Group By ВидТовара";
53 SnarkHunter
 
23.12.05
14:56
Вот небольшой кусочек.
54 колодина
 
23.12.05
14:56
это да.... ждем анализа.
55 AeDen
 
23.12.05
14:56
(52) Я-б неделю над таким страдал...
56 Композитор
 
23.12.05
14:57
(54) Контролю, анализу и исправлению не поддается.
57 SnarkHunter
 
23.12.05
14:57
Всего там 14000 строк...
58 Rovan
 
гуру
23.12.05
14:57
(46) Если красоту кода не оценивать, то я тогда оперный певец и актер и танцор больших и малых театров
59 Композитор
 
23.12.05
14:58
+(56) касаемо 57: Тем более... :)
60 GrayT
 
23.12.05
14:59
А я думал ждут код в женском исполнении :(
61 dhl1090
 
23.12.05
15:01
хехе таблицы не лочатся случайно?
62 Rovan
 
гуру
23.12.05
15:01
(52) дааааа.... тяжело наверное автоматизировать фирму МосГорСанСпецСнабВетСбытХимПромСырЖирМедБредЗагранПоставка
63 be-may
 
23.12.05
15:01
красота кода.. разве это зависит от пола программиста?)
или предполагается, что женщины-программисты используют в комментах псевдографику ?))
64 Лошадка в пальто
 
23.12.05
15:03
я использую псевдографику в комментариях
(\(\        
 (=':')
[:|||||||||||:]    
 (,,(")(")
65 dhl1090
 
23.12.05
15:05
+ что писать такие манускрипты, я думаю куски запросов для каждой секции UNION можно перенести во вьюхи, + я бы сделал динамический SQL и приклеивал бы условия, и вообще такие вещи делаются в сторед процедурах
Вообщем, как я и думал, просто большой громоздкий сикель, они сами хоть в нем разбираются? Если что пофиксать нужно?
66 dhl1090
 
23.12.05
15:06
дла каждого SELECT и JOIN советую писать (nolock) :)
67 Композитор
 
23.12.05
15:06
(65) что такое "пофиксать"?
68 Rovan
 
гуру
23.12.05
15:06
(63) красота не букв интересна, а структры кода...например некоторые делают "ИНТЕРЕСНЫЕ" циклы вместо рекурсии или "простыни" вместо циклов
69 SnarkHunter
 
23.12.05
15:07
(65)Продолжай думать.
70 dhl1090
 
23.12.05
15:07
66 - исправить
71 Дудка Ахинеи
 
23.12.05
15:08
опять?
72 be-may
 
23.12.05
15:08
давайте, что ли тогда конкурс устроим...  будем выкладывать кусочки кода и определять какого пола программист..))
73 SnarkHunter
 
23.12.05
15:08
(66)Ну вот этих банальностей можно много наговорить.
74 Rovan
 
гуру
23.12.05
15:12
(72) есть еще безполый код - например совешенно идиотский или наоборот - гениальный
75 dhl1090
 
23.12.05
15:13
Вношу свою лепту :)



CREATE   PROCEDURE [dbo].[STP_RPT_SystemBalancing]
AS

SET NOCOUNT ON
DECLARE
 @TotalPostedPayments MONEY,
 @TotalRefundsIssued MONEY,
 @TotalFundsActuallyDisbursed MONEY,
 @TotalNSF MONEY,
 @GrandTotal MONEY,
 @TotalFundsPendingDisbMonth MONEY,
 @TotalFundsPendingDisbFuture MONEY,
 @GrandTotalFundsPending MONEY,
 @Variance MONEY

DECLARE
 @Date DATETIME,
 @StartOfMonth DATETIME,
 @EndOfMonth DATETIME

SELECT @TotalPostedPayments = SUM(IsNull(CAE.Amount, 0)) FROM IbpCreditAccountEntry CAE (NOLOCK)
JOIN IbpCreditAccount CA (NOLOCK) ON CA.IbpCreditAccountID = CAE.IbpCreditAccountID
JOIN IbpAccount A (NOLOCK) ON A.IbpAccountID = CA.IbpAccountID
JOIN IBClientAccountType IBCAT (NOLOCK) ON IBCAT.IBClientAccountTypeID = A.IBClientAccountTypeID
WHERE CAE.IbpAccountEntryTypeId = 7 AND
 CAE.TransactionDate <= DateAdd(day, -1, GetDate()) AND
 IBCAT.IbpPaymentHandlingSystemID = 2
 
SELECT @TotalRefundsIssued = -Abs(SUM(IsNull(NSF.Amount, 0))) FROM IbpNSF NSF (NOLOCK)
JOIN IbpCreditAccountEntry CAE (NOLOCK) ON NSF.IbpCreditAccountEntryID = CAE.IbpCreditAccountEntryID
JOIN IbpCreditAccount CA (NOLOCK) ON CA.IbpCreditAccountID = CAE.IbpCreditAccountID
JOIN IbpAccount A (NOLOCK) ON A.IbpAccountID = CA.IbpAccountID
JOIN IBClientAccountType IBCAT (NOLOCK) ON IBCAT.IBClientAccountTypeID = A.IBClientAccountTypeID
WHERE NSF.IbpAccountEntryTypeId = 10 AND
 DATEDIFF(Day, NSF.TransactionDate, DateAdd(Day, -1, GetDate())) >= 0 AND
 IBCAT.IbpPaymentHandlingSystemID = 2

SELECT @TotalFundsActuallyDisbursed = -Abs(SUM(IsNull(D.Amount, 0))) FROM IbpDisbursement D (NOLOCK)
JOIN IBClientAccountType IBCAT (NOLOCK) ON IBCAT.IBClientAccountTypeID = D.IBClientAccountTypeID
WHERE D.DateDisbursed <= DateAdd(day, -1, GetDate()) AND
 IBCAT.IbpPaymentHandlingSystemID = 2

SELECT @TotalNSF = -Abs(SUM(IsNull(NSF.Amount, 0))) FROM IbpNSF NSF (NOLOCK)
JOIN IbpCreditAccountEntry CAE (NOLOCK) ON NSF.IbpCreditAccountEntryID = CAE.IbpCreditAccountEntryID
JOIN IbpCreditAccount CA (NOLOCK) ON CA.IbpCreditAccountID = CAE.IbpCreditAccountID
JOIN IbpAccount A (NOLOCK) ON A.IbpAccountID = CA.IbpAccountID
JOIN IBClientAccountType IBCAT (NOLOCK) ON IBCAT.IBClientAccountTypeID = A.IBClientAccountTypeID
WHERE NSF.IbpAccountEntryTypeId = 8 AND
 DATEDIFF(Day, NSF.TransactionDate, DateAdd(Day, -1, GetDate())) >= 0 AND
 IBCAT.IbpPaymentHandlingSystemID = 2


SELECT @GrandTotal = IsNull(@TotalPostedPayments, 0) + IsNull(@TotalRefundsIssued, 0) + IsNull(@TotalFundsActuallyDisbursed, 0) + IsNull(@TotalNSF, 0)

--section 2

SET @Date = CONVERT(DATETIME, FLOOR(CONVERT(FLOAT, GetDate())))
SET @StartOfMonth = @Date - DAY(@Date) + 1
SET @EndOfMonth = DATEADD(MONTH, 1, @StartOfMonth) - 1

SELECT @TotalFundsPendingDisbMonth = SUM(IsNull(AE.Amount, 0)) FROM IbpAccountEntry AE (NOLOCK)
JOIN IbpAccount A (NOLOCK) ON A.IbpAccountID = AE.IbpAccountID
JOIN IBClientAccountType IBCAT (NOLOCK) ON IBCAT.IBClientAccountTypeID = A.IBClientAccountTypeID
WHERE IBCAT.IbpPaymentHandlingSystemID = 2 AND
 ISNULL(AE.DisburseFlag, 0) = 0 AND
 AE.PrimaryBalance = 0 AND
 AE.DueDate <= @EndOfMonth AND
 ISNULL(AE.PrimaryEntry, 'F') = 'T' AND
 NOT EXISTS (SELECT TOP 1 1 FROM IbpDisbursement (NOLOCK) WHERE IbpAccountEntryID = AE.IbpAccountEntryID)

SELECT @TotalFundsPendingDisbFuture = SUM(IsNull(AE.Amount, 0)) FROM IbpAccountEntry AE (NOLOCK)
JOIN IbpAccount A (NOLOCK) ON A.IbpAccountID = AE.IbpAccountID
JOIN IBClientAccountType IBCAT (NOLOCK) ON IBCAT.IBClientAccountTypeID = A.IBClientAccountTypeID
WHERE IBCAT.IbpPaymentHandlingSystemID = 2 AND
 ISNULL(AE.DisburseFlag, 0) = 0 AND
 AE.PrimaryBalance = 0 AND
 AE.DueDate > @EndOfMonth AND
 ISNULL(AE.PrimaryEntry, 'F') = 'T' AND
 NOT EXISTS (SELECT TOP 1 1 FROM IbpDisbursement (NOLOCK) WHERE IbpAccountEntryID = AE.IbpAccountEntryID)  

SELECT @GrandTotalFundsPending = Abs(IsNull(@TotalFundsPendingDisbFuture, 0)) + Abs(IsNull(@TotalFundsPendingDisbMonth, 0))
SELECT @Variance = Abs(IsNull(@GrandTotal, 0)) - Abs(IsNull(@GrandTotalFundsPending, 0))

SELECT IsNull(@TotalPostedPayments, 0),
      IsNull(@TotalRefundsIssued, 0),
      IsNull(@TotalFundsActuallyDisbursed, 0),
      IsNull(@TotalNSF, 0),
      IsNull(@GrandTotal, 0),
      IsNull(@TotalFundsPendingDisbMonth, 0),
      IsNull(@TotalFundsPendingDisbFuture, 0),
      IsNull(@GrandTotalFundsPending, 0),
      IsNull(@Variance, 0)





GO
76 Дудка Ахинеи
 
23.12.05
15:15
Я достала сантиметровую линейку......
77 Дудка Ахинеи
 
23.12.05
15:16
Надо же... Волшебник молодец... хотя бы раз...
78 be-may
 
23.12.05
15:17
+ 76 лучше метровую, сантиметровой не хватит)
79 AeDen
 
23.12.05
15:16
(76) Тут уже рулетка 30-метровая нужна...
80 Дудка Ахинеи
 
23.12.05
15:17
(78,79) Да ладно... не дотянут
81 be-may
 
23.12.05
15:18
(79) дай "пять"! ;)
82 dhl1090
 
23.12.05
15:19
ну ну
83 dhl1090
 
23.12.05
15:20
это убожество выше тоже не мешало бы снести...