/ КОМПЬЮТЕРЫ И ПО / Языки программирования / 1С для программиста

Выпуск № 579
от 21.08.2007, 15:35

Вопрос № 98.570

Помогите пожалуйста разобраться. Мой програмист слился в неивестном направлении, а я с касс теперь информацию получить не могу... Я очень плохо разбираюсь... Пишет: <<?>>Функция СформироватьСоставOffline(ТаблРеквизитов, ОписаниеРезультата, Сообщение = "") {Обработка.ЗакрытиеКассовойСмены.Форма.Модуль(30)}: Определения процедур и функций должны размещаться перед операторами основной программы Приложение: Перем ВыбФирма; Перем ВыбКасса; Перем ВыбСклад; Перем ВыбДата; Перем мФлагТоваров; Перем мИмяФайлаОтчета; Перем мИмяФайлаТоваров; Функция СформироватьСоставOffline(ТаблРеквизитов,ТаблВозвратов, ОписаниеРезультата, Сообщение = "",Нач,Кон,Файл) Перем НомерЛенты, ДанныеИзККМ; Рез = глККМЗакрытьСмену(ВыбКасса, ВыбСклад.НомерСекции, ДанныеИзККМ, ОписаниеРезультата, Сообщение, ВыбДата,Нач,Кон,Файл); Если Рез = 1 Тогда СпрЕдиницы = СоздатьОбъект("Справочник.Единицы"); СпрТовары = СоздатьОбъект("Справочник.Номенклатура"); ТаблРеквизитов = СоздатьОбъект("ТаблицаЗначений"); ТаблРеквизитов.НоваяКолонка("Товар"); ТаблРеквизитов.НоваяКолонка("Количество"); ТаблРеквизитов.НоваяКолонка("Единица"); ТаблРеквизитов.НоваяКолонка("Цена"); ТаблРеквизитов.НоваяКолонка("Сумма"); ТаблВозвратов = СоздатьОбъект("ТаблицаЗначений"); ТаблВозвратов.НоваяКолонка("Товар"); ТаблВозвратов.НоваяКолонка("Количество"); ТаблВозвратов.НоваяКолонка("Единица"); ТаблВозвратов.НоваяКолонка("Цена"); ТаблВозвратов.НоваяКолонка("Сумма"); ДанныеИзККМ.ВыбратьСтроки(); Пока ДанныеИзККМ.ПолучитьСтроку() = 1 Цикл Если ДанныеИзККМ.Количество > 0 Тогда Если ПустоеЗначение(ДанныеИзККМ.Штрихкод) = 0 Тогда // Задан штрихкод Если СпрЕдиницы.НайтиПоРеквизиту("Штрихкод", ДанныеИзККМ.Штрихкод, 1) = 0 Тогда Сообщить("Товар со штрихкодом " + ДанныеИзККМ.Штрихкод + " не найден!"); Иначе ТаблРеквизитов.НоваяСтрока(); ТаблРеквизитов.Товар = СпрЕдиницы.Владелец; ТаблРеквизитов.Единица = СпрЕдиницы.ТекущийЭлемент(); ТаблРеквизитов.Количество = ДанныеИзККМ.Количество; ТаблРеквизитов.Сумма = ДанныеИзККМ.Сумма; ТаблРеквизитов.Цена = ДанныеИзККМ.Цена; КонецЕсли; Иначе СчетчикЦикла = 0; Код=ДанныеИзККМ.Код; Для СчетчикЦикла = СтрДлина(Код) по Метаданные.Справочник("Номенклатура").ДлинаКода-1 Цикл Код="0"+Код; КонецЦикла; Если СпрТовары.НайтиПоКоду(Код, 0) = 0 Тогда Сообщить("Товар со кодом " + Код + " не найден!"); Иначе ТаблРеквизитов.НоваяСтрока(); ТаблРеквизитов.Товар = СпрТовары.ТекущийЭлемент(); ТаблРеквизитов.Единица = СпрТовары.БазоваяЕдиница; ТаблРеквизитов.Количество = ДанныеИзККМ.Количество; ТаблРеквизитов.Сумма = ДанныеИзККМ.Сумма; ТаблРеквизитов.Цена = ДанныеИзККМ.Цена; КонецЕсли; КонецЕсли; Иначе Если ПустоеЗначение(ДанныеИзККМ.Штрихкод) = 0 Тогда // Задан штрихкод Если СпрЕдиницы.НайтиПоРеквизиту("Штрихкод", ДанныеИзККМ.Штрихкод, 1) = 0 Тогда Сообщить("Товар со штрихкодом " + ДанныеИзККМ.Штрихкод + " не найден!"); Иначе ТаблВозвратов.НоваяСтрока(); ТаблВозвратов.Товар = СпрЕдиницы.Владелец; ТаблВозвратов.Единица = СпрЕдиницы.ТекущийЭлемент(); ТаблВозвратов.Количество = -1*ДанныеИзККМ.Количество; ТаблВозвратов.Сумма = -1*ДанныеИзККМ.Сумма; ТаблВозвратов.Цена = ДанныеИзККМ.Цена; КонецЕсли; Иначе СчетчикЦикла = 0; Код=ДанныеИзККМ.Код; Для СчетчикЦикла = СтрДлина(Код) по Метаданные.Справочник("Номенклатура").ДлинаКода-1 Цикл Код="0"+Код; КонецЦикла; Если СпрТовары.НайтиПоКоду(Код, 0) = 0 Тогда Сообщить("Товар со кодом " + Код + " не найден!"); Иначе ТаблВозвратов.НоваяСтрока(); ТаблВозвратов.Товар = СпрТовары.ТекущийЭлемент(); ТаблВозвратов.Единица = СпрТовары.БазоваяЕдиница; ТаблВозвратов.Количество = -1*ДанныеИзККМ.Количество; ТаблВозвратов.Сумма = -1*ДанныеИзККМ.Сумма; ТаблВозвратов.Цена = ДанныеИзККМ.Цена; КонецЕсли; КонецЕсли; КонецЕсли; КонецЦикла; Если ТаблРеквизитов.КоличествоСтрок() = 0 Тогда ОписаниеРезультата = "За кассовую смену не продано ни одного товара с выбранного склада."; Рез = 0; Иначе ТаблРеквизитов.Свернуть("Товар,Единица,Цена", "Количество, Сумма"); Рез = 1; КонецЕсли; КонецЕсли; Возврат Рез; КонецФункции // СформироватьСоставOffline()

Отправлен: 16.08.2007, 02:05 Вопрос задал: Alex B (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 9)

Отвечает: Полозов Олег aka Asher Здравствуйте, Alex B! А это весь модуль обработки или его кусок? При проверке на синтаксис, у меня ошибок нет. А вообще эта ошибка появляется если (самые очевидные на мой взгляд случаи): 1. после предыдущей процедуры или функции стоит точка с запятой или любой другой символ или оператор; 2. Переменные определяются после какой либо процедуры или функции Вышлите весь модуль обработки на icq 280666057, поправлю, верну

Ответ отправил: Полозов Олег aka Asher (статус: 7-ой класс) Ответ отправлен: 16.08.2007, 03:34 Оценка за ответ: 5

Отвечает: Владимир Лазурко Здравствуйте, Alex B! Если никаких сообщений кроме этого нет, то это синтаксическая ошибка, вызвана символом "точка с запятой" после предыдущих КонецФункции или КонецПроцедуры перед определнием новой процедуры или функции. Т.е. после ключевых слов КонецПроцедуоры или КонецФункции и перед Процедура или Функция не должно быть других операторов или точки с запятой. По всей вероятности между последним определением переменной (Перем <имя переменной>) и данной функцией есть еще определения процедур и функций, которые Вы не включили в приложение.

Ответ отправил: Владимир Лазурко (статус: Студент) Ответ отправлен: 16.08.2007, 07:52 Оценка за ответ: 2

Отвечает: Elric Здравствуйте, Alex B! Вы прислали явно не тот модуль. Во-первых, в функции СформироватьСоставOffline() у Вас в Приложении 7 параметров (ТаблРеквизитов,ТаблВозвратов, ОписаниеРезультата, Сообщение = "",Нач,Кон,Файл), а в присланном Вами описании ошибки всего 3 (ТаблРеквизитов, ОписаниеРезультата, Сообщение = ""). Во-вторых, у Вас в сообщении об ошибке указан номер сторки 30 (Форма.Модуль(30)}), а в присланном коде у Вас заголовок функции всего на 9 строке. Пришлите полностью модуль обработки ЗакрытиеКассовойСмены, тогда мы сможем ответить на вопрос более конкретно. Пока же предположение о точке с запятой после описания предыдущей процедуры -- самое вероятное. В Приложении у меня пример как это может выглядеть. Обратите внимание на КонецПроцедуры; -- точка с запятой в данном месте является критической ошибкой. Приложение: Перем ВыбФирма; Процедура Сформировать() // тело процедуры КонецПроцедуры; // лишняя точка с запятой Функция СформироватьСоставOffline(ТаблРеквизитов,ТаблВозвратов, ОписаниеРезультата, Сообщение = "",Нач,Кон,Файл) // тело функции КонецФункции --------- В творчестве рождается истина

Ответ отправил: Elric (статус: Специалист) Ответ отправлен: 16.08.2007, 14:54 Оценка за ответ: 5

Вопрос № 98.571

Встал вопрос о разграничении прав пользователей в УПП 8.0 , кто нибудь знает, как определить, какого права не хватает при появлении надписи "У пользователя недостаточно прав на исполнение операции над базой данных "

Отправлен: 16.08.2007, 03:09 Вопрос задал: Полозов Олег aka Asher (статус: 7-ой класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Владимир Лазурко Здравствуйте, Полозов Олег aka Asher! Не хватает права на Чтение данных. Откройте конфигурацию, ветка Общие, в ней Роли. Выберите нужную роль и посмотрите права на чтение. Система пытается, например, зарегистрровать нового пользователя в справочнике Пользователи, а у пользователя прав на это нет. равните набор прав роли, которую Вы редактировали с существующими ролями. Установите соответствующие права на Регистры - вероятно, к ним тоже идёт обращение, а прав на чтение нет. Устанавливайте права из того расчёта, какими обработками/отчетами и системными задачами разрешено будет пользоваться пользователю, и какие объекты конфигурации используют для работы уже разрешенные объекты.

Ответ отправил: Владимир Лазурко (статус: Студент) Ответ отправлен: 17.08.2007, 07:49

Отвечает: Яна Здравствуйте, Полозов Олег aka Asher! Для того, чтобы определить какого права нехватает, сообщения системы мало. Нужно знать какое конкретно действие в этот момент пытался выполнить пользователь. Бывает, что для некоторых действий есть несколько настроек прав. Например, для отчета могут быть заблокированы данные различных регистров. Но в любом случае нужно отследить действия пользователя. А потом проверить несколько возможных вариантов.

Ответ отправила: Яна (статус: Студент) Ответ отправлен: 18.08.2007, 11:20

Вопрос № 98.584

Здравствуйте! Вот такая ситуация, есть док.Заявка месячная каждый цех 1 раз в месяц забивает заявку, (оборотный регистр, периодичность месяц) нужно сделать док.годовая завка для каждого цеха и в каждом месяце было указано нужное колово товара, чтобы данные по каждому месяцу могли быть выгружены в док заявка каждый месяц и там подкорректированы.Каким образом нужно связать месячную и годовую заявку, для годовой завки нужно создавть другой регистр?или как-нибудь может быть подругому реализовать...подскажите пожалуйста, а то я совсем запуталась...

Отправлен: 16.08.2007, 10:02 Вопрос задала: Fifina (статус: Посетитель) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 7)

Отвечает: Шахрайчук Владимир Анатольевич Здравствуйте, Fifina! Сперва нужно определиться, что же Вы хотите иметь. Я так понимаю, что ГодоваяЗаявка есть просто сумма ЗаявкаМесячная, и сводную информацию по годовой заявке за много лет хранить не нужно. Ведь ЗаявкаМесячная сама хранит ту же информацию, что и ГодоваяЗаявка, только с детализацией по месяцам. Вы поняли, что я хочу сказать? Вариант №1: Создаем отчет, который в одну печатную форму на 1 лист бумаги печатает все месячные заявки по нужному цеху. Бухгалтер будет видеть перед собой годовую заявку, которая на самом деле будет простой суммой месячных. Никакого нового документа делать не нужно. Чтобы подкорректировать годовую заявку, нужно будет просто подкорректировать месячную заявку. Вариант №2. Создаем документ ГодоваяЗаявка, в табличной части создаем еще одну колонку Месяц. Не включаем документ ни в оперативный, ни в бухгалтерский учет. Не создаем никакие дополнительные регистры. Данный документ будет исключительно информационный, как, например, ПрайсЛист. В документе создаем кнопочку ОбновитьМесячныеЗаявки. По нажатию этой кнопочки документ обновляет информацию о месячных заявках, и перепроводит их. Таким образом, вся сводная информация будет накапливаться в регистре, только накапливать ее будет не ГодоваяЗаявка, а сумма ЗаявкаМесячная (Комманду на перепроведение которых дает ГодоваяЗаявка) Я рекоммендую Вариант №1.

Ответ отправил: Шахрайчук Владимир Анатольевич (статус: Практикант) Ответ отправлен: 16.08.2007, 11:01 Оценка за ответ: 5 Комментарий оценки: Спасибо, за столь подробный ответ, годовая заявка содержит в себе колво и сумму на каждый месяц по каждому товару и общее кол-во и сумму на год, т.е она набиваться должна в начале года и из нее уже должны создавться месячные заявки.

Отвечает: Elric Здравствуйте, Fifina! Если годовая заявка служит "планом" для месячных заявок, то рекомендую создать дополнительный оборотный регистр, аналогичный существующему, но с периодичностью год и дополнительным измерением Месяц (тип рекомендую Дата, указывать первое число месяца). Тогда во-первых Вам проще будет формировать месячную завку на основании годовой, во-вторых втечении года можно будет вносить коррекции в годовую заявку (так сказать, уточняющие дополнения), не изменяя первоначальный документ, в-третьих потом по итогам года Вы сможете сравнить план/факт (если считать годовую заявку плановой, а месячную фактической). --------- В творчестве рождается истина

Ответ отправил: Elric (статус: Специалист) Ответ отправлен: 16.08.2007, 15:04 Оценка за ответ: 5 Комментарий оценки: Спасибо,вы мне очень помогли

Отвечает: Ромашов Евгений Николаевич Здравствуйте, Fifina! Насчет регистра возможно, только надо будет ввести дополнительное измерение месяц, для которого будут вводиться данные, или что лучше дата - конец требуемого месяца. Или аналогичный реквизит в документе. а в месячной заявке кнопку заполнить и выбирать данные за соответствующий период

Ответ отправил: Ромашов Евгений Николаевич (статус: 3-ий класс) Ответ отправлен: 17.08.2007, 05:08 Оценка за ответ: 5 Комментарий оценки: Спасибо за ответ,но только измерение на каждый месяц, колЯнв,СумЯнв и т.д.....или просто месяц???

Отвечает: Яна Здравствуйте, Fifina! Я думаю стоит завести регистр остатков, куда годовая заявка будет записывать со знаком +, а месячные списывать. В конце года регистр нужно будет закрыть отдельным документом. Кстати, закрывающий документ покажет соотношение планируемых и реальных заявок.

Ответ отправила: Яна (статус: Студент) Ответ отправлен: 18.08.2007, 11:16 Оценка за ответ: 5 Комментарий оценки: Спасибо, наверное так будет лучше всего

© 2001-2007, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Email: support@rusfaq.ru, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале Версия системы: 4.56 beta от 20.08.2007
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru