[l2d808]

Платформа 7,7
Подскажите пожалуйста. Как сделать кнопку в расходной накладной, что-бы заполняло ее (Расходную накладную) остатками по складу. Я реально запутался с бухгалтерскими итогами. Помогите убогому ) Заранее благодарен.

[DartRomanius]

Платформа 7,7
Подскажите пожалуйста. Как сделать кнопку в расходной накладной, что-бы заполняло ее (Расходную накладную) остатками по складу. Я реально запутался с бухгалтерскими итогами. Помогите убогому ) Заранее благодарен.

Читаем СП по поводу ВыполнитьЗапрос(<?>,,,,,,,)

[l2d808]

Ит = СоздатьОбъект("БухгалтерскиеИтоги");
            Ит.ИспользоватьСубконто(ВидыСубконто.ТМЦ,, 1, 1);
            Ит.ИспользоватьСубконто(ВидыСубконто.МестаХранения,Склад,1);
            Ит.ВыполнитьЗапрос(,ДатО,"20,22,25,26,28", ,, 3,, "СК");
            Ит.ВыбратьСубконто(ВидыСубконто.МестаХранения,Склад,1);          
            Пока Ит.ПолучитьСубконто(ВидыСубконто.МестаХранения) = 1 Цикл
                Ит.ВыбратьСубконто(ВидыСубконто.ТМЦ,,1);
                    кво=Ит.СКД(3);
                    ТМЦ=Ит.Субконто(2);
                    Сообщить(ТМЦ); 
                    Сообщить(кво);
            КонецЦикла;

Где-то тут динозавр зарыт, а вот где? Мне не выдает ничего. (((
Подскажите плз

[DartRomanius]

Ит = СоздатьОбъект("БухгалтерскиеИтоги");
Ит.ИспользоватьСубконто(ВидыСубконто.ТМЦ,, 1, 1);
Ит.ИспользоватьСубконто(ВидыСубконто.МестаХранения,Склад,1);
Ит.ВыполнитьЗапрос(,ДатО,"20,22,25,26,28", ,, 3,, "СК");
Ит.ВыбратьСубконто(ВидыСубконто.МестаХранения,Склад,1);
Пока Ит.ПолучитьСубконто(ВидыСубконто.МестаХранения) = 1 Цикл
Ит.ВыбратьСубконто(ВидыСубконто.ТМЦ,,1);
кво=Ит.СКД(3);
ТМЦ=Ит.Субконто(2);
Сообщить(ТМЦ);
Сообщить(кво);
КонецЦикла;

Где-то тут динозавр зарыт, а вот где? Мне не выдает ничего. (((
Подскажите плз

Ит.ВыбратьСубконто(ВидыСубконто.МестаХранения,Склад,1);
на
Ит.ВыбратьСубконто(2);

Ит.ВыбратьСубконто(ВидыСубконто.ТМЦ,,1); ????????? єто зачем так?

Ит = СоздатьОбъект("БухгалтерскиеИтоги");
Ит.ИспользоватьСубконто(ВидыСубконто.ТМЦ,, 1, 1);
Ит.ИспользоватьСубконто(ВидыСубконто.МестаХранения,Склад,1);

Ит.ВыполнитьЗапрос(,ДатО,"20,22,25,26,28", ,, 3,, "СК");

Ит.ВыбратьСубконто(2,1);
Пока Ит.ПолучитьСубконто(2) = 1 Цикл
    //Ит.ВыбратьСубконто(ВидыСубконто.ТМЦ,,1);
    кво=Ит.СКД(3);
    ТМЦ=Ит.Субконто(2);
    Сообщить(ТМЦ);
    Сообщить(кво);
КонецЦикла;

в коде могу кончено очень!!!! ошибится. так-как на глаз.
надеюсь идея понятна.

[l2d808]

У меня получилось вот так:

ДатаДок=ТекущаяДата();
    Ит = СоздатьОбъект("БухгалтерскиеИтоги");
    Ит.ИспользоватьСубконто(ВидыСубконто.МестаХранения,МестоХранения,2);
    Ит.ИспользоватьСубконто(ВидыСубконто.ШтрихКод,, 1, 1);
    Ит.ИспользоватьСубконто(ВидыСубконто.ТМЦ);
    Ит.ВыполнитьЗапрос(ДатаДок, ДатаДок, "ШК",,, 1,, "СК");
    Ит.ВыбратьСубконто(2); Ном=0;  Ном1=0;
    Пока Ит.ПолучитьСубконто(2) = 1 Цикл  
            Если Ит.СКД(3)-Ит.СКК(3) > 0 Тогда
                //Продолжить;
        Если Ит.Субконто(2).ЭтоГруппа()=1 Тогда
            Продолжить;
        КонецЕсли;     
        НоваяСтрока(); 
        ШтрихКод = Ит.Субконто(2);
        ТМЦ = Ит.Субконто(3); 
        Артикул = ТМЦ.Артикул;
        Вес = ШтрихКод.Наименование; 
        сообщить(Артикул);
        сообщить(ТМЦ);
        сообщить(Вес);
        сообщить(ШтрихКод);
        Кво = 1; 
    КонецЕсли;
    КонецЦикла;

Но теперь Уже вылез Второй трабл(((
Со вторым Уже завтра )))

[5_kopeek]

У меня получилось вот так:

...
    Ит.ИспользоватьСубконто(ВидыСубконто.ШтрихКод,, 1, 1);
    Ит.ИспользоватьСубконто(ВидыСубконто.ТМЦ);
    Ит.ВыполнитьЗапрос(ДатаДок, ДатаДок, "ШК",,, 1,, "СК");
...
        Если Ит.Субконто(2).ЭтоГруппа()=1 Тогда
            Продолжить;
        КонецЕсли;     
...
        ТМЦ = Ит.Субконто(3); 
...

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

[l2d808]

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

Действительно. так намного проще. Спасибо.