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

Хранилище

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

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



> Как получить остаток товара на счете, на заданое время?          
kostya77 Подменю пользователя
сообщение 15.02.23, 8:52
Сообщение #1

Завсегдатай
****
Группа: Пользователи
Сообщений: 122
Спасибо сказали: 5 раз
Рейтинг: 4

Добрий день. Подскажите, как получить остаток товара на счете, на заданое время?

Сообщение отредактировал Vofka - 15.02.23, 8:59

denis84 Подменю пользователя
сообщение 15.02.23, 9:21
Сообщение #2

Оратор
Иконка группы
Группа: Местный
Сообщений: 421
Из: Украина
Спасибо сказали: 133 раз
Рейтинг: 132.5

kostya77 @ Сегодня, 8:52 * ,
Функция глПолучитьОстатокТМЦ(Конт, ТМЦ, МестоХранения) Экспорт
    // проверка остатка
    Если (ПустоеЗначение(ТМЦ)=1)  Тогда
        Возврат "";
    КонецЕсли;
    
    Фирма    = Конт.Фирма;
    
    Рег     =  СоздатьОбъект("Регистр.Остатки");
    
    Рег.УстановитьЗначениеФильтра("Фирма",Фирма);
    Рег.УстановитьЗначениеФильтра("ТМЦ",ТМЦ);
    Рег.УстановитьЗначениеФильтра("МестоХранения",МестоХранения);
    
    //Установить флаг участия регистра во временном расчете.
    //Рассчитать все регистры с установленным флагом временного расчета на конец события
    Если (Конт.СравнитьТА() = - 1) Тогда                                            //если дата и время документа меньше даты и времени ТА итогов.
        Рег.ВременныйРасчет(1);
        РассчитатьРегистрыПо(Конт.ТекущийДокумент());
        ТекущийОстаток = Рег.Остаток(Фирма,ТМЦ,МестоХранения,"ОстатокТовара");
    ИначеЕсли (Конт.СравнитьТА() = - 2) И (Конт.ДатаДок < ПолучитьДатуТА()) Тогда  //в случае, если новый документ, который сравнивается с ТА,
        Рег.ВременныйРасчет(1);                                                    //еще не записан - то есть он еще не имеет никакой позиции
        РассчитатьРегистрыПо(Конт.ДатаДок);                                        // на оси времени.
        ТекущийОстаток = Рег.Остаток(Фирма,ТМЦ,МестоХранения,"ОстатокТовара");
    ИначеЕсли (Конт.СравнитьТА() = 0) Тогда                                        //если дата и время документа равны дате и времени ТА итогов.
        ТекущийОстаток = Рег.Остаток(Фирма,ТМЦ,МестоХранения,"ОстатокТовара");
    ИначеЕсли (Конт.СравнитьТА() = + 1) Тогда                                      //если дата и время документа больше даты и времени ТА итогов.
        ТекущийОстаток = Рег.Остаток(Фирма,ТМЦ,МестоХранения,"ОстатокТовара");
    КонецЕсли;    
        
    Возврат СокрЛП(Формат(ТекущийОстаток,глФорматКоличестваВформах));
КонецФункции

kostya77 Подменю пользователя
сообщение 15.02.23, 9:30
Сообщение #3

Завсегдатай
****
Группа: Пользователи
Сообщений: 122
Спасибо сказали: 5 раз
Рейтинг: 4

denis84 @ Сегодня, 9:21 * ,
Нужно получать остатки из Бухгалтерских итогов. так как регистра Остатки нет

sava1 Подменю пользователя
сообщение 15.02.23, 10:03
Сообщение #4

Живет на форуме
Иконка группы
Группа: Местный
Сообщений: 2684
Из: Проскуров
Спасибо сказали: 678 раз
Рейтинг: 656.7

заполнение тз

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

kostya77 Подменю пользователя
сообщение 15.02.23, 10:53
Сообщение #5

Завсегдатай
****
Группа: Пользователи
Сообщений: 122
Спасибо сказали: 5 раз
Рейтинг: 4

sava1 @ Сегодня, 10:03 * ,
Зачем выгружать остатки в ТЗ?

sava1 Подменю пользователя
сообщение 15.02.23, 15:33
Сообщение #6

Живет на форуме
Иконка группы
Группа: Местный
Сообщений: 2684
Из: Проскуров
Спасибо сказали: 678 раз
Рейтинг: 656.7

kostya77 @ Сегодня, 10:53 * ,

это пример

Не нашли ответа на свой вопрос?
Зарегистрируйтесь и задайте новый вопрос.


Ответить Новая тема
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

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