Бухгалтерия / Говнокод #19520 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  10. 10
  11. 11
  12. 12
  13. 13
  14. 14
  15. 15
  16. 16
Запас=0; ВПутиУжеЗаказано=0;Остаток=0;Резерв=0;
	
	Для Каждого ВыбСклад из СписокСкладов Цикл
		Скл=Справочники.Склады.НайтиПоНаименованию(СокрЛП(ВыбСклад.Ссылка.Наименование));
		СтруктураОтбора = Новый Структура(); // для отбора остатков взаиморасчетов
		СтруктураОтбора.Вставить("Номенклатура", Номенклатура);
		СтруктураОтбора.Вставить("Склад", Скл);
		Остаток =Остаток+ РегистрыНакопления.ТоварыНаСкладах.Остатки(КонецДня(КонДата),
		СтруктураОтбора,"Номенклатура,Склад","Количество").Итог("Количество");
		Резерв = Резерв+РегистрыНакопления.ТоварыВРезервеНаСкладах.Остатки(КонецДня(КонДата),
		СтруктураОтбора,"Номенклатура,Склад","Количество").Итог("Количество");
	КонецЦикла;
		
	СтрокаЗапаса=СокрЛП(Остаток);
	СтрокаЗапаса=СтрЗаменить(СтрокаЗапаса," ","");
	Запас=?(СтрокаЗапаса="",0,Число(СтрокаЗапаса));

Лихие манипуляции со стоками. Следите за руками!

Запостил: saturn5 saturn5, (Updated )

Комментарии (4) RSS

  • ava saturn5 # Ссылка на оригинал 0

    *Строками. Конечно, если захлопнуть глаза на это:

    Резерв = Резерв+РегистрыНакопления.ТоварыВРезерве НаСкладах.Остатки(КонецДня(КонДата),
    СтруктураОтбора,"Номенклатура,Склад","Ко личество").Итог("Количество");
    Ответить

    • ava saturn5 # Ссылка на оригинал 0 ⇈

      Комментарий // для отбора остатков взаиморасчетов
      очень кстати!
      Ответить

  • ava guest # Ссылка на оригинал 0

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

Добавить комментарий

Переведи на "PHP", guest!

    А не использовать ли нам bbcode?

    ↑
    8
    ↓