Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / датагрид с чекбоксами и второй датагрид / 9 сообщений из 9, страница 1 из 1
19.12.2005, 15:10:30
    #33444405
shady
shady
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
датагрид с чекбоксами и второй датагрид
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
conn.Execute "INSERT INTO TempDB2 SELECT N_DOC, KPP, IN_POK, DATE, K_PRED, DATE_O1, N_SHF, ADR1, N_POK, KVO1, PNDS1, PNDS2, PNDS3,PNDS4, PNDS5, PNDS6, CEN1, CEN2, CEN3, CEN4, CEN5, CEN6, REG," _
& "IIf(PNDS1=0, (KOL1*CEN1), 0)+IIf(PNDS2=0, (KOL2*CEN2), 0)+IIf(PNDS3=0, (KOL3*CEN3), 0)+IIf(PNDS4=0, (KOL4*CEN4), 0)+IIf(PNDS5=0, (KOL5*CEN5) ,0)+IIf(PNDS6=0, (KOL6*CEN6) ,0)+IIf(NDSTR=0, (PTR), 0) AS SUMNDS0," _
& "IIf(PNDS1=10, (PNDS1*KOL1*CEN1/100), 0)+IIf(PNDS2=10, (PNDS2*KOL2*CEN2/100), 0)+IIf(PNDS3=10, (PNDS3*KOL3*CEN3/100), 0)+IIf(PNDS4=10, (PNDS4*KOL4*CEN4/100), 0)+IIf(PNDS5=10, (PNDS5*KOL5*CEN5/100) ,0)+IIf(PNDS6=10, (PNDS6*KOL6*CEN6/100) ,0)+IIf(NDSTR=10, (PTR*NDSTR/110), 0) AS SUMNDS10," _
& "IIf(PNDS1=18, (PNDS1*KOL1*CEN1/100), 0)+IIf(PNDS2=18, (PNDS2*KOL2*CEN2/100), 0)+IIf(PNDS3=18, (PNDS3*KOL3*CEN3/100), 0)+IIf(PNDS4=18, (PNDS4*KOL4*CEN4/100), 0)+IIf(PNDS5=18, (PNDS5*KOL5*CEN5/100) ,0)+IIf(PNDS6=18, (PNDS6*KOL6*CEN6/100) ,0)+IIf(NDSTR=18, (PTR*NDSTR/118), 0) AS SUMNDS18," _
& "IIf(PNDS1=20, (PNDS1*KOL1*CEN1/100), 0)+IIf(PNDS2=20, (PNDS2*KOL2*CEN2/100), 0)+IIf(PNDS3=20, (PNDS3*KOL3*CEN3/100), 0)+IIf(PNDS4=20, (PNDS4*KOL4*CEN4/100), 0)+IIf(PNDS5=20, (PNDS5*KOL5*CEN5/100) ,0)+IIf(PNDS6=20, (PNDS6*KOL6*CEN6/100) ,0)+IIf(NDSTR=20, (PTR*NDSTR/120), 0) AS SUMNDS20," _
& "IIf(PNDS1=10, ((KOL1*CEN1)-(PNDS1*KOL1*CEN1/100)), 0)+IIf(PNDS2=10, ((KOL2*CEN2)-(PNDS2*KOL2*CEN2/100)), 0)+IIf(PNDS3=10, ((KOL3*CEN2)-(PNDS3*KOL3*CEN3/100)), 0)+IIf(PNDS4=10, ((KOL4*CEN4)-(PNDS4*KOL4*CEN4/100)), 0)+IIf(PNDS5=10, ((KOL5*CEN5)-(PNDS5*KOL5*CEN5/100)) ,0)+IIf(PNDS6=10, ((KOL6*CEN6)-(PNDS6*KOL6*CEN6/100)) ,0)+IIf(NDSTR=10, (PTR*NDSTR/110*100), 0) AS BEZNDS10," _
& "IIf(PNDS1=18, ((KOL1*CEN1)-(PNDS1*KOL1*CEN1/100)), 0)+IIf(PNDS2=18, ((KOL2*CEN2)-(PNDS2*KOL2*CEN2/100)), 0)+IIf(PNDS3=18, ((KOL3*CEN2)-(PNDS3*KOL3*CEN3/100)), 0)+IIf(PNDS4=18, ((KOL4*CEN4)-(PNDS4*KOL4*CEN4/100)), 0)+IIf(PNDS5=18, ((KOL5*CEN5)-(PNDS5*KOL5*CEN5/100)) ,0)+IIf(PNDS6=18, ((KOL6*CEN6)-(PNDS6*KOL6*CEN6/100)) ,0)+IIf(NDSTR=18, (PTR*NDSTR/118*100), 0) AS BEZNDS18," _
& "IIf(PNDS1=20, ((KOL1*CEN1)-(PNDS1*KOL1*CEN1/100)), 0)+IIf(PNDS2=20, ((KOL2*CEN2)-(PNDS2*KOL2*CEN2/100)), 0)+IIf(PNDS3=20, ((KOL3*CEN2)-(PNDS3*KOL3*CEN3/100)), 0)+IIf(PNDS4=20, ((KOL4*CEN4)-(PNDS4*KOL4*CEN4/100)), 0)+IIf(PNDS5=20, ((KOL5*CEN5)-(PNDS5*KOL5*CEN5/100)) ,0)+IIf(PNDS6=20, ((KOL6*CEN6)-(PNDS6*KOL6*CEN6/100)) ,0)+IIf(NDSTR=20, (PTR*NDSTR/120*100), 0) AS BEZNDS20," _
& "(SUMNDS0+SUMNDS10+SUMNDS18+SUMNDS20+BEZNDS10+BEZNDS18+BEZNDS20) AS SUMOPLSNDS FROM DZ WHERE (tmc = '19' OR tmc = '25') AND ((REG < 100) Or (REG Between 200 And 206)) AND ((date_o1 >= # " & date_us1 & " #) AND (date_o1 <= # " & date_us2 & " #))"
смысл запроса в кратце:
первое поле умножаем на второе поле, получаем нужное нам поле. запрос работает, но есть небольшая ошибка. Если в одном из полей есть дробное значение, то после вычислений получается 0. Как думаете почему так получается?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.12.2005, 15:12:03
    #33444407
shady
shady
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
датагрид с чекбоксами и второй датагрид
уважаемые модераторы, пожалуйста исправьте название моей темы на "SQL запрос"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.12.2005, 09:24:08
    #33445611
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
датагрид с чекбоксами и второй датагрид
Может тип данные поля куда добавлешь целое число?

Select смотрел? Дробные значения нормально отображает или нули?

С форматом не пробоавал?

Код: plaintext
1.
SUMNDS10: Format(IIf([PNDS6]= 10 ;([PNDS6]*[KOLO16]*[CEN6]/ 100 ); 0 )+
IIf([NDSTR]= 10 ;([PTR1]*[NDSTR]/ 110 ); 0 );"0,00")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.12.2005, 09:35:48
    #33445630
HandKot
HandKot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
датагрид с чекбоксами и второй датагрид
формирование строки запросы видно
а саму строку запроса можно посмотреть и желательно структуру базы
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.12.2005, 17:13:38
    #33447307
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
датагрид с чекбоксами и второй датагрид
/100.00
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.12.2005, 19:52:49
    #33447703
shady
shady
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
датагрид с чекбоксами и второй датагрид
Konst_One
не помогло :(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.12.2005, 20:47:22
    #33447788
shady
shady
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
датагрид с чекбоксами и второй датагрид
Пользователь2Может тип данные поля куда добавлешь целое число?база акцессовская, тип данных поля "Числовой", размер поля "Двойное с плавающей точкой"
Пользователь2Select смотрел? Дробные значения нормально отображает или нули?
все работает нормально, расчет НДС из 2х целых, например 18% от (24*5)=21,6 записывается как есть, 21,6.
если же 18% от (24,5*5)=22,05 записывается 0
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.12.2005, 09:18:11
    #33448191
HandKot
HandKot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
датагрид с чекбоксами и второй датагрид
shady
а если запрос немного подредактировать, поможет

Код: plaintext
IIf(PNDS1= 18 , ( 18 *KOL1*CEN1/ 100 ),  0 )
и т.д
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.12.2005, 09:32:53
    #33448220
shady
shady
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
датагрид с чекбоксами и второй датагрид
прошу не пинать ногами, но это видимо другая ошибка, дело в том что я думал что из-за того что дробные значения присутствуют в вычислениях, оказалось что это не так. И из-за этого возможно ввел в заблуждение форумчан. Приношу извинения, возможно теперь поможете решить мою проблему, т.к. ошибка 100% в этом.
дело в том что у меня для полного вычисления требуется 5 раз провести вычисления над таблицей и запросов у меня таких 5. Но вот в чем оказывается проблема... когда остальные 4 запроса я закоментарил... первый запрос работает БЕЗ! единой ошибки, результаты вычисления абсолютно правильны!
Как только делаю например 2 запроса, то считается все неправильно!! в чем может быть дело??
вот мой код полный вариант
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
Call conect

conn.Execute "DELETE FROM TempDB2"
conn.Execute "DROP TABLE TempDB2"


conn.Execute "SELECT N_DOC, KPP, IN_POK, DATE, K_PRED, DOC_O1, DATE_O1, N_SHF, TMC1, ADR1, N_POK, KOLO11, KOLO12, KOLO13, KOLO14, KOLO15, KOLO16, KOLO21, KOLO22, KOLO23, KOLO24, KOLO25, KOLO26, KOLO31, KOLO32, KOLO33, KOLO34, KOLO35, KOLO36, KOLO41, KOLO42, KOLO43, KOLO44, KOLO45, KOLO46, SUMO1, SUMO2, SUMO3, SUMO4, KVO1, PNDS1, PNDS2, PNDS3,PNDS4, PNDS5, PNDS6, CEN1, CEN2, CEN3, CEN4, CEN5, CEN6, REG," _
& "IIf(PNDS1=0, (KOLO11*CEN1), 0)+IIf(PNDS2=0, (KOLO12*CEN2), 0)+IIf(PNDS3=0, (KOLO13*CEN3), 0)+IIf(PNDS4=0, (KOLO14*CEN4), 0)+IIf(PNDS5=0, (KOLO15*CEN5) ,0)+IIf(PNDS6=0, (KOLO16*CEN6) ,0)+IIf(NDSTR=0, (PTR1), 0) AS SUMNDS0," _
& "IIf(PNDS1=10, (PNDS1*KOLO11*CEN1/100), 0)+IIf(PNDS2=10, (PNDS2*KOLO12*CEN2/100), 0)+IIf(PNDS3=10, (PNDS3*KOLO13*CEN3/100), 0)+IIf(PNDS4=10, (PNDS4*KOLO14*CEN4/100), 0)+IIf(PNDS5=10, (PNDS5*KOLO15*CEN5/100) ,0)+IIf(PNDS6=10, (PNDS6*KOLO16*CEN6/100) ,0)+IIf(NDSTR=10, (PTR1*NDSTR/110), 0) AS SUMNDS10," _
& "IIf(PNDS1=18, (PNDS1*KOLO11*CEN1/100), 0)+IIf(PNDS2=18, (PNDS2*KOLO12*CEN2/100), 0)+IIf(PNDS3=18, (PNDS3*KOLO13*CEN3/100), 0)+IIf(PNDS4=18, (PNDS4*KOLO14*CEN4/100), 0)+IIf(PNDS5=18, (PNDS5*KOLO15*CEN5/100) ,0)+IIf(PNDS6=18, (PNDS6*KOLO16*CEN6/100) ,0)+IIf(NDSTR=18, (PTR1*NDSTR/118), 0) AS SUMNDS18," _
& "IIf(PNDS1=20, (PNDS1*KOLO11*CEN1/100), 0)+IIf(PNDS2=20, (PNDS2*KOLO12*CEN2/100), 0)+IIf(PNDS3=20, (PNDS3*KOLO13*CEN3/100), 0)+IIf(PNDS4=20, (PNDS4*KOLO14*CEN4/100), 0)+IIf(PNDS5=20, (PNDS5*KOLO15*CEN5/100) ,0)+IIf(PNDS6=20, (PNDS6*KOLO16*CEN6/100) ,0)+IIf(NDSTR=20, (PTR1*NDSTR/120), 0) AS SUMNDS20," _
& "IIf(PNDS1=10, ((KOLO11*CEN1)-(PNDS1*KOLO11*CEN1/100)), 0)+IIf(PNDS2=10, ((KOLO12*CEN2)-(PNDS2*KOLO12*CEN2/100)), 0)+IIf(PNDS3=10, ((KOLO13*CEN2)-(PNDS3*KOLO13*CEN3/100)), 0)+IIf(PNDS4=10, ((KOLO14*CEN4)-(PNDS4*KOLO14*CEN4/100)), 0)+IIf(PNDS5=10, ((KOLO15*CEN5)-(PNDS5*KOLO15*CEN5/100)) ,0)+IIf(PNDS6=10, ((KOLO16*CEN6)-(PNDS6*KOLO16*CEN6/100)) ,0)+IIf(NDSTR=10, (PTR1*NDSTR/110*100), 0) AS BEZNDS10," _
& "IIf(PNDS1=18, ((KOLO11*CEN1)-(PNDS1*KOLO11*CEN1/100)), 0)+IIf(PNDS2=18, ((KOLO12*CEN2)-(PNDS2*KOLO12*CEN2/100)), 0)+IIf(PNDS3=18, ((KOLO13*CEN2)-(PNDS3*KOLO13*CEN3/100)), 0)+IIf(PNDS4=18, ((KOLO14*CEN4)-(PNDS4*KOLO14*CEN4/100)), 0)+IIf(PNDS5=18, ((KOLO15*CEN5)-(PNDS5*KOLO15*CEN5/100)) ,0)+IIf(PNDS6=18, ((KOLO16*CEN6)-(PNDS6*KOLO16*CEN6/100)) ,0)+IIf(NDSTR=18, (PTR1*NDSTR/118*100), 0) AS BEZNDS18," _
& "IIf(PNDS1=20, ((KOLO11*CEN1)-(PNDS1*KOLO11*CEN1/100)), 0)+IIf(PNDS2=20, ((KOLO12*CEN2)-(PNDS2*KOLO12*CEN2/100)), 0)+IIf(PNDS3=20, ((KOLO13*CEN2)-(PNDS3*KOLO13*CEN3/100)), 0)+IIf(PNDS4=20, ((KOLO14*CEN4)-(PNDS4*KOLO14*CEN4/100)), 0)+IIf(PNDS5=20, ((KOLO15*CEN5)-(PNDS5*KOLO15*CEN5/100)) ,0)+IIf(PNDS6=20, ((KOLO16*CEN6)-(PNDS6*KOLO16*CEN6/100)) ,0)+IIf(NDSTR=20, (PTR1*NDSTR/120*100), 0) AS BEZNDS20," _
& "(SUMNDS10+SUMNDS0+SUMNDS18+SUMNDS20+BEZNDS10+BEZNDS18+BEZNDS20) AS SUMOPLSNDS INTO TempDB2 FROM DZ WHERE (tmc1 = '50' OR tmc1 = '51' OR tmc1 = '60' OR tmc1 = '61' OR tmc1 = '62') AND (TMC <> '19') AND (TMC <> '25') AND ((date_o1 >= # " & date_us1 & " #) AND (date_o1 <= # " & date_us2 & " #))"


'conn.Execute "INSERT INTO TempDB2 SELECT N_DOC, KPP, IN_POK, DATE, K_PRED, DATE_O1, N_SHF, ADR1, N_POK, KVO1, PNDS1, PNDS2, PNDS3,PNDS4, PNDS5, PNDS6, CEN1, CEN2, CEN3, CEN4, CEN5, CEN6, REG," _
'& "IIf(PNDS1=0, (KOL1*CEN1), 0)+IIf(PNDS2=0, (KOL2*CEN2), 0)+IIf(PNDS3=0, (KOL3*CEN3), 0)+IIf(PNDS4=0, (KOL4*CEN4), 0)+IIf(PNDS5=0, (KOL5*CEN5) ,0)+IIf(PNDS6=0, (KOL6*CEN6) ,0)+IIf(NDSTR=0, (PTR), 0) AS SUMNDS0," _
'& "IIf(PNDS1=10, (PNDS1*KOL1*CEN1/100), 0)+IIf(PNDS2=10, (PNDS2*KOL2*CEN2/100), 0)+IIf(PNDS3=10, (PNDS3*KOL3*CEN3/100), 0)+IIf(PNDS4=10, (PNDS4*KOL4*CEN4/100), 0)+IIf(PNDS5=10, (PNDS5*KOL5*CEN5/100) ,0)+IIf(PNDS6=10, (PNDS6*KOL6*CEN6/100) ,0)+IIf(NDSTR=10, (PTR*NDSTR/110), 0) AS SUMNDS10," _
'& "IIf(PNDS1=18, (PNDS1*KOL1*CEN1/100), 0)+IIf(PNDS2=18, (PNDS2*KOL2*CEN2/100), 0)+IIf(PNDS3=18, (PNDS3*KOL3*CEN3/100), 0)+IIf(PNDS4=18, (PNDS4*KOL4*CEN4/100), 0)+IIf(PNDS5=18, (PNDS5*KOL5*CEN5/100) ,0)+IIf(PNDS6=18, (PNDS6*KOL6*CEN6/100) ,0)+IIf(NDSTR=18, (PTR*NDSTR/118), 0) AS SUMNDS18," _
'& "IIf(PNDS1=20, (PNDS1*KOL1*CEN1/100), 0)+IIf(PNDS2=20, (PNDS2*KOL2*CEN2/100), 0)+IIf(PNDS3=20, (PNDS3*KOL3*CEN3/100), 0)+IIf(PNDS4=20, (PNDS4*KOL4*CEN4/100), 0)+IIf(PNDS5=20, (PNDS5*KOL5*CEN5/100) ,0)+IIf(PNDS6=20, (PNDS6*KOL6*CEN6/100) ,0)+IIf(NDSTR=20, (PTR*NDSTR/120), 0) AS SUMNDS20," _
'& "IIf(PNDS1=10, ((KOL1*CEN1)-(PNDS1*KOL1*CEN1/100)), 0)+IIf(PNDS2=10, ((KOL2*CEN2)-(PNDS2*KOL2*CEN2/100)), 0)+IIf(PNDS3=10, ((KOL3*CEN2)-(PNDS3*KOL3*CEN3/100)), 0)+IIf(PNDS4=10, ((KOL4*CEN4)-(PNDS4*KOL4*CEN4/100)), 0)+IIf(PNDS5=10, ((KOL5*CEN5)-(PNDS5*KOL5*CEN5/100)) ,0)+IIf(PNDS6=10, ((KOL6*CEN6)-(PNDS6*KOL6*CEN6/100)) ,0)+IIf(NDSTR=10, (PTR*NDSTR/110*100), 0) AS BEZNDS10," _
'& "IIf(PNDS1=18, ((KOL1*CEN1)-(PNDS1*KOL1*CEN1/100)), 0)+IIf(PNDS2=18, ((KOL2*CEN2)-(PNDS2*KOL2*CEN2/100)), 0)+IIf(PNDS3=18, ((KOL3*CEN2)-(PNDS3*KOL3*CEN3/100)), 0)+IIf(PNDS4=18, ((KOL4*CEN4)-(PNDS4*KOL4*CEN4/100)), 0)+IIf(PNDS5=18, ((KOL5*CEN5)-(PNDS5*KOL5*CEN5/100)) ,0)+IIf(PNDS6=18, ((KOL6*CEN6)-(PNDS6*KOL6*CEN6/100)) ,0)+IIf(NDSTR=18, (PTR*NDSTR/118*100), 0) AS BEZNDS18," _
'& "IIf(PNDS1=20, ((KOL1*CEN1)-(PNDS1*KOL1*CEN1/100)), 0)+IIf(PNDS2=20, ((KOL2*CEN2)-(PNDS2*KOL2*CEN2/100)), 0)+IIf(PNDS3=20, ((KOL3*CEN2)-(PNDS3*KOL3*CEN3/100)), 0)+IIf(PNDS4=20, ((KOL4*CEN4)-(PNDS4*KOL4*CEN4/100)), 0)+IIf(PNDS5=20, ((KOL5*CEN5)-(PNDS5*KOL5*CEN5/100)) ,0)+IIf(PNDS6=20, ((KOL6*CEN6)-(PNDS6*KOL6*CEN6/100)) ,0)+IIf(NDSTR=20, (PTR*NDSTR/120*100), 0) AS BEZNDS20," _
'& "(SUMNDS0+SUMNDS10+SUMNDS18+SUMNDS20+BEZNDS10+BEZNDS18+BEZNDS20) AS SUMOPLSNDS FROM DZ WHERE (tmc = '19' OR tmc = '25') AND ((REG < 100) Or (REG Between 200 And 206)) AND ((date_o1 >= # " & date_us1 & " #) AND (date_o1 <= # " & date_us2 & " #))"

'ïî âòîðîé îïëàòå
'conn.Execute "INSERT INTO TempDB2 SELECT N_DOC, KPP, IN_POK, DATE, K_PRED, DOC_O1, N_SHF, TMC1, ADR1, N_POK, KOLO11, KOLO12, KOLO13, KOLO14, KOLO15, KOLO16, SUMO1, SUMO2, SUMO3, SUMO4, KVO1, PNDS1, PNDS2, PNDS3,PNDS4, PNDS5, PNDS6, CEN1, CEN2, CEN3, CEN4, CEN5, CEN6, REG," _
'& "IIf(PNDS1=0, (KOLO21*CEN2), 0)+IIf(PNDS2=0, (KOLO22*CEN2), 0)+IIf(PNDS3=0, (KOLO23*CEN3), 0)+IIf(PNDS4=0, (KOLO24*CEN4), 0)+IIf(PNDS5=0, (KOLO25*CEN5), 0)+IIf(PNDS6=0, (KOLO26*CEN6), 0)+IIf(NDSTR=0, (PTR2), 0) AS SUMNDS0, (Date_o2) as Date_o1," _
'& "IIf(PNDS1=10, (PNDS1*KOLO21*CEN1/100), 0)+IIf(PNDS2=10, (PNDS2*KOLO22*CEN2/100), 0)+IIf(PNDS3=10, (PNDS3*KOLO23*CEN3/100), 0)+IIf(PNDS4=10, (PNDS4*KOLO24*CEN4/100), 0)+IIf(PNDS5=10, (PNDS5*KOLO25*CEN5/100) ,0)+IIf(PNDS6=10, (PNDS6*KOLO26*CEN6/100) ,0)+IIf(NDSTR=10, (PTR2*NDSTR/110), 0) AS SUMNDS10," _
'& "IIf(PNDS1=18, (PNDS1*KOLO21*CEN1/100), 0)+IIf(PNDS2=18, (PNDS2*KOLO22*CEN2/100), 0)+IIf(PNDS3=18, (PNDS3*KOLO23*CEN3/100), 0)+IIf(PNDS4=18, (PNDS4*KOLO24*CEN4/100), 0)+IIf(PNDS5=18, (PNDS5*KOLO25*CEN5/100) ,0)+IIf(PNDS6=18, (PNDS6*KOLO26*CEN6/100) ,0)+IIf(NDSTR=18, (PTR2*NDSTR/118), 0) AS SUMNDS18," _
'& "IIf(PNDS1=20, (PNDS1*KOLO21*CEN1/100), 0)+IIf(PNDS2=20, (PNDS2*KOLO22*CEN2/100), 0)+IIf(PNDS3=20, (PNDS3*KOLO23*CEN3/100), 0)+IIf(PNDS4=20, (PNDS4*KOLO24*CEN4/100), 0)+IIf(PNDS5=20, (PNDS5*KOLO25*CEN5/100) ,0)+IIf(PNDS6=20, (PNDS6*KOLO26*CEN6/100) ,0)+IIf(NDSTR=20, (PTR2*NDSTR/120), 0) AS SUMNDS20," _
'& "IIf(PNDS1=10, ((KOLO21*CEN1)-(PNDS1*KOLO21*CEN1/100)), 0)+IIf(PNDS2=10, ((KOLO22*CEN2)-(PNDS2*KOLO22*CEN2/100)), 0)+IIf(PNDS3=10, ((KOLO23*CEN2)-(PNDS3*KOLO23*CEN3/100)), 0)+IIf(PNDS4=10, ((KOLO24*CEN4)-(PNDS4*KOLO24*CEN4/100)), 0)+IIf(PNDS5=10, ((KOLO25*CEN5)-(PNDS5*KOLO25*CEN5/100)) ,0)+IIf(PNDS6=10, ((KOLO26*CEN6)-(PNDS6*KOLO26*CEN6/100)) ,0)+IIf(NDSTR=10, (PTR2*NDSTR/110*100), 0) AS BEZNDS10," _
'& "IIf(PNDS1=18, ((KOLO21*CEN1)-(PNDS1*KOLO21*CEN1/100)), 0)+IIf(PNDS2=18, ((KOLO22*CEN2)-(PNDS2*KOLO22*CEN2/100)), 0)+IIf(PNDS3=18, ((KOLO23*CEN2)-(PNDS3*KOLO23*CEN3/100)), 0)+IIf(PNDS4=18, ((KOLO24*CEN4)-(PNDS4*KOLO24*CEN4/100)), 0)+IIf(PNDS5=18, ((KOLO25*CEN5)-(PNDS5*KOLO25*CEN5/100)) ,0)+IIf(PNDS6=18, ((KOLO26*CEN6)-(PNDS6*KOLO26*CEN6/100)) ,0)+IIf(NDSTR=18, (PTR2*NDSTR/118*100), 0) AS BEZNDS18," _
'& "IIf(PNDS1=20, ((KOLO21*CEN1)-(PNDS1*KOLO21*CEN1/100)), 0)+IIf(PNDS2=20, ((KOLO22*CEN2)-(PNDS2*KOLO22*CEN2/100)), 0)+IIf(PNDS3=20, ((KOLO23*CEN2)-(PNDS3*KOLO23*CEN3/100)), 0)+IIf(PNDS4=20, ((KOLO24*CEN4)-(PNDS4*KOLO24*CEN4/100)), 0)+IIf(PNDS5=20, ((KOLO25*CEN5)-(PNDS5*KOLO25*CEN5/100)) ,0)+IIf(PNDS6=20, ((KOLO26*CEN6)-(PNDS6*KOLO26*CEN6/100)) ,0)+IIf(NDSTR=20, (PTR2*NDSTR/120*100), 0) AS BEZNDS20," _
'& "(SUMNDS10+SUMNDS0+SUMNDS18+SUMNDS20+BEZNDS10+BEZNDS18+BEZNDS20) AS SUMOPLSNDS FROM DZ WHERE (tmc2 = '50' OR tmc2 = '51' OR tmc2 = '60' OR tmc2 = '61' OR tmc2 = '62') AND (TMC <> '19') AND (TMC <> '25') AND ((date_o2 >= # " & date_us1 & " #) AND (date_o2 <= # " & date_us2 & " #))"


'conn.Execute "INSERT INTO TempDB2 SELECT N_DOC, KPP, IN_POK, DATE, K_PRED, DOC_O1, N_SHF, TMC1, ADR1, N_POK, KOLO11, KOLO12, KOLO13, KOLO14, KOLO15, KOLO16, SUMO1, SUMO2, SUMO3, SUMO4, KVO1, PNDS1, PNDS2, PNDS3,PNDS4, PNDS5, PNDS6, CEN1, CEN2, CEN3, CEN4, CEN5, CEN6, REG," _
'& "IIf(PNDS1=0, (KOLO31*CEN2), 0)+IIf(PNDS2=0, (KOLO32*CEN2), 0)+IIf(PNDS3=0, (KOLO33*CEN3), 0)+IIf(PNDS4=0, (KOLO34*CEN4), 0)+IIf(PNDS5=0, (KOLO35*CEN5) ,0)+IIf(PNDS6=0, (KOLO36*CEN6) ,0)+IIf(NDSTR=0, (PTR3), 0) AS SUMNDS0, (Date_o3) as Date_o1," _
'& "IIf(PNDS1=10, (PNDS1*KOLO31*CEN1/100), 0)+IIf(PNDS2=10, (PNDS2*KOLO32*CEN2/100), 0)+IIf(PNDS3=10, (PNDS3*KOLO33*CEN3/100), 0)+IIf(PNDS4=10, (PNDS4*KOLO34*CEN4/100), 0)+IIf(PNDS5=10, (PNDS5*KOLO35*CEN5/100) ,0)+IIf(PNDS6=10, (PNDS6*KOLO36*CEN6/100) ,0)+IIf(NDSTR=10, (PTR3*NDSTR/110), 0) AS SUMNDS10," _
'& "IIf(PNDS1=18, (PNDS1*KOLO31*CEN1/100), 0)+IIf(PNDS2=18, (PNDS2*KOLO32*CEN2/100), 0)+IIf(PNDS3=18, (PNDS3*KOLO33*CEN3/100), 0)+IIf(PNDS4=18, (PNDS4*KOLO34*CEN4/100), 0)+IIf(PNDS5=18, (PNDS5*KOLO35*CEN5/100) ,0)+IIf(PNDS6=18, (PNDS6*KOLO36*CEN6/100) ,0)+IIf(NDSTR=18, (PTR3*NDSTR/118), 0) AS SUMNDS18," _
'& "IIf(PNDS1=20, (PNDS1*KOLO31*CEN1/100), 0)+IIf(PNDS2=20, (PNDS2*KOLO32*CEN2/100), 0)+IIf(PNDS3=20, (PNDS3*KOLO33*CEN3/100), 0)+IIf(PNDS4=20, (PNDS4*KOLO34*CEN4/100), 0)+IIf(PNDS5=20, (PNDS5*KOLO35*CEN5/100) ,0)+IIf(PNDS6=20, (PNDS6*KOLO36*CEN6/100) ,0)+IIf(NDSTR=20, (PTR3*NDSTR/120), 0) AS SUMNDS20," _
'& "IIf(PNDS1=10, ((KOLO31*CEN1)-(PNDS1*KOLO31*CEN1/100)), 0)+IIf(PNDS2=10, ((KOLO32*CEN2)-(PNDS2*KOLO32*CEN2/100)), 0)+IIf(PNDS3=10, ((KOLO33*CEN2)-(PNDS3*KOLO33*CEN3/100)), 0)+IIf(PNDS4=10, ((KOLO34*CEN4)-(PNDS4*KOLO34*CEN4/100)), 0)+IIf(PNDS5=10, ((KOLO35*CEN5)-(PNDS5*KOLO35*CEN5/100)) ,0)+IIf(PNDS6=10, ((KOLO36*CEN6)-(PNDS6*KOLO36*CEN6/100)) ,0)+IIf(NDSTR=10, (PTR3*NDSTR/110*100), 0) AS BEZNDS10," _
'& "IIf(PNDS1=18, ((KOLO31*CEN1)-(PNDS1*KOLO31*CEN1/100)), 0)+IIf(PNDS2=18, ((KOLO32*CEN2)-(PNDS2*KOLO32*CEN2/100)), 0)+IIf(PNDS3=18, ((KOLO33*CEN2)-(PNDS3*KOLO33*CEN3/100)), 0)+IIf(PNDS4=18, ((KOLO34*CEN4)-(PNDS4*KOLO34*CEN4/100)), 0)+IIf(PNDS5=18, ((KOLO35*CEN5)-(PNDS5*KOLO35*CEN5/100)) ,0)+IIf(PNDS6=18, ((KOLO36*CEN6)-(PNDS6*KOLO36*CEN6/100)) ,0)+IIf(NDSTR=18, (PTR3*NDSTR/118*100), 0) AS BEZNDS18," _
'& "IIf(PNDS1=20, ((KOLO31*CEN1)-(PNDS1*KOLO31*CEN1/100)), 0)+IIf(PNDS2=20, ((KOLO32*CEN2)-(PNDS2*KOLO32*CEN2/100)), 0)+IIf(PNDS3=20, ((KOLO33*CEN2)-(PNDS3*KOLO33*CEN3/100)), 0)+IIf(PNDS4=20, ((KOLO34*CEN4)-(PNDS4*KOLO34*CEN4/100)), 0)+IIf(PNDS5=20, ((KOLO35*CEN5)-(PNDS5*KOLO35*CEN5/100)) ,0)+IIf(PNDS6=20, ((KOLO36*CEN6)-(PNDS6*KOLO36*CEN6/100)) ,0)+IIf(NDSTR=20, (PTR3*NDSTR/120*100), 0) AS BEZNDS20," _
'& "(SUMNDS10+SUMNDS0+SUMNDS18+SUMNDS20+BEZNDS10+BEZNDS18+BEZNDS20) AS SUMOPLSNDS FROM DZ WHERE (tmc3 = '50' OR tmc3 = '51' OR tmc3 = '60' OR tmc3 = '61' OR tmc3 = '62') AND (TMC <> '19') AND (TMC <> '25') AND ((date_o3 >= # " & date_us1 & " #) AND (date_o3 <= # " & date_us2 & " #))"


'conn.Execute "INSERT INTO TempDB2 SELECT N_DOC, KPP, IN_POK, DATE, K_PRED, DOC_O1, N_SHF, TMC1, ADR1, N_POK, KOLO11, KOLO12, KOLO13, KOLO14, KOLO15, KOLO16, SUMO1, SUMO2, SUMO3, SUMO4, KVO1, PNDS1, PNDS2, PNDS3,PNDS4, PNDS5, PNDS6, CEN1, CEN2, CEN3, CEN4, CEN5, CEN6, REG," _
'& "IIf(PNDS1=0, (KOLO41*CEN2), 0)+IIf(PNDS2=0, (KOLO42*CEN2), 0)+IIf(PNDS3=0, (KOLO43*CEN3), 0)+IIf(PNDS4=0, (KOLO44*CEN4), 0)+IIf(PNDS5=0, (KOLO45*CEN5) ,0)+IIf(PNDS6=0, (KOLO46*CEN6) ,0)+IIf(NDSTR=0, (PTR4), 0) AS SUMNDS0, (Date_o4) as Date_o1," _
'& "IIf(PNDS1=10, (PNDS1*KOLO41*CEN1/100), 0)+IIf(PNDS2=10, (PNDS2*KOLO42*CEN2/100), 0)+IIf(PNDS3=10, (PNDS3*KOLO43*CEN3/100), 0)+IIf(PNDS4=10, (PNDS4*KOLO44*CEN4/100), 0)+IIf(PNDS5=10, (PNDS5*KOLO45*CEN5/100) ,0)+IIf(PNDS6=10, (PNDS6*KOLO46*CEN6/100) ,0)+IIf(NDSTR=10, (PTR4*NDSTR/110), 0) AS SUMNDS10," _
'& "IIf(PNDS1=18, (PNDS1*KOLO41*CEN1/100), 0)+IIf(PNDS2=18, (PNDS2*KOLO42*CEN2/100), 0)+IIf(PNDS3=18, (PNDS3*KOLO43*CEN3/100), 0)+IIf(PNDS4=18, (PNDS4*KOLO44*CEN4/100), 0)+IIf(PNDS5=18, (PNDS5*KOLO45*CEN5/100) ,0)+IIf(PNDS6=18, (PNDS6*KOLO46*CEN6/100) ,0)+IIf(NDSTR=18, (PTR4*NDSTR/118), 0) AS SUMNDS18," _
'& "IIf(PNDS1=20, (PNDS1*KOLO41*CEN1/100), 0)+IIf(PNDS2=20, (PNDS2*KOLO42*CEN2/100), 0)+IIf(PNDS3=20, (PNDS3*KOLO43*CEN3/100), 0)+IIf(PNDS4=20, (PNDS4*KOLO44*CEN4/100), 0)+IIf(PNDS5=20, (PNDS5*KOLO45*CEN5/100) ,0)+IIf(PNDS6=20, (PNDS6*KOLO46*CEN6/100) ,0)+IIf(NDSTR=20, (PTR4*NDSTR/120), 0) AS SUMNDS20," _
'& "IIf(PNDS1=10, ((KOLO41*CEN1)-(PNDS1*KOLO41*CEN1/100)), 0)+IIf(PNDS2=10, ((KOLO42*CEN2)-(PNDS2*KOLO42*CEN2/100)), 0)+IIf(PNDS3=10, ((KOLO43*CEN2)-(PNDS3*KOLO43*CEN3/100)), 0)+IIf(PNDS4=10, ((KOLO44*CEN4)-(PNDS4*KOLO44*CEN4/100)), 0)+IIf(PNDS5=10, ((KOLO45*CEN5)-(PNDS5*KOLO45*CEN5/100)) ,0)+IIf(PNDS6=10, ((KOLO46*CEN6)-(PNDS6*KOLO46*CEN6/100)) ,0)+IIf(NDSTR=10, (PTR4*NDSTR/110*100), 0) AS BEZNDS10," _
'& "IIf(PNDS1=18, ((KOLO41*CEN1)-(PNDS1*KOLO41*CEN1/100)), 0)+IIf(PNDS2=18, ((KOLO42*CEN2)-(PNDS2*KOLO42*CEN2/100)), 0)+IIf(PNDS3=18, ((KOLO43*CEN2)-(PNDS3*KOLO43*CEN3/100)), 0)+IIf(PNDS4=18, ((KOLO44*CEN4)-(PNDS4*KOLO44*CEN4/100)), 0)+IIf(PNDS5=18, ((KOLO45*CEN5)-(PNDS5*KOLO45*CEN5/100)) ,0)+IIf(PNDS6=18, ((KOLO46*CEN6)-(PNDS6*KOLO46*CEN6/100)) ,0)+IIf(NDSTR=18, (PTR4*NDSTR/118*100), 0) AS BEZNDS18," _
'& "IIf(PNDS1=20, ((KOLO41*CEN1)-(PNDS1*KOLO41*CEN1/100)), 0)+IIf(PNDS2=20, ((KOLO42*CEN2)-(PNDS2*KOLO42*CEN2/100)), 0)+IIf(PNDS3=20, ((KOLO43*CEN2)-(PNDS3*KOLO43*CEN3/100)), 0)+IIf(PNDS4=20, ((KOLO44*CEN4)-(PNDS4*KOLO44*CEN4/100)), 0)+IIf(PNDS5=20, ((KOLO45*CEN5)-(PNDS5*KOLO45*CEN5/100)) ,0)+IIf(PNDS6=20, ((KOLO46*CEN6)-(PNDS6*KOLO46*CEN6/100)) ,0)+IIf(NDSTR=20, (PTR4*NDSTR/120*100), 0) AS BEZNDS20," _
'& "(SUMNDS10+SUMNDS0+SUMNDS18+SUMNDS20+BEZNDS10+BEZNDS18+BEZNDS20) AS SUMOPLSNDS FROM DZ WHERE (tmc4 = '50' OR tmc4 = '51' OR tmc4 = '60' OR tmc4 = '61' OR tmc3 = '62') AND (TMC <> '19') AND (TMC <> '25') AND ((date_o4 >= # " & date_us1 & " #) AND (date_o4 <= # " & date_us2 & " #))"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / датагрид с чекбоксами и второй датагрид / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 562ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2166655]:
 0ms
get settings:
 9ms
get forum list:
 19ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 219ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 54ms
get tp. blocked users:
 2ms
others: 240ms
total:  562ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]