![]() |
![]() |
|
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 | 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 | 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
|
это убожество выше тоже не мешало бы снести...
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |