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

Выпуск № 659
от 25.11.2007, 05:05

Вопрос № 110.091

Доброго времени суток. Подскажите пожалуйста как при создании dbf файла сделать имя больше 8 символов, и как сделать файл индекса к этому файлу. Если можно в виде примера. Заранее благодарен.

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

Отвечает: Игорь К. Здравствуйте, Шмачков А. В.! Работать с dbf имеющим длинное имя файла вряд-ли получится. Есть альтернатива. Хранить данные - любое имя файла - ДлинноеИмяФайлаDBF Перед использованием переименовывать в формат 8.3 - Например: ДБФ = СоздатьОбъект("XBase"); ДлинноеИмяФайлаDBF="ДлинноеИмяФайлаDBF"; ИмяРабочее="StdFile.dbf"; ИмяИндекс="StdFile.cdx"; ФС.ПереименоватьФайл(ДлинноеИмяФайлаDBF, ИмяРабочее,1); ДБФ.ОткрытьФайл(ИмяРабочее,"",0); Если ДБФ.Открыта()=1 Тогда ДБФ.ДобавитьИндекс("FIRST","STR(POLE1)+STR(POLE2)",0,0,""); ДБФ.СоздатьИндексныйФайл(ИмяИндекс); ДБФ.ЗакрытьФайл(); КонецЕсли; ДБФ.ОткрытьФайл(ИмяРабочее,ИмяИндекс,1); ДБФ.ТекущийИндекс("FIRST"); Если ДБФ.Открыта()=1 Тогда и т.д. работаем. в конце: ДБФ.ЗакрытьФайл(); и опять переименовываем ФС.ПереименоватьФайл(ИмяРабочее,ДлинноеИмяФайлаDBF,1); Приложение: --------- Если хорошенько подумать, - можно разобраться в чем угодно. Даже в устройстве летающей тарелки.

Ответ отправил: Игорь К. (статус: 5-ый класс) Ответ отправлен: 20.11.2007, 16:11

Вопрос № 110.093

Здравствуйте уважаемые эксперты! Бухгалтерия 7.7 (типовая). Скажите пожалуйста - кто как реализует чтобы можно было выводить отчет долги по покупателями и поставщикам (сч.60, 62) в разрезе конкретных счетов-фактур. Вариант завести по этим счетам 3-ье субконто (счет-фактура) пропускаем...

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

Отвечает: ВладИС Здравствуйте, Darina! Вопрос сложный. Сначала ответьте - всегда ли оплата может быть разнесена по конкретным счетам-фактурам? А если клиент платит просто сумму, говоря, что его не интересует, на какие счета-фактуры мы будем списывать? А если клиент платит авансом, потом бухгалтерия в конце месяца разносит несколько счетов-фактур от него, кто будет разбрасывать оплату по счетам-фактурам? А если, предположим, ваша бухгалтерия разбрасывает оплаты по принципу FIFO, погашая самые старые долги, а потом клиент приходит и говорит, что он платил за конкретную накладную, иначе у него со сбытом проблемы начнутся? То есть, сначала решите административные вопросы, а уж потом - технические. Технически я бы предложил такие решение: каждая счет-фактура, это договор. Можно даже сделать, что бы эти договора заводились автоматически и у контрагента был признак - делить взаиморасчеты по счетам-фактурам, или нет. Тогда переделывать достаточно будет только документы, по которым долг может возникнуть, а все оплаты, взаимозачеты будут оформляться штатными методами. И не надо будет делать отчеты - все бухгалтерия увидит в оборотке. В первое время, что бы не влазить глубоко в доработку конфигурации, можно заставить бухгалтерию вручную заводить договора по счетам-фактурам. Пусть на своем опыте попробуют, нужна ли им на самом деле разбивка долгов по счетам-фактурам, или от нее больше проблем, чем пользы. Есть, конечно, еще несколько вариантов технического решения. Например, сделать забалансовые счета взаиморасчетов с разрезом по счетам-фактурам и переделать все документы, которые что-то двигают по 60 и 62. Сложно, долго и огромные проблемы при обновлении конфигурации. Можно сделать отчет, который анализирует счета-фактуры и оплаты за какой-то достаточно большой период, собирает в один список все документы долга, в другой оплаты и рассчитывает, как бы долги гасились при учете по счетам-фактурам. Недостатки тут - нельзя разнести оплату на конкретный счет-фактуру, исключительно FIFO. Время формирования такого отчета может быть очень большим. В добавок, в случае автоматического, а не ручного/полуручного разноса оплат по счетам-фактурам, ввод какого-либо счета-фактуры или оплаты задним числом может совершенно изменить картину долгов в разрезе счетов-фактур. Я бы порекомендовал уговорить бухгалтерию отказаться от ведения взаиморасчетом в разрезе счетов-фактур, а если не получится - воспользоваться первым вариантом. Главное - не автоматизировать лишнее и не брать на себя ответственность по раскидке оплат по счетам-фактурам.

Ответ отправил: ВладИС (статус: 6-ой класс) Ответ отправлен: 19.11.2007, 09:43 Оценка за ответ: 5 Комментарий оценки: Спасибо за подробный ответ. Да, я вспомнила - видела счета-фактуры записывали в договора. Скорее всего на этом и остановлюсь. Но может быть кто-нибудь ещё что предложит

Отвечает: Астафьев Александр Николаевич Здравствуйте, Darina! Формируйте Бухгалтерский запрос с периодичностью Операция. При выборке результатов запроса по операции находите документ от этой операции (это приходная либо расходная смотря какой счет 60 или 62) затем ищете подчиненые ему счета фактуры. Все.

Ответ отправил: Астафьев Александр Николаевич (статус: 6-ой класс) Ответ отправлен: 22.11.2007, 18:09

Вопрос № 110.105

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

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

Отвечает: Сергей Максименко [Elric] Здравствуйте, PaTiFoN! Посмотрите модуль формы документа "НачисленияУдержанияСписком", процедуру ПриОткрытии(), какие проверки там прописаны. Можете даже сразу задать поиск по строке "При смене вида начисления (удержания)" -- это не системное сообщение, оно прописано в модуле. Когда найдете, сразу поймете что делать. --------- В творчестве рождается истина

Ответ отправил: Сергей Максименко [Elric] (статус: Профессионал) Украина, Киев Тел.: +38(095)2873210 Организация: "МАКСЕР" - продажа и внедрение "1С:Предприятие" Адрес: г. Киев WWW: "1С:Предприятие" - продажа, внедрение, сопровождение ---- Ответ отправлен: 19.11.2007, 13:56 Оценка за ответ: 5 Комментарий оценки: Спасибо. Я уже разобрался. Дело не в процедуре при открытии. Просто строку РасчетСписком.НазначитьТип("Величина","Число",15,2) надо воставить в цикл перед строкой РасчетСписком.Величина = Число(ТЗ_Расчет.Итого)

Вопрос № 110.111

Добрый день уважаемые эксперты! Вновь прошу вашей помощи т.к. выручали Вы меня уже не раз! :) Дано: Справочник "А" и справочник "Б". Справочник "Б" является подчиненным справочнику "А". Задача: При заполнении формы справочника "А" необходимо видеть данные двух реквизитов справочника "Б". Просто видеть, редактировать ненадо. Подскажите как это можно сделать? Если можно, максимально подробно - в 1с я еще "Не волшебник, а только учусь!" :) Зарание огромное всем спасибо! Приложение: 1с 7.7, конфигурация на базе "Торговля и склад".

Отправлен: 19.11.2007, 11:25 Вопрос задал: Serega_artem (статус: 7-ой класс) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 1)

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

Ответ отправил: Сергей Максименко [Elric] (статус: Профессионал) Украина, Киев Тел.: +38(095)2873210 Организация: "МАКСЕР" - продажа и внедрение "1С:Предприятие" Адрес: г. Киев WWW: "1С:Предприятие" - продажа, внедрение, сопровождение ---- Ответ отправлен: 19.11.2007, 12:57 Оценка за ответ: 5 Комментарий оценки: Огромное спасибо за помощь!!! Сейчас буду пробывать!

Отвечает: Vlad Skorochod Здравствуйте, Serega_artem! На форме справочника А создаем элемент ТаблицаЗначений (ТЗ), и при открытии формы пишем : ТЗ.НоваяКолонка("Р1"); ТЗ.НоваяКолонка("Р2"); //Это мы определили колонки которые будут заполняться. //Дальше заполняем таблицу значений Спр=СоздатьОбъект("Справочник.Б"); Спр.ИспользоватьВладельца(ТеекущийЭлеиент()); Спр.ВыбратьЭлементы(); Пока Спр.получитьЭлемент()=1 Цикл ТЗ.НоваяСтрока(); ТЗ.Р1=Спр.Реквизит1; ТЗ.Р2=Спр.Реквизит2; КонецЦикла;

Ответ отправил: Vlad Skorochod (статус: 10-ый класс) Ответ отправлен: 19.11.2007, 13:22 Оценка за ответ: 5 Комментарий оценки: Огромное спасибо за помощь!!! Сейчас буду пробывать!

Отвечает: Arkadiy Karanskiy !!! Здравствуйте, Serega_artem! Вообще можно сделать следующим образом. При вводе в твоей форме необходимого реквизита из Справочника "А" открывается просто форма где прописываются след. строки. Спр = СоздатьОбъект("Справочник.А"); Спр.ИспользоватьВладельца(Форма.Параметр); Спр.ВыбратьСтроки() Пока ПолучитьСтроку() = 1 Цикл НоваяСтрока(); ...... КонецЦикла; и также потом по второму реквезиту. Абсолютно неадекватный ответ с непонятным смыслом и неработающим программным кодом. ----- ∙ Отредактировал: Сергей Максименко [Elric] (Профессионал) ∙ Дата редактирования: 19.11.2007, 23:45

Ответ отправил: Arkadiy Karanskiy (статус: 8-ой класс) Ответ отправлен: 19.11.2007, 20:13 Оценка за ответ: 3 Комментарий оценки: По моему, что-то сдесь не то..........

Отвечает: Астафьев Александр Николаевич !!! Здравствуйте, Serega_artem! Заводите поле тип ТЕКСТ и на закладке "Дополнительно" прописывайте функцию которая возвращает нужное вам значение из подчиненного справочника. Я бы написал пример, только одна проблемка подчиненный справочник это куча элементов а спозиционироваться надо на каком то конкретном элементе т.е. если бы вы написали какие данные какого элемента подчиненного справочника Вы хотите вывести исходя из каких условий ? это не ответ на вопрос ----- ∙ Отредактировал: Сергей Максименко [Elric] (Профессионал) ∙ Дата редактирования: 24.11.2007, 12:00

Ответ отправил: Астафьев Александр Николаевич (статус: 6-ой класс) Ответ отправлен: 22.11.2007, 18:38

Вопрос № 110.137

Доброе время суток, господа эксперты. Вопрос такой. 1С77 релиз 25 сетевая. База на сервере под Windows Server2003. При работе с ноутбука под Vista Home Prem (предустановленная) сообщает "Кодировка не соответсвует общесистемной". Естественно, изменять кодовую страницу базы никак нельзя (другие пользователи под XP или 2000). Можно ли что-то и как изменить в Vistе, чтобы работать без проблем. Поделитесь, пжалуйста.

Отправлен: 19.11.2007, 13:34 Вопрос задал: Голубев Вадим Борисович (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Сергей Максименко [Elric] Здравствуйте, Голубев Вадим Борисович! Два варианта. 1. Переустановите релиз программы на 26 или 27 -- там появилась возможность отключать проверку кодировки, просто добавив в каталог базы данных (или программы) файл с именем OrdNoChk.prm с любым содержанием (хоть пустой). 2. Установите на сервере Terminal Server и подключайтесь через него -- это и ускорит раза в полтора работу всех (а может и больше), и повысит уровень безопасности (как технической, так и административной), и решит все проблемы с кодировками (т.к. программа будет запускаться только на сервере, то будет иметь значение только кодировка на сервере). --------- В творчестве рождается истина

Ответ отправил: Сергей Максименко [Elric] (статус: Профессионал) Украина, Киев Тел.: +38(095)2873210 Организация: "МАКСЕР" - продажа и внедрение "1С:Предприятие" Адрес: г. Киев WWW: "1С:Предприятие" - продажа, внедрение, сопровождение ---- Ответ отправлен: 19.11.2007, 14:11

Отвечает: SergeiKlin Здравствуйте, Голубев Вадим Борисович! Во, первых вам нужно обновить ваш релиз до 26, Во, вторых, в каждой папке где установлена база, или в папке с установленной 1с, нужно создать файл ordnochk.prm , с именем , можно даже пустой. Все должно получиться... если будут вопросы пишите... дублирующий ответ, плюс ошибка в имени файла ----- ∙ Отредактировал: Сергей Максименко [Elric] (Профессионал) ∙ Дата редактирования: 24.11.2007, 12:03

Ответ отправил: SergeiKlin (статус: Студент) Ответ отправлен: 19.11.2007, 14:44

Отвечает: Шахрайчук Владимир Анатольевич Здравствуйте, Голубев Вадим Борисович! Можно на сервере поднять сервер терминалов и с висты заходить под терминалом. дублирующий ответ ----- ∙ Отредактировал: Сергей Максименко [Elric] (Профессионал) ∙ Дата редактирования: 24.11.2007, 12:03

Ответ отправил: Шахрайчук Владимир Анатольевич (статус: Практикант) Ответ отправлен: 19.11.2007, 21:48

Вопрос № 110.144

Здравствуйте, уважаемые эксперты. Необходимо создать обработку для переноса данных (справочников, документов) из УТ (1С 8.1, ред 10.3) в БУ (1С 8.0). Посоветуйте, пожалуйста, новичку, каким образом (через COM-объекты, XML или какие-то другие механизмы) это лучше будет реализовать. В основном волнует быстродействие, так как база очень большая. Заранее благодарна.

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

Отвечает: Яна Здравствуйте, Lilla! Во-первых, в УТ есть механизм выгрузки данных в бухгалтерию. Если Вас этот механизм не устраивает попробуйте сделать свой обмен через xml. В платформе есть встроенные средства для работы с этим форматом файлов.

Ответ отправила: Яна (статус: Студент) Ответ отправлен: 20.11.2007, 15:47 Оценка за ответ: 5 Комментарий оценки: Большое спасибо! Буду разбираться.

Вопрос № 110.153

Доброго врени суток. Имеется 1с 7.7 ЗиК, подскажите (на примере) как получить переодический реквизит без пробела, т.е Константа.СокращенноеНаименованиеОрганизации (например: было "финансовая группа" надо "финансовая_группа"). Заранее благодарен.

Отправлен: 19.11.2007, 14:48 Вопрос задал: Шмачков А. В. (статус: Посетитель) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Сергей Максименко [Elric] Здравствуйте, Шмачков А. В.! СтрЗаменить(СокрЛП(Константа.СокращенноеНаименованиеОрганизации)," ","_") Т.е. заменить все пробелы на подчеркивания --------- В творчестве рождается истина

Ответ отправил: Сергей Максименко [Elric] (статус: Профессионал) Украина, Киев Тел.: +38(095)2873210 Организация: "МАКСЕР" - продажа и внедрение "1С:Предприятие" Адрес: г. Киев WWW: "1С:Предприятие" - продажа, внедрение, сопровождение ---- Ответ отправлен: 19.11.2007, 14:53

Отвечает: Кривых Александр Анатольевич !!! Здравствуйте, Шмачков А. В.! Перебрать реквизит по буквам и заменить пробелы на "_". стр="Финансовая группа"; стрискомая=""; ном=0; Для ном=1 По СтрДлина(стр) Цикл стрискомая=стрискомая + Сред(стр,ном,1); КонецЦикла; Сообщить(стрискомая); Зачем целый алгоритм строить, если можно просто использовать встроенную функцию СтрЗаменить() ----- ∙ Отредактировал: Сергей Максименко [Elric] (Профессионал) ∙ Дата редактирования: 21.11.2007, 21:41

Ответ отправил: Кривых Александр Анатольевич (статус: 5-ый класс) Ответ отправлен: 20.11.2007, 07:08

Отвечает: Vlad Skorochod Здравствуйте, Шмачков А. В.! Попробуйте функцию : СтрЗаменить(<СтрИсточник>,<СтрПодстрока>,<СтрЗамены>) Дубль ----- ∙ Отредактировал: Сергей Максименко [Elric] (Профессионал) ∙ Дата редактирования: 21.11.2007, 21:40 Приложение: Пример: Стр=СокрЛП(Константа.СокращенноеНаименованиеОрганизации); СтрЗаменить(Стр," ","_")

Ответ отправил: Vlad Skorochod (статус: 10-ый класс) Ответ отправлен: 20.11.2007, 09:43

Отвечает: Астафьев Александр Николаевич Здравствуйте, Шмачков А. В.! Имя = Константа.СокращенноеНаименованиеОрганизации.Получить(Дата); Имя = СтрЗаменить(СокрЛП(Имя)," ","_");

Ответ отправил: Астафьев Александр Николаевич (статус: 6-ой класс) Ответ отправлен: 22.11.2007, 18:46

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