Заполнить остатками по складу , В какую сторону думать
15.06.11, 15:02
Ветеран
Группа: Местный
Сообщений: 824
Из: Запорожье
Спасибо сказали: 145 раз
Рейтинг: 0
Цитата(l2d808 @ 15.06.11, 15:53)
Платформа 7,7 Подскажите пожалуйста. Как сделать кнопку в расходной накладной, что-бы заполняло ее (Расходную накладную) остатками по складу. Я реально запутался с бухгалтерскими итогами. Помогите убогому ) Заранее благодарен.
Читаем СП по поводу ВыполнитьЗапрос(<?>,,,,,,,)
----------------------------------------------------------------------------------- Единственный, интуитивно понятный интерфейс - мамкина сиська! Всему остальному надо учиться! (с) Не знаю кто....
15.06.11, 15:07
Завсегдатай
Группа: Местный
Сообщений: 248
Из: Советский Союз
Спасибо сказали: 64 раз
Рейтинг: 0
Ит = СоздатьОбъект("БухгалтерскиеИтоги"); Ит.ИспользоватьСубконто(ВидыСубконто.ТМЦ,, 1, 1); Ит.ИспользоватьСубконто(ВидыСубконто.МестаХранения,Склад,1); Ит.ВыполнитьЗапрос(,ДатО,"20,22,25,26,28", ,, 3,, "СК"); Ит.ВыбратьСубконто(ВидыСубконто.МестаХранения,Склад,1); Пока Ит.ПолучитьСубконто(ВидыСубконто.МестаХранения) = 1 Цикл Ит.ВыбратьСубконто(ВидыСубконто.ТМЦ,,1); кво=Ит.СКД(3); ТМЦ=Ит.Субконто(2); Сообщить(ТМЦ); Сообщить(кво); КонецЦикла;
Где-то тут динозавр зарыт, а вот где? Мне не выдает ничего. (((
Подскажите плз
Короеды это не жуки. Это пользователи. Они едят кору головного мозга ...
15.06.11, 15:28
Ветеран
Группа: Местный
Сообщений: 824
Из: Запорожье
Спасибо сказали: 145 раз
Рейтинг: 0
Цитата(l2d808 @ 15.06.11, 16:07)
Ит = СоздатьОбъект("БухгалтерскиеИтоги"); Ит.ИспользоватьСубконто(ВидыСубконто.ТМЦ,, 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); Сообщить(ТМЦ); Сообщить(кво); КонецЦикла;
в коде могу кончено очень!!!! ошибится. так-как на глаз.
надеюсь идея понятна.
----------------------------------------------------------------------------------- Единственный, интуитивно понятный интерфейс - мамкина сиська! Всему остальному надо учиться! (с) Не знаю кто....
15.06.11, 16:53
Завсегдатай
Группа: Местный
Сообщений: 248
Из: Советский Союз
Спасибо сказали: 64 раз
Рейтинг: 0
У меня получилось вот так:
ДатаДок=ТекущаяДата(); Ит = СоздатьОбъект("БухгалтерскиеИтоги"); Ит.ИспользоватьСубконто(ВидыСубконто.МестаХранения,МестоХранения,2); Ит.ИспользоватьСубконто(ВидыСубконто.ШтрихКод,, 1, 1); Ит.ИспользоватьСубконто(ВидыСубконто.ТМЦ); Ит.ВыполнитьЗапрос(ДатаДок, ДатаДок, "ШК",,, 1,, "СК"); Ит.ВыбратьСубконто(2); Ном=0; Ном1=0; Пока Ит.ПолучитьСубконто(2) = 1 Цикл Если Ит.СКД(3)-Ит.СКК(3) > 0 Тогда //Продолжить; Если Ит.Субконто(2).ЭтоГруппа()=1 Тогда Продолжить; КонецЕсли; НоваяСтрока(); ШтрихКод = Ит.Субконто(2); ТМЦ = Ит.Субконто(3); Артикул = ТМЦ.Артикул; Вес = ШтрихКод.Наименование; сообщить(Артикул); сообщить(ТМЦ); сообщить(Вес); сообщить(ШтрихКод); Кво = 1; КонецЕсли; КонецЦикла;
Но теперь Уже вылез Второй трабл(((
Со вторым Уже завтра )))
Короеды это не жуки. Это пользователи. Они едят кору головного мозга ...
15.06.11, 17:43
Ветеран
Группа: Пользователи*
Сообщений: 940
Спасибо сказали: 285 раз
Рейтинг: 0
Цитата(l2d808 @ 15.06.11, 16:53)
У меня получилось вот так:
... Ит.ИспользоватьСубконто(ВидыСубконто.ШтрихКод,, 1, 1); Ит.ИспользоватьСубконто(ВидыСубконто.ТМЦ); Ит.ВыполнитьЗапрос(ДатаДок, ДатаДок, "ШК",,, 1,, "СК"); ... Если Ит.Субконто(2).ЭтоГруппа()=1 Тогда Продолжить; КонецЕсли; ... ТМЦ = Ит.Субконто(3); ...
Если итоги по группам не нужны, зачем их выбирать?
Вероятно, чтобы использовать третье субконто, его необходимо сначала получить.
16.06.11, 9:21
Завсегдатай
Группа: Местный
Сообщений: 248
Из: Советский Союз
Спасибо сказали: 64 раз
Рейтинг: 0
Цитата(5_kopeek @ 15.06.11, 17:43)
Если итоги по группам не нужны, зачем их выбирать? Вероятно, чтобы использовать третье субконто, его необходимо сначала получить.
Действительно. так намного проще. Спасибо.
Короеды это не жуки. Это пользователи. Они едят кору головного мозга ...
Не нашли ответа на свой вопрос?
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!