Всем привет! Мне, новичку, выпала небольшая задачка, прошу вашей помощи.
Есть документ "реализация",в который пользователь сам добавляет запись.Эта запись пустая, т.е. в ней не заполнено никаких реквизитов (товаров). Написанный запрос должен заполнить этот документ товарными остатками по складу. Еще должна быть возможность задавать дату списания на которую получаем остаток; счет учета, на который получаем остаток; и склад, судя по всему, с которого списывается ВЕСЬ товар.
Очень нужно. Спасибо большое отозвавшимся!!!

увольняйсо...

это ТехЗадание?

=) я только пришел, еще учусь

ну типа того)

чета непонятно нифига

(2) Это тетя Галя сказала, что в 1С все просто и сейчас отличник Леша к вечеру сделает.

(4) сколько платишь?

rbcvg, что именно?

(6) Леша это сосед тети Гали. Вчера эту историю в автобусе слышал.

(5) а чё не ясно,
ТС взялся за день внедрить УПП

Ненавижу 1С, я заметил тут куча фрилансеров))) Но мне нужно чтоб хотя бы подтолкнули на путь истинный)))

(11) вот лучшее решение в (1)

(8) все именно, озвучьте, что хотите в итоге получить.

в итоге должен быть заполненный документ "реализация" и остаток на складе равный 0

(13)обработку табличной части ему надо, походу

забыл написать, что работаю в Бухгалтерии 2.0

(16) Лучше расскажи начало. Как получилось что это задание дали тебе?

Рекомендации:
Как задать вопрос по теме 1С или советы новичку. Автор - Сергей Токарев (GrayT).
Общие моменты
Четко сформулируйте свой вопрос.
Тема должна отражать суть сообщения. Не допускаются темы типа "Подскажите", "1С", "help", "есть вопрос", "не получается", темы большими буквами, заголовки с кучей восклицательных/вопросительных знаков.

списание товаров делается реализацией? как запросом получить все остатки товаров на счёте/складе? как потом полученное загрузить в ТЧ документа?

(14) ОСВ по 41 счету + обработка ЗагрузкаДанныхИзТабДокумента, если я правильно понял задачу

(18) поделись ссылкой плз

(16) Стреляли

(21) Правила. Внизу слева.

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

(23) пасиба

(24) Не проще обратиться к тому кто тестовое задание давал?

(1) Запросом ты получишь только данные а дальше заполняешь табличную часть документа

(24) Если после прочтения книг не особо прогресс пошел - бросай это дело.

(0) Запрос = Новый Запрос;

Вот как

Упс на (0) ссылался выше ...

(26) может, это тестовое задание при приеме на работу? :)))

Wobland, вы все правильно поняли.. Я считаю, что конкретней поставить задачу уже нельзя!

(32) ну дык принцип действия ясен? пробуй по частям. сначла запрос в консоли...

Fish нет)

(32) тогда начнём от 1000 рублей

Wobland я сам синтаксис еще понят не могу.. Очень тяжело дается русский синтаксис. это вообще бред какой то!(

(31) Прикольно если бы ядерным реактором управлять тоже так принимали.
Вопросы на форуме ядерщиков
"Дали тестовое задание, что делать при превышении критической массы опускать стержни или поднимать. Помогите. На работу надо устроиться."

(36) держи заготовку
Запрос=Новый Запрос;
Запрос.Текст="";
Запрос.УстановитьПараметр();
Результат=Запрос.Выполнить().Выгрзуить();
док.ТЧ.Загрузить(Результат);

(36)Пиши англ. команды

(0)Посмотри в базе на существующие документы Реализация, какими данными заполняется, потом получи их с помощью запроса, а потом заполняй реквизиты документа и его табличную часть

Внешняя обработка. В ней пишешь запрос, по регистру бух, счет указываешь остатки на складах (41.1 кажется), склад выбираешь который задали, дату в параметрах вирт таблицы задаешь, (выборка Когда кон.остаток > 0), потом создаешь программно реализацию и по запросу цикл в таб часть, скидываешь то что выведет. НовыйДокумент.Записать(). Вроде все =)

(36) При программировании синтаксис не важен. Новых ключевых слов в основном используется около 30-40.

+(38) теперь берёшь в руки консоль и мучаешь её до тех пор, пока она тебе не станет верный результат говорить

(41) условие по ресурсу в параметры?

(36) Да, да, всё дело в русскоязычном синтаксисе. Специально придумали, чтобы реальных программистоф путать.

(44) запятую не заметил ;)

(0) Попробйх хотя бы понять откуда данные тебе брать, а потом уже пиши обработку, хотя все-таки (1) прав )

(42) ты где столько ключевых слов насчитал в 1С 8?

(47) Его еще не приняли. Это тестовое задание.

(47) да ладно, пускай человек учится. даётся русский синтаксис ему тяжело, мышление вроде в верном направлении ;)

Типа так

Запрос = Новый Запрос;
   Запрос.Текст = "ВЫБРАТЬ
   |    ТоварыНаСкладахОстатки.КоличествоОстаток,
   |    ТоварыНаСкладахОстатки.Номенклатура
   |ИЗ
   |    РегистрНакопления.ТоварыНаСкладах.Остатки(
   |            &ДатаОтч,
   |            Склад = &ВыбСклад
   |            И Номенклатура В ИЕРАРХИИ (&ВыбГруппа)) КАК ТоварыНаСкладахОстатки
   |ГДЕ
   |    ТоварыНаСкладахОстатки.КоличествоОстаток > 0";
   
   Запрос.УстановитьПараметр("ДатаОтч",ДатаДокумента);
   Запрос.УстановитьПараметр("ВыбСклад",ВыбСклад);
   Запрос.УстановитьПараметр("ВыбГруппа",ВыбГруппа);
   
   
   Результат = Запрос.Выполнить();
   Выборка = Результат.Выбрать();
   
   
   Док=Документы.ПоступлениеТоваровУслуг.СоздатьДокумент();
   Док.Дата = ДатаДокумента;
   Док.ВидОперации      = Перечисления.ВидыОперацийПоступлениеТоваровУслуг.ПокупкаКомиссия;
   Док.ВидПоступления   = Перечисления.ВидыПоступленияТоваров.НаСклад;
   Док.Организация      = ВыбФирма;
   Док.СкладОрдер         = ВыбСклад;
   Док.ВалютаДокумента  = ВалРуб.Ссылка;
   Док.КурсВзаиморасчетов        = 1;
   Док.КратностьВзаиморасчетов   = 1;
   Док.Контрагент=ВыбКонтрагент;
   Док.ДоговорКонтрагента=ВыбКонтрагент.ОсновнойДоговорКонтрагента;
   Док.Ответственный = глЗначениеПеременной("глТекущийПользователь");
   Док.ОтражатьВБухгалтерскомУчете=Истина;
   Док.ОтражатьВУправленческомУчете=Истина;
   Док.ОтражатьВНалоговомУчете=Истина;
   Док.УчитыватьНДС = Истина;
   Док.СуммаВключаетНДС = Истина;
   Док.Комментарий  = "Создан обработкой дата "+ТекущаяДата();
   СчетаУчета = БухгалтерскийУчетРасчетовСКонтрагентами.ПолучитьСчетаРасчетовСКонтрагентом(Док.Организация, Док.Контрагент, Док.ДоговорКонтрагента);
   Док.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетовПокупателя;
   Док.СчетУчетаРасчетовПоАвансам     = СчетаУчета.СчетАвансовПокупателя;
   Док.СчетУчетаРасчетовПоТаре        = СчетаУчета.СчетУчетаТарыПокупателя;
   
   Пока Выборка.Следующий() Цикл
       СтрТовары=Док.Товары.Добавить();
       СтрТовары.Номенклатура=Выборка.Номенклатура;
       СтрТовары.Количество=Выборка.КоличествоОстаток;
       СтрТовары.ЕдиницаИзмерения = СтрТовары.Номенклатура.ЕдиницаХраненияОстатков;
       СтрТовары.Коэффициент = 1;
       СтрТовары.СтавкаНДС = Перечисления.СтавкиНДС.НДС18;
       СтрТовары.Цена=180;
       СтрТовары.Сумма=СтрТовары.Цена*СтрТовары.Количество;
       
       СтрТовары.СчетУчетаБУ = ПланыСчетов.Хозрасчетный.ТоварыНаСкладах;
       СтрТовары.СчетУчетаНДС = ПланыСчетов.Хозрасчетный.НДСпоПриобретеннымМПЗ;
       СтрТовары.СчетУчетаНУ = ПланыСчетов.Налоговый.ТоварыНаСкладах;
       
       СуммаНДС=Окр(СтрТовары.Сумма*18/118,2);
       СтрТовары.СуммаНДС = СуммаНДС;
       
   КонецЦикла;
   //Док.ЗаполнитьСчетаУчетаВТабЧасти(док.Товары,"товары",истина,истина);
   Док.Записать(РежимЗаписиДокумента.Проведение);
   
   Сообщить("Создан документ Поступление №"+СокрЛП(док.Номер)+" от "+СокрЛП(Формат(Док.Дата,"ДФ=dd.MM.yyyy")));

(51) у него бухия и условие по счёту

(0) Тебе сроки ставили по этому заданию?

да, сроки до завтра(

(54) мде, а ты видимо в 1С ваще не работал?

нет, не работал. Только начал

(56) и уже закончил
что знаешь из программирования?

(54) тогда (1)

теорию я как бы понял, всю суть, но как писать и где писать(кроме как в конфигураторе на формах) я не знаю даже

(56) а ты не на франче случайно начал работать? если нет - лучче сначало иди туда, ибо допустим общими усилиями ты выполнишь это задание, дальше что? все задания коллективно выполнять будем? тогда делить ЗП на всех нужно )))))

(59) стучись, сделаю тебе занедорого

(58) а я же говорил еще в (47) ))

(48)
Русское имя Английское имя
Если                          If
Тогда                        Then
ИначеЕсли                 Elsif
Иначе                        Else
КонецЕсли                 End If
Для                           For
Каждого                    Each
Из                             In
По                            To
Пока                         While
Цикл                         Do
КонецЦикла               End Do
Процедура                 Procedure
Функция                    Function
КонецПроцедуры        End Procedure
КонецФункции           EndFunction
Перем                       Var
Перейти                    Goto
Возврат                     Return
Продолжить              Continue
Прервать                   Break
И                              And
Или                          Or
Не                            Not
Попытка                   Try
Исключение              Except
ВызватьИсключение   Raise
КонецПопытки           EndTry
Новый                       New
Выполнить                Execute

(59) Никто не знает, это городская легенда =) Бери (51) ток меняй на рег. бухгалтерии и сложи с (41) =)

(59) Всю суть понял? Ну молодца. Чем справочник от плана видов хврвктеристик отличается?

(62) он говорил, что это не тестовое задание

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

ТС, начни с курсов (65), я с них совсем недавно начал =)

(61) Не демпингуй. Давайте торг от 5000р начнем.

(65) что ты студента терроризируешь? ;)

(69) 4900 - сроки 30 минут ))))

(65) На этот вопросов тебе и в 1С не ответят.

Пришел в тапках во франчи

(67) Тебе текст в (38) о чем-нибудь говорит?

(69) хорошо. я готов сделать задачу за $5000

(74) кстати, это уже $50

в общем, зафлудили ветку. чего от нас ещё ожидать? хотя, всё ценное вроде сказано

(73) дык пусть тебе попроще дают первые задания, начни работу с справочниками, полистай книгу, сделай на сквозных примерах пару заданий. Пусть тебе месяц дадут стажерства.

(72) В далеком 200какомто году спрашивал - ответили :)

(78) куда уж проще. я как-то и выдумать не могу

(79) Это наверное еще мисты не было ))) или была?

(80) а, не. Сообщить("Хелло, ворлд!")

Seducer да, немного

(0)Задача очень простая ,Сделай кнопку и несколько реквизитов,в модуле формы обработчик,который считывает значение реквизитов и все,поскольку Реализация-документ Типовой,то посмотри,нет ли там таких реквизитов,созданных ранее

(80) Пусть начнет создавать собственную конфу складского учета. Первое естессно справочник - номенклатура, потом склады и тд. тп. ))))) потом раздуть до документов с регистрами...

(82) Вернее - Предупреждение("Хелло ворлд!");

VitallyProgrammer,  в модуле формы документа "Реализация товаров и услуг"?

(87) чем модуль формы от модуля объекта отличается?

я бы вообще такое внешней обработкой делал

(87) не трожь типовой код без нужды

(90) +1, делай внешней обработкой

(83) Продолжаем. Знаешь, откуда взять необходимые данные? Где, например, хранятся остатки?

(87)Канешна,а потом там код-проверка на заполненные реквизиты и запросик+считывание результата запроса и заполнение тч документа(соблюдая все значение реквизитов ТЧ(чтобы он провелся)).Если есть возможность-сделай внешней обработкой

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

Seducer, на складах)

(95) или на счетах?

Согласен с (1).
Скажи, что рано тебе еще такие (вообще какие-либо) задания давать.
Месячишко книжки почитай для начала.

(95) физически - да.... я вообще-то имел ввиду, в базе 1С где будешь брать необходимую информацию?

Wobland почему же на счетах? я так понимаю на счетах он отображается

(99) Давай свою версию в каком объекте хранятся остатки.

(99)+5000!

Seducer, с тех товаров, что я заполнил через документ "Поступление товаров и услуг"

(99) более бородатые товарищи меня поправят, если неправ. но у тебя же бухия? а там нет РН ТоварыНаСкладах. Поэтому лезем регистр бухгалтерии и достаём всё оттуда. //про регистр накопления ты должен был уже сам догадаться

(99)На самом деле остатки хранятся в базе данных,в таблицах регистров

Радченко пройти уже предалагали?

(105) не успеет ;)

Beduin, в регистрах?

+(105) кстати, стр. 497

(107) 53 минуты, и мы уже знаем слово регистр. неплохой результат

Starhan эта книга у меня на столе лежит

(107) Угу. Только полное название вида этих регистров.

(0)Кстати,как вариант,можно воспользоваться соответствующим типовым отчетом(там уже есть все настройки) и потом просто прочитать данные с этого отчета и закинуть их в ТЧ

(112) это раньше так можно было. теперь в универсальном отчёте сам нуралиев ногу поломает

(112) Ага, распечатать на притере, распознать через OCR, импортировать в эксель, а оттуда через ADO в 1С.

(113)Я имею ввиду из табличного поля отчета прочитать данные,или корявый вариант-выгрузить в эксель и прочитать с экселя

(0) еще вариант - посомтреть как реализован документ "Инвентаризация ТМЦ"

(115) :rofl:

(116) да!

(115) хыы))) разовью тему - из отчета вгрузитьв эксель из экселя загрузить в документ типовой обработкой "Загрузка данных из Табличногодокумента" )))

(117)Чито такое?

(119) + не строчки кода не потребуется)))

(120) rolling on floor laughing

"из отчета вгрузитьв эксель из экселя загрузить в документ типовой обработкой "Загрузка данных из Табличногодокумента"

OMG %-(

(0)Запули в типовой отчет кнопочку и считывай данные,а потом загружай их в тч-минимум надо знать

(124) это юмор такой. впрочем, вполне жизнеспособный

кстати, о юморе. Груви ветку переименовал? ;)

а кто ж еще)

(125)+правда надо запастись парой матерных слов ,на случай если директору не понравится

ладно, начну пожалуй... Информации мне предоставили более чем достаточно, еще бы разобраться в ней=) Благодарю вас!!!

(130) ждём следующих веток. префикс названия ветки ты знаешь ;)

теперь да=) но я думаю я в очень скором времени я продолжу свое повествование здесьXD

Надеюсь намек на то что следующие ветки с подобным названием будут убиты всем понятен.

пока копнул сюда: верно?

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

   Выборка   = Запрос.Выполнить().Выбрать();

   ЭтоНТТ   = (Склад.ВидСклада = Перечисления.ВидыСкладов.НеавтоматизированнаяТорговаяТочка);
   ДатаДока  = Дата;
   ТипЦен    = Склад.ТипЦенРозничнойТорговли;

   Пока Выборка.Следующий() Цикл
       
       Если Выборка.Количество = NULL Тогда
           Продолжить;
       КонецЕсли;
       
       Если Выборка.Количество <= 0 Тогда
           Продолжить;
       КонецЕсли;

       СтрокаТабличнойЧасти = Товары.Добавить();

       СтрокаТабличнойЧасти.Номенклатура     = Выборка.Номенклатура;
       СтрокаТабличнойЧасти.Количество       = Выборка.Количество;
       СтрокаТабличнойЧасти.СчетУчета          = Выборка.Счет;
       СтрокаТабличнойЧасти.КоличествоУчет   = СтрокаТабличнойЧасти.Количество;

       Цена = ?(Выборка.КоличествоВсего = 0 ИЛИ Выборка.КоличествоВсего = NULL, 0, Выборка.СуммаВсего / Выборка.КоличествоВсего);
       
       СтрокаТабличнойЧасти.СуммаУчет        = Цена*Выборка.Количество;
       СтрокаТабличнойЧасти.Сумма            = СтрокаТабличнойЧасти.СуммаУчет;
       СтрокаТабличнойЧасти.Цена             = Цена;

       Если ЭтоНТТ Тогда

           СтрокаТабличнойЧасти.ЦенаВРознице = Ценообразование.ПолучитьЦенуНоменклатуры(СтрокаТабличнойЧасти.Номенклатура,
                                               ТипЦен, ДатаДока, мВалютаРегламентированногоУчета, 1, 1);

       КонецЕсли;

   КонецЦикла;

КонецПроцедуры // ЗаполнитьПоОстаткамНаСкладе()

(134) откуда взял? из инвентаризации? при беглом осмотре вроде ничего выглядит. теперь сделай так, чтобы СтрокаТабличнойЧасти = Товары.Добавить(); сработало из внешней обработки

да, из инвентаризации. пишу по (51)

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

   Док.Записать(РежимЗаписиДокумента.Проведение);
   
   Сообщить("Создан документ Поступление №"+СокрЛП(док.Номер)+" от "+СокрЛП(Формат(Док.Дата,"ДФ=dd.MM.yyyy")));

переиенную ДатаДокумента не определил.

(137)Если справишься,можешь смело лепить себе памятник

&ДатаОтч,
   |            Склад = &ВыбСклад
   |            И Номенклатура В ИЕРАРХИИ (&ВыбГруппа)) КАК ХозрасчетныйОстатки
а как же это?

ДатаДокумента = ТекущаяДата()

(140)Ты уже начал лепить себе памятник,или наложил уже материала ,из которого будешь его лепить?

начал потихоньку)

Вот простой отчет для БП 2.0 делал когда-то: http://infostart.ru/public/85896/

(143)Соетую так-грозный взгляд вдаль,рука устремлена в пучну ненастья ,зубы оскалены,в реку клава,за спиной монитор висити Надпись на постаменте "Нас не подъ*бешь!"

(137)неплохо, я, помню, такой быдлокод лепил когда начинал...

Док.Записать(РежимЗаписиДокумента.Проведение);
без
Док.ЗаполнитьСчетаУчетаВТабЧасти(док.Товары,"товары",истина,истина);
не сработает, пиши
попытка
   Док.Записать(РежимЗаписиДокумента.Проведение);
Исключение
   Док.Записать(РежимЗаписиДокумента.Запись);
   Сообщить("Провести не удалось");

ErrorEd88, спасибо огромно, это то что нужно! Изменю под свою задачу

(148) у тебя ж утром срок вышел, не?

блин, да приведите ему кто-нить уже пример запроса к регистру бухии!

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

*А разве НЕ корректней будет получать остатки не на дату, а на момент времени документа?

я так и сделал. Получаю дату на момент времени документа:

Процедура КнопкаПоказатьОстаткиНажатие(Кнопка)
   Если Не ЗначениеЗаполнено(ЭтотОбъект.Организация) Тогда Предупреждение("Укажите Организацию, по которой нужна информация") Иначе
   ЭлементыФормы.Результат.Очистить();
   Если ЭтотОбъект.Группы = Истина Тогда
   Запрос = Новый Запрос;
   Запрос.УстановитьПараметр("Период",ЭтотОбъект.ТекущаяДата);
   Запрос.УстановитьПараметр("Организация", ЭтотОбъект.Организация);
   Запрос.УстановитьПараметр("Склад", ЭтотОбъект.Склад);
   Запрос.УстановитьПараметр("НоменклатурнаяГруппа", ЭтотОбъект.НоменклатурнаяГруппа);
   Запрос.УстановитьПараметр("Номенклатура", ЭтотОбъект.Номенклатура);
   Запрос.УстановитьПараметр("ТипЦенПродажи", ЭтотОбъект.ТипЦенПродажи);
   Запрос.Текст = "ВЫБРАТЬ
   |    ХозрасчетныйОстатки.Субконто1 КАК Номенклатура,
   |    ХозрасчетныйОстатки.Субконто1.Родитель КАК Группа,
   |    ЕстьNULL(ХозрасчетныйОстатки.КоличествоОстаток, 0) КАК Количество,    
   |    ЕстьNULL(ЦеныНоменклатуры.Цена, 0) КАК Цена,
   |   ЕстьNULL(ХозрасчетныйОстатки.КоличествоОстаток, 0) * ЕстьNULL(ЦеныНоменклатуры.Цена, 0) КАК Сумма
   |ИЗ
   |    РегистрБухгалтерии.Хозрасчетный.Остатки(&Период, Счет.Родитель = ЗНАЧЕНИЕ(ПланСчетов.Хозрасчетный.Товары) ИЛИ Счет.Родитель = ЗНАЧЕНИЕ(ПланСчетов.Хозрасчетный.Материалы) ИЛИ Счет = Значение(ПланСчетов.Хозрасчетный.ГотоваяПродукция), , Организация = &Организация
   |            " + ?(ЗначениеЗаполнено(ЭтотОбъект.НоменклатурнаяГруппа), "И Субконто1.НоменклатурнаяГруппа = &НоменклатурнаяГруппа", "") + "
   |           " + ?(ЗначениеЗаполнено(ЭтотОбъект.Склад), "И (Субконто1 = &Склад ИЛИ Субконто2 = &Склад ИЛИ Субконто3 = &Склад)", "") + "
   |           " + ?(ЗначениеЗаполнено(ЭтотОбъект.Номенклатура), "И (Субконто1 = &Номенклатура Или Субконто1.Родитель = &Номенклатура)", "") + ") КАК ХозрасчетныйОстатки
   |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЦеныНоменклатуры.СрезПоследних(&Период, ТипЦен = &ТипЦенПродажи) КАК ЦеныНоменклатуры
   |        ПО ХозрасчетныйОстатки.Субконто1 = ЦеныНоменклатуры.Номенклатура
   |УПОРЯДОЧИТЬ ПО
   |    ХозрасчетныйОстатки.Субконто1.Родитель
   | Автоупорядочивание";

   Выборка = Запрос.Выполнить().Выбрать();
   ТабДокумент = Новый ТабличныйДокумент;
   ТабДокумент.Вывести();    
   
КонецЕсли;
   КонецЕсли;
КонецПроцедуры

Только не понимаю, почему не выводит "ТабДокумент.Вывести();"

Только не понимаю, почему не выводит "ТабДокумент.Вывести();" ошибок нету

(154) навскидку ТабДок.Показать() сделал?

пля, открыл код... ТабДок мало показать, его ещё заполнить надо. к чему тут ваще ТабДок? Выборка из запроса тебе тут зачем, если ты её нигде не употребляешь?

прошу прощения, от сюда видно, что документ только создал, и сразу вывожу. Но как его заполнить?
" ТабДокумент = Новый ТабличныйДокумент;
   ТабДокумент.Вывести(); "

(157) вот тебе ещё заготовка:
Макет=ПолучитьМакет();
Область=Макет.ПолучитьОбласть;
Цикл
 Область.Параметры.Заполнить();
 или Область.Параметр=
 ТабДок.Вывести(Область);
КонецЦикла;
ТабДок.Показать();

спасибо, сейчас сделаю

это экспресс-обучение 1С? :)

Экспресс обучение это от 50000 за неделю. И гарантированный результат. Не то что тут.

(153)
Гм. Посмотри в СП что такое МоментВремени и чем он отличается от даты.

Всем огромное спасибо!! Как вывести товар я разобрался, остается его списать. Отразить в документе и провести по 41 счету, совсем ерунда XD...

Макет = ПолучитьМакет("ОстаткиВЦенахПродажи");                  
   ОбластьМакета = Макет.ПолучитьОбласть("Шапка");
   ОбластьМакета.Параметры.Период=Формат(ЭтотОбъект.Дата, "ДЛФ=DD");
   ТабДокумент.Вывести(ОбластьМакета);                                                                                          
   ОбластьМакетаСтрока = Макет.ПолучитьОбласть("Строка");
   Сч = 0;
   ИтогоСумма=0;
   
   Пока Выборка.Следующий() Цикл
       
       Сч=Сч+1;
       ОбластьМакетаСтрока.Параметры.Заполнить(Выборка);
       ОбластьМакетаСтрока.Параметры.НомерСтроки = Сч;
       ИтогоСумма = ИтогоСумма + Выборка.Сумма;
       ТабДокумент.Вывести(ОбластьМакетаСтрока);
       
   КонецЦикла;
   
   ОбластьМакетаИтого = Макет.ПолучитьОбласть("Итого");
   ОбластьМакетаИтого.Параметры.ИтогоСумма = ИтогоСумма;
   ТабДокумент.Вывести(ОбластьМакетаИтого);
   ЭлементыФормы.Результат.Вывести(ТабДокумент);

вообще никаких соображений.. Знаю точно, что программа должна создать документ в "Реализация товаров и услуг" и записать туда то, что я вывел в созданной выше процедуре, а именно, заполнить все реквизиты в ТЧ "Реализация товаров и услуг"

(164) всё сражаешься? зачем выводил то?
следующая заготовка
док=Документы.Реализация.СоздатьДокумент();
док.Дата=
док.ЧтоТоЕщёВозможно=
Пока Выборка.Следующий() Цикл
 НоваяСтрока=док.Товары.Добавить();
 НоваяСтрока.Номенклатура=Выборка.Номенклатура;
 ...
КонецЦикла;
//или вместо цикла док.Товары.Загрузить(Запрос.Выполнить().Выгрузить())

док.Записать();

сражаюсь)спасибо! Уж очень интересно стало сделать до конца. А выводил, чтоб можно было посмотреть, сколько товаров и на каком складе они

(166) заведи себе консоль запросов для этого. ну хоть в ТабДок выводить научился ;)

еще не научился) документ не создает

док=Документы.РеализацияТоваровУслуг.СоздатьДокумент();
док.Дата= ТекущаяДата();
док.Склад = ЭтотОбъект.Склад;
//Пока Выборка.Следующий() Цикл
 //НоваяСтрока=док.Товары.Добавить();
 //НоваяСтрока.Номенклатура=Выборка.Номенклатура;
 //КонецЦикла;
док.Товары.Загрузить(Запрос.Выполнить().Выгрузить());

док.Записать();

ЭтотОбъект - это что? Обработка? есть у неё реквизит Склад? Товары.Загрузить() будет работать, если имена полей в результате запроса совпадают и именами реквизитов ТЧ

Склад, это реквизит на форме документа. Хотел чтобы он заполнялся из полученных данных. Склад я выбрал после точки ЭтотОбъект.
Но сам факт, что документ не создается даже пустой

а насчет Товары.Загрузить()  это я понял)) все совпадает

док=Документы.РеализацияТоваровУслуг.СоздатьДокумент();
док.Дата= ТекущаяДата();
док.Записать();

так не создаётся? не верю!

Извините!! Моя глупость! Проверил Отбор -- Там куча документов)

(173) +1 к опыту ;)

Точно!!) спасибо огромное, с этим всем разобрался, все заполняет! а радости то....)

Пилоты молчат, смотрят на звезды,
Задание выполнено успешно.
Все улыбаются.
©БГ

PS это вопрос, выполнено задание?

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

3 дня. что там Груви про неделю и 50 тыр говорил? ;)

тут море всего..., но на сколько мне известно такое задание делается за 20 мин))

я готов сделать это задание за 19 минут (вспомнился Пельш)

хах) а я вот что-то опять мучатся стал... с заполнением цен)

Ценообразование.ПолучитьЦенуНоменклатуры() тебе в помощь

а в бухии скорее всего такого нет

да да да!!) получилось) Только я не очень понял что значит ЛЕВОЕ СОЕДИНЕНИЕ)

Запрос.Текст = "ВЫБРАТЬ
   |    ХозрасчетныйОстатки.Субконто1 КАК Номенклатура,
   |    ЕстьNULL(ХозрасчетныйОстатки.КоличествоОстаток, 0) КАК Количество,
   |    ЕстьNULL(ЦеныНоменклатуры.Цена, 0) КАК Цена,
   |   ЕстьNULL(ХозрасчетныйОстатки.КоличествоОстаток, 0) * ЕстьNULL(ЦеныНоменклатуры.Цена, 0) КАК Сумма
   |ИЗ
   |    РегистрБухгалтерии.Хозрасчетный.Остатки(&Период, Счет.Родитель = ЗНАЧЕНИЕ(ПланСчетов.Хозрасчетный.Товары) ИЛИ Счет.Родитель = ЗНАЧЕНИЕ(ПланСчетов.Хозрасчетный.Материалы) ИЛИ Счет = Значение(ПланСчетов.Хозрасчетный.ГотоваяПродукция), , Организация = &Организация
   |           " + ?(ЗначениеЗаполнено(ЭтотОбъект.Склад), "И (Субконто1 = &Склад ИЛИ Субконто2 = &Склад ИЛИ Субконто3 = &Склад)", "") + "
   |           " + ?(ЗначениеЗаполнено(ЭтотОбъект.Номенклатура), "И (Субконто1 = &Номенклатура Или Субконто1.Родитель = &Номенклатура)", "") + ") КАК ХозрасчетныйОстатки
   |   ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЦеныНоменклатуры КАК ЦеныНоменклатуры
   |    ПО ХозрасчетныйОстатки.Субконто1 = ЦеныНоменклатуры.Номенклатура
   |   УПОРЯДОЧИТЬ ПО
   |ХозрасчетныйОстатки.Субконто1
   | Автоупорядочивание";

только один недочет, она выводит все типы цен сразу)

открой для себя документацию
ЛЕВОЕ [ВНЕШНЕЕ] СОЕДИНЕНИЕ означает, что в результат запроса надо включить комбинации записей из обеих исходных таблиц, которые соответствуют указанному условию. Но, в отличие от внутреннего соединения, в результат запроса надо включить также еще и записи из первого (указанного слева от слова СОЕДИНЕНИЕ) источника, для которых не найдено соответствующих условию записей из второго источника.

+(186) и параметры вирт. таблиц. в параметрах регистра что-то типа ТипЦен=&ТипЦен надо сделать

ну и дата цен имеет значение

(185) зайди к ГРУВИ на сайт у него там ного интересной инфы.
http://chistov.spb.ru/

про соединение я не там искал.. ну про значок "&" ничего не нашел, я так понимаю это ссылка?

(190) это параметр запроса

ага, а *Период - указатель ;)

=)) ясно

в принципе, я знаю как организовать выбор типа цен. Но я не хочу этого. Пусть будет просто выводить одну цену.. Скажем, розничную.. хоть это и не корректно, но чтоб сдать это задание пойдет)))) а на счет вопроса (149) так начальник куда то пропал) есть время

(184) а ты с запросами к БД вообще знаком? Причем без разницы к каким(SQL, Oracal, MySQL)?

(194) имхо он и должен одну брать. какую - пускай заказчик решает

(195) еще в колледже проходил...

(197) а че тогда за вопрос ЛЕВОЕ СОЕДИНЕНИЕ?

потому что мало что помню с курсов.. всего по SQL было где то уроков 5-6

(197) все отличие в том что ты работаешь не напрямую с таблицами, а с обьектами

(199) господи, это же в каком ПТУ таких готовят? Если ты всерьез собираешься зарабатывать на кусок хлеба работай с 1С ты должен знать, как и в любом языке:
1. Язык программирования(включая язык запросов), его синтаксис, конструкции
2. Понимать сущность объектов 1С(чем отличается объект МД Справочник, от ОМД Документ и от Регистра), какие есть методы работы с ОМД и их свойства
3. Понимать экономическую сущность проводок, операций или расчетов, в противном случае как кодера тебе цена макс 25 шт в базарный день

(201) Умник... По большому счету, тогда меня не очень интересовали БД. А все что связано с 1С, так все впереди еще

Glime, вспомните свой первый день в этой программе

гы, я когда начинал работать была еще 1С 6.0 под DOS, и вообще то я переходил на 1С с паскаля(неплохо знал еще фартран), а так же очень хорошо писал запросы к БД(SQL), для меня как раз было тяжело писать запросы на 7-ке(застрелите меня сразу, если попросите вспомнить как это делается, так как было это как страшный сон), и параллель получал втрое высшее, экономическое

вот и я с паскаля прехожу.. а SQLку говорили мне УЧИ=) не, ну я помню у нас была база, к которой мы подключались и работали там, помню что с запросами тоже не плохо было, т.к. по бд у меня итоговая 5. Только не помню я их уже. Учил только на урок и все

тем более с армией все забудешь нахрен=)))

(0) бюджет озвучьте?

(207) какой бюджет?

Тогда сам... когда я первый раз в программе был мне тоже никто не помогал