Перем СоединениеБазы Экспорт;
Процедура КнопкаСформироватьНажатие(Кнопка)
СоединениеБазы = Новый COMОбъект("ADODB.Connection");
driver="SQL Server";
server="192.168.0.251";
login="sasa";
password="password";
base="dbase77";
ConnectionString = "driver={"+driver+"}; Server="+server+"; uid="+login+"; Pwd="+password+"; Database ="+base+";";
успешныйконект=ложь;
Попытка
СоединениеБазы.Open(ConnectionString);
успешныйконект=истина;
Исключение
успешныйконект=ложь;
КонецПопытки;
КонецПроцедуры
Процедура Кнопка1Нажатие(Элемент)
БДдбоКН="dbase77.dbo.";
Command = Новый COMОбъект("ADODB.Command");
Command.ActiveConnection = СоединениеБазы;
ТзЗапроса= Новый ТаблицаЗначений;
Артикул="1.1.1";
НачалоПериода="01.01.2010";
КонецПериода="01.12.2010";
query="SELECT Журнал.DOCNO Документ_ном
|, NullIf(Cast(Left(Журнал.DATE_TIME_IDDOC, 8) AS datetime), '17530101') Документ_дата
|, Заявка.sp15113 Контрагент
|, Контрагенты.DESCR КонтрагентыНаименование
|, Номенклатура.sp19714 Артикул
|, ЗаявкаСтроки.IDDOC Ссылка
|, ЗаявкаСтроки.sp15118 Товар
|, ЗаявкаСтроки.sp15119 Количество
|, ЗаявкаСтроки.sp15122 Цена
|, ЗаявкаСтроки.sp19743 Сумма
|, ПоступлениеТоваров.IDDOC ПоступлениеТоваровСсылка
|, РеализацияПродукции.IDDOC РеализацияПродукцииСсылка
|, РеализацияПродукцииСтроки.sp2993 РеализацияПродукцииСтрокиТовар
|, РеализацияПродукцииСтроки.sp2994 КоличествоПродано
|, РеализацияПродукцииСтроки.sp2995 ЦенаРеал
|, РеализацияПродукцииСтроки.sp3028 СуммаРеал
|FROM "+БДдбоКН+"dt15124 AS ЗаявкаСтроки With (NOLOCK)
|INNER JOIN"+БДдбоКН+"_1SJOURN AS Журнал With (NOLOCK) ON ЗаявкаСтроки.IDDOC = Журнал.IDDOC
|INNER JOIN "+БДдбоКН+"dh15124 AS Заявка With (NOLOCK) ON ЗаявкаСтроки.IDDOC = Заявка.IDDOC
|INNER JOIN "+БДдбоКН+"sc4089 AS Номенклатура With (NOLOCK) ON ЗаявкаСтроки.sp15118 = Номенклатура.ID
|INNER JOIN "+БДдбоКН+"sc488 AS Контрагенты With (NOLOCK) ON Заявка.sp15113 = Контрагенты.ID
|LEFT OUTER JOIN "+БДдбоКН+"dh2975 AS ПоступлениеТоваров With (NOLOCK) ON ' BO4' + ЗаявкаСтроки.IDDOC = ПоступлениеТоваров.sp17090
|RIGHT OUTER JOIN "+БДдбоКН+"dh2988 AS РеализацияПродукции With (NOLOCK) ON РеализацияПродукции.sp17090 = ' 2AN' + ПоступлениеТоваров.IDDOC
|FULL OUTER JOIN"+БДдбоКН+"dt2988 AS РеализацияПродукцииСтроки With (NOLOCK) ON РеализацияПродукции.IDDOC = РеализацияПродукцииСтроки.IDDOC AND ЗаявкаСтроки.sp15118 = РеализацияПродукцииСтроки.sp2993
|LEFT OUTER JOIN"+БДдбоКН+"_1SJOURN AS Журнал1 With (NOLOCK) ON РеализацияПродукции.IDDOC = Журнал1.IDDOC
|WHERE (Cast(Left(Журнал.DATE_TIME_IDDOC, 8) AS datetime) >= N'"+НачалоПериода+"')
|AND (Cast(Left(Журнал.DATE_TIME_IDDOC, 8) AS datetime) <= N'"+КонецПериода+"')
|AND ((Журнал.CLOSED & 1) = 1)
|AND (Журнал.ISMARK = 0)
|AND (Номенклатура.sp19714 = N'"+Артикул+"')
|AND ((Журнал1.CLOSED & 1) = 1)
|AND (Журнал1.ISMARK = 0)";
Command.CommandText = query; // текст надо фильтровать на недопустимые символы
RecordSet = Новый COMОбъект("ADODB.RecordSet"); // Подготавливаем записи
RecordSet = Command.Execute(); //Выполнение и получение набора данных
Если RecordSet.EOF() Тогда
иначе
RecordSet.MoveFirst();
инд=-1;
Пока RecordSet.EOF() = 0 Цикл
инд=инд+1;
Заказать=СокрЛП(RecordSet.Fields(RecordSet.Fields.Item("Количество").Name).Value);
Попытка
Заказать=Число(Заказать);
Исключение
Заказать=0;
Конецпопытки;
ДатаДокумента=СокрЛП(RecordSet.Fields(RecordSet.Fields.Item("Документ_дата").Name).Value);
СтрРасшифровки=ТзЗапроса.Добавить();
СтрРасшифровки.Заказано=Заказать;
RecordSet.MoveNext();
КонецЦикла;
КонецЕсли;
RecordSet.Close(); // После того, как набор записей уже не нужен, его нужно закрыть
RecordSet = Неопределено;
Command = Неопределено;
КонецПроцедуры Вступайте в нашу телеграмм-группу Инфостарт
