Хостинг Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг на Windows 2008

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

Чемпионы рейтинга экспертов в этой рассылке

Альшанский Дмитрий Викторович Статус: 8-й класс Рейтинг: 79 ∙ повысить рейтинг >>

Airyashov Статус: 10-й класс Рейтинг: 44 ∙ повысить рейтинг >>

Командин Константин Евгениевич Статус: 5-й класс Рейтинг: 41 ∙ повысить рейтинг >>

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

Выпуск № 887
от 12.11.2008, 17:05

Вопрос № 149659: Пытаюсь конвертировать Бух 7.7 в Бух 8.1 (все для Казахстана) с помощью типового конвертера платформы, но выдает ошибку "Ошибка загрузки документа". Проставляю все галочки (формы, модули, переносить данные и др.) В чем может быть дело? <...

Вопрос № 149.659

Пытаюсь конвертировать Бух 7.7 в Бух 8.1 (все для Казахстана) с помощью типового конвертера платформы, но выдает ошибку "Ошибка загрузки документа". Проставляю все галочки (формы, модули, переносить данные и др.) В чем может быть дело? И можно ли как-то отладчиком открыть конвертер v7cnv.exe, чтобы посмотреть, на каком документе падает? Заранее спасибо.

Отправлен: 06.11.2008, 16:28 Вопрос задала: a-i-c-h-a (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 3)

Отвечает: Владимир Лазурко Здравствуйте, a-i-c-h-a! Дело может быть в ошибках логической или физической структуры данных. Проведите тестирование и исправление ИБ, после этого снова запустите конвертер баз. Программа-конвертер запускает базу 7.7 по OLE, поэтому Вы можете запустить Отладчик (7.7) и увидеть причины (разумеется, потребуется установить точки останова). И еще: база конвертируется в 2 этапа: 1. Создание промежуточной базы 8 с данными из 7, куда конвертится конвертером баз. 2. Загрузка данных из временной в рабочую. Успехов! С уважением, Владимир.

Ответ отправил: Владимир Лазурко (статус: Студент) Ответ отправлен: 06.11.2008, 19:18 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 234603 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: Большое спасибо! Я протестировала базу, оказалось, что у одного субсчета не было родителя. После этого все нормально сконвертировалось в 8-ку промежуточную. Но теперь другая проблема: при загрузке из нее в рабочую данных (с помощью "Выгрузка и загрузка данных в XML (2.0.21)") выскакивает "Ошибка порядка записи XML", даже если выгржаю только справочники. Поставила, чтобы опеределились объекты, выгржаемые по ссылке, но все равно... Почему это может быть?

Вопрос № 149.665

Уважаемые эксперты, помогите! Торговля и Склад-7.70-026-944. Отчет "Ведомость по контрагентам". В строке "ИТОГО" выводит сальдо долгов. Как сделать, чтобы в любом случае выводилось суммирование по каждому столбцу: и "Долг наш". и "Долг контрагента"? Спасибо

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

Отвечает: Владимир Лазурко Здравствуйте, VladimirNick! Можно решить, добавив 2 переменные, например: ДолгНаш и ДолгКонтрагента. Затем в цикле вывода ячеек когда будет выводиться ячейка с нашим долгом - добавлять его к переменной ДолгНаш, когда будет выводиться ячейка с долгом контрагента - добавлять его к переменной ДолгКонтрагента. Затем при выводе итоговой ячейки вывести и значения переменных. Если у Вас ведомость сразу по нескольким контрагентам, то эти переменные обнулять перед каждым циклом вывода строк ведомости. Примерная схема в Приложении. Успехов! С уважением, Владимир. Приложение: Пока Запрос.Группировка("Контрагент")=1 Цикл ДолгНаш = 0; ДолгКонтрагента = 0; ... Пока Запрос.Группировка("Документ")=1 Цикл ... КонецЦикла; //Запрос.Группировка("Документ")=1 ... КонецЦикла; //Запрос.Группировка("Контрагент")=1

Ответ отправил: Владимир Лазурко (статус: Студент) Ответ отправлен: 06.11.2008, 18:44 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 234599 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: Спасибо за практически мгновенный ответ! Принцип понятен. Буду пробовать реализовать его на практике

Вопрос № 149.746

Уважаемые эксперты. Подскажите, пожалуйста, как из 1С V7 прочитать таблицу из mdb-базы. Если можно- с примером или со ссылкой на пример.

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

Отвечает: Владимир Лазурко Здравствуйте, Мазаев Александр Иванович! Задача редкая, но в порсторах поисковиков встречается. Ссылка на страницу поиска. Вот, по-моему, самое подробное (и единственное для 7.7) описание: infostart.ru. Здесь описывается внешняя компонента, которая читает произвольную структурированную таблицу, пример для MDB. Прямая ссылка на скачивание компоненты на странице и здесь. Вот еще: 1С:Предприятие 8.0 . здесь тоже 8.1 Успехов! С уважением, Владимир.

Ответ отправил: Владимир Лазурко (статус: Студент) Ответ отправлен: 07.11.2008, 10:15 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 234657 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: Большое спасибо за полный и содержательный ответ. Буду разбираться

Отвечает: Губа Андрей Викторович Здравствуйте, Мазаев Александр Иванович! Прочитать таблицы можно используя механизм ADODB, пример ниже в приложении Приложение: //******************************************* Процедура Сформировать() ИмяФ="D:Мои документыDB.mdb"; //Путь к базе данных Access ТЗ=СоздатьОбъект("ТаблицаЗначений");//Результат Если (ПустоеЗначение(ИмяФ)=1)ИЛИ(ФС.СуществуетФайл(ИмяФ)=0) Тогда Возврат; КонецЕсли; //Соединяемся Obj=CreateObject("ADODB.Connection"); ConnectionString="Provider=Microsoft.ACE.OLEDB.12.0;Data Source="+ИмяФ+";Persist Security Info=False"; Try Obj.Open(ConnectionString); Except message("No connection..."); return; EndTry; //Выполняем запрос Cmd=CreateObject("ADODB.Command"); Cmd.ActiveConnection=Obj; Cmd.CommandText="SELECT * FROM Задачи"; //Задачи - название таблицы в Access //Получаем данные RS=CreateObject("ADODB.RecordSet"); RS=Cmd.Execute; For i=0 To RS.Fields.Count()-1 Do Name=RS.Fields(i).Name; Попытка ТЗ.НоваяКолонка(Name); Исключение ТЗ.НоваяКолонка("_"+String(i),,,,Name) КонецПопытки; EndDo; RS.MoveFirst(); While RS.EOF=0 Do ТЗ.НоваяСтрока();ТекСтр=ТЗ.КоличествоСтрок(); For i=0 To RS.Fields.Count()-1 Do ТЗ.УстановитьЗначение(ТекСтр,i+1,RS.Fields(i).Value); EndDo; RS.MoveNext(); EndDo; КонецПроцедуры

Ответ отправил: Губа Андрей Викторович (статус: 1-й класс) Ответ отправлен: 07.11.2008, 12:47 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 234675 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: Благолдарю за хороший пример, это то, что мне надо

Отвечает: Майданюк, Василий, Викторович Здравствуйте, Мазаев Александр Иванович! Как раз текст передо мной Приложение: ConnectString = " |Provider=Microsoft.Jet.OLEDB.4.0; |User ID=Admin; |Data Source=" + СокрЛП(КаталогКуда) + "" + глИмяБазы+ "; |Mode=Read; |Extended Properties=""""; |Jet OLEDB:System database=""""; |Jet OLEDB:Registry Path=""""; |Jet OLEDB:Engine Type=5; |Jet OLEDB:Database Locking Mode=0; |Jet OLEDB:Global Partial Bulk Ops=2; |Jet OLEDB:Global Bulk Transactions=1; |Jet OLEDB:Create System Database=False; |Jet OLEDB:Encrypt Database=False; |Jet OLEDB:Don't Copy Locale on Compact=False; |Jet OLEDB:Compact Without Replica Repair=False; |Jet OLEDB:SFP=False"; Соединение=CreateObject("ADODB.Connection"); Соединение.ConnectionTimeOut=600; // Попытаемся соединиться с базой данных Попытка Соединение.Open(ConnectString); Исключение Предупреждение("Не удалось соединиться с базой данных!"); Сообщить(ОписаниеОшибки()); Возврат; КонецПопытки; // сформируем текст запроса Состояние(" Ждите .... Идет обработка базы данных"); ТекстЗапроса = "SELECT // собственно текст запроса |"; ТаблЗнач = СоздатьОбъект("ТаблицаЗначений"); // Подготовим вызов запроса на языке SQL Cmd = СоздатьОбъект("ADODB.Command"); Rs = СоздатьОбъект("ADODB.RecordSet"); Cmd.ActiveConnection = Соединение; Cmd.CommandTimeOut = 600; Cmd.CommandType = 1;//запрос на языке SQL Cmd.Commandtext = СокрЛП(ТекстЗапроса); Попытка Rs.ActiveConnection = Соединение; //Rs.Open("SET NOCOUNT ON"); Rs = Cmd.Execute(); Исключение Сообщить(ОписаниеОшибки()); Возврат; КонецПопытки; КоличествоПолей = Rs.Fields.Count(); Для i = 1 по КоличествоПолей Цикл ИмяКолонки = Rs.Fields(i-1).Name; ТаблЗнач.НоваяКолонка(ИмяКолонки, "Дата", , , ); Попытка Пока Rs.EOF() = 0 Цикл Стр = ТаблЗнач.НоваяСтрока(); Состояние(ТаблЗнач.НомерСтроки); Для i = 0 по КоличествоПолей-1 Цикл ТаблЗнач.УстановитьЗначение(Стр, i + 1, Rs.Fields(i).Value); КонецЦикла; Rs.MoveNext(); Состояние("Формируется запись №" + ТаблЗнач.НомерСтроки); КонецЦикла; Исключение Сообщить(ОписаниеОшибки()); Возврат; КонецПопытки; // Закроем соединение Rs.Close(); Соединение.Close();

Ответ отправил: Майданюк, Василий, Викторович (статус: 1-й класс) Ответ отправлен: 07.11.2008, 18:24 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 234715 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: Благолдарю за хороший пример, это то, что мне надо

Вопрос № 149.758

Добрый день. Подскажите,если это возможно, как задать нумерацию листов из кода программы.

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

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

Ответ отправил: Костюк Игорь Викторович (статус: 1-й класс) Ответ отправлен: 07.11.2008, 11:36 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 234669 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Отвечает: Владимир Лазурко Здравствуйте, ДАС Алекс! Я дополню и расширю ответ Костюк Игоря Викторовича. Указанные им коды - это: © Цитата: #T при печати в данном месте будет вставлено время печати документа #D при печати в данном месте будет вставлена дата печати документа #P при печати в данном месте будет вставлен номер страницы документа #Q при печати в данном месте будет вставлено число - общее количество страниц документа В текст колонтитула может быть включено выражение на встроенном языке системы 1С:Предприятие, заключенное в квадратные скобки. Выражение вычисляется при формировании документа и его результат помещается в текст колонтитула. 1С:Предприятие, версия 7.7. (c) 1996-1999, Фирма "1С " Замечу, что код показа общего количества страниц #Q доступен начиная с 27 релиза платформы. Также в релизе 7.70.027 существует возможность вывода текста ячеек и рисунков под произвольным углом. Для обеспечения этой возможности используется свойство "Ориентация" в палитре свойств на закладке "Положение", в котором указывается угол наклона текста в градусах. Теперь что касается программного вычисления количества страниц. Это зависит от каждой конкретной таблицы и высоты её ячеек. Например, документ содержит шапку (с описанием реквизитов и заголовок таблицы), которая всегда фиксированной высоты, строки (которые могут менять высоту или быть фиксированной высоты) и дно таблицы (обычно это итоговые ячейки, подписи и т.д.) которое тоже фиксированной высоты. Зная высоту ячеек (её видно в строке состояния при растягивании ячейки мышкой или замерять линейкой отпечатанный документ), высоту котлонтитулов и отст упов от края листа можно примерно или точно высчитать количество страниц. Например, в документе есть 100 строк, высота строки в печатной форме 0,7 см, высота шапки 5 см, отступы от края листа сверху и снизу 10 мм, высота дна 3 см, лист формата А4 (210*297 мм) портретной ориентации (высота 297 мм). Имеем уравнение: количество поместившихся строк на листе = (297 - отступ_сверху - отступ_снизу - высоту_шапки_документа - высоту_дна) / высоту_строки = 197 / 7 = 28,15 строк. Т.е. если на первой странице не помещаются все строки и дно, то у нас освобождается еще 30 мм и на первой странице поместится (197+30) / 7 = 32,43 строки. Осталось вычислить сколько страниц занимают оставшиеся 68 строк и дно: 68*7 + 30 = 506 мм. Выходит, что на 2-й странице с учетом отступов от края листа поместится еще 39 строк ((297-10-10) / 7 = 39,58), и останется 100-32-39 = 29 строк, которые вместе с дном поместятся на 3-м листе (29*7+30=233 мм). Таким образом еще до фор мирования печатной формы мы вычислим, на сколько страниц поместится наша накладная, и это можно указать где-нибудь в шапке документа. Это конечно, сложнее, чем в 27 релизе вывод в колонтитуле количества страниц по команде #Q, но если есть необходимость программно вычислить количество листов не формируя печатную форму или не печатая документ - это лучший способ. Естественно, можно на каждой странице повторять заголовок таблицы, который мы в расчет не брали, и программно вставлять разрыв страниц, чтобы, например, на последней странице "не болталась" одна строка. Успехов! С уважением, Владимир.

Ответ отправил: Владимир Лазурко (статус: Студент) Ответ отправлен: 07.11.2008, 16:37 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 234703 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

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