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

Выпуск № 535
от 02.07.2007, 13:05

Вопрос № 92.971

Добрый день Эксперты.Есть вопросик:бухгалтер работает в 1С на ноуте HP NX6110 <EK201EA> CM-370J (1.5GHz) 15"TFT, 256MB, 40GB, DVDRW DL, 56K, 10/100,2 USB.В последнее время периодически стало появляться сообщение об ошибке(см.приложение),после программа автоматом закрывалась.С чем это может быть связано? Приложение: AppName: 1cv7.exe AppVer: 7.70.0.25 ModName: mfc42.dll ModVer: 6.2.4131.0 Offset: 0000497d

Отправлен: 26.06.2007, 15:03 Вопрос задал: Alex81 (статус: 1-ый класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Elric Здравствуйте, Alex81! Ни о чем конкретном такое сообщение об ошибке не говорит. Рекомендации: 1. Переустановите релиз программы. 2. Проведите "Тестирование и исправление" базы данных. --------- Мирный атом в КАЖДЫЙ дом!

Ответ отправил: Elric (статус: Специалист) Ответ отправлен: 26.06.2007, 15:22 Оценка за ответ: 5 Комментарий оценки: Благодарю за участие!"Тестирование и исправление БД", как мне кажется результатов не принесет:пользователь работает с базой по сети - другие юзеры тоже работают в этй БД - все нормально!

Отвечает: Dmitry Stashenko Здравствуйте, Alex81! Может попробовать качнуть версию длл-ки новее? Отсюда например Ссылка [И. К. Цикалов] , или еще откуда

Ответ отправил: Dmitry Stashenko (статус: 5-ый класс) Ответ отправлен: 26.06.2007, 20:31 Оценка за ответ: 5 Комментарий оценки: Спасибо за идею - длл-ку скачал но пока не скинул - буду пробовать.Хотя думаю может всетаки памяти не хватает - всетаки 256мб. не густо!

Вопрос № 92.997

Доброе время суток, эксперты! 1С работает на терминальном сервере! Вопрос такой, стоит ли писать обработку по переносу данных из ТиС в УСН через OLE. И будет ли она работать на компьютере клиента или только на сервере. (У клиента полный доступ к серверу терминалов). Заранее благодарю!

Отправлен: 26.06.2007, 20:54 Вопрос задал: V lad (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Дмитрий Васильевич Здравствуйте, V lad! Во первых есть стандартная обработка переноса через xml(CT92_U13.ERT находиться в extforms торговли) Перенос через OLE будеть работать если можно запустить две базы одновременно(принцип OLE из одной базы запускаем другую). Соответственно если с компьютера клиента работает с 1с через терминал то имеет доступ к двум базам, должно быть все рабочее.

Ответ отправил: Дмитрий Васильевич (статус: 1-ый класс) Ответ отправлен: 27.06.2007, 00:14 Оценка за ответ: 5 Комментарий оценки: Спасибо! Да я знаю про эту разработку, но надо преносить определенные документы ПКО и то не все!

Отвечает: Dmitry Stashenko Здравствуйте, V lad! Обработка переноса через ОЛЕ работать будет везде, ей лишь бы базу вторую подключить, и поехали. Прежде чем писать свою, скачай какую-нибудь готовую обработку, коих многое множество, чтоб оценить преимущества и недостатки переноса через ОЛЕ. А может и писать не стоит, готовая может подойдет полностью

Ответ отправил: Dmitry Stashenko (статус: 5-ый класс) Ответ отправлен: 27.06.2007, 11:51 Оценка за ответ: 5 Комментарий оценки: Спасибо, все отлично получилось!

Отвечает: Ovr1970 Здравствуйте, V lad! Если 1С работает только на терминальном сервере (хотя бы одна из БД), то обработку можно будет запустить только на терминальном сервере. Обработку писать стоит только в с лучае частого к ней обращения (более 1 раза в сутки) и малого количества данных для переноса (несколько сотен записей), в ином случае лучше воспользоваться промежуточным файлом (т.е. экспорт из одной БД и импорт из другой), т.к. это работает в десятки или даже сотни раз быстрее. (Затраты на два запуска с лихвой окупятся экономией на времени работы обработок)

Ответ отправил: Ovr1970 (статус: Практикант) Ответ отправлен: 28.06.2007, 15:18 Оценка за ответ: 5 Комментарий оценки: Спасибо все отлично получилось! Да, бухгалтер теперь каждый вечер переносит в УСН ПКО, определенного вида, и все это занимает 5 минут (а раньше часа два)!

Вопрос № 93.041

Задача: Перенумеровать документы определенного вида, т.е. сделать чтобы нумерация шла по порядку, допустим с номера 1. Вопросы: 1. Какие существуют способы? 2. Как предусмотреть зависимости документов? 3. В чем недостатки моей обработки (приложение)? Приложение: Перем Счетчик; Процедура Сформировать() Счетчик=1; Авансовый = СоздатьОбъект("Документ.АвансовыйОтчет"); Авансовый.ОбратныйПорядок(0); Авансовый.ВыбратьДокументы(); Пока Авансовый.ПолучитьДокумент() = 1 Цикл ТекДок = Авансовый.ТекущийДокумент(); ВремяДок = ТекДок.ПолучитьВремя(); Если ТекДок.Проведен() = 1 Тогда Авансовый.СделатьНеПроведенным(); КонецЕсли; Авансовый.НомерДок = Строка(Счетчик); Авансовый.Записать(); Счетчик = Счетчик + 1; КонецЦикла; КонецПроцедуры

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

Отвечает: IUnknown Здравствуйте, en_route! 1. Способ только один перебором по документам. 2. Не совсем ясно за зависимости. Но если вы об сылочной целосности, то в 1С она идет по ИДу объекта. А ИД объекта независит от кода или наименования. 3. Недостаток один и причем может вылезти в большую лажу. Не надо отменять проведение проведенных документов. Во первых вырастет скорость обработки. Во вторых не получишь под зад от бухгалтеров которым надо будет вспоминать какие авансы были проведенены а какие нет. --------- я не специалист

Ответ отправил: IUnknown (статус: Студент) Ответ отправлен: 27.06.2007, 09:25 Оценка за ответ: 5 Комментарий оценки: Понятно

Отвечает: Дмитрий Васильевич Здравствуйте, en_route! Сначала надо перенумеровать с каким либо префиксом, чтобы не возникало ошибки "Номер не уникален",а потом обычная нумерация, ну и не надо перепроводить. Приложение: Док = СоздатьОбъект("Документ.АвансовыйОтчет"); Док.ВыбратьДокументы(НачДата, КонДата); Пока Док.ПолучитьДокумент() = 1 Цикл Док.УстановитьНовыйНомер("а"); Док.Записать(); КонецЦикла; Док.ВыбратьДокументы(НачДата, КонДата); Пока Док.ПолучитьДокумент() = 1 Цикл Док.УстановитьНовыйНомер(); Док.Записать(); КонецЦикла;

Ответ отправил: Дмитрий Васильевич (статус: 1-ый класс) Ответ отправлен: 27.06.2007, 09:31 Оценка за ответ: 5 Комментарий оценки: Спасибо за дополнение

Отвечает: Vovchai Здравствуйте, en_route! Я бы не стал изобретать велик с перенумерацией. На диске ИТС есть (да и в тырнете тоже можно найти) универасльные обработки UChoice.ert и UCRefRen.ert, с помощью них можно перенумеровать

Ответ отправил: Vovchai (статус: 3-ий класс) Ответ отправлен: 27.06.2007, 09:44 Оценка за ответ: 5 Комментарий оценки: Очень хорошо. И еще как я понял есть UCDocRen.ert для документов, не понял как ими пользоваться. Прошу на мини-форум!

Отвечает: Краюшкин Игорь Валерьевич Здравствуйте, en_route! Еще один недостаток... Судя по преобразованию: Авансовый.НомерДок = Строка(Счетчик); номер документа у Вас имеет текстовый тип. Таким образом, после перенумерации, при создании нового документа у Вас всегда будет выскакивать номер нового документа "9". Его всегда придется менять в ручную. Чтобы этого не произошло документы должны иметь номера "000001, 000002" и т.д. (количество нулей зависит от длины номера документа, заданного в конфигураторе).

Ответ отправил: Краюшкин Игорь Валерьевич (статус: 9-ый класс) Ответ отправлен: 27.06.2007, 12:01 Оценка за ответ: 5 Комментарий оценки: Покорнейше благодарю, очень ценное замечание!

Отвечает: Dmitry Stashenko Здравствуйте, en_route! Да в принципе, так это и делается, как у тебя. В цикле выбираются документы, меняется номер, документ записывается. Только зачем ты отменяешь проведение? Так нужно? И коль уже присваиваешь ТекущийДокумент() переменной ТекДок, тогда и работай с ТекДок, а не с Авансовый.( в смысле ТекДок.СделатьНеПроведенным(), ТекДок.НомерДок, ТекДок.Записать() и т.д.) И какие зависимости документов надо предусмотреть? Типа, родитель-подчинение? Это будет автоматом.

Ответ отправил: Dmitry Stashenko (статус: 5-ый класс) Ответ отправлен: 27.06.2007, 12:04 Оценка за ответ: 5 Комментарий оценки: Я и хотел сначала работать с ТекДок, но обработка вставала на этих методах с сообщением "Документ не выбран". Посмотрел как делается подобное обращение в станд конфе и повторил.

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

Ответ отправил: Нестеров Д. В. (статус: 4-ый класс) Ответ отправлен: 27.06.2007, 16:49 Оценка за ответ: 5 Комментарий оценки: priboy_06@mail.ru, буду признателен

Отвечает: Ромашов Евгений Николаевич Здравствуйте, en_route! для чего документы распроваживать? это не обязательно, можно просто новый номер присвоить и записать. Есть еще проблема, если документы перенумеруются за достаточно большой период, то может возникнуть ситуация когда номера совпадут и тогда обработка выдаст сбой. я обычно делаю так 1 этап перенумерую документы начиная например с номера 10000 2 этап потом с требуемого номера при этом есть гарантия что двойных номеров не будет, т если использовать Записать() все достаточно быстро работает

Ответ отправил: Ромашов Евгений Николаевич (статус: 2-ой класс) Ответ отправлен: 28.06.2007, 05:10

Отвечает: Ovr1970 Здравствуйте, en_route! 1.Способ только один - написать обработку 2. Какие зависимости? Зачем их предусматривать? 3. Вы не должны (не должны!) распроводить документ, для изменения его номера. Достаточно его изменить и записать. У Вас не используется транзакция, с транзакцией обработка отработает значительно быстрее. Если у документов включена уникальность номеров - обработка может вызвать исключение. Желательно перед обработкой отключить уникальность, а после обработки включить. Я бы просто выбрал документы в список, а потом обработал список, записывая новые номера, согласно индекса цикла по списку.

Ответ отправил: Ovr1970 (статус: Практикант) Ответ отправлен: 28.06.2007, 15:30

Вопрос № 93.049

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

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

Отвечает: Nikakoy Мало информации... Нужны все виды переносимых документов.... Наверняка выгружается неполный комплект... А по хорошему, то для расходных документов лучше отключить выгрузку партий. Пусть при восстановлении последовательности берут по порядку...

Ответ отправил: Nikakoy (статус: 1-ый класс) Ответ отправлен: 27.06.2007, 12:06

Отвечает: Palkin Здравствуйте, Grom48! Реквизит Партия имеет тип Справочник.Партии, элементы которого создаются при проведении приходных документов. Этот справочник имеет реквизит ПриходныйДокумент, который и является определящим содержание колонки табличной части Партия. Скорее всего при переносе документов реквизит Партия заполняется какой-то партией с пустым реквизитом ПриходныйДокумент. В колонке табличной части Партия проставляется текст партии, который определяет функция глобального модуля глПредставлениеПартии(Партия). В ней определяется пустое ли значение реквизита Партия, и если да возвращается "<автоподбор>", если нет - то значение реквизита ПриходныйДокумент справочника партий. Вот и Вы пишите, что при выгрузке в ТЗ Партия у вас не пустой реквизит. По Вашему варианту (перебор документов и замена партий): Если ПустоеЗначение(ТЗ.Партии.ПриходныйДокумент) = 1 Тогда ...... А вообще рекомендую разобраться с кодом обработки переноса Удачи!

Ответ отправил: Palkin (статус: 5-ый класс) Ответ отправлен: 27.06.2007, 12:34

Отвечает: Dmitry Stashenko Здравствуйте, Grom48! А зачем выгружать в ТЗ, потом заполнять ТЗ и загружать ее снова? Не легче сразу выбирать строки документа? Например, так: Докум = СоздатьОбъект("Документ.ВозвратПоставщику"); Докум.ВыбратьДокументы(); Пока Докум.ПолучитьДокумент() = 1 Цикл Докум.ВыбратьСтроки(); Пока Докум.ПолучитьСтроку() = 1 Цикл Если ПустоеЗначение(Докум.Партия) = 1 Тогда Докум.Партия = ПолучитьПустоеЗначение("Справочник.Партии"); КонецЕсли; КонецЦикла; Докум.Записать(); КонецЦикла; Кстати, интересно, чем заполнено поле ТЗ.Партия при выгрузке табличной части?

Ответ отправил: Dmitry Stashenko (статус: 5-ый класс) Ответ отправлен: 27.06.2007, 12:34

Вопрос № 93.050

Уважаемые эксперты, помогите разобраться... В трех словах: проблема приватности баз 1С (dbf) решена на моем предприятии следующим, достаточно простым, но распространенным способом - раздел харда зашифрован средствами проги типа BestCrypte; и все прекрасно работает - несколько пользователей по сети работают с базами, а в случае необходимости reboot, и без пароля данные недоступны. Только одна сложность - после ребута приходится заново прописывать разрешения из контекстного меню шары - sharing - permissions. Вообщем-то понятно - файловый сервер является частью домена (кстати, и контроллером домена тоже), и на момент входа в домен каталогов с базами не существует - они становятся прозрачными позже, после ввода пароля. Эта тема уже поднималась мной; из ответов я понял, что подобный путь защиты приватности нередок.... по крайней мере, в России. Поделитесь опытом - как увязать разрешения шар в домене и шифрование разделов?

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

Отвечает: Vovchai Здравствуйте, Aleksejsmir! как вариант можно использовать батник, в котором первым делом расшаривается ресурс, а потом запускается BestCrypte навскидку: net share 1CBase=E:Base /REMARK:"База" /UNLIMITED "%PROGRAMFILES%"ПутьКБЕстКриптуБесткрипт.exe /ключи

Ответ отправил: Vovchai (статус: 3-ий класс) Ответ отправлен: 27.06.2007, 10:42

Вопрос № 93.058

Здравствуйте уважаемые эксперты!!! Помогите пожалуйста, в обработке с список значений ( представленный элементом диалога) добавляться документы, хочу чтоб из этого списка можно было просмотреть(открыть) документ как из журнала, как это сделать. Версия 7.7.

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

Отвечает: DERL.KG Здравствуйте, PaTiFoN! допустим Спис это у вас СписокЗначений в виде элемента на форме для него в формуле добавляем обработчик к примеру ОткрФорму() в модуле добавляем эту процедуру: Процедура ОткрФорму() Док = Спис.ПолучитьЗначение(Спис.ТекущаяСтрока()); ОткрытьФорму(Док); КонецПроцедуры значение в списке должно быть типа Документ, т.е. когда вы добавляете в список должно быть что то вроде Спис.ДобавитьЗначение(Док.ТекущийДокумент());

Ответ отправил: DERL.KG (статус: 3-ий класс) Ответ отправлен: 27.06.2007, 11:51 Оценка за ответ: 5 Комментарий оценки: Спасибо. Все получилось!!!

Отвечает: IUnknown Здравствуйте, PaTiFoN! В свойствах списка значений, того что на форме, на вкладке дополнительно в формулу пишем ОткрытьДокумент(); В модуль самой обраобки добавляем следующую функцию: Приложение: функция ОткрытьДокумент() если сзНаФорме.РазмерСписка() > 0 тогда Значение = сзНаФорме.ПолучитьЗначение(сзНаФорме.ТекущаяСтрока()); открытьформу(Значение, , 1); конецесли; конецфункции // если надо открывать форму и для редактирования тогда "открытьформу(Значение, , 0);" --------- я не специалист

Ответ отправил: IUnknown (статус: Студент) Ответ отправлен: 27.06.2007, 12:08 Оценка за ответ: 5 Комментарий оценки: Спасибо. Все получилось!!!

Отвечает: Dmitry Stashenko Здравствуйте, PaTiFoN! Делается это следующим образом: на элемент формы СписокЗначений вешается процедура ОбрСпЗнач(). Это надеюсь знаешь как сделать. Предполагаем, что идентификатор реквизита СпискаЗначений - СпЗнач. И еще, при заполнении СпискаЗначений ОБЯЗАТЕЛЬНО нужно добавлять сам документ, а не его текстовое представление. То есть СпЗнач.ДобавитьЗначение(ТекущийДокумент()), и ни как не СпЗнач.ДобавитьЗначение(Строка(ТекущийДокумнет())) или еще как-нибудь Удачи Приложение: Процедура ОбрСпЗнач() ОткрытьФорму(СпЗнач.ПолучитьЗначение(СпЗнач.ТекущаяСтрока())); КонецПроцедуры

Ответ отправил: Dmitry Stashenko (статус: 5-ый класс) Ответ отправлен: 27.06.2007, 12:56 Оценка за ответ: 5 Комментарий оценки: Спасибо. Все получилось!!!

Отвечает: Ромашов Евгений Николаевич Здравствуйте, PaTiFoN! В свойствах списка укажи процедуру обработки, в ней проверка на текущуюстроку, и по ней выбираешь значение, а потом открытьформу()

Ответ отправил: Ромашов Евгений Николаевич (статус: 2-ой класс) Ответ отправлен: 28.06.2007, 05:03 Оценка за ответ: 4 Комментарий оценки: Спасибо!!!

Отвечает: Николай Александрович Здравствуйте, PaTiFoN! Вобщем то все предыдущие ответы правильные, за исключением одного момента... открывать документ надо как при выборе из списка или отдельно... все предыдущие ответы открывают документ при выборе из списка, а если надо открыть документ в любой момент, тогда следующее: рядом со списком справа на форму выносишь кнопку.... и вешаешь на кнопку следующую процедуру: Процедура ОткрытьДокИзСписка() ОткрытьФорму(СП.ПолучитьЗначение(СП.ТекущаяСтрока())); КонецПроцедуры

Ответ отправил: Николай Александрович (статус: 2-ой класс) Ответ отправлен: 30.06.2007, 17:17 Оценка за ответ: 5 Комментарий оценки: Спасибо

Вопрос № 93.065

Здравствуйте уважаемые эксперты! У меня возникла небольшая проблема с выгрузкой данных в .dbf. Если у меня есть шаблон .dbf, то все данные записываются, а вот если нет шаблона и я создаю его программно, файл то создается, но вот данные туда не попадают, файл открывается, присвоение идет, а данных нет. Подскажите, что я делаю не так. 1с 7.7. В приложение сокращенный код программы. Заранее спасибо. Приложение: процедура СоздатьФайл() дбф = СоздатьОбъект("XBase"); Путь = "D:EXPMEN.dbf"; дбф.ДобавитьПоле("DOC_NUM","строка",10,0); дбф.ДобавитьПоле("DOC_DATE","дата",0,0); дбф.СоздатьФайл("D:EXPMEN.dbf"); конецпроцедуры процедура Выгрузка() дбф = СоздатьОбъект("XBase"); контр = СоздатьОбъект("Справочник.Контрагенты"); док = СоздатьОбъект("Документ.ПлатежноеПоручениеНов"); Путь = "D:EXPMEN.dbf"; Если ФС.СуществуетФайл(Путь) = 0 Тогда СоздатьФайл(); КонецЕсли; ДБФ.ОткрытьФайл(Путь); ДБФ.ОчиститьФайл(); док.ВыбратьДокументы(НачДата,КонДата); пока док.ПолучитьДокумент()=1 цикл ДБФ.Добавить(); ДБФ.DOC_NUM=Док.НомерДок; ДБФ.DOC_DATE=Док.ДатаДок; ДБФ.Записать(); конеццикла; Если ДБФ.КоличествоЗаписей() > 0 Тогда ДБФ.ЗакрытьФайл(); КонецЕсли; конецпроцедуры

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

Отвечает: Андрей Тимофеев Здравствуйте, MaShI! В процедуре "СоздатьФайл" вначале создавайте файл, а затем уже в нем поля. Удачи!

Ответ отправил: Андрей Тимофеев (статус: 4-ый класс) Ответ отправлен: 27.06.2007, 12:23

Отвечает: Palkin Здравствуйте, MaShI! Ошибка в определении типа поля при добавлении. Вместо "строка" - 2 либо "S", вместо "дата" - 3 либо "D". Допустимые значения параметра <Тип>: 1 или "N" - число 2 или "S" - строка 3 или "D" - дата 4 или "L" - логическое 5 или "F" - то же, что и 1, т.е. число 6 или "M" - memo (не поддерживается)

Ответ отправил: Palkin (статус: 5-ый класс) Ответ отправлен: 27.06.2007, 13:08 Оценка за ответ: 5 Комментарий оценки: Спасибо Вам огромное. все получилось и отлично работает.

Отвечает: Dmitry Stashenko Здравствуйте, MaShI! Проблема в дбф.ДобавитьПоле(). Не понимает 1С в дбф типы данных вида "строка", "дата", "число" и т.д. Они должны быть такими: дата - "D", число - "N", строка - "S", логическое значение - "L". То есть должно быть не ДобавитьПоле("DOC_NUM","строка",10,0), а ДобавитьПоле("DOC_NUM","S",10,0) Удачи

Ответ отправил: Dmitry Stashenko (статус: 5-ый класс) Ответ отправлен: 27.06.2007, 14:59 Оценка за ответ: 5 Комментарий оценки: Спасибо.

Отвечает: Nikakoy Здравствуйте, MaShI! Скорее всего дело в неправильном объявлении типа поля. стр 886 Описания встроенного языка ч.2 <Название> Строковое выражение — имя создаваемого поля. <Тип> Строковое или числовое выражение — тип создаваемого поля. Допустимые значения: 1 или 'N' — число; 2 или 'S' — строка; 3 или 'D' — дата; 4 или 'L' — логическое; 5 или 'F'—то же, что и 1, т.е. число; 6 или 'М'— memo (не поддерживается).

Ответ отправил: Nikakoy (статус: 1-ый класс) Ответ отправлен: 27.06.2007, 15:19 Оценка за ответ: 5 Комментарий оценки: Спасибо.

Отвечает: Strawberry Здравствуйте, MaShI! дбф = СоздатьОбъект("XBase"); дбф.ДобавитьПоле("DOC_NUM","строка",10,0); дбф.ДобавитьПоле("DOC_DATE","дата",0,0); дбф.СоздатьФайл("D:EXPMEN.dbf"); Путь = "D:EXPMEN.dbf"; ДБФ.СоздатьФайл(Путь); Если ДБФ.Открыта()=0 Тогда ДБФ.ОткрытьФайл(ИмяФайла); Сообщить("Базу Открыли"); КонецЕсли; ДБФ.Очистить(); контр = СоздатьОбъект("Справочник.Контрагенты"); док = СоздатьОбъект("Документ.ПлатежноеПоручениеНов"); док.ВыбратьДокументы(НачДата,КонДата); пока док.ПолучитьДокумент()=1 цикл ДБФ.Добавить(); ДБФ.DOC_NUM=Док.НомерДок; ДБФ.DOC_DATE=Док.ДатаДок; ДБФ.Записать(); конеццикла; Если ДБФ.КоличествоЗаписей() > 0 Тогда ДБФ.ЗакрытьФайл(); КонецЕсли; --------- Мальчик-извращенец прочел деду Морозу с табуретки всего Пастернака!

Ответ отправил: Strawberry (статус: 8-ой класс) Ответ отправлен: 27.06.2007, 15:45

Отвечает: ATan Здравствуйте, MaShI! В строчке дбф.ДобавитьПоле("DOC_NUM","строка",10,0); - неверно указан тип для dbf задается не тип "строка", а тип "S" или 2. Правильно будет так: дбф.ДобавитьПоле("DOC_NUM","S",10,0); или так дбф.ДобавитьПоле("DOC_NUM",2,10,0); Остальные типы смотри в приложении. Удачи. Приложение: N или 1 - число S или 2 - строка D или 3 - дата L или 4 - логическое F или 5 - число M или 6 - memo

Ответ отправил: ATan (статус: 4-ый класс) Ответ отправлен: 27.06.2007, 15:57

Отвечает: Ромашов Евгений Николаевич Здравствуйте, MaShI! Попробуй в процедуре создатьфайл в конце добавить дбв.ЗакрытьФайл()

Ответ отправил: Ромашов Евгений Николаевич (статус: 2-ой класс) Ответ отправлен: 28.06.2007, 04:59

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