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

Выпуск № 408
от 24.01.2007, 09:05

Вопрос № 71.467

Уважаемые эксперты! Можно ли настроить бэкап SQL базы 1С на другой SQL сервер.

Отправлен: 18.01.2007, 08:49 Вопрос задал: Андрей Ф (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Gl0betrotter Здравствуйте, Андрей Ф! Можно. Посредством репликации. Читайте по следующей ссылке http://msdn2.microsoft.com/en-us/library/aa273982(SQL.80).aspx Удачи!

Ответ отправил: Gl0betrotter (статус: 10-ый класс) Ответ отправлен: 18.01.2007, 11:03

Вопрос № 71.493

Уважаемые эксперты, не смейтесь, пожалуйста, над вопросом (и, соответственно, над задающим вопрос). Торговля и Склад, редакция 9.2, 7.70.944, сетевая dbf, терминальный режим. Вопрос по настройке параметров печати по умолчанию. Как сделать, чтобы параметры страницы некоторых печатных форм (той же ТОРГ-12, например) были по умолчанию сохранены для всех пользователей как ландшафтная ориентация, и не было необходимости каждый раз выставлять параметры вручную? Спасибо

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

Отвечает: Зайцев Александр Здравствуйте, V2006! в процедуре печати добавьте строку Таб.ПараметрыСтраницы (2); Таб - имя вашей таблицы там еще можно выставлять следующие параметры: (<Ориентация>,<Масштаб>,<РежимПечатиКопий>,<ПолеСлева>,<ПолеСправа>,<ПолеСверху>,<ПолеСнизу>,<КолонтитулСверху>,<КолонтитулСнизу>,<Автомасштаб>,<ФлагЧБПечати>,<ИмяПринтера>)

Ответ отправил: Зайцев Александр (статус: Студент) Ответ отправлен: 18.01.2007, 12:24 Оценка за ответ: 5 Комментарий оценки: Спасибо за оперативность!

Отвечает: Ткаченко Алексей Васильевич Здравствуйте, V2006! .... //*** Ориентация 1 - Книжная, Ориентация 2 - Ландшафт Таб.ПараметрыСтраницы(<Ориентация>,,,,,,,,,,,);

Ответ отправил: Ткаченко Алексей Васильевич (статус: 1-ый класс) Ответ отправлен: 18.01.2007, 12:25 Оценка за ответ: 5 Комментарий оценки: Спасибо за оперативность!

Отвечает: Гребиников Павел Генадьевич Здравствуйте, V2006! Для этого есть функция параметрыстраницы Синтаксис: ПараметрыСтраницы(<Ориентация>,<Масштаб>,<РежимПечатиКопий>,<ПолеСлева>,<ПолеСправа>,<ПолеСверху>,<ПолеСнизу>,<КолонтитулСверху>,<КолонтитулСнизу>,<Автомасштаб>,<ФлагЧБПечати>,<ИмяПринтера>) Назначение:Установить параметры страницы. Добавьте в код, который обрабатывает печать строки типа: Таб.параметрыстраницы(2) ивсе --------- Плох тот юзер, который не мечтает стать админом...

Ответ отправил: Гребиников Павел Генадьевич (статус: 10-ый класс) Ответ отправлен: 18.01.2007, 12:33 Оценка за ответ: 5 Комментарий оценки: Спасибо за оперативность!

Отвечает: Besker ® Здравствуйте, V2006! Вам нужно в режиме конфигуратора, в окне метаданных, найти нужный докумет и подправить текст модуля, который отвечает за формирование печатной формы (обычно это Процедура Печать()). Затем в этой процедуре перед методом Показать(), вставить метод ПараметрыСтраницы() Например: Таб.ПараметрыСтраницы(2,,,,,,,,,1,,) Где Таб - переменная, т.е. ссылка, 2 - вывод на печать *ландшафт*, если поставить 1 то вывод будет *портрет*, а 1 - автомасштаб. --------- Жизнь - игра, а настоящая игра - МАНИЯ.

Ответ отправил: Besker ® (статус: Студент) Ответ отправлен: 18.01.2007, 12:39 Оценка за ответ: 5 Комментарий оценки: Спасибо за оперативность! По-моему, Ваш ответ наиболее подробный и полезный для "чайника", потому что всё буквально разжёвано. Спасибо

Отвечает: IUnknown Здравствуйте, V2006! для этого в модуле отчета, там где формируется таблица перед тем как вывести табличную форму на экран не обходимо вызвать для объекта таблицы свойства ПараметрыСтраницы.... --------- я не специалист

Ответ отправил: IUnknown (статус: 9-ый класс) Ответ отправлен: 18.01.2007, 12:53 Оценка за ответ: 4 Комментарий оценки: Спасибо, уже научили. Причём, гораздо более подробно

Вопрос № 71.546

Здраствуйте эксперты. Как можно зделать выборку в табличной части документа? Возможно ли установить видемость для строки? Проблема заключается в следуещем необходимо отабразить только тех сотрудников которые в работают в определенном отделе. Если нельзя управлять видемостью строки тогда подскажите как перенести всю таблицу вдругую илим свои варианты. ЗАРАНИЕ БЛАГОДАРЕН.

Отправлен: 18.01.2007, 16:30 Вопрос задал: Centaur (статус: Посетитель) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 4)

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

Ответ отправил: BuhCIA (статус: Специалист) Ответ отправлен: 18.01.2007, 16:55

Отвечает: Elric Здравствуйте, Centaur! Управлять видимостью строки документа, к сожалению, нельзя. Однако можно выгрузить табличную часть документа в таблицу значений, в том числе показывать эту таблицу значений на форме документа. Выгрузка табличной части документа в таблицу значений осуществляется методом ВыгрузитьТабличнуюЧасть(<ТаблЗнач>,<Колонки>) Приложение: // Пример работает в модуле формы документа ТЗ=СоздатьОбъект("ТаблицаЗначений"); //для виртуальной таблицы (не на форме документа) // Если таблица значений расположена на форме документа, то предполагается что ей присвоен идентификатор ТЗ ВыгрузитьТабличнуюЧасть(ТЗ); // для обоих вариантов --------- Мирный атом в КАЖДЫЙ дом!

Ответ отправил: Elric (статус: Практикант) Ответ отправлен: 18.01.2007, 18:10 Оценка за ответ: 5 Комментарий оценки: Спасибо хоть кто-то ответил по делу

Отвечает: Гребиников Павел Генадьевич Здравствуйте, Centaur! А зачем Вам управлять видимостью? Можно провести цикл по строкам и просто поубирать ненужные строки или просто не включать ненужные строки. Если сотрудник.отдел=выботдел тогда новаястрока(); ........... Конецесли --------- Плох тот юзер, который не мечтает стать админом...

Ответ отправил: Гребиников Павел Генадьевич (статус: 10-ый класс) Ответ отправлен: 19.01.2007, 06:21 Оценка за ответ: 2 Комментарий оценки: В чем вся и проблема что необходимо чтоб хранились все строки (удалять нельзя) а отображать по отделам

Отвечает: Ткаченко Алексей Васильевич Здравствуйте, Centaur! Как вариант можно выбрать интересующие значения в новую таблицу Пример: //Баз -ТЗ со стуркурой табличной части документа, или такая какя интересует Вас Выбратьстроки(); Пока Получитьстроку()=1 цикл Если Сотрудник.<Проверяемое Поле> = <Проверяемое значение> тогда // Добавляем значение в таблицу БАЗ; КонецЕсли; КонецЦикла;

Ответ отправил: Ткаченко Алексей Васильевич (статус: 1-ый класс) Ответ отправлен: 19.01.2007, 14:48 Оценка за ответ: 2 Комментарий оценки: я как раз и спрашивал как добавлять значения в таблицу а как перебрать все строки таблицы и сравнить реквезиты я и сам знаю

Вопрос № 71.601

Здравствуйте господа эксперты! ПриходныйОрдер вводится на основании РасходнаяНакл. Если накладную оплачивают частями используется метод ВыбратьПодчиненныеДокументы и сумма в документе с введением нового минусуется. В журнале РасходныеНакл ввела графу Оплата чтобы после проведения документа РасходнаяНакл в эту графу ставилась сумма по всем подчиненным документам (в частности ПриходныйОрдер). Это у меня и не получается. Есть наброски (см.приложение), но результат - ставится только первая оплата, последующие не прибавляются. Помогите пожалуйста!!! Приложение: Процедура ПриЗаписи() ... If (ТекущийДокумент().Проведен()=1) Then ДокН = глНайтиПКО(Контекст,"ПриходныйОрдер"); Оплата = ДокН.Сумма; EndIf; ... КонецПроцедуры //____________________ Запись = СоздатьОбъект("Документ"); Запись.ВыбратьПодчиненныеДокументы(, РабочаяДата(), Док); Пока Запись.ПолучитьДокумент() = 1 Цикл Если (Запись.ПометкаУдаления() = 0) и (Запись.Вид() = "ПриходныйОрдер") и (Запись.ТекущийДокумент() <> ТекущийДокумент()) Тогда Сумма = Сумма - Запись.Сумма; Сообщить("По выбраному основанию уже существует "+ глПредставлениеДокумента(Запись.ТекущийДокумент())+" на сумму "+Запись.Сумма); КонецЕсли; КонецЦикла; //________________ Функция глНайтиПКО(Конт,ВидПКО) Экспорт // возвращает найденный приходный ордер или "" Перем ДокПодч; Если Конт.Проведен() = 1 Тогда ДокПодч=СоздатьОбъект("Документ"); ДокПодч.ВыбратьПодчиненныеДокументы(,,Конт.ТекущийДокумент()); Пока ДокПодч.ПолучитьДокумент()=1 Цикл Если ДокПодч.Вид()=ВидПКО Тогда Если ДокПодч.ПометкаУдаления()=1 Тогда Продолжить; КонецЕсли; Возврат ДокПодч.ТекущийДокумент(); КонецЕсли; КонецЦикла; КонецЕсли; Возврат ""; КонецФункции

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

Отвечает: Tek Здравствуйте, Darina! У вас в процедуре при записи в реквизит оплата заноситься только первый приходный ордер. Следует сделать например так: If (ТекущийДокумент().Проведен()=1) Then Оплата=0; ДокПодч=СоздатьОбъект("Документ"); ДокПодч.ВыбратьПодчиненныеДокументы(,,Конт.ТекущийДокумент()); Пока ДокПодч.ПолучитьДокумент()=1 Цикл Если ДокПодч.Вид()=ВидПКО и ДокПодч.ПометкаУдаления()=0 Тогда Оплата = Оплата + ДокПодч.Сумма; КонецЕсли; КонецЦикла; EndIf; А дальше сами решите что выносить в отдельную функцию или не стоит ничего --------- WinApi - жутко неудобные костыли, MFC и VCL - немногим полезнее, но ничего лучше еще не создано (C)Почти Уинстон Черчилль :)

Ответ отправил: Tek (статус: 7-ой класс) Ответ отправлен: 19.01.2007, 09:49 Оценка за ответ: 3 Комментарий оценки: Так не получается

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

Ответ отправил: BuhCIA (статус: Специалист) Ответ отправлен: 19.01.2007, 09:57 Оценка за ответ: 5 Комментарий оценки: Спасибо за подсказки! особенно по 3 пункту

Отвечает: Elric Здравствуйте, Darina! Попробуйте мой вариант кода. Функцию глНайтиПКО на глНайтиСуммуПКО можно не менять, просто добавить новую функцию. Удачи! :) Приложение: Процедура ПриЗаписи() ... If (ТекущийДокумент().Проведен()=1) Then Оплата = глНайтиСуммуПКО(Контекст,"ПриходныйОрдер"); EndIf; ... КонецПроцедуры //____________________ Запись = СоздатьОбъект("Документ"); Запись.ВыбратьПодчиненныеДокументы(, РабочаяДата(), Док); Пока Запись.ПолучитьДокумент() = 1 Цикл Если (Запись.ПометкаУдаления() = 0) и (Запись.Вид() = "ПриходныйОрдер") и (Запись.ТекущийДокумент() <> ТекущийДокумент()) Тогда Сумма = Сумма - Запись.Сумма; Сообщить("По выбраному основанию уже существует "+ глПредставлениеДокумента(Запись.ТекущийДокумент())+" на сумму "+Запись.Сумма); КонецЕсли; КонецЦикла; //________________ Функция глНайтиСуммуПКО(Конт,ВидПКО) Экспорт // возвращает сумму найденных приходных ордеров или "" ИтСумма=0; Если Конт.Проведен() = 1 Тогда ДокПодч=СоздатьОбъект("Документ"); ДокПодч.ВыбратьПодчиненныеДокументы(,,Конт.ТекущийДокумент()); Пока ДокПодч.ПолучитьДокумент()=1 Цикл Если ДокПодч.Вид()=ВидПКО Тогда Если ДокПодч.ПометкаУдаления()=1 Тогда Продолжить; КонецЕсли; ИтСумма=ИтСумма+ДокПодч.Сумма; КонецЕсли; КонецЦикла; КонецЕсли; Если ИтСумма=0 Тогда Возврат ""; Иначе Возврат ИтСумма; КонецЕсли; КонецФункции --------- Мирный атом в КАЖДЫЙ дом!

Ответ отправил: Elric (статус: Практикант) Ответ отправлен: 19.01.2007, 13:12 Оценка за ответ: 5 Комментарий оценки: Спасибо! Всё получилось!

Вопрос № 71.623

Здраствуйте!Сегодня 1ска стала говорить, что существуют более ранние проведенные документы и ни один документ не проводится. Что делать???????????

Отправлен: 19.01.2007, 07:36 Вопрос задал: Гребиников Павел Генадьевич (статус: 10-ый класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: IUnknown у вас установлена ТА не на последнем документе... для решения проблемы, нужно зайти монопольно... открыть общий журнал... найти самый последний документ введеный в систему... нажать правую кнопку мышки на нем... в появшемся меню выбрать пункт "Установить ТА на документ" --------- я не специалист

Ответ отправил: IUnknown (статус: 9-ый класс) Ответ отправлен: 19.01.2007, 07:50 Оценка за ответ: 5 Комментарий оценки: Спасибо!!!

Отвечает: Краюшкин Игорь Валерьевич Здравствуйте, Гребиников Павел Генадьевич! 1) Необходимо войти в 1С в монопольном режиме 2) Открыть общий журнал документов 3) Встать на последний проведенный документ (он должен быть с черной галочкой) 4) Клик правой кнопкой мыши на этом документе 5) В появившемся меню выбрать "Установить ТА на документ" Больше ничего не надо выбирать, а просто жать Ок

Ответ отправил: Краюшкин Игорь Валерьевич (статус: 7-ой класс) Ответ отправлен: 19.01.2007, 11:29 Оценка за ответ: 5 Комментарий оценки: Спасибо, вот только как то это запутано"Существуют более ранние проведенные документы"

Вопрос № 71.625

Здравствуйте! При конвертации данных из 1С Торговля+Склад 7.70.937 в 1С8, конфигурация конвертируется нормально, но во время переноса данных вылетает ошибка: "Ошибка при попытке вставки записи с неуникальным значением ссылки. Таблица Reference_номер_таблицы. Не подскажете в какую сторону копать? Уж очень хочется перенести данные в восьмерку. Проделанные действия перед переносом: Удалены помеченные на удаление элементы. Выровнена ГП. зы Поиском в сети пользовался. Нашел аналогичный вопрос без ответа на 1c.proclub

Отправлен: 19.01.2007, 08:20 Вопрос задал: Ожерельев Сергей (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Tek Здравствуйте, Ожерельев Сергей! Тестирование и исправление ИБ также следует сделать, хотя бы из соображений того что хотя элементы и удалены, но БД не сжата. --------- WinApi - жутко неудобные костыли, MFC и VCL - немногим полезнее, но ничего лучше еще не создано (C)Почти Уинстон Черчилль :)

Ответ отправил: Tek (статус: 7-ой класс) Ответ отправлен: 19.01.2007, 09:32 Оценка за ответ: 5 Комментарий оценки: Спасибо, помогло реально. После тестирования руками в foxpro сшиб некоторые записи, дальше пошло нормально

Вопрос № 71.629

Здравствуйте ув. эксперты! Можно ли в многострочной части документа (не в ТЗ!!!) выводить пиктограммы в какой либо колонке и, если можно, то как это сделать?

Отправлен: 19.01.2007, 08:37 Вопрос задал: Duke (статус: 1-ый класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: IUnknown Здравствуйте, Duke! можно... для этого в табличную часть документа в свойствах установить нужную картинку... добавить колонку типа "Текст" в свойствах которой и указать, что данная колонка будет для отображения пиктограмм... работа по отображению ничем не отличается от работы по отабражению пиктограм в таблице значений... то есть при указании в данной колонке 1 будет отображаться первая пиктограммка... --------- я не специалист

Ответ отправил: IUnknown (статус: 9-ый класс) Ответ отправлен: 19.01.2007, 09:01

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

Ответ отправил: Ткаченко Алексей Васильевич (статус: 1-ый класс) Ответ отправлен: 19.01.2007, 14:42

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