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

    Движение = Движения.Управленческий.Добавить();
    Движение.Период = Дата;
    Движение.СчетДт = ПланыСчетов.Управленческий.Покупатели;
    Движение.СчетКт = ПланыСчетов.Управленческий.ПрибылиУбытки;
    Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконто.Договора] = Договор;
    Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконто.Контрагенты] = Контрагент;
    Движение.Сумма = СуммаДокумента;          
        //Движение.Сумма =

    Движение.Содержание = "Отгрузка товара";
    Если Выборка.Оплачено < СуммаДокумента И Выборка.Аванс > 0 Тогда
        СуммаСписываем = Мин(СуммаДокумента - Выборка.Оплачено, Выборка.Аванс);
        Движение = Движения.Управленческий.Добавить();
        Движение.Период = Дата;
        Движение.СчетДт = ПланыСчетов.Управленческий.Покупатели;
        Движение.СчетКт = ПланыСчетов.Управленческий.Покупатели;
        Движение.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконто.Договора] = Договор;
        Движение.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконто.Контрагенты] = Контрагент;
        Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконто.Договора] = Договор;
        Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконто.Контрагенты] = Контрагент;

        Движение.Сумма = СуммаСписываем;
        Движение.Содержание = "Оплата из аванса";
    КонецЕсли;

КонецПроцедуры


Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)
    СуммаДокумента=Товары.Итог("Сумма");
    
        
КонецПроцедуры

(0) Чо это за чушь в запросе написана?

и все-таки откуда такое патологическое желание не пользоваться спец. ресурсами http://forum.chistov.pro/ а насиловать людям мозг тут?

Да и после запроса тоже

(1) Фу......может хватит? я так к каждой программе могу написать...ты напиши по теме...или что не так....

нет там ответа на этот вопрос просто нет(2)

(4) Скачай решение и посмотри, как умные люди делают. Потом придешь сюда и будешь нюансы выяснять.

Рекомендую все-таки заполнять параметры виртуальных таблиц.
Иначе экзамен не сдашь.

(6) вот скачал

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

(8) и разбираю

(10) скачай другую

(11) Такой же, как ты, видимо, делал

(11) их миллионы прям все вылаживают)

(12) да что ты, явно такой как ты.....такой как ты под подушкой бы решение держал)

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

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

Я даже готов сжалиться и скинуть тебе решение, если у меня еще осталось. Но будет это только вечером.

17 будь так добр....если будешь еще добрее кинь все что есть

(15) "вылаживают" .... печаль....

(16) надуманные? то есть я сам придумал ?

выкладывают устроит? (19)

(18) Жесткого диска не хватит :) в никуда кидать?

(22) на торрент)

(22) ну скинь решения 1 и 2 раздела...оперативного и бух

ПОжалст)

(23) почту свою давай, еще я торренты не делал, ага

(26) а туда оно влезет?

не беспокойся

[email protected]

(29) http://infostart.ru/public/273386/ держи

(30) Просто на почту не? зачем ее вообще было тогда спрашивать

(31) удобней было так

(32) и как я оттуда скачаю? Мне еще зарабатывать там....скинь на емайл пожалст....если ты действительно помочь хочешь

(33) 500 р жалко за полностью решенные задачи + еще 9 скачиваний чего-то полезного?

(34) я так и понял)

(35) что конкретно Вы поняли? что надо доступ на инфостарт купить? и зачем Вы плодите темы?

(36) что бесплатно не помогут)

(37) я бы тут развела полемику про помощь, но чего-то неохота. интересует только одно - Вы совсем без денег сидите и надо срочно обучиться 1с, чтобы срочно что-то заработать и поесть наконец-таки? если так, то я потрачу одно свое скачивание на то, что мне нафик не надо, потрачу свое время, чтобы выложить куда-то скачанное (потому что почтой 29 метров вроде не сильно отправишь, а сидеть и дробить архив - совсем извращение). Но если все-таки есть что есть и деньги в каком-то количестве есть, то вложили бы их в свое развитие, а не разводили здесь стопитсот тем с просьбами о помощи

(38) действительно нет денег на покупку, действительно нужно обучится быстрее, могу озвучить цифру. но я могу вам за одно скачивание заплатить но не 500р

(39) я понимаю что это все нормально и тп...но сейчас правда неоткуда...лучше он попросил так и подешевле...

(40) ладно, к вечеру дам ссылку.

(41) Готов справедливо оплатить чтобы ты не в минусе была 50р

(41) на емайл же можно?

(42) переживу как–нибудь.

(42) я не халявщик, оплатить это могу...значит оплачу

(45) ну ок, платите

(45) кстати, когда надо будет найти кого–нибудь в след.раз, то там вроде иногда почта есть в профиле.

(46) На ВМ подойдет?

(47) как показывает практика почту редко проверяют

(45) бггг, ты хохол что-ли?? типа готов платить справедливую цену, которую сам назначу

(48) хз что такое ВМ

(50) Типо аккаунт у нее есть? типо 500р он стоит.... типо....10 скачиваний, за типо 500р, и типо мат. манипуляциями ,типо 500/10 ,типо 50, типо получается

(51) На почту

(52) "Типо" за работу одинесника накинь 3600 (минимальные 3 часа по 1200). Никто за меньшее не напрягается. ))

(54) то есть она что 3ч будет их качать?  а потом выложит? ты сам то понял о чем тут речь?

я тоже бедный 1сник мне тоже скиньте

(55) Ну ты вроде начинающий, тебе простительно. Одинесник, при выезде к клиенту или при начале консультаций, обычно оперирует минимальным оплачиваемым временем. Т.е. не ипет если к тебе обращаются проконсультироваться по поводу зависшей платформы (на 5 минут) - будьте добры закрыть минимальное время (зависит от жадности и тупости).

(57) Причем от жадности - прямо пропорционально, от тупости - обратно. И вот комбинируя эти два важных для одинесника качества необходимо выходить на "отстатыщ".

(0) Судя по запросу Вам рано к экзамену готовится. Нужно на курсы сходить, рекомендую комплексный курс по конфигурированию и книжку по написанию запросов, на сайте 1С найдете ссылки.

(53) можете посмотреть в почту и оперативно отреагировать, если что-то не так