| Синтактический контроль модуля(отчет по материалам)
|
|
|
|
#1 Ср Июл 15, 2009 14:25:10
|
Сообщить модератору
|
|
Хотел попробовать сделать отчет ,да не могу справиться с Синтактическим контролем модуля(отчет по материалам)
Добавлено спустя 3 минуты 57 секунд:
Запрос[10] : Ошибка в выражении 'Сумма'
КОЛИЧЕСТВО<<?>>
Переменная не определена (КОЛИЧЕСТВО)
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
{D:\1C\1C БАЗА\STD2008\ОТЧЕТ ПО МАТЕРИАЛАМ2.ERT(61)}: Функция КоличествоСумма = Сумма(Количество <<?>> );
Запрос[11] : Ошибка в выражении 'Количество'
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
{D:\1C\1C БАЗА\STD2008\ОТЧЕТ ПО МАТЕРИАЛАМ2.ERT(61)}: Группировка Наименование <<?>> упорядочить по Наименование.Наименование без групп;
Запрос[12] : Переменная 'Наименование' не опеределена
Добавлено спустя 1 минуту 45 секунд:
внешний отчет
|
|
|
|
|
 |
|
|
|
#2 Ср Июл 15, 2009 17:33:59
|
Сообщить модератору
|
|
Кстати, о детстве. В детстве таких, как вы, я убивал на месте. Из рогатки. © О.Бендер
Только не говорите, что текст запроса был сформирован конструктором, вы его скопипастили, причем криво  , в "ПоступлениеMатериалов" у Вас ошибка
|
|
|
|
|
|
|
|
|
#3 Ср Июл 15, 2009 17:39:45
|
Сообщить модератору
|
|
| Семен Семеныч говорит: |
Кстати, о детстве. В детстве таких, как вы, я убивал на месте. Из рогатки. © О.Бендер
Только не говорите, что текст запроса был сформирован конструктором, вы его скопипастили, причем криво , в "ПоступлениеMатериалов" у Вас ошибка |
знаю что ошибка,как исправить? вот в чем вопрос
|
|
|
|
|
|
|
|
|
#4 Ср Июл 15, 2009 17:42:30
|
Сообщить модератору
|
|
В запросе, наименование объекта метаданных "ПоступлениеMатериалов", написано с ошибкой :lol:
Добавлено спустя 1 минуту 19 секунд:
посмотрите внимательно еще раз как написано "ПоступлениеMатериалов" у Вас и как в дереве метаданных
Добавлено спустя 10 минут 59 секунд:
Смотрим внимательно на картинку с думя колонками, первая колонка это ваша писанина символ-код символа, вторая моя символ-код символа[/img]
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#10 Ср Июл 15, 2009 18:00:27
|
Сообщить модератору
|
|
| Банер говорит: |
|
не открывается картинка |
Ну тогда найдите документ в дереве метеданных, скопируйте оттуда его идентификатор и везде замените свое "ПеремещениеМатериалов" на скопированный кусок 
у Вас буква "М" в "ПеремещениеМатериалов" ЛАТИНИЦЕЙ написана
Добавлено спустя 2 минуты 12 секунд:
| VFrol говорит: |
Семен Семеныч
Смертельный номер!
Так я еще не проверял синтаксис в 1с. |
За десять лет и не такое можно увидеть 
|
|
|
|
|
|
|
|
|
#11 Ср Июл 15, 2009 18:08:11
|
Сообщить модератору
|
|
Семен Семеныч
Не все понятно , эта ошибка частенько бывает , особенно , когда шрифты типа 1251a(от 3 лиц),
но чтобы по кодам разбирать , это сильно. Обычно копируешь и голову не ломаешь.
|
|
|
|
|
|
|
|
|
#12 Ср Июл 15, 2009 18:08:14
|
Сообщить модератору
|
|
не могу понять нгдеискать эти цифры
Добавлено спустя 4 минуты 2 секунды:
|Период с ВыбНачПериода по ВыбКонПериода;
|Обрабатывать НеПомеченныеНаУдаление;
|Сумма = Документ.ПоступлениеMатериалов.Сумма;
|Контрагент = Документ.ПоступлениеMатериалов.Контрагент;
|Количество = Документ.ПоступлениеMатериалов.Количество;
|НомерСтроки = Документ.ПоступлениеMатериалов.НомерСтроки;
|Цена = Документ.ПоступлениеMатериалов.Цена;
|Наименование = Документ.ПоступлениеMатериалов.ТМЦ;----------------заменить букву ?
|
|
|
|
|
|
|
|
|
#13 Ср Июл 15, 2009 18:18:44
|
Сообщить модератору
|
|
Делаем проще.............
копируйте отсель
Добавлено спустя 1 минуту 8 секунд:
//*******************************************
// Процедура генерации запроса Сформировать.
//
Процедура Сформировать()
Перем Запрос, ТекстЗапроса, Таб;
//Создание объекта типа Запрос
Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса =
"//{{ЗАПРОС(Сформировать)
|Период с ВыбНачПериода по ВыбКонПериода;
|Обрабатывать НеПомеченныеНаУдаление;
|Сумма = Документ.ПоступлениеМатериалов.Сумма;
|Контрагент = Документ.ПоступлениеМатериалов.Контрагент;
|Количество = Документ.ПоступлениеМатериалов.Количество;
|НомерСтроки = Документ.ПоступлениеМатериалов.НомерСтроки;
|Цена = Документ.ПоступлениеМатериалов.Цена;
|Наименование = Документ.ПоступлениеМатериалов.ТМЦ;
|Функция СуммаСумма = Сумма(Сумма);
|Функция КоличествоСумма = Сумма(Количество);
|"//}}ЗАПРОС
;
Если (фДокумент=1) и (фКонтрагент=0) Тогда
ТекстЗапроса =ТекстЗапроса+"Группировка Документ;";
ТекстЗапроса =ТекстЗапроса+"Группировка СтрокаДокумента;";
ТекстЗапроса =ТекстЗапроса+"Группировка Наименование упорядочить по Наименование.Наименование без групп;";
ИначеЕсли (фКонтрагент=1) и (фДокумент=0) Тогда
ТекстЗапроса =ТекстЗапроса+"Группировка Контрагент без упорядочивания;";
ТекстЗапроса =ТекстЗапроса+"Группировка Документ;";
ТекстЗапроса =ТекстЗапроса+"Группировка СтрокаДокумента;";
ТекстЗапроса =ТекстЗапроса+"Группировка Наименование упорядочить по Наименование.Наименование без групп;";
ИначеЕсли (фКонтрагент=1) и (фДокумент=1) Тогда
ТекстЗапроса =ТекстЗапроса+"Группировка Документ;";
ТекстЗапроса =ТекстЗапроса+"Группировка СтрокаДокумента;";
ТекстЗапроса =ТекстЗапроса+"Группировка Наименование упорядочить по Наименование.Наименование без групп;";
Иначе
ТекстЗапроса =ТекстЗапроса+"Группировка Наименование упорядочить по Наименование.Наименование без групп;";
КонецЕсли;
н=0;
ТекстКонтрагент ="";
Если мКонтрагент.Выбран()=1 Тогда
Если мКонтрагент.ЭтоГруппа()=1 Тогда
ТекстЗапроса = ТекстЗапроса + "Условие(Контрагент.Родитель=мКонтрагент);";
Иначе
ТекстЗапроса =ТекстЗапроса+"Условие(Контрагент=мКонтрагент);";
ТекстКонтрагент = ТекстКонтрагент+ ", """ + мКонтрагент+"""";
КонецЕсли;
КонецЕсли;
Если мНоменклатура.Выбран()=1 Тогда
Если мНоменклатура.ЭтоГруппа()=1 Тогда
ТекстЗапроса = ТекстЗапроса + "Условие(Наименование.Родитель=мНоменклатура);";
Иначе
ТекстЗапроса = ТекстЗапроса + "Условие (Наименование = мНоменклатура);";
КонецЕсли;
КонецЕсли;
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Возврат;
КонецЕсли;
// Подготовка к заполнению выходных форм данными запроса
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Сформировать");
// Заполнение полей "Заголовок"
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Сформировать");
Таб.ВывестиСекцию("Заголовок");
Состояние("Заполнение выходной таблицы...");
Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);
Если (фДокумент=1) и (фКонтрагент=0) Тогда
Пока Запрос.Группировка(1) = 1 Цикл
н=н+1;
Таб.ВывестиСекцию("Документ");
Пока Запрос.Группировка(2) = 1 Цикл
Пока Запрос.Группировка(3) = 1 Цикл
Таб.ВывестиСекцию("Наименование");
КонецЦикла;
КонецЦикла;
КонецЦикла;
ИначеЕсли (фКонтрагент=1) и (фДокумент=0) Тогда
Пока Запрос.Группировка(1) = 1 Цикл
н=н+1;
Таб.ВывестиСекцию("Контрагент");
Пока Запрос.Группировка(2) = 1 Цикл
Таб.ВывестиСекцию("Документ1");
Пока Запрос.Группировка(3) = 1 Цикл
Пока Запрос.Группировка(4) = 1 Цикл
Таб.ВывестиСекцию("Наименование1");
КонецЦикла;
КонецЦикла;
КонецЦикла;
КонецЦикла;
ИначеЕсли (фКонтрагент=1) и (фДокумент=1) Тогда
Пока Запрос.Группировка(1) = 1 Цикл
н=н+1;
Таб.ВывестиСекцию("Документ");
Таб.ВывестиСекцию("Контрагент1");
Пока Запрос.Группировка(2) = 1 Цикл
Пока Запрос.Группировка(3) = 1 Цикл
Таб.ВывестиСекцию("Наименование");
КонецЦикла;
КонецЦикла;
КонецЦикла;
Иначе
Пока Запрос.Группировка(1) = 1 Цикл
// Заполнение полей Наименование
н=н+1;
Таб.ВывестиСекцию("Наименование2");
КонецЦикла;
КонецЕсли;
// Заполнение полей "Итого"
Таб.ВывестиСекцию("Итого");
// Вывод заполненной формы
Таб.ТолькоПросмотр(1);
Таб.Показать("Сформировать", "");
КонецПроцедуры
Процедура ПриОткрытии()
ВыбНачПериода = НачалоПериодаБИ();
ВыбКонПериода = КонецПериодаБИ();
КонецПроцедуры // ПриОткрытии()
Добавлено спустя 3 минуты:
| VFrol говорит: |
но чтобы по кодам разбирать , это сильно. |
извращенцы обычно ставят на тексты модулей подправленный шрифт (что бы явно различалась латиница и кириллица) или цепляют плагин к телепату для раскраски текстов модулей (тогда вообще по глазам бьть будут символы отличной кодировки)
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#15 Ср Июл 15, 2009 18:28:59
|
Сообщить модератору
|
|
| Банер говорит: |
|
Получилось после замены "М" копированием из дерева |
Предмет моей лекции — плодотворная дебютная идея. Что такое, товарищи, дебют и что такое, товарищи, идея? Дебют, товарищи, — это «Quasi una fantasia». А что такое, товарищи, значит идея? Идея, товарищи, — это человеческая мысль, облеченная в логическую шахматную форму. © О.Бендер
На этом многие обжигались 
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#19 Чт Июл 16, 2009 09:52:04
|
Сообщить модератору
|
|
| Банер говорит: |
|
Очень хорошо сказано, еще раз все спасибо. А вот тоже самое только в восьмерке можно сделать ? |
Честно говоря не совсем понял что нужно в 8ке сделать, если аналог отчета что мы правили выше - то легко делается с помошью компоновки данных или конструктора выходных форм
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#21 Чт Июл 16, 2009 10:43:25
|
Сообщить модератору
|
|
| Банер говорит: |
|
Семен Семеныч это в программе делается или в конфигураторе?Я еще все особенности восьмерки не изучил а книги все у меня только по семерке есть. |
В конфигураторе, "компоновка данных" и "конструктор выходных форм" эт прибамбысы 8ки
Они облегчают создание отчетов (в том числе и очень сложных) с помощью визуальных средств
Тут мышкой кликнул, тут немного пощелкал ....... вуаля .... есть отчет (правда требует доработки напильником если нужны свои макеты, оформление и т.д. и т.п.)
|
|
|
|
|
|
|
|
|
#22 Чт Июл 16, 2009 12:37:04
|
Сообщить модератору
|
|
| Семен Семеныч говорит: |
| Банер говорит: |
|
Семен Семеныч это в программе делается или в конфигураторе?Я еще все особенности восьмерки не изучил а книги все у меня только по семерке есть. |
В конфигураторе, "компоновка данных" и "конструктор выходных форм" эт прибамбысы 8ки
Они облегчают создание отчетов (в том числе и очень сложных) с помощью визуальных средств
Тут мышкой кликнул, тут немного пощелкал ....... вуаля .... есть отчет (правда требует доработки напильником если нужны свои макеты, оформление и т.д. и т.п.) |
че та не нашел ничего подобного в конфигурвторе ,чем дальше тем интереснее ,хочется узнать больше чем нужно, интересная программа эта 1с7и 8.
|
|
|
|
|
|
|
|
|
#23 Пт Июл 17, 2009 09:42:31
|
Сообщить модератору
|
|
| банер- говорит: |
|
че та не нашел ничего подобного в конфигурвторе ,чем дальше тем интереснее ,хочется узнать больше чем нужно, интересная программа эта 1с7и 8. |
На курсы и не партесь .......
не там скали наверно .........
в конфигураторе ......
создаете новый отчет ......
а там кнопка действия/конструкторы/конструктор выходных форм
или открыть схему компоновки данных ......
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#27 Сб Июл 18, 2009 10:24:51
|
Сообщить модератору
|
|
Cleaner
Увы не проследил за тем что у автора базовая, тады в магазин ближайшего партнера, купить версию для обучения програмированию... Стоит копейки а полезного много, платформа и главное книжка...
|
|
|
|
|
|
|
|
|
#28 Сб Июл 18, 2009 11:52:13
|
Сообщить модератору
|
|
| d.Fedor говорит: |
|
купить версию для обучения програмированию... Стоит копейки а полезного много, платформа и главное книжка. |
Вот это гораздо лучше. За 3000 казахских рублей огромный объем информации.
|
|
|
|
|
|
|
|
|
#29 Вс Июл 19, 2009 12:17:45
|
Сообщить модератору
|
|
| d.Fedor говорит: |
Cleaner
Увы не проследил за тем что у автора базовая, тады в магазин ближайшего партнера, купить версию для обучения програмированию... Стоит копейки а полезного много, платформа и главное книжка... |
Если бы остальные програмисты были такие подкованые как на балансе, тогда меньше проблем было не только у бухгалтеров но и предпринммателей. Эту версию подсунул довольно опытный специалист, пришлось работать с тем что имеем , возможности не всегда совпадает с запросами.Спасибо за консультацию.
|
|
|
|
|
|
|
|
|
#30 Пн Июл 20, 2009 07:25:25
|
Сообщить модератору
|
|
Банер
Не соглашусь с тем что "подсунул".. хотя конечно может быть все. Зачастую базовую покупают те кто хочет поменьше заплатить. Узнают что есть программа стоящая копейки, но позволяющая вести учет и ..покупают. Потом обвиняют продавца в том что он "не сказал ничего". Я сам продавал и сталкивался зачастую, что рассказываеш все, про отличия, предупреждаеш что нельзя будет делать, но берут что дешевле, потом приходят и мне говорят "нам при покупке не сказали", после объяснения что продавал им именно я и я не мог не сказать, пытаються замять разговор и получить скидку...
|
|
|
|
|
|
|
|
Правила
Вход
Личные письма
RSS
Продаются домена BALANS.KZ, TAX.KZ, VEBINAR.KZ по вопросам приобретения обратитесь пожалуйста на 
Что? Я просто забочусь об успехе кампании. © Конь "Алеша Попович и Тугарин Змей"