Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Неназначенных незавершенных заказов: 2
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Войти | Зарегистрироваться )



2 страниц V   1 2 >

>  Ошибка при подключении к SQL
kasya
Отправлено: 25.03.13, 13:34


Общительный
**

Группа: Пользователи
Сообщений: 29
Регистрация: 29.12.11
Пользователь №: 13572


Цитата(-=VJ=- @ 25.03.13, 12:54) *
Пока НЕ нКом.Eof() Цикл
ну сами же знаете, что на работоспособность это никак не влияет.
А по сабжу: тему можно закрывать. Косяк был в sql-е.


 ! 

Правила, п.1.
 
  Форум: Программирование управляемых форм 1С 8.2 · Просмотр сообщения: #66902 · Ответов: 3 · Просмотров: 7111
 

>  Ошибка при подключении к SQL
kasya
Отправлено: 25.03.13, 11:45


Общительный
**

Группа: Пользователи
Сообщений: 29
Регистрация: 29.12.11
Пользователь №: 13572


Св = Новый COMОбъект("ADODB.Connection");
Св.CursorLocation     = 2;
Св.ConnectionTimeout=15;
СтрокаСвязи         = "Provider=SQLOLEDB.1;Password=pas;Persist Security Info=True;User ID=user;Initial Catalog=basecard;Data Source=cards;Connect timeout=10";
Попытка
    Св.Open(СтрокаСвязи);
Исключение
    Св = "";
    Предупреждение("Ошибка подключения к SQL Server.");
КонецПопытки;

CommEdit = Новый COMОбъект("ADODB.Command");
CommEdit.ActiveConnection = Св;
CommEdit.CommandText = "cards_activate";
CommEdit.CommandType = 4;

НомерКарты = Прав(СокрЛП(НомерКарты), СтрДлина(СокрЛП(НомерКарты))-9);

нКом =  Новый COMОбъект("ADODB.Recordset");
Попытка
    нКом.Open("Execute cards.dbo.cards_activate @card='"+НомерКарты+"'", Св);
Исключение
    Сообщить("Произошла ошибка передачи данных!", СтатусСообщения.ОченьВажное);
    Сообщить(ОписаниеОшибки());
КонецПопытки;

Пока нКом.EOF() = 0 Цикл
    рез = нКом.Fields.item(0).Value;
    нКом.MoveNext();        
КонецЦикла;


{Обработка.АктивацияКартЕ100.Форма.Форма.Форма(68)}: Ошибка при вызове метода контекста (EOF)
Пока нКом.EOF() = 0 Цикл
по причине:
Произошла исключительная ситуация (ADODB.Recordset): Операция не допускается, если объект закрыт.

Подскажите, плз, где косяк?
  Форум: Программирование управляемых форм 1С 8.2 · Просмотр сообщения: #66872 · Ответов: 3 · Просмотров: 7111
 

>  Автоподключение к 1с посредством .bat
kasya
Отправлено: 29.10.12, 11:21


Общительный
**

Группа: Пользователи
Сообщений: 29
Регистрация: 29.12.11
Пользователь №: 13572


1С:Предприятие 8.2 (8.2.15.301) серверная. Не типовая.

Есть батник, который запускает 1ску. При запуске под определенным пользователем запускается обработка, которая в свою очередь подключается к файловой 1с 7.7 и получает из нее данные. Так вот при подключении к 1с 7.7 не происходит автовход, логин и пароль вводятся, но нужно ручками нажать "Ок" и только после этого обработка продолжается.

глV7 = Новый COMОбъект ("V77.Application");
Каталог="\\serv\1c$\icc\";
Открыта = глV7.Initialize(глV7.RMTrade, Каталог+" /NАвто", "");


В чем может быть дело?

PS: если запускаю обработку руками, то все отрабатывает нормально.


 ! 

Правила, п.12
 
  Форум: Программирование обычных форм 1С 8.2 и не интер... · Просмотр сообщения: #59315 · Ответов: 1 · Просмотров: 2420
 

>  Не происходит изменение макета печатной формы
kasya
Отправлено: 21.10.12, 21:41


Общительный
**

Группа: Пользователи
Сообщений: 29
Регистрация: 29.12.11
Пользователь №: 13572


1С 8.2. Конфигурация Управление торговлей, файловая. В обработке Печать ТТН в графу способ погрузки ввел текст "ручной". В выгруженной базе двухмесячной давности все здорово выводится на печать, в выгруженной базе с актуальными данными текстовые добавления в макете не выводит (cf загружен в базы один и тот же). Аналогично происходит и если в макете добавить параметр и передавать в него значение. В базе со старыми данными параметры передаются и выводятся, а в базе с актуальными данными не видит параметры и выдает соответствующую ошибку.
Кеш чистил. С папки базы удалял все доп. папки, оставлял только CDшник. Тестирование и исправление ИБ делал. Не помогло ничего.
В чем может быть дело и что делать?
  Форум: Программирование управляемых форм 1С 8.2 · Просмотр сообщения: #58850 · Ответов: 3 · Просмотров: 4328
 

>  отчет с переменным количеством столбцов
kasya
Отправлено: 31.05.12, 10:39


Общительный
**

Группа: Пользователи
Сообщений: 29
Регистрация: 29.12.11
Пользователь №: 13572


Доброго времени суток. Необходимо создать отчет с переменным количеством столбцов и строк. Строки - товары, Столбцы - склады. + Расчетный столбец. Подскажите пожалуйста, как это можно реализовать?
  Форум: Программирование обычных форм 1С 8.2 и не интер... · Просмотр сообщения: #51150 · Ответов: 1 · Просмотров: 3400
 

>  Сумма прописью на польском языке
kasya
Отправлено: 16.05.12, 17:23


Общительный
**

Группа: Пользователи
Сообщений: 29
Регистрация: 29.12.11
Пользователь №: 13572


Доброго времени суток.
Собственно организовала процесс следующим образом:

ФормСтрока = "L=pl_PL; ДП = Истина";
ПарПредмета = "złoty, złote, złotych, m, grosz, grosze, groszy, m, 2";
СуммаПрописью = ЧислоПрописью(21446.65, ФормСтрока, ПарПредмета);
Сообщить(СуммаПрописью);


Выводит мне следующее:
Dwadzieścia jeden tysięcy czterysta czterdzieści sześć złotych sześćdziesiąt pięć groszy

Правильно должно быть
Dwadzieścia jedna tysiac czterysta czterdzieści sześć złotych sześćdziesiąt pięć groszy

Т.е. вместо одна тысяча, две тысячи он выводит один тысяча, два тысяча. Может кто подскажет как более граммотно с точки зрения написания прописью вывести сумму?


 ! 

Выделяйте код!
 
  Форум: Программирование обычных форм 1С 8.2 и не интер... · Просмотр сообщения: #50267 · Ответов: 3 · Просмотров: 4583
 

>  Остаток на начало из регистр накопления.остатки и обороты
kasya
Отправлено: 18.04.12, 21:41


Общительный
**

Группа: Пользователи
Сообщений: 29
Регистрация: 29.12.11
Пользователь №: 13572


Цитата(Ardi @ 18.04.12, 22:32) *
Первое апреля вроде уже было?
ой да ладно.)
вопрос снят.
  Форум: Программирование обычных форм 1С 8.2 и не интер... · Просмотр сообщения: #48866 · Ответов: 2 · Просмотров: 4515
 

>  Остаток на начало из регистр накопления.остатки и обороты
kasya
Отправлено: 18.04.12, 21:21


Общительный
**

Группа: Пользователи
Сообщений: 29
Регистрация: 29.12.11
Пользователь №: 13572


Доброго времени суток.
Столкнулась с проблемой при выборке из регистра накопления остатки и обороты: в случае отсутствия оборотов в заданном периоде остаток на начало не выбирается. Если же обороты в заданном периоде есть, то все прекрасно выбирается.
Собственно сам запрос:

ВЫБРАТЬ
    ВзаиморасчетыСПокупателямиОстаткиИОбороты.Регистратор КАК Регистратор,
    ВзаиморасчетыСПокупателямиОстаткиИОбороты.СтоимостьПриход КАК Приход,
    ВзаиморасчетыСПокупателямиОстаткиИОбороты.СтоимостьРасход КАК Расход,
    NULL КАК НачальныйОстаток,
    ВзаиморасчетыСПокупателямиОстаткиИОбороты.Контрагент,
    NULL КАК КонечныйОстаток,
    ВзаиморасчетыСПокупателямиОстаткиИОбороты.Период КАК Период
ИЗ
    РегистрНакопления.ВзаиморасчетыСПокупателями.ОстаткиИОбороты(
            &ДатаС,
            &ДатаПо,
            Регистратор,
            ,
            Контрагент = &Контрагент
                И Организация = &Организация
                И Валюта = &Валюта) КАК ВзаиморасчетыСПокупателямиОстаткиИОбороты

ОБЪЕДИНИТЬ ВСЕ

ВЫБРАТЬ ПЕРВЫЕ 1
    NULL,
    NULL,
    NULL,
    ВзаиморасчетыСПокупателямиОстаткиИОборотыНач.СтоимостьНачальныйОстаток,
    ВзаиморасчетыСПокупателямиОстаткиИОборотыНач.Контрагент,
    NULL,
    NULL
ИЗ
    РегистрНакопления.ВзаиморасчетыСПокупателями.ОстаткиИОбороты(
            ,
            ,
            Месяц,
            ,
            Организация = &Организация
                И Контрагент = &Контрагент
                И Валюта = &Валюта) КАК ВзаиморасчетыСПокупателямиОстаткиИОборотыНач
ГДЕ
    ВзаиморасчетыСПокупателямиОстаткиИОборотыНач.Период >= &ДатаС
    И ВзаиморасчетыСПокупателямиОстаткиИОборотыНач.Период <= &ДатаПо

ОБЪЕДИНИТЬ ВСЕ

ВЫБРАТЬ ПЕРВЫЕ 1
    NULL,
    NULL,
    NULL,
    NULL,
    ВзаиморасчетыСПокупателямиОстаткиИОбороты.Контрагент,
    ВзаиморасчетыСПокупателямиОстаткиИОбороты.СтоимостьКонечныйОстаток,
    NULL
ИЗ
    РегистрНакопления.ВзаиморасчетыСПокупателями.ОстаткиИОбороты(
            ,
            ,
            Месяц,
            ,
            Организация = &Организация
                И Контрагент = &Контрагент
                И Валюта = &Валюта) КАК ВзаиморасчетыСПокупателямиОстаткиИОбороты
ГДЕ
    ВзаиморасчетыСПокупателямиОстаткиИОбороты.Период >= &ДатаС
    И ВзаиморасчетыСПокупателямиОстаткиИОбороты.Период <= &ДатаПо

УПОРЯДОЧИТЬ ПО
    КонечныйОстаток УБЫВ,
    Период
  Форум: Программирование обычных форм 1С 8.2 и не интер... · Просмотр сообщения: #48863 · Ответов: 2 · Просмотров: 4515
 

>  Ошибка СУБД: Ошибка Sql: Неправильные параметры функции 'datediff'
kasya
Отправлено: 06.02.12, 21:21


Общительный
**

Группа: Пользователи
Сообщений: 29
Регистрация: 29.12.11
Пользователь №: 13572


Цитата(Batchir @ 06.02.12, 19:29) *
Ну я не знаю, чудес ведь не бывает и врятили тут баг платформы.
а состав даты какой?

Собственно, пример который я привел работает, а на пальцах гадать почему у Вас так а у нас не так - тяжело
Что бы сказать конкретно нужен ЦФ.
а что такое ЦФ?


а, поняла. афйл конфигурации


**туплю
  Форум: Программирование в 1С Предприятие 8.1 (8.0) · Просмотр сообщения: #43450 · Ответов: 11 · Просмотров: 7020
 

>  Ошибка СУБД: Ошибка Sql: Неправильные параметры функции 'datediff'
kasya
Отправлено: 06.02.12, 16:45


Общительный
**

Группа: Пользователи
Сообщений: 29
Регистрация: 29.12.11
Пользователь №: 13572


Цитата(Batchir @ 06.02.12, 16:53) *
Если ничего не делать то оно и не заработает. Вам указали где ошибка.
Смотрите типы данных которые используются в "ДОБАВИТЬКДАТЕ" и "РАЗНОСТЬДАТ".
Я специально привел рабочий текст запроса что бы показать это.
ПередачаВПрокат.Дата - тип Дата, ПередачаВПрокат.ДанныеПередачиВПрокат.КоличествоДнейПроката - тип Число. Тут все в порядке.
  Форум: Программирование в 1С Предприятие 8.1 (8.0) · Просмотр сообщения: #43440 · Ответов: 11 · Просмотров: 7020
 

>  Ошибка СУБД: Ошибка Sql: Неправильные параметры функции 'datediff'
kasya
Отправлено: 06.02.12, 11:45


Общительный
**

Группа: Пользователи
Сообщений: 29
Регистрация: 29.12.11
Пользователь №: 13572


все еще актуально, т.к. не работает..
  Форум: Программирование в 1С Предприятие 8.1 (8.0) · Просмотр сообщения: #43404 · Ответов: 11 · Просмотров: 7020
 

>  Ошибка СУБД: Ошибка Sql: Неправильные параметры функции 'datediff'
kasya
Отправлено: 05.02.12, 21:27


Общительный
**

Группа: Пользователи
Сообщений: 29
Регистрация: 29.12.11
Пользователь №: 13572


Цитата(logist @ 05.02.12, 22:06) *
у Вас в РАЗНОСТЬДАТ первый параметр получается наверное число, а должно быть время. Вообщем проблема именно в этой функции

ДОБАВИТЬКБАТЕ - я должна получить новую дату (это срок возврата)
РАЗНОСТЬДАТ - я должна получить количество дней (это просрочка)
  Форум: Программирование в 1С Предприятие 8.1 (8.0) · Просмотр сообщения: #43397 · Ответов: 11 · Просмотров: 7020
 

>  Ошибка СУБД: Ошибка Sql: Неправильные параметры функции 'datediff'
kasya
Отправлено: 05.02.12, 20:04


Общительный
**

Группа: Пользователи
Сообщений: 29
Регистрация: 29.12.11
Пользователь №: 13572


Цитата(logist @ 05.02.12, 20:52) *
ПередачаВПрокат.Дата - значение является Датой или ДатаИвремя? Насколько я в курсе 1С хочет видеть дату в секундах.
Дата и время, верно.
  Форум: Программирование в 1С Предприятие 8.1 (8.0) · Просмотр сообщения: #43393 · Ответов: 11 · Просмотров: 7020
 

>  Ошибка СУБД: Ошибка Sql: Неправильные параметры функции 'datediff'
kasya
Отправлено: 05.02.12, 19:38


Общительный
**

Группа: Пользователи
Сообщений: 29
Регистрация: 29.12.11
Пользователь №: 13572


Доброго времени суток.
"ВЫБРАТЬ
    |    ОбъектыПрокатаУКлиентовОстатки.Клиент,
    |    ОбъектыПрокатаУКлиентовОстатки.ОбъектПроката,
    |    ПередачаВПрокат.Дата,
    |    ПередачаВПрокатДанныеПередачиВПрокат.КоличествоДнейПроката,
    |    ПередачаВПрокатДанныеПередачиВПрокат.Сумма,
    |    ОбъектыПрокатаУКлиентовОстатки.КоличествоОстаток,
    |   ДОБАВИТЬКДАТЕ(ПередачаВПрокат.Дата, ДЕНЬ, ПередачаВПрокат.ДанныеПередачиВПрокат.КоличествоДнейПроката) КАК ДатаВозврата,        
    |   РАЗНОСТЬДАТ(ДОБАВИТЬКДАТЕ(ПередачаВПрокат.Дата, ДЕНЬ, ПередачаВПрокат.ДанныеПередачиВПрокат.КоличествоДнейПроката), &Дата, ДЕНЬ) КАК Просрочка
    |ИЗ
    |    РегистрНакопления.ОбъектыПрокатаУКлиентов.Остатки КАК ОбъектыПрокатаУКлиентовОстатки
    |        ЛЕВОЕ СОЕДИНЕНИЕ Документ.ПередачаВПрокат.ДанныеПередачиВПрокат КАК ПередачаВПрокатДанныеПередачиВПрокат
    |            ЛЕВОЕ СОЕДИНЕНИЕ Документ.ПередачаВПрокат КАК ПередачаВПрокат
    |            ПО ПередачаВПрокатДанныеПередачиВПрокат.Ссылка = ПередачаВПрокат.Ссылка
    |        ПО ОбъектыПрокатаУКлиентовОстатки.Клиент = ПередачаВПрокат.ДанныеПередачиВПрокат.Клиент
    |            И ОбъектыПрокатаУКлиентовОстатки.ОбъектПроката = ПередачаВПрокат.ДанныеПередачиВПрокат.ОбъектПроката";
    Запрос.УстановитьПараметр("Дата", ТекущаяДата());
    Результат = Запрос.Выполнить();

при выполнении данного запроса появляется оршибка "Ошибка СУБД: Ошибка SQL: Неправильные параметры функции 'DateDiff' ".
Что я делаю неверно?
  Форум: Программирование в 1С Предприятие 8.1 (8.0) · Просмотр сообщения: #43391 · Ответов: 11 · Просмотров: 7020
 

>  Как рассчитать "Количество раз в прокате" в регистре сведений
kasya
Отправлено: 31.01.12, 15:59


Общительный
**

Группа: Пользователи
Сообщений: 29
Регистрация: 29.12.11
Пользователь №: 13572


Цитата(Vofka @ 31.01.12, 16:56) *
kasya, это курсовая? Какой курс?
не курсовая. по заданию и книгам сама разбираюсь в 1С.
  Форум: Программирование в 1С Предприятие 8.1 (8.0) · Просмотр сообщения: #42877 · Ответов: 12 · Просмотров: 5855
 

>  Как рассчитать "Количество раз в прокате" в регистре сведений
kasya
Отправлено: 31.01.12, 15:43


Общительный
**

Группа: Пользователи
Сообщений: 29
Регистрация: 29.12.11
Пользователь №: 13572


сделала следующим образом
Запрос = Новый Запрос;
        Запрос.Текст =
        "ВЫБРАТЬ
        |    ОстаткиОбъектовПрокатаПредприятия.Регистратор,
        |    ОстаткиОбъектовПрокатаПредприятия.ОбъектПроката,
        |    ОстаткиОбъектовПрокатаПредприятия.ТочкаПроката,
        |    ОстаткиОбъектовПрокатаПредприятия.Количество
        |ИЗ
        |    РегистрНакопления.ОстаткиОбъектовПрокатаПредприятия КАК ОстаткиОбъектовПрокатаПредприятия
        |ГДЕ
        |   Регистратор ССЫЛКА Документ.ВозвратОбъектаИзПроката";
    Запрос.УстановитьПараметр("ОбъектПроката", ОбъектПроката);
    Запрос.УстановитьПараметр("ТочкаПроката", ТочкаПроката);
  
        Результат=Запрос.Выполнить();
        Износ = Результат.Выбрать().Количество();
        Возврат Износ;


Однако все время получаю значение 1. Что я делаю неверно? И как сделать, чтоб заработало?
  Форум: Программирование в 1С Предприятие 8.1 (8.0) · Просмотр сообщения: #42874 · Ответов: 12 · Просмотров: 5855
 

>  Как рассчитать "Количество раз в прокате" в регистре сведений
kasya
Отправлено: 31.01.12, 9:52


Общительный
**

Группа: Пользователи
Сообщений: 29
Регистрация: 29.12.11
Пользователь №: 13572


Цитата(Vofka @ 31.01.12, 10:00) *
kasya, так в чем проблема при проведении найти в регистре запись и прибавить к "износу" единицу?
Не совсем себе представляю как в движении регистра прописать условие проверки наличия записей по данному объекту по текущую дату.
  Форум: Программирование в 1С Предприятие 8.1 (8.0) · Просмотр сообщения: #42820 · Ответов: 12 · Просмотров: 5855
 

>  Как рассчитать "Количество раз в прокате" в регистре сведений
kasya
Отправлено: 31.01.12, 0:07


Общительный
**

Группа: Пользователи
Сообщений: 29
Регистрация: 29.12.11
Пользователь №: 13572


Доброго времени суток.
Конфигурация по учету проката дисков.
Необходимо расчитать новое качество Объекта Проката исходя из количества раз передачи его в прокат. Документ передачи в прокат создает Движение в Регистре сведений "Износ" с ресурсом "износ". Как Ресурс "Износ" сделать "счетчиком" для каждого Объекта Проката?
Т.е. Первый раз появилась запись в регистре => Износ=1
Второй раз появилась запись по этому же ОбъектуПроката, Износ = 1+1
и т.д.
  Форум: Программирование в 1С Предприятие 8.1 (8.0) · Просмотр сообщения: #42795 · Ответов: 12 · Просмотров: 5855
 

>  Создание в отчете расчетного поля
kasya
Отправлено: 27.01.12, 13:54


Общительный
**

Группа: Пользователи
Сообщений: 29
Регистрация: 29.12.11
Пользователь №: 13572


В отчете должна выводиться информация о сроках возврата арендуемого имущества. Есть данные даты передачи в прокат и срок проката. Как в отчете прописать расчет даты возврата?
  Форум: Программирование в 1С Предприятие 8.1 (8.0) · Просмотр сообщения: #42583 · Ответов: 3 · Просмотров: 2862
 

>  Нюанс ввода на основании
kasya
Отправлено: 26.01.12, 22:05


Общительный
**

Группа: Пользователи
Сообщений: 29
Регистрация: 29.12.11
Пользователь №: 13572


Цитата(logist @ 26.01.12, 20:52) *
Во первых ознакомится с правилами форума.
А по делу - написать соответствующий код в процедуре ОбработкаЗаполнения
да это то понятно. Как правильно это прописать?
  Форум: Программирование обычных форм 1С 8.2 и не интер... · Просмотр сообщения: #42495 · Ответов: 4 · Просмотров: 2443
 

>  Нюанс ввода на основании
kasya
Отправлено: 26.01.12, 19:01


Общительный
**

Группа: Пользователи
Сообщений: 29
Регистрация: 29.12.11
Пользователь №: 13572


Доброго времени суток. Подскажите, пожалуйста, как при при создании документа посредством Ввод на основании выгрузить значение реквизита документа-исходника в поле ввода табличной части формируемого документа?
  Форум: Программирование обычных форм 1С 8.2 и не интер... · Просмотр сообщения: #42479 · Ответов: 4 · Просмотров: 2443
 

>  {Документ.ИмяДокумента(73)}: Поле объекта не обнаружено (Количество)
kasya
Отправлено: 24.01.12, 11:21


Общительный
**

Группа: Пользователи
Сообщений: 29
Регистрация: 29.12.11
Пользователь №: 13572


УРА! Работает! Спасибо за помощь! ^^
  Форум: Программирование в 1С Предприятие 8.1 (8.0) · Просмотр сообщения: #42211 · Ответов: 8 · Просмотров: 8386
 

>  {Документ.ИмяДокумента(73)}: Поле объекта не обнаружено (Количество)
kasya
Отправлено: 23.01.12, 20:43


Общительный
**

Группа: Пользователи
Сообщений: 29
Регистрация: 29.12.11
Пользователь №: 13572


Цитата(Домовик @ 23.01.12, 19:36) *
тз=Запрос.Выполнить().Выгрузить(); и точку останова. В отладчике посмотрите поля таблицы тз.


Запрос.выполнить().Выбрать(). тоже можно посмотреть в отладчике, что ж вы получаете

а куда это вставлять нужно?
  Форум: Программирование в 1С Предприятие 8.1 (8.0) · Просмотр сообщения: #42191 · Ответов: 8 · Просмотров: 8386
 

>  {Документ.ИмяДокумента(73)}: Поле объекта не обнаружено (Количество)
kasya
Отправлено: 23.01.12, 18:23


Общительный
**

Группа: Пользователи
Сообщений: 29
Регистрация: 29.12.11
Пользователь №: 13572


Цитата(Домовик @ 23.01.12, 19:12) *
реквизит количество в табличной части документа отсутствует - первое, что в голову приходит


также Количество есть в регистре, куда записываются движения - еще там можно проверить.

Могли еще ошибку допустить, когда называли реквизит Количество. ошибка в имени поля
Да вроде проверила, в норме все... Голова кругом.

[тут что-то было]
  Форум: Программирование в 1С Предприятие 8.1 (8.0) · Просмотр сообщения: #42189 · Ответов: 8 · Просмотров: 8386
 

>  {Документ.ИмяДокумента(73)}: Поле объекта не обнаружено (Количество)
kasya
Отправлено: 23.01.12, 17:55


Общительный
**

Группа: Пользователи
Сообщений: 29
Регистрация: 29.12.11
Пользователь №: 13572


Помогите, пожалуйста, разобраться с ошибкой: {Документ.ИмяДокумента(73)}: Поле объекта не обнаружено (Количество)

Процедура ОбработкаПроведения(Отказ, Режим)
    Запрос = Новый Запрос;
    Если Режим = РежимПроведенияДокумента.Оперативный Тогда
        Запрос.Текст =
        "ВЫБРАТЬ
        |    ОстаткиОбъектовПрокатаПредприятияОстатки.КоличествоОстаток,
        |    ПередачаВПрокат.ТочкаПроката,
        |    ПередачаВПрокат.ДанныеПередачиВПрокат.(
        |        Клиент,
        |        ОбъектПроката,
        |        Количество,
        |        Сумма
        |    )
        |ИЗ
        |    Документ.ПередачаВПрокат КАК ПередачаВПрокат
        |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ОстаткиОбъектовПрокатаПредприятия.Остатки(&МоментВремени, ОбъектПроката В (&СписокОбъектовПрокатаДокумента)) КАК ОстаткиОбъектовПрокатаПредприятияОстатки
        |        ПО ПередачаВПрокат.ДанныеПередачиВПрокат.ОбъектПроката = ОстаткиОбъектовПрокатаПредприятияОстатки.ОбъектПроката
        |ГДЕ
        |    ПередачаВПрокат.ДанныеПередачиВПрокат.Ссылка = &Ссылка
        |
        |ДЛЯ ИЗМЕНЕНИЯ
        |    РегистрНакопления.ОстаткиОбъектовПрокатаПредприятия.Остатки";
    Иначе
        Запрос.Текст =
        "ВЫБРАТЬ
        |    ОстаткиОбъектовПрокатаПредприятияОстатки.КоличествоОстаток,
        |    ПередачаВПрокат.ТочкаПроката,
        |    ПередачаВПрокат.ДанныеПередачиВПрокат.(
        |        Клиент,
        |        ОбъектПроката,
        |        Количество,
        |        Сумма
        |    )
        |ИЗ
        |    Документ.ПередачаВПрокат КАК ПередачаВПрокат
        |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ОстаткиОбъектовПрокатаПредприятия.Остатки(&МоментВремени, ОбъектПроката В (&СписокОбъектовПрокатаДокумента)) КАК ОстаткиОбъектовПрокатаПредприятияОстатки
        |        ПО ПередачаВПрокат.ДанныеПередачиВПрокат.ОбъектПроката = ОстаткиОбъектовПрокатаПредприятияОстатки.ОбъектПроката
        |ГДЕ
        |    ПередачаВПрокат.ДанныеПередачиВПрокат.Ссылка = &Ссылка
        |
        |ДЛЯ ИЗМЕНЕНИЯ
        |    РегистрНакопления.ОстаткиОбъектовПрокатаПредприятия.Остатки";

;
    КонецЕсли;
    Запрос.УстановитьПараметр ("МоментВремени", МоментВремени ());
    Запрос.УстановитьПараметр ("СписокОбъектовПрокатаДокумента", ДанныеПередачиВПрокат.ВыгрузитьКолонку("ОбъектПроката"));
    Запрос.УстановитьПараметр ("Ссылка", Ссылка);
    ВыборкаРезультатаЗапроса = Запрос.Выполнить().Выбрать();
    Пока ВыборкаРезультатаЗапроса.Следующий() Цикл
        //проверить остаток при оперативном проведении
        Если Режим = РежимПроведенияДокумента.Оперативный Тогда
            Для Каждого ТекСтрокаДанныеПередачиВПрокат Из ДанныеПередачиВПрокат Цикл
                // регистр ОстаткиОбъектовПрокатаПредприятия Расход
                Движение = Движения.ОстаткиОбъектовПрокатаПредприятия.Добавить();
                Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
                Движение.Период = Дата;
                Движение.ОбъектПроката = ТекСтрокаДанныеПередачиВПрокат.ОбъектПроката;
                Движение.ТочкаПроката = ТочкаПроката;
                Движение.Количество = ТекСтрокаДанныеПередачиВПрокат.Количество;
            КонецЦикла;
            Для Каждого ТекСтрокаДанныеПередачиВПрокат Из ДанныеПередачиВПрокат Цикл
                // регистр ОбъектыПрокатаУКлиентов Приход
                Движение = Движения.ОбъектыПрокатаУКлиентов.Добавить();
                Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
                Движение.Период = Дата;
                Движение.Клиент = ТекСтрокаДанныеПередачиВПрокат.Клиент;
                Движение.ОбъектПроката = ТекСтрокаДанныеПередачиВПрокат.ОбъектПроката;
                Движение.Количество = ТекСтрокаДанныеПередачиВПрокат.Количество;
            КонецЦикла;
            Остаток = ? (ВыборкаРезультатаЗапроса.КоличествоОстаток = Null, 0, ВыборкаРезультатаЗапроса.КоличествоОстаток);
            Если Остаток < ВыборкаРезультатаЗапроса.Количество Тогда
                Сообщить ("Объекта проката" + СокрЛП(ВыборкаРезультатаЗапроса.ОбъектПроката) + "имеется только" + Остаток);
                Отказ = Истина;
                Возврат;
            КонецЕсли;
        КонецЕсли;
    КонецЦикла;
    //записать движения регистров
    Движения.ОстаткиОбъектовПрокатаПредприятия.Записать();
    Движения.ОбъектыПрокатаУКлиентов.Записать();
КонецПроцедуры
  Форум: Программирование в 1С Предприятие 8.1 (8.0) · Просмотр сообщения: #42185 · Ответов: 8 · Просмотров: 8386
 

2 страниц V   1 2 >

Новые сообщения  Открытая тема (есть новые ответы)
Опрос  Опрос (есть новые голоса)
Нет новых сообщений  Открытая тема (нет новых ответов)
Нет новых голосов  Опрос (нет новых голосов)
Популярная тема  Горячая тема (есть новые ответы)
Закрыта  Закрытая тема
Нет новых  Горячая тема (нет новых ответов) Перемещена  Тема перемещена
 

RSS Текстовая версия Сейчас: 25.05.24, 18:12
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!