/ КОМПЬЮТЕРЫ И ПО / Языки программирования / 1С для программиста

Выпуск № 792
от 22.04.2008, 03:05

Вопрос № 132.357

Здраствуйте эксперты! У меня вопрос по 1С:7.7. Есть числовое значение тарифа "1,655",взятое из справочника "Тарифы" из колонки "Ставка"; а нужно получить из этого же справочника, для данного тарифа его тип из колонки "ТипТарифа". Но ничего не выводиться, хотя в справочнике это значение есть. Как его получить??? Спасибо. Приложение: ТарифПоУровню = СчетчикКонкр.Тариф.Получить(ВыбДата); Сообщить("Тариф числом: "+ ТарифПоУровню); //получила 1,655 Тар = СоздатьОбъект("Справочник.Тарифы"); Если Тар.НайтиПоРеквизиту("Ставка",ТарифПоУровню,1) = 1 Тогда //ищу в колонке "Ставка" тариф 1,655 ТипТар = Тар.ТекущийЭлемент(); //нашла НужныйТариф = ТипТар.ТипТарифа; //из колонка "ТипТарифа" надо получить данные( СН ) Сообщить(НужныйТариф); //ничего не выдает КонецЕсли;

Отправлен: 16.04.2008, 10:24 Вопрос задала: Olyamur (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Airyashov Здравствуйте, Olyamur! Вожможно ТипТарифа периодический

Ответ отправил: Airyashov (статус: 4-ый класс) Ответ отправлен: 16.04.2008, 10:46 Оценка за ответ: 4 Комментарий оценки: ТипТарифа является периодическим, но метод Получить(НаДату) выдает ошибку:"Поле агрегатного объекта не обнаружено(Получить)". Что делать?

Отвечает: Vlad Skorochod Здравствуйте, Olyamur! Вероятнее всего у вас ТипТарифа периодический реквизит. Используйте вариант: НужныйТариф = ТипТар.ТипТарифа.Получить(ИспДата); где ИспДата дата на которую необходимо получить тип тарифа.

Ответ отправил: Vlad Skorochod (статус: 10-ый класс) Ответ отправлен: 16.04.2008, 10:59 Оценка за ответ: 5 Комментарий оценки: ТипТарифа вроде является периодическим, но метод Получить(ИспДата) выдает ошибку:"Поле агрегатного объекта не обнаружено(Получить)". Что делать?

Отвечает: Брагар Сергей Владимирович Здравствуйте, Olyamur! Получение переодического реквизита через метод НайтиПоРеквизиту не возможен если вы читали описание метода то данный метод работает только если у реквизита установлена голочка Сортировка на вкладке Дополнительно в палитре свойств.

Ответ отправил: Брагар Сергей Владимирович (статус: 2-ой класс) Ответ отправлен: 16.04.2008, 15:49 Оценка за ответ: 5 Комментарий оценки: Спасибо, действительно, ошибка была из-зи применения этого метода.

Вопрос № 132.370

Добрый день. В написаном ниже коде не проходит сравнение (если план="сбр" тогда). В чем ошибка? Приложение: запрос=создатьобъект("Запрос"); ТекстЗапроса= "//{{ЗАПРОС(Сформировать) |Период с дата1 по дата2; |Обрабатывать НеПомеченныеНаУдаление; |ОбрабатыватьДокументы все; |сбр=Документ.НоменклатурныйПлан.изделие; |сбр=Документ.НоменклатурныйПлан.план; |"//}}ЗАПРОС ; Если план.Выбран()=1 тогда если план="сбр" тогда ТекстЗапроса=ТекстЗапроса+"Условие(план=сбр);" иначе возврат; конецесли; иначе Предупреждение("выберите план"); Возврат; КонецЕсли; Если Запрос.Выполнить(ТекстЗапроса)=0 тогда Возврат; КонецЕсли;

Отправлен: 16.04.2008, 11:07 Вопрос задал: Деркач Александр (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Airyashov Здравствуйте, Деркач Александр! помоему в запросе так писать нельзя |сбр=Документ.НоменклатурныйПлан.изделие; |сбр=Документ.НоменклатурныйПлан.план; "Условие(план=сбр);" нет в запросе переменной "план" план="сбр" - план другово типа, а не строка

Ответ отправил: Airyashov (статус: 4-ый класс) Ответ отправлен: 16.04.2008, 11:19

Отвечает: Vlad Skorochod Здравствуйте, Деркач Александр! Первое, у вас в запросе одной переменнй два разных значения или как ? |сбр=Документ.НоменклатурныйПлан.изделие; |сбр=Документ.НоменклатурныйПлан.план; Разбираемся с этим...... Второе, если план="сбр" тогда Здесь надо если СокрЛП(план)="сбр" тогда А в принципе можно было сразу в запросе поставить условие. Смотрим приложение... Приложение: Если план.Выбран()<>1 тогда Предупреждение("выберите план"); Возврат; КонецЕсли; запрос=создатьобъект("Запрос"); ТекстЗапроса= "//{{ЗАПРОС(Сформировать) |Период с дата1 по дата2; |Обрабатывать НеПомеченныеНаУдаление; |ОбрабатыватьДокументы все; |сбр=Документ.НоменклатурныйПлан.план; |Условие(план=сбр); |"//}}ЗАПРОС ; Если Запрос.Выполнить(ТекстЗапроса)=0 тогда Возврат; КонецЕсли;

Ответ отправил: Vlad Skorochod (статус: 10-ый класс) Ответ отправлен: 16.04.2008, 11:20 Оценка за ответ: 5

Отвечает: Брагар Сергей Владимирович Здравствуйте, Деркач Александр! Какую ошибку выдает? Если не выдает попробуйте использовать метод СокрЛП(план)="сбр"; для исключеня пробелов со всех сторон

Ответ отправил: Брагар Сергей Владимирович (статус: 2-ой класс) Ответ отправлен: 16.04.2008, 15:58 Оценка за ответ: 5

Вопрос № 132.372

Добрый день. Нужно сформировать отчет. Данные для отчета находятся в 5-ти документах и 2-х справочниках. Задача состоит в следуещем - берем запись из одного документа, а во всех остальных находим такую же и берем интересующие нас данные соответствующие этой записи. Подскажите пожалуйста как лучше сформировать этот отчет? Через запрос или через перебор всех документов и спавочников? Спасибо.

Отправлен: 16.04.2008, 11:22 Вопрос задал: Деркач Александр (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Vlad Skorochod Здравствуйте, Деркач Александр! Все зависит от структуры вашей базы и количества обрабатываемых документов. Вариантов может быть много. Можно через запрос, если большое количество данных, можно перебором если если установить фильтр и отбор по реквизитам, а можно и совместным способом.

Ответ отправил: Vlad Skorochod (статус: 10-ый класс) Ответ отправлен: 16.04.2008, 11:30 Оценка за ответ: 5

Отвечает: Шахрайчук Владимир Анатольевич Здравствуйте, Деркач Александр! Мне больше нравится тупой перебор с записью промежуточных значений в ТаблицуЗначений. И отладчиком легко работать, и работает (мне кажется) быстрее, чем запрос. И писать лече, потому что отладчиком можно пробежаться.

Ответ отправил: Шахрайчук Владимир Анатольевич (статус: Практикант) Ответ отправлен: 16.04.2008, 15:36 Оценка за ответ: 5

Отвечает: Кулевский Сергей Владимирович Здравствуйте, Деркач Александр! Рациональнее будет использовать запроси в этом запросе использовать конструкцию соединения(левое, правое,полное (какое будет удобнее). Т.о. отчет не сильно затормозит работу БД.

Ответ отправил: Кулевский Сергей Владимирович (статус: 4-ый класс) Ответ отправлен: 17.04.2008, 12:09

Вопрос № 132.392

Здраствуйте эксперты! У меня вопрос по 1С:7.7. Есть числовое значение тарифа "1,655",взятое из справочника "Тарифы" из колонки "Ставка"; а нужно получить из этого же справочника, для данного тарифа его тип из колонки "ТипТарифа". В этом справочнике создана группа "2008 год" и все тарифы находятся в этой группе, я не могу войти в группу для поиска тарифа . Как открыть эту группу и найти нужный реквизит у тарифа? Спасибо. Приложение: ТарифПоУровню = СчетчикКонкр.Тариф.Получить(ВыбДата); Сообщить("Тариф числом: "+ ТарифПоУровню); //получила 1,655 Тар = СоздатьОбъект("Справочник.Тарифы"); Если Тар.НайтиПоРеквизиту("Ставка",ТарифПоУровню,1) = 1 Тогда //ищу в колонке "Ставка" тариф 1,655 ТипТар = Тар.ТекущийЭлемент(); //нашла НужныйТариф = ТипТар.ТипТарифа; //из колонка "ТипТарифа" надо получить данные( СН ) Сообщить(НужныйТариф); //ничего не выдает КонецЕсли;

Отправлен: 16.04.2008, 12:48 Вопрос задала: Olyamur (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Airyashov Здравствуйте, Olyamur! Трудно гадать не видя вашу конфигурацию. ИспользоватьРодителя(<Родитель>,<ФлагИзменения>) для поиска внутри группы Если реквизит "Ставка" не уникальный можно воспользоваться ВыбратьЭлементыПоРеквизиту (<ИмяРеквизита>,<Значение>,<РежимИерархии>,<РежимГрупп>)

Ответ отправил: Airyashov (статус: 4-ый класс) Ответ отправлен: 16.04.2008, 13:15 Оценка за ответ: 5 Комментарий оценки: Спасибо, там действительно проблема была в Родителе. Все исправила, все отлично.

Вопрос № 132.397

Добрый день уважаемые эксперты! Вновь нужна ваша помощь! Пишу отчет, который на основе данных из справочника формировал бы штатное расписание сначала виде таблицы значений, а потом и в печатной форме. С ТЗ проблем нет, а вот с печатной формой есть проблемка. Есть четыре секции (Шапка, строка, ПодвалЛиста, подвал). В секции строка есть колонка «Подразделение» , необходимо сделать что-то вроде группировки по подразделению. Тоесть Идет список из 11 должностей с подразделением «Администрация» после этого выводится секция ПодвалЛиста вней считается итог по подразделению и дальше вновь выводится секция строка и начинается группировка по другому подразделению и т.д. Пытался смотреть как это сделано в ЗиК, но там немного другое – надо всю прогу переделывать. Может у когонибудь есть варианты решения проблемы? Буду рад любым советам… Исходный код в приложении. Приложение: // Переменные Перем ШтатноеРасписание, ИтогШтатных, ИтогЗП, ИтогСтавка; Процедура Сформировать() // Строим ТЗ ТзШтатноеРасписание.Очистить(); ТзШтатноеРасписание.НоваяКолонка("ПодрНаименование", "Строка", "30",, "Структурное подразделение", "20"); ТзШтатноеРасписание.НоваяКолонка("ПодрКод", "Число", "5",, "Код", "5"); ТзШтатноеРасписание.НоваяКолонка("Должность", "Строка", "20",, "Должность", "20"); ТзШтатноеРасписание.НоваяКолонка("Единиц", "Число", "5",, "Штатных единиц", "20"); ТзШтатноеРасписание.НоваяКолонка("Ставка", "Число", "10","2", "Тарифная ставка", "20"); ТзШтатноеРасписание.НоваяКолонка("Надбавка1", "Число", "10","2", "Надбавка1", "10"); ТзШтатноеРасписание.НоваяКолонка("Надбавка2", "Число", "10","2", "Надбавка2", "10"); ТзШтатноеРасписание.НоваяКолонка("Надбавка3", "Число", "10","2", "Надбавка3", "10"); ТзШтатноеРасписание.НоваяКолонка("ВсегоЗП", "Число", "10","2", "Всего ЗП", "10"); // Заполняем ТЗ ТзШтатноеРасписание.УдалитьСтроки(); ШтатноеРасписание.ВыбратьЭлементы(); Пока ШтатноеРасписание.ПолучитьЭлемент() > 0 Цикл ТзШтатноеРасписание.НоваяСтрока(); ТзШтатноеРасписание.ПодрНаименование = ШтатноеРасписание.СтруктурноеПодразделение.Наименование; ТзШтатноеРасписание.ПодрКод = ШтатноеРасписание.СтруктурноеПодразделение.Код; ТзШтатноеРасписание.Должность = ШтатноеРасписание.Наименование; ТзШтатноеРасписание.Единиц = ШтатноеРасписание.КолВоЕдиниц; ТзШтатноеРасписание.Ставка = ШтатноеРасписание.ТарифнаяСтавка; ТзШтатноеРасписание.Надбавка1 = ШтатноеРасписание.СуммаНадбавки1; ТзШтатноеРасписание.Надбавка2 = ШтатноеРасписание.СуммаНадбавки2; ТзШтатноеРасписание.Надбавка3 = ШтатноеРасписание.СуммаНадбавки3; ТзШтатноеРасписание.ВсегоЗП = (ТзШтатноеРасписание.Надбавка1 + ТзШтатноеРасписание.Надбавка2 + ТзШтатноеРасписание.Надбавка3) * ТзШтатноеРасписание.Единиц; КонецЦикла; // Переменные для итога ИтогШтатных = ТзШтатноеРасписание.Итог(4); ИтогЗп = ТзШтатноеРасписание.Итог(9); ИтогСтавка = ТзШтатноеРасписание.Итог(5); КонецПроцедуры // Печатаем выходную форму Процедура Печать() Сформировать(); Таб = СоздатьОбъект("Таблица"); Таб.ИсходнаяТаблица("Печать"); Таб.ВывестиСекцию("Шапка"); ТзШтатноеРасписание.ВыбратьСтроки(); Пока ТзШтатноеРасписание.ПолучитьСтроку () = 1 Цикл Таб.ВывестиСекцию("Строка"); КонецЦикла; // Отчет по подразделению ШтатноеРасписание.ВыбратьЭлементыПоРеквизиту("СтруктурноеПодразделение", ТзШтатноеРасписание.ПодрНаименование); Пока ШтатноеРасписание.ПолучитьЭлемент() = 1 Цикл Таб.ВывестиСекцию("ПодвалЛиста"); КонецЦикла; Таб.ВывестиСекцию("Подвал"); Таб.Опции(0,0,0,0); Таб.ТолькоПросмотр(1); Таб.Показать("Приказ о приеме ",""); КонецПроцедуры // Создаем переменные ШтатноеРасписание = СоздатьОбъект("Справочник.ШтатноеРасписание");

Отправлен: 16.04.2008, 13:01 Вопрос задал: Serega_1c (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Strawberry Здравствуйте, Serega_1c! Что мешает перед печатью отсортировать таблицу значений ТзШтатноеРасписание по полям -ПодрНаименование или ПодрКод. см. приложение. Приложение: Сортировать(<?>,); Синтаксис: Сортировать(<Колонки>,<ДокумПоДате>) Назначение: Сортировать таблицу значений по колонкам. Параметры: <Колонки> - строковое выражение, которое определяет колонки, порядок и направление сортировки. Формат передаваемой строки - это разделенные запятыми номера или идентификаторы колонок со знаком направления сортировки ( ''+'' - сортировать по возрастанию; ''- '' - сортировать по убыванию; ''*'' - сортировать по внутреннему значению). Знак направления сортировки можно указывать до или после обозначения колонки через пробел или без пробела. По умолчанию направление сортировки принимается по возрастанию. <ДокумПоДате> - необязательный параметр. Имеет смысл только в том случае, если значениями таблицы значений являются документы. В этом случае можно задавать сортировку документов по их хронологии. Число: 1 - сортировка по хронологии документов; 0 - нет. Значение по умолчанию - 0. --------- Мальчик-извращенец прочел деду Морозу с табуретки всего Пастернака!

Ответ отправил: Strawberry (статус: Студент) Ответ отправлен: 16.04.2008, 13:20 Оценка за ответ: 5 Комментарий оценки: Спасибо буду пробывать!

Отвечает: Airyashov Здравствуйте, Serega_1c! Я бы предложи Вам отсортировать ТЗ по подразделению. Затем взять подразделение из первой строки за ТЗ за текущее. И в цикле выводить строки пока Текущее подразделение и подразделение у строк одинаково, притом считатая итог (что там требуется незнаю). Если подразделение не равно, то вывести итог по подразделению, затем сменить Текущее подразделение, обнулить итог и продолжать обрабатывать таблицу. Проще наверное через чикл пока реаловать со счетчиком.

Ответ отправил: Airyashov (статус: 4-ый класс) Ответ отправлен: 16.04.2008, 13:22 Оценка за ответ: 5 Комментарий оценки: Спасибо буду пробывать!

Отвечает: Nikakoy Здравствуйте, Serega_1c! С учетом предудущих советов должно получиться что-то вроде: ТекПодр=""; ТзШтатноеРасписание.ВыбратьСтроки(); Пока ТзШтатноеРасписание.ПолучитьСтроку () = 1 Цикл Если (ПустоеЗначение(ТекПодр)=0) и (ТекПодр<>ТзШтатноеРасписание.ПодрНаименование) Тогда Таб.ВывестиСекцию("ПодвалЛиста"); ТекПодр=ТзШтатноеРасписание.ПодрНаименование; КонецЕсли; Таб.ВывестиСекцию("Строка"); КонецЦикла;

Ответ отправил: Nikakoy (статус: 3-ий класс) Ответ отправлен: 17.04.2008, 11:54 Оценка за ответ: 5 Комментарий оценки: Спасибо огромное! Это то, что нужно!!!!

Вопрос № 132.407

Скажите пожалуйста где мне скачать обработку загрузки-выгрузки справочников одинаковых ИБ

Отправлен: 16.04.2008, 14:32 Вопрос задал: Mison4uk (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Airyashov Здравствуйте, Mison4uk! Import77 Export77 для 7 на ИТС для 8 воспользуётесь "конвертацией данных"

Ответ отправил: Airyashov (статус: 4-ый класс) Ответ отправлен: 16.04.2008, 14:41

Отвечает: Полозов Олег aka Asher Здравствуйте, Mison4uk! Для восьмерки есть обработка - универсальная загрузка выгрузка данных. Можно взять с ИТС

Ответ отправил: Полозов Олег aka Asher (статус: Студент) Ответ отправлен: 17.04.2008, 06:39

Отвечает: Кулевский Сергей Владимирович Здравствуйте, Mison4uk! Только на диске ИТС видел.

Ответ отправил: Кулевский Сергей Владимирович (статус: 4-ый класс) Ответ отправлен: 17.04.2008, 12:07

Вопрос № 132.427

Добрый день. Уважаемые эксперты, столкнулся с интересной проблемой, не могу найти выход из сложишейся ситуации. Помогите!! А теперь по сути: 1с 7.7. (компонента бух учет). Есть склад на который приходит ТМЦ например 1.04.2008 в количестве 100 шт. После этого например 20.04.2008 реализовывается 50шт данного ТМЦ, остаток 50 все нормально!!! НО, доблестные бухгалтера делают следующий документ реализации например 18.04.2008 и реализуют 90шт!!! данного ТМЦ. На момент проведения документа на складе 100!!! штук (а фактически 50!!!). Как сделать чтобы такой финт с документами нельзя было реализовать. Сразу скажу что закрыть проведения документов задним числом НЕЛЬЗЯ!!!!(это бывает нужно)

Отправлен: 16.04.2008, 16:34 Вопрос задал: Ткаченко Алексей Васильевич (статус: 2-ой класс) Всего ответов: 7 Мини-форум вопроса >>> (сообщений: 8)

Отвечает: Airyashov Здравствуйте, Ткаченко Алексей Васильевич! Если бухгалтерам надо, они так и так реализую задним числом. Выход может быть такой, но по времени врядли реальный, в документе вводимом задним числом проверить на будующие даты после каждого расхода, по товарам документа, количество должно быть больше чем расход задним числом.

Ответ отправил: Airyashov (статус: 4-ый класс) Ответ отправлен: 16.04.2008, 16:45 Оценка за ответ: 3 Комментарий оценки: Теоретически можно, но мне кажется что это мало еффективный способ, ведь возможен дополнительный приход между расходами, и тогда будет "зависать" сумма.

Отвечает: Брагар Сергей Владимирович Здравствуйте, Ткаченко Алексей Васильевич! Делать востановление последовательности. Если востановление не возможно то при списании брать остаток на ТА а ТА можно перенести как вам будет лучше у моих клиентов я переносил на конец месяца

Ответ отправил: Брагар Сергей Владимирович (статус: 2-ой класс) Ответ отправлен: 16.04.2008, 16:47 Оценка за ответ: 3 Комментарий оценки: В том то и дело, когда проводим восстановление последовательности при большом движении с "задними" документами получается такая каша, что сам черт ногу сломит. Поэтому нужно другой способ, может както держать промежуточные значения остатков или чего то другое. Я и прошу помощи или совета именно с практической стороны.

Отвечает: Strawberry Здравствуйте, Ткаченко Алексей Васильевич! Вариант скажем так не очень удобный: Во время проведения две проверки 1 - остатки на ТА (на текущий момент); 2 - стандартная проверка остатки на момент документа. Минусы если документ перепроводят после изменений то его вначале нужно распровести, т.к. первая проверка непройдет. --------- Мальчик-извращенец прочел деду Морозу с табуретки всего Пастернака!

Ответ отправил: Strawberry (статус: Студент) Ответ отправлен: 16.04.2008, 16:56 Оценка за ответ: 3 Комментарий оценки: Ну а если между второй реализацией и первой релизацией пришел еще один приход, то на текущий момент остатки нармальные, но все равно вторая рализация "задним" числом будет направильная. И предложенная проверка будет ошибочная.

Отвечает: Ahab Здравствуйте, Ткаченко Алексей Васильевич! кроме как добавлять партионный учёт, помоему, способов нету.. т.е. комбинация товар и документ прихода есть партия, в бухучёте это получается на счёте должно быть 2 субконто - ТМЦ и документ - при проведении документа проверять остатки по каждой партии на конец текущего периода расчёта бух итогов (на текущую дату смысла нет, бухи иногда исхитряются поменять системную или рабочую дату, а ТА в бухии нету) и из тех партий что будут на остатках смотреть что есть на дату документа именно по этим партиям... т.е. все остальные партии которых нет или были списаны где-то в промежутке между датой дока и концом бухитогов, или поступили позже.. правда всё равно остаются грабли - возможна ситуация когда будут пытаться провести док задним числом, но ранее проведённый документ хоть и старшей даты уже спишет существующие на ту дату партии, тогда прийдётся делать не проведённым более старший документ чтобы он вернул остатки, проводить задним числом первый док и повторно проводить второй док чтобы он списал более старшие партии... или как вариант реализовать возможность выбора вручную товар какого прихода списывать. но опять же при одновременной работе нескольких человек возможны всякого рода коллизии..

Ответ отправил: Ahab (статус: 5-ый класс) Ответ отправлен: 17.04.2008, 05:56 Оценка за ответ: 3 Комментарий оценки: Тоесть "глобального лекарства" все равно нет. А плохо. Чегото недодумано. Жаль что из ситуации выхода стопудового нету. Спасибо.

Отвечает: svsrus Здравствуйте, Ткаченко Алексей Васильевич! Как вариант чуток алгоритм проведения документа реализация. Т.е. там где по БухИтогам расчитывается остаток ТМЦ стоит дата документа, нужно вместо нее поставить ТекущаяДата(), т.е. сегодняшнее число и выдавать предупреждение, что на текущий момент на складе столько-то ТМЦ, что меньше коли-ва указанное в документе.

Ответ отправил: svsrus (статус: 8-ой класс) Ответ отправлен: 17.04.2008, 08:20 Оценка за ответ: 3 Комментарий оценки: Ну нет, все было бы нормально если бы не было прихода в промежутках между реализациями. И проверка на текущую дату покажет что есть на данный момент а списание пройдет по неправильным партиям.

Отвечает: Maximush Здравствуйте, Ткаченко Алексей Васильевич! Если необходимо добиться такого результата, чтобы при проведении документа задним числом ни один из последующих документов не образовывал отрицательного остатка по выбранной номенклатуре по счетам(регистрам) - обойтись без обхода всех последующих документов, на мой взгляд, не получится. Если брать остаток на текущий момент, то может сложиться ситуация такого рода: 01.01.08 +100 Остаток 100 02.01.08 -80 Остаток 20 03.01.08 -100 Остаток -80 04.01.08 +100 Остаток 20 (до проведения второго документа остаток 100) т.е. проведение второго документа не роняет остаток на текущий момент в минус и все вроде бы нормально. А уж как обойти все нужные документы - тут могут быть варианты. Либо через Док.Выбрать() либо через бухгалтерский запрос с детализацией до операции (фильтр по номенклатуре, месту хранения, период с ТекущийДокумент() по КонецРассчитанногоПериодаБИ()) если 41.1 учитывает места хранения, то что-то в этом роде : //получаем список номенклатуры в СЗНоменклатура. БухИт.ИспользоватьСубконто(ВидыСубконто.Номенклатура, СЗНоменклатура,1,0); БухИт.ИспользоватьСубконто(ВидыСубконто.МестаХранения, МестоХранения,1,0); БухИт.ВыполнитьЗапрос(ТекущийДокумент(), КонецРассчитанногоПериодаБИ(), "41.1",,,1,"Операция","К"); БухИт.ВыбратьСубконто(ВидыСубконто.МестаХранения); Пока БухИт.ПолучитьСубконто(ВидыСубконто.МестаХранения)=1 цикл БухИт.ВыбратьСубконто(ВидыСубконто.Номенклатура); Пока БухИт.ПолучитьСубконто(ВидыСубконто.Номенклатура)=1 цикл БухИт.ВыбратьПЕриоды(); Пока БухИт.ПолучитьПериод()=1 цикл КоличествоПослеПроведенияТекущейОперации = БухИт.СКД(3); //а тут, если что, ругаться/драться/убиваться КонецЦикла; КонецЦикла; КонецЦикла; код не проверял, ибо не на чем, это просто пример. имеет смысл отключать такую проверку при групповом проведении документов... удачи. Max//

Ответ отправил: Maximush (статус: 2-ой класс) Ответ отправлен: 17.04.2008, 10:41

Отвечает: Nikakoy Здравствуйте, Ткаченко Алексей Васильевич! Заморочно... Но может получиться. Подчиненный справочник Реквизиты: "Операция"(приход/расход) "Количество" "Остаток" "Временная точка". При проведении товарного документа создавать соответствующий элемент. если документ расходный, проводить проверку от документа предыдущего по "Временной точке". Остаток-0 Приход 10 Ост 10 20080101 расход 1 ост 9 20080102 Попытка расход 6 расход 5 ост 4 20080110 Приход 5 Ост 9 20080111 Итог до 11.01.2008 документ нельзя проводить... При большом количестве номенклатуры и документов.... Жуть...

Ответ отправил: Nikakoy (статус: 3-ий класс) Ответ отправлен: 17.04.2008, 12:22

Вопрос № 132.521

Здравствуйте, товарищи экспреты. 1с 8.1. УПП 1.2. 1. Есть справочник "Контрагенты", есть справочник "Договоры Контрагентов". В процедуре при создании документа "Поступление Товаров и Услуг" нужно заполнить эти реквизиты. Т.е. они вызывают у меня вопрос. Сам контрагент берется из .dbf(поле postcol). Нахожу контрагента след. образом: КодПоставщика = Справочники.Номенклатура.НайтиПоКоду(СтрЗаменить(СокрЛП(Строка(ФайлДБФ.POSTPOL)),Символ(160),"")); Это верно? Как правильно узнать договор текущего контрагента? Сначала нужно проверить найден ли контрагент, потом по его ссылке, найти договор. Нужны договоры с Наименованием "Общий". Как это сделать? 2. Еще в этом же документе есть реквизиты "СчетУчетаРасчетовСКонтрагентом" и "СчетУчетаРасчетовПоАвансам". Регистр сведений называется "Контрагенты Организаций". Знаю, что № первого чета 60.01, второго 60.02. Необходимо их получить, предварительно, выяснив, как они получились. Есть "Планы счетов бухгалтерского учета". Все счета там. Как это сделать? Очень жду ответов. Заранее спасибо.

Отправлен: 16.04.2008, 21:48 Вопрос задал: Роман Андреевич (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Airyashov Здравствуйте, Роман Андреевич! КодПоставщика = Справочники.Номенклатура.НайтиПоКоду(СтрЗаменить(СокрЛП(Строка(ФайлДБФ.POSTPOL)),Символ(160),"")); Это верно? вряд ли в номенклатуре поставщик вернее наверное будет Справочники.Контрагенты.НайтиПоКоду(...); а договор найдите запросом например так ЗапросД=Новый Запрос; ЗапросД.Текст="ВЫБРАТЬ ПЕРВЫЕ 1 | ДоговорыКонтрагентов.Владелец, | ДоговорыКонтрагентов.ВидДоговора, | ДоговорыКонтрагентов.Ссылка КАК Договор |ИЗ | Справочник.ДоговорыКонтрагентов КАК ДоговорыКонтрагентов |ГДЕ | ДоговорыКонтрагентов.Владелец = &Владелец | И ДоговорыКонтрагентов.ВидДоговора = &ВидДоговора"; ЗапросД.УстановитьПараметр("Владелец",Контрагент); ЗапросД.УстановитьПараметр("ВидДоговора",ВидДоговора); счета заполнить так ДокПост.СчетУчетаРасчетовСКонтрагентом=ПланыСчетов.Хозрасчетный.РасчетыСПоставщиками; ДокПост.СчетУчетаРасчетовПоАвансам=ПланыСчетов.Хозрасчетный.РасчетыПоАвансамВыданным;

Ответ отправил: Airyashov (статус: 4-ый класс) Ответ отправлен: 17.04.2008, 08:15 Оценка за ответ: 5 Комментарий оценки: Спасибо Вам большое. Очень ждал ответа. Буду пробовать.

© 2001-2008, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале ∙ Версия системы: 4.91 pre 5.0 RC1 от 13.04.2008
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru