Re: Двiйка за незнання математики.
проблювався з цього коду
Ви не увійшли. Будь ласка, увійдіть або зареєструйтесь.
Ласкаво просимо вас на україномовний форум з програмування, веб-дизайну, SEO та всього пов'язаного з інтернетом та комп'ютерами.
Будемо вдячні, якщо ви поділитись посиланням на Replace.org.ua на інших ресурсах.
Для того щоб створювати теми та надсилати повідомлення вам потрібно Зареєструватись.
Український форум програмістів → Обговорення → Двiйка за незнання математики.
проблювався з цього коду
це ще не найгірше.
а от коли починається змішування англ і роc в одних виразах -
&НаКлиенте
Процедура ПолучитьДанные(Команда)
//Укажем документ для выборки
Сущность = "Document_бит_ус_ЗаказНаряд";
//Выбираем нужные нам поля документа,в формате Json, за период в день, не помечен на удаление
Фильтр = "?$select=Ref_Key,Date,Number,СуммаДокумента,Контрагент_Key,ЗаказПокупателя&$format=json;odata=nometadata&$filter=Date gt datetime'"+Формат(НачалоДня(Дата), "ДФ=yyyy-MM-ddTЧЧ:мм:сс")+"' and Date lt datetime'"+Формат(КонецДня(Дата), "ДФ=yyyy-MM-ddTЧЧ:мм:сс")+"' and DeletionMark eq false";
//Вызываем процедуру подключения и получаем данные
ДанныеЗаказНаряд = ПодключениеOData(Сущность, Фильтр);
//Выход если ошибка
Если ДанныеЗаказНаряд = Неопределено Тогда
Возврат
КонецЕсли;
//проверка на отсутствие документов
КоличествоСтрок = ДанныеЗаказНаряд.value.Количество();
Если КоличествоСтрок = 0 Тогда
Сообщить("На " + Дата + " документов НЕТ.");
Возврат
КонецЕсли;
//Заполняем табличку на форме
СписокДокументов.Очистить();
Элементы.СписокДокументов.Доступность = Истина;
НомерСтроки = 0;
Для Каждого Строка Из ДанныеЗаказНаряд.value Цикл
//Индикатор
Состояние("Запрашиваем данные", Цел(НомерСтроки * 100 /КоличествоСтрок));
//заполняем табличку
ГУИД = Строка.Ref_Key;
ОтветМассив = СпроситьЭлементСправочника("Catalog_Контрагенты", "Description", Строка.Контрагент_Key);
НоваяСтрока = СписокДокументов.Добавить();
НоваяСтрока.ВремяДокумента = ДайДату(Строка.Date);
НоваяСтрока.НомерДокумента = Строка.Number;
НоваяСтрока.СуммаДокумента = Строка.СуммаДокумента;
НоваяСтрока.Контрагент = ОтветМассив.Description;
НоваяСтрока.guid = ГУИД;
НоваяСтрока.НалБезНал = НалБезнал(Строка.ЗаказПокупателя);
НоваяСтрока.Привязка = СпроситьДокумент(ГУИД);
НомерСтроки = НомерСтроки + 1;
КонецЦикла
КонецПроцедуры
`