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

Выпуск № 209
от 29.05.2006, 12:05

Вопрос № 43.966

Здравствуйте уважаемые эксперты, помогите пожалуйста. У нас на предприятии ведется несколько касс.(Бух7,7) основная. касса филиала, мне нужно чтобы по каждой кассе выводилась своя "Кассавая Книга" Учет док. ведется по субконто "Касса" В план счетов к счету"50" добавлено Субконто2, Перед выполнением запроса, пишу использоватьсубконто. И ничего не получается посоветуйте, как быть, может проще разбить кассу на субсчета? Приложение: Ит = СоздатьОбъект("БухгалтерскиеИтоги"); Ит.ИспользоватьСубконтоВидыСубконто.Касса,ВыбСубконто1,2); Ит.ВыполнитьЗапрос(НачЗапроса, КонДата, "50.1,50.11",,,, "День", "СВ"); Запрос = СоздатьОбъект("Запрос");

Отправлен: 23.05.2006, 11:44 Вопрос задала: Надежда (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Elric Здравствуйте, Надежда! Я так понимаю, Вы тольок начинаете осваивать программирование в 1С 7.7, поэтому мой ответ будет более подробным, чем обычно. Вы просто во второй строчке пропустили скобку (после слова ИспользоватьСубконто). В итоге указанный участок программы должен выглядеть така как в Приложении. Вообще на всякий случай замечу, что в результате Вы получите запрос по счетам 50.1 и 50.11 (вместе) в разрезе субконто Касса. Чтобы потом получить результаты этого запроса следует воспользоваться методами ВыбратьСубконто и ПолучитьСубконто. Кстати, проверьте чтобы идентификатор вида субконто (не справочника, а именно вида субконто) был Касса, а не, скажем, Кассы и т.п. Если возникнут вопросы или проблема не решится, спрашивайте, постараемся помочь. Приложение: Ит = СоздатьОбъект("БухгалтерскиеИтоги"); Ит.ИспользоватьСубконто(ВидыСубконто.Касса,ВыбСубконто1,2); Ит.ВыполнитьЗапрос(НачЗапроса, КонДата, "50.1,50.11",,,, "День", "СВ"); Запрос = СоздатьОбъект("Запрос"); --------- Мирный атом в каждый дом

Ответ отправил: Elric (статус: Студент) Ответ отправлен: 23.05.2006, 12:26

Отвечает: Besker Здравствуйте, Надежда! Попробуйте разбить по субсчетам. Как сделать в общем, смотрите приложение. Приложение: //Добавляем субсчета к счету 50. //На форме ПКО и РКО рисуем переключатели выбора //субсчета (касса филиала) куда поступают или //расходуются средства, а в модуль формы добавляем Форма.Субсчет.Доступность(1-ФлагВидимости); Форма.Субсчет2.Доступность(1-ФлагВидимости); Форма.Субсчет3.Доступность(1-ФлагВидимости); //и так далее, в зависимости сколько субсчетов, где //Субсчет...2...3 идентификатор "переключателя" на форме //далее добавляем в процедуру ОбработкаПроведения Если Субсчет=2 Тогда СчетКассы = СчетПоКоду("50.99"); //Касса филиала ИначеЕсли Субсчет=3 Тогда СчетКассы = СчетПоКоду("50.98"); //Касса филиала ИначеЕсли Субсчет=4 Тогда СчетКассы = СчетПоКоду("50.97"); //Касса филиала Иначе СчетКассы = СчетПоКоду("50.1");//Счет основной кассы КонецЕсли; //переменная СчетКассы будет определять в какую //кассу филиала поступают деньги --------- Жизнь игра, а настоящая игра - МАНИЯ.

Ответ отправил: Besker (статус: 7-ой класс) Ответ отправлен: 23.05.2006, 12:35 Оценка за ответ: 5 Комментарий оценки: Спосибо, но скорее всего я использовать буду субконто

Отвечает: Шахрайчук Владимир Анатольевич Здравствуйте, Надежда! Не пойму, зачем Запрос = СоздатьОбъект("Запрос"); , это, по-моему, лишнее. Нужно Если Ит.ПолучитьСубконто(1,,ВыбСубконто1)=1 Тогда Ит.ВыбратьПериоды(); Пока Ит.ПолучитьПериод()=1 Цикл и получать дни.

Ответ отправил: Шахрайчук Владимир Анатольевич (статус: 8-ой класс) Ответ отправлен: 23.05.2006, 18:35 Оценка за ответ: 4 Комментарий оценки: спосибо, но все таки в кассовой книге Запрос именно так начинается

Вопрос № 43.971

Всем привет! Кто подскажет, во время работы 1С создаютися новые файлы dbf или нет при условии что конфигурация не менялась?

Отправлен: 23.05.2006, 12:28 Вопрос задал: Топорков Алексей Иванович (статус: Посетитель) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: ПЛОХИХ А. Дмитрий Здравствуйте, Топорков Алексей Иванович! Нет. ДБФ файлы формируются только при создании новых объектов метаданных.

Ответ отправил: ПЛОХИХ А. Дмитрий (статус: 3-ий класс) Ответ отправлен: 23.05.2006, 12:38

Отвечает: Сергей Здравствуйте, Топорков Алексей Иванович! Во время работы 1С, при условии что конфигурация не менялась, новые файлы dbf НЕ создаются.

Ответ отправил: Сергей (статус: 4-ый класс) Ответ отправлен: 23.05.2006, 12:39

Отвечает: Elric Здравствуйте, Топорков Алексей Иванович! Иногда создаются новые dbf, но не самой системой. Например, если установлен "Менеджер обмена данных", то он в процессе работы создает свои dbf-файлы, которые легко отличить по маске tran*.dbf. Аналогично могут работать некоторые специфические настройки, для своих целей создавать свои dbf-файлы. Если же никакой подобной специфики нет, то, как и сказал ПЛОХИХ А. Дмитрий, сама система создает новые dbf-файлы только при добавлении номых объектов в конфигурацию. Например, это на 100% касается стандартных конфигураций. --------- Мирный атом в каждый дом

Ответ отправил: Elric (статус: Студент) Ответ отправлен: 23.05.2006, 13:12

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

Ответ отправил: Шахрайчук Владимир Анатольевич (статус: 8-ой класс) Ответ отправлен: 23.05.2006, 18:44

Вопрос № 44.061

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

Отправлен: 24.05.2006, 08:41 Вопрос задал: DDDDen (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: BuhCIA Здравствуйте, DDDDen! В строке |Товар = Документ.ПоступлениеТМЦ.Номенклатура, Документ.Реализация.Номенклатура; нужно перечислить и те документы, которые Вам нужны для группировки (Документ.ВводОстатков.Номенклатура,Документ.Возвраты.Номенклатура,) - проверьте наименования по Конфигуратору. И в другие места, наверно, нужно повставлять, где есть соответствующие атрибуты в этих документах. Сам проверить не могу - конфигурация у меня другая. --------- Скажите, сколько времени? - (устало, показывая часы) Читайте, там же все написано!

Ответ отправил: BuhCIA (статус: Практикант) Ответ отправлен: 24.05.2006, 11:46

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

Ответ отправил: Ovr1970 (статус: 10-ый класс) Ответ отправлен: 25.05.2006, 12:04

Вопрос № 44.064

Конфигурация УТ v8. Организую запрос по выборке документов (реализация, возврат). Нужно еще из РегистраСведений.ЦеныНоменклатуры выбрать определенный тип цен (себестоимость). Но связь должна быть как по номенклатуре, так и по дате. Я просто перебирала результат запроса и вставляла это значение, но получается больно долго. не подскажите, как можно организовать сразу в запросе такую выборку?

Отправлен: 24.05.2006, 09:01 Вопрос задала: DVika (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Ovr1970 Здравствуйте, DVika! Запрос автоматически ограничивает выборку по дате, а если у Вас дата в Регистре сведений, то Вы можете просто указать ограничение в условии. Может Вы имеете в виду что -то другое? Что был за запрос, результат которого Вы перебирали?

Ответ отправил: Ovr1970 (статус: 10-ый класс) Ответ отправлен: 25.05.2006, 11:58

Вопрос № 44.066

Добрый день, уважаемые эксперты! У меня к вам такая просьба. Хочу научиться самостоятельно писать обработки в 1С. Может быть подскажете какой сайт или документацию где можно скачать эту информацию. Спасибо. Жду ответа.

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

Отвечает: Besker Здравствуйте, NovInNik! Для того чтобы научиться писать обработки, необходимо необходимо знать базовые навыки программирования. Можно зайти на сайт www.mista.ru и скачать учебник программирования 1С, а на сайте www.stdl.narod.ru - есть документация в формате Ворд. --------- Жизнь игра, а настоящая игра - МАНИЯ.

Ответ отправил: Besker (статус: 7-ой класс) Ответ отправлен: 24.05.2006, 11:00

Вопрос № 44.067

Ребята. Подскажите плз... насчет запуска приложений....ну напрмер мне надо запустить calc.exe. Есть же процедура типа "ЗапуститьПриложение" Кто-нить знает? Можно мне рабочий код через кнопку на форме. Спасибо.

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

Отвечает: ПЛОХИХ А. Дмитрий Здравствуйте, Baim! Да кода, то собственно и нет. Ну во всяком случае сильно его так не назовешь! 1. В форме создать кнопку с процедурой ( прим. ПриНажатииКнопки() ). 2. Ф модуле формы вставляем процедуру ПриНажатииКнопки() см. прил. Приложение: ПриНажатииКнопки() ЗапуститьПриложение("calc"); // или ЗапуститьПриложение "C:WINDOWSsystem32calc.exe"); КонецПроцедуры;

Ответ отправил: ПЛОХИХ А. Дмитрий (статус: 3-ий класс) Ответ отправлен: 24.05.2006, 10:55 Оценка за ответ: 5

© 2001-2006, Портал RusFAQ.ru, Россия, Москва. Идея, дизайн, программирование: Калашников О.А. Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31 Авторские права | Реклама на портале Версия системы: 4.33 от 25.05.2006