Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
26 сен 2021, 02:48

Помогите пожалуйста с внешней обработкой

Автор veicheln, 10 ноя 2010, 14:07

0 Пользователей и 1 гость просматривают эту тему.

veicheln

огромное спасибо, дальше попытаюсь сама до ума довести!

progmikon

пожалуйста :).
Тему пока не закрываю. Если будут вопросы - пишите.

veicheln


veicheln

написала код

Процедура КнопкаВыполнитьНажатие(Кнопка)
   
   Запрос = Новый Запрос ("ВЫБРАТЬ
                          |   ХозрасчетныйОстатки.Счет КАК Счет,
                          |   ХозрасчетныйОстатки.Субконто1 КАК Контрагент,
                          |   ХозрасчетныйОстатки.СуммаОстатокКт КАК СуммаОстаток
                          |ИЗ
                          |   РегистрБухгалтерии.Хозрасчетный.Остатки(&НаДату, Счет = ЗНАЧЕНИЕ(ПланСчетов.Хозрасчетный.РасчетыСПокупателями), , Организация = &Организация) КАК ХозрасчетныйОстатки
                          |ГДЕ
                          |   ХозрасчетныйОстатки.КоличествоОстатокКт > 0");
                   
   Запрос.УстановитьПараметр("НаДату",КонецМесяца(ДобавитьМесяц(ТекущаяДата(), -1)));
   Запрос.УстановитьПараметр("Организация", Справочники.Организации.НайтиПоКоду("000000001"));
   Результат = Запрос.Выполнить().Выбрать();
   Пока Результат.Следующий() Цикл
      Сообщить(Результат.Счет);
      Сообщить(Результат.Контрагент);
      Сообщить(Результат.СуммаОстаток);
      Реализация = Документы.РеализацияТоваровУслуг.СоздатьДокумент();
      Реализация.Дата = КонецМесяца(ТекущаяДата());
      Реализация.Контрагент = Результат.Контрагент;
      Реализация.Комментарий = "Создан с помощью внешней обработки";
      ТекСтрока = Реализация.Услуги.Добавить();
      ТекСтрока.Номенклатура = Справочники.Номенклатура.НайтиПоКоду("00000000156");
      ТекСтрока.Содержание = "Диспетчерские услуги";
      ТекСтрока.Количество = 1;
      ТекСтрока.Цена = Результат.СуммаОстаток;

    КонецЦикла;

Но документ реализация все равно не создается, в чем могут быть ошибки? :(

Lexius

А записывать новый объект кто будет, Нуралиев?

veicheln


Теги:

Похожие темы (5)

Рейтинг@Mail.ru Rambler's Top100

Поиск