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

Выпуск № 681
от 18.12.2007, 22:35

Вопрос № 113.695

Здравствуйте, уважаемые эксперты! Вопрос по Бухгалтерии для Украины 7.7 (и как вариации ПУБ для Украины 7.7). Необходимо правильно оформить взятые в аренду электропогрузчик (стоимость 20000 грн., арендная плата 1200 грн./мес.) и персональный компьютер (стоимость 900 грн., арендная плата 75 грн./мес.). Какими документами это оформить (имею ввиду в базе данных), при условии, что компьютер даёт физическое лицо, а электропогрузчик юридическое (плательщик НП). Арендатор - плательщик НП на общих основаниях. Спасибо за внимание.

Отправлен: 12.12.2007, 22:33 Вопрос задал: Владимир Лазурко [Vladal] (статус: 9-ый класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Сергей Максименко [Elric] Здравствуйте, Владимир Лазурко [Vladal]! Это будет документ "УслугиСтороннихОрганизаций" (Акт выполненных работ) каждый месяц на сумму 1200 и 75 грн. соответственно. Т.к. все это оборудование арендуется, т.е. не становится собственностью предприятия, то оно и не приходуется, и стоимость его не имеет значения -- на балансе ее быть не должно. Другое дело что оно может учитываться на забалансовых счетах, на этот счет никаких четких инструкций от вышестоящих органов нет, можно придумать свою схему -- в таком случае нужно добавить документ "Акт приема-передачи" специально для соответствующей печатной формы и проводок по этому забалансовому счету. --------- В творчестве рождается истина

Ответ отправил: Сергей Максименко [Elric] (статус: Профессионал) Украина, Киев Тел.: (044) 22-88-369 Организация: "МАКСЕР" - продажа и внедрение "1С:Предприятие" Адрес: г. Киев WWW: "1С:Предприятие" - продажа, внедрение, сопровождение ---- Ответ отправлен: 12.12.2007, 23:31 Оценка за ответ: 5 Комментарий оценки: Спасибо! Про УслугиСтороннихОрганизаций как-то не подумали...

Отвечает: Strawberry Здравствуйте, Владимир Лазурко [Vladal]! Есть такие документы услуги стороних организаций это для арендной платы на приход ставишь на 02 счет товары на доверенном (отвественном) хранении если надо на себя повесить --------- Мальчик-извращенец прочел деду Морозу с табуретки всего Пастернака!

Ответ отправил: Strawberry (статус: 10-ый класс) Ответ отправлен: 13.12.2007, 15:38 Оценка за ответ: 5 Комментарий оценки: Спасибо за дополнение.

Вопрос № 113.735

Добрый день. Нужна Ваша помощь. 7.7 Создал документ ПОИСК, в полях ввода которого задаю: П_Наименование - строка, П_Автор - справочник Авторы, П_Жанр - справочник ЖанрыКниг. Написал процедуру поиска (приложение), которая находит в справочнике Произведения, те элементы, которые удовлетворяют 3 условиям (наименование, автор, жанр) одновременно. Как исправить так, чтобы выдавало элементы, которые удовлетворяют хотя бы одному условию (например, наименование="", автор="", жанр="комедия" - выдало все комедии которые есть в справочнике) Заранее спасибо. Приложение: Процедура Сформировать() Перем Запрос, ТекстЗапроса, Таб; Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(Сформировать) |Произведение = Справочник.Произведения.Наименование; |Автор = Справочник.Произведения.Автор; |Жанр = Справочник.Произведения.Жанр; |Условие((Автор в П_Автор) и (Произведение в П_Произведение) и (Жанр в П_Жанр)); |Группировка Произведение все; |Группировка Автор все; |Группировка Жанр все; |"//}}ЗАПРОС ; Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда Сообщить ("ошибка в запросе"); Возврат; КонецЕсли; Таб = СоздатьОбъект("Таблица"); Таб.ИсходнаяТаблица("Сформировать"); Таб.ВывестиСекцию("Заголовок"); Состояние("Заполнение выходной таблицы..."); Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0); Пока Запрос.Группировка(1) = 1 Цикл Если (Запрос.Произведение = П_Произведение) тогда Пока Запрос.Группировка(2) = 1 Цикл Если (Запрос.Автор = П_Автор) тогда Пока Запрос.Группировка(3) = 1 Цикл Если (П_Жанр=Запрос.Жанр) тогда Таб.ВывестиСекцию("Автор"); КонецЕсли; КонецЦикла; КонецЕсли; КонецЦикла; КонецЕсли; КонецЦикла; Таб.ТолькоПросмотр(1); Таб.Показать("Сформировать", ""); КонецПроцедуры

Отправлен: 13.12.2007, 07:10 Вопрос задал: Клевакин Михаил А. (статус: Посетитель) Всего ответов: 5 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Munster Здравствуйте, Клевакин Михаил А.! А если в условии поменять и на или? Условие((Автор в П_Автор) или (Произведение в П_Произведение) или (Жанр в П_Жанр));

Ответ отправил: Munster (статус: 8-ой класс) Ответ отправлен: 13.12.2007, 07:35

Отвечает: Dervish Здравствуйте, Клевакин Михаил А.! Где-то приблизительно так Приложение: Процедура Сформировать() Перем Запрос, ТекстЗапроса, Таб; Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(Сформировать) |Произведение = Справочник.Произведения.Наименование; |Автор = Справочник.Произведения.Автор; |Жанр = Справочник.Произведения.Жанр;"; Если НЕ(ПустоеЗначение(П_Автор)) Тогда ТекстЗапроса=ТекстЗапроса+"Условие (Автор В П_Автор);" КонецЕсли; Если НЕ(ПустоеЗначение(П_Произведение)) Тогда ТекстЗапроса=ТекстЗапроса+"Условие (Найти(ВРег(Произведение),ВРег(П_Произведение))>0);" КонецЕсли; Если НЕ(ПустоеЗначение(П_Жанр)) Тогда ТекстЗапроса=ТекстЗапроса+"Условие (Жанр В П_Жанр);" КонецЕсли; ТекстЗапроса=ТекстЗапроса+"Группировка Произведение все; |Группировка Автор все; |Группировка Жанр все; |"//}}ЗАПРОС ; Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда Сообщить ("ошибка в запросе"); Возврат; КонецЕсли; Таб = СоздатьОбъект("Таблица"); Таб.ИсходнаяТаблица("Сформировать"); Таб.ВывестиСекцию("Заголовок"); Состояние("Заполнение выходной таблицы..."); Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0); Пока Запрос.Группировка(1) = 1 Цикл Пока Запрос.Группировка(2) = 1 Цикл Пока Запрос.Группировка(3) = 1 Цикл Таб.ВывестиСекцию("Автор"); КонецЦикла; КонецЦикла; КонецЦикла; Таб.ТолькоПросмотр(1); Таб.Показать("Сформировать", ""); КонецПроцедуры

Ответ отправил: Dervish (статус: 1-ый класс) Ответ отправлен: 13.12.2007, 07:41

Отвечает: Астафьев Александр Николаевич Здравствуйте, Клевакин Михаил А.! Сделайте флажки в форме отчета ВыбиратьАвтор, ВыбиратьПроизведение, ВыбиратьЖанр и если флаг не установлен соответствующее условие отбора отключается. Приложение: Процедура Сформировать() Перем Запрос, ТекстЗапроса, Таб; Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(Сформировать) |Произведение = Справочник.Произведения.Наименование; |Автор = Справочник.Произведения.Автор; |Жанр = Справочник.Произведения.Жанр;"; Если ВыбиратьАвтор=1 Тогда ТекстЗапроса=ТекстЗапроса+"Условие (Автор В П_Автор);" КонецЕсли; Если ВыбиратьПроизведение=1 Тогда ТекстЗапроса=ТекстЗапроса+"Условие (Найти(ВРег(Произведение),ВРег(П_Произведение))>0);" КонецЕсли; Если ВыбиратьЖанр=1 Тогда ТекстЗапроса=ТекстЗапроса+"Условие (Жанр В П_Жанр);" КонецЕсли; ТекстЗапроса=ТекстЗапроса+"Группировка Произведение все; |Группировка Автор все; |Группировка Жанр все; |"//}}ЗАПРОС ; Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда Сообщить ("ошибка в запросе"); Возврат; КонецЕсли; Таб = СоздатьОбъект("Таблица"); Таб.ИсходнаяТаблица("Сформировать"); Таб.ВывестиСекцию("Заголовок"); Состояние("Заполнение выходной таблицы..."); Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0); Пока Запрос.Группировка(1) = 1 Цикл Пока Запрос.Группировка(2) = 1 Цикл Пока Запрос.Группировка(3) = 1 Цикл Таб.ВывестиСекцию("Автор"); КонецЦикла; КонецЦикла; КонецЦикла; Таб.ТолькоПросмотр(1); Таб.Показать("Сформировать", ""); КонецПроцедуры

Ответ отправил: Астафьев Александр Николаевич (статус: 8-ой класс) Ответ отправлен: 13.12.2007, 08:53

Отвечает: Крюков Р.А. Здравствуйте, Клевакин Михаил А.! Проставь в условии вместо "И" - "ИЛИ" --------- Отвечаю только на вопросы в тему.

Ответ отправил: Крюков Р.А. (статус: 2-ой класс) Ответ отправлен: 13.12.2007, 09:59

Отвечает: Сергей Максименко [Elric] Здравствуйте, Клевакин Михаил А.! Для переменных П_Автор и П_Жанр Вы в Запросе совершенно правильно использовали оператор в - если значение выбрано, то будет отбор, если нет, то в Запрос попадут все значения. А вот для строковых величин этот оператор работает по-другому. Следовательно, нужно изменить Запрос так, как у меня в Приложении. Вцелом, это чуть проще, чем у Dervish и Астафьев Александр Николаевич, и при том столь же универсально. Приложение: Процедура Сформировать() Перем Запрос, ТекстЗапроса, Таб; Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(Сформировать) |Произведение = Справочник.Произведения.Наименование; |Автор = Справочник.Произведения.Автор; |Жанр = Справочник.Произведения.Жанр; |Условие((Автор в П_Автор) и (Жанр в П_Жанр)); |Группировка Произведение все; |Группировка Автор все; |Группировка Жанр все; |"//}}ЗАПРОС ; Если ПустоеЗначение(П_Произведение)=0 Тогда ТекстЗапроса=ТекстЗапроса+"Условие(Найти(СокрЛП(Произведение),СокрЛП(П_Произведение))>0); |"; КонецЕсли; Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда Сообщить ("ошибка в запросе"); Возврат; КонецЕсли; Таб = СоздатьОбъект("Таблица"); Таб.ИсходнаяТаблица("Сформировать"); Таб.ВывестиСекцию("Заголовок"); Состояние("Заполнение выходной таблицы..."); Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0); Пока Запрос.Группировка(1) = 1 Цикл Если (Запрос.Произведение = П_Произведение) Тогда Пока Запрос.Группировка(2) = 1 Цикл Если (Запрос.Автор = П_Автор) Тогда Пока Запрос.Группировка(3) = 1 Цикл Если (П_Жанр=Запрос.Жанр) Тогда Таб.ВывестиСекцию("Автор"); КонецЕсли; КонецЦикла; КонецЕсли; КонецЦикла; КонецЕсли; КонецЦикла; Таб.ТолькоПросмотр(1); Таб.Показать("Сформировать", ""); КонецПроцедуры --------- В творчестве рождается истина

Ответ отправил: Сергей Максименко [Elric] (статус: Профессионал) Украина, Киев Тел.: (044) 22-88-369 Организация: "МАКСЕР" - продажа и внедрение "1С:Предприятие" Адрес: г. Киев WWW: "1С:Предприятие" - продажа, внедрение, сопровождение ---- Ответ отправлен: 13.12.2007, 10:26

Вопрос № 113.812

Добрый день, эксперты. Подскажите, пожалуйста, как действовать в такой ситуации: конфигурация Производство-Услуги-Бухгалтерия, клиент хочет сделать покупку, заплатил аванс (оформляем документом "Поступление ден.средств (расчеты)", и - внимание - обязательно оформляем счет-фактуру выданную (аванс от покупателя)). Затем клиент делает несколько покупок, оформляем несколько "Реализаций (продаж)" и "Счет-фактуры выданные" (на эти продажи). Затем деньги деньги аванса подходят к концу, клиент снова перечисляет финансы, снова "Поступление ден.средств (расчеты)" и счет-фактуру выданную (аванс от покупателя). И снова делает несколько покупок. Проблема в том, что если мы теперь сделаем карточку счета 76.АВ по этому покупателю, то увидим, что программа вторую проплату не воспринимает: снимает деньги, пока не кончится первый аванс, а вторую проплату упорно держит на дебете. Как заставить программу работать со вторым авансом в разрезе счета 76.АВ?

Отправлен: 13.12.2007, 15:02 Вопрос задала: Грейс Флетчер (статус: Студент) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 4)

Отвечает: Астафьев Александр Николаевич Здравствуйте, Грейс Флетчер! Проверил то что Вы пишете на 303 релизе Производство-Услуги-Бухгалтерия 7.7(последний релиз). У счета 76.АВ только одно субконто Контрагенты. Как вы в карточке счета увидели с какого аванса снимаются деньги если нет такого разреза аналитики? К сожалению в карточке контрагента нет признака "Взаиморасчеты в разрезе счетов/накладных" как написал Elric наверное раньше он был. И тем не менее подчиненный справочник Договоры вообще изначально и был создан что бы для одного контрагента можно было делить и анализировать денежные потоки, выполняемые работы и т.д. по нескольким разрезам аналитического учета (долго думал как проще написать но проще не получается). В общем если предоплаты разносить по разным договорам контрагента программа четко определяет когда списывать какие деньги. В бух.учете по счету 76.АВ это не видно по указанной выше причине, а вот по отчетам Взаиморасчеты которые на регистрах видно все четко. Если же предоплата приходит не обезличенная, делайте документы вводом на основании для счетов 76.АВ это все равно, а для счета 76.5 и 62.1 имеет значение

Ответ отправил: Астафьев Александр Николаевич (статус: 8-ой класс) Ответ отправлен: 13.12.2007, 16:13 Оценка за ответ: 5 Комментарий оценки: Спасибо большое, я проверила предложенные Вами советы, лучше всего подошел самый последний, про целевую предоплату. Клиент все равно присылает деньги сразу много, про запас, но мы будем делать целевой аванс на столько, сколько надо.

Отвечает: Ромашов Евгений Николаевич Здравствуйте, Джелл! Просто когда идет выписка расходных документов, идет учет авансов в порядке их поступления, соответственно пока не будет погашен первый аванс очередь до второго не дойдет. Если необходимо чтобы можно было в произвольном порядке выбирать документы оплаты и при этом конфигурация не поддерживает этого то остается только дописывать самостоятельно

Ответ отправил: Ромашов Евгений Николаевич (статус: 6-ой класс) Ответ отправлен: 14.12.2007, 05:04 Оценка за ответ: 5 Комментарий оценки: Спасибо большое, Ваш ответ в сумме с предыдущим ответом дал мне возможность разобраться в вопросе ) А дописывать будем.

Вопрос № 113.875

Здравствуйте эксперты, у меня вопрос как осуществляться поиск по таблице значений? Я делаю так см приложение но у меня выбираются только определенные значения а не значения всей таблицы 2 в чем проблема. Заранее благодарю Приложение: Процедура Выполнить() Док1 = СоздатьОбъект("Документ.ПоступлениеТоваров"); Док2 = СоздатьОбъект("Документ.РасходнаяНакладная"); Н1 = Док1.ТекущийДокумент(); Н2 = Док2.ТекущийДокумент(); Док1.ВыбратьДокументы(ДатаНач,ДатаКон); // ТЗ1 = СоздатьОбъект("ТаблицаЗначений"); ТЗ1.НоваяКолонка("Дата","Дата"); ТЗ1.НоваяКолонка("Номер"); ТЗ1.НоваяКолонка("Наименование","Текст"); ТЗ1.НоваяКолонка("Ед"); ТЗ1.НоваяКолонка("Колво", "Число",12,2); ТЗ1.НоваяКолонка("Цена","Число",12,2); ТЗ1.НоваяКолонка("Сумма", "Число",12,2); Пока Док1.ПолучитьДокумент() = 1 Цикл Док1.ВыбратьСтроки(); Пока Док1.ПолучитьСтроку() = 1 Цикл ТЗ1.НоваяСтрока(); ТЗ1.Дата = Док1.ДатаДок; ТЗ1.Номер = Док1.НомерДок; ТЗ1.Наименование = Док1.Товар; ТЗ1.Ед = Строка("шт"); ТЗ1.Колво = Док1.Количество; ТЗ1.Цена = Док1.Цена ; ТЗ1.Сумма = Док1.Сумма; КонецЦикла; КонецЦикла; //********ПРОДОЛЖНЕИЕ ЧАСТЬ2************************ Док2.ВыбратьДокументы(ДатаНач,ДатаКон); ТЗ2.НоваяКолонка("Дата", "Дата"); ТЗ2.НоваяКолонка("Номер"); ТЗ2.НоваяКолонка("Наименование","Текст"); ТЗ2.НоваяКолонка("Колво", "Число",12,2); ТЗ2.НоваяКолонка("Цена", "Число",12,2); ТЗ2.НоваяКолонка("Сумма", "Число",12,2); Пока Док2.ПолучитьДокумент() = 1 Цикл Док2.ВыбратьСтроки(); Пока Док2.ПолучитьСтроку() = 1 Цикл ТЗ2.НоваяСтрока(); ТЗ2.Дата = Док2.ДатаДок; ТЗ2.Номер = Док2.НомерДок; ТЗ2.Наименование = Док2.Товар; ТЗ2.Колво = Док2.Количество; ТЗ2.Цена = Док2.Цена ; ТЗ2.Сумма = Док2.Сумма; КонецЦикла; КонецЦикла; КонецПроцедуры //************Завершение********************** Процедура Поиск() ТЗ4.НоваяКолонка("Дата"); ТЗ4.НоваяКолонка("Номер"); ТЗ4.НоваяКолонка("Наименование","Текст"); ТЗ4.НоваяКолонка("Ед"); ТЗ4.НоваяКолонка("Количество"); ТЗ4.НоваяКолонка("Цена1"); ТЗ4.НоваяКолонка("Сумма"); ТЗ4.НоваяКолонка("Пустая"); ТЗ4.НоваяКолонка("Количесвто"); ТЗ4.НоваяКолонка("Цена","Чило",12,2); ТЗ4.НоваяКолонка("Сумма"); Размер = ТЗ1.КоличествоСтрок(); Для Номер = 1 По Размер Цикл А = ТЗ2.ПолучитьЗначение(Номер,"Наименование"); Б = СокрЛП(А); ТЗ1.ВыбратьСтроки(); Если ТЗ1.НайтиЗначение(А,Номер,"Наименование") = 1 Тогда ТЗ1.ПолучитьСтрокуПоНомеру(Номер); ТЗ4.НоваяСтрока(); ТЗ4.Дата =ТЗ1.ПолучитьЗначение(Номер,"Дата"); ; ТЗ4.Номер =ТЗ1.ПолучитьЗначение(Номер,"Номер"); ; ТЗ4.Наименование = А;//ТЗ1.ПолучитьЗначение(Номер,"Наименование") ; // ТЗ4.Ед = ТЗ1.Ед; ТЗ4.Количество = ТЗ1.ПолучитьЗначение(Номер,"Колво"); ТЗ4.Цена1 = ТЗ1.ПолучитьЗначение(Номер,"Цена"); // ТЗ4.Сумма = ; ТЗ4.Пустая = ТЗ2.Наименование ; ТЗ4.Количесвто = ТЗ1.ПолучитьЗначение(Номер,"Колво"); ТЗ4.Цена = ТЗ2.ПолучитьЗначение(Номер,"Сумма"); // ТЗ4.Сумма = ; Иначе КонецЕсли; КонецЦикла; КонецПроцедуры //************************************************************

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

Отвечает: Сергей Максименко [Elric] Здравствуйте, Niveo! Комментирую Ваш участок кода: Для Номер = 1 По Размер Цикл А = ТЗ2.ПолучитьЗначение(Номер,"Наименование"); Б = СокрЛП(А); ТЗ1.ВыбратьСтроки(); Если ТЗ1.НайтиЗначение(А,Номер,"Наименование") = 1 Тогда 1. Переменная Номер является счетчиком цикла, присваивать ей всередине цикла новое значение является грубым нарушением в любом языке программирования, а метод НайтиЗначение() возвращает туда номер найденной строки. 2. Если в методе НайтиЗначение() в качестве второго параметра Вы передаете конкретное значение, то поиск происходит только в конкретной строке. В результате у Вас "находятся" только те значения, которые записаны в строки с одинаковыми номерами. Чтобы все это работало правильно нужно всего лишь объявить одну дополнительную переменную и ее использовать в методе НайтиЗначение(). Например, так как у меня в Приложении. 3. Тип "Текст" для колонки Наименование -- это не из той оперы. Должен быть тип "Строка". Так же как и типа "Чило" быть не может. То ли Вы неправильно текст кода скопировали, то ли он у Вас вообще непонятно как работал... ТЗ4.НоваяКолонка("Цена","Чило",12,2); Приложение: Для Номер = 1 По Размер Цикл А = ТЗ2.ПолучитьЗначение(Номер,"Наименование"); Б = СокрЛП(А); Номер2=0; ТЗ1.ВыбратьСтроки(); Если ТЗ1.НайтиЗначение(А,Номер2,"Наименование") = 1 Тогда ТЗ1.ПолучитьСтрокуПоНомеру(Номер2); ТЗ4.НоваяСтрока(); ТЗ4.Дата =ТЗ1.Дата; ; ТЗ4.Номер =ТЗ1.Номер; ; ТЗ4.Наименование = А;//ТЗ1.ПолучитьЗначение(Номер,"Наименование") ; // ТЗ4.Ед = ТЗ1.Ед; ТЗ4.Количество = ТЗ1.Колво; ТЗ4.Цена1 = ТЗ1.Цена; // ТЗ4.Сумма = ; ТЗ4.Пустая = ТЗ2.Наименование ; ТЗ4.Количесвто = ТЗ1.Колво; ТЗ4.Цена = ТЗ2.Сумма; // ТЗ4.Сумма = ; Иначе КонецЕсли; КонецЦикла; --------- В творчестве рождается истина

Ответ отправил: Сергей Максименко [Elric] (статус: Профессионал) Украина, Киев Тел.: (044) 22-88-369 Организация: "МАКСЕР" - продажа и внедрение "1С:Предприятие" Адрес: г. Киев WWW: "1С:Предприятие" - продажа, внедрение, сопровождение ---- Ответ отправлен: 13.12.2007, 22:53 Оценка за ответ: 5 Комментарий оценки: Спасибо большое ! Я только учусь, поэтому много ошибок.

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