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

Выпуск № 523
от 17.06.2007, 13:05

Вопрос № 90.968

Здравствуйте Эксперты! У меня к вам два вопроса, так как я только начинающий программист, помогите разобраться!!!!????? В коде (см. приложение), в котором я хочу переносить документы из ТиС в УСН, не получается выполнит проверку по номеру документа , что такой документ уже есть в конфигурации? И второй вопрос - не получается в УСН назначит Субконто (т.е. не инициализируется реквизит)? Заранее всем спасибо! Приложение: Процедура Выполнить() V7=СоздатьОбъект("V77.Application"); Спр=СоздатьОбъект("Справочник.Контрагенты"); Открыта=V7.Initialize(V7.RMTrade,"/d C:per /m /n","NO_SPLASH_SHOW"); Если открыта=0 Тогда Сообщить("Не удалось открыть каталог информационной базы!!!"); возврат; КонецЕсли; ПКО=СоздатьОбъект("Документ.ПриходныйОрдер"); ПКО1=V7.CreateObject("Документ.ПКО"); ПКО1.ВыбратьДокументы(Дата1,Дата2); Пока ПКО1.ПолучитьДокумент()=1 Цикл Если ПКО.НайтиПоНомеру(ПКО1.НомерДок)=1 Тогда Сообщить("Такой документ уже есть - №"+ПКО1.НомерДок); Продолжить; Иначе ПКО.Новый(); ПКО.НомерДок=ПКО1.НомерДок; ПКО.КоррСчет=СчетПоКоду("62.1"); Если Спр.НайтиПоНаименованию(ПКО1.Контрагент)=1 Тогда ПКО.Субконто1=Спр.ТекущийЭлемент(); Иначе Сообщить("Контрагент - "+ПКО1.Контрагент+", ненайден!"); ПКО.ДатаДок=ПКО1.ДатаДок; ПКО.Сумма=ПКО1.Сумма; ПКО.Записать(); КонецЕсли; КонецЕсли; КонецЦикла; КонецПроцедуры

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

Отвечает: Elric Здравствуйте, V lad! Документ ищется в конкретном интервале дат. Укажите дату документа в методе НайтиПоНомеру. При этом если периодичность номера год, то поиск будет происходить внутри года, к которому относится дата, если месяц -- внутри месяца, и т.д. Если же Вам нужно найти документ совсем без привязки к дате, то одним методом НайтиДокумент такую проверку сделать Вы не сможете, нужно писать алгоритм (впрочем, не сложный). По поводу номера и Контрагента, попробуйте пример кода в Приложении. Приложение: Процедура Выполнить() V7=СоздатьОбъект("V77.Application"); Спр=СоздатьОбъект("Справочник.Контрагенты"); Открыта=V7.Initialize(V7.RMTrade,"/d C:per /m /n","NO_SPLASH_SHOW"); Если открыта=0 Тогда Сообщить("Не удалось открыть каталог информационной базы!!!"); возврат; КонецЕсли; ПКО=СоздатьОбъект("Документ.ПриходныйОрдер"); ПКО1=V7.CreateObject("Документ.ПКО"); РД=РабочаяДата(); ПКО1.ВыбратьДокументы(Дата1,Дата2); Пока ПКО1.ПолучитьДокумент()=1 Цикл Если ПКО.НайтиПоНомеру(ПКО1.НомерДок,ПКО1.ДатаДок)=1 Тогда Сообщить("Такой документ уже есть - №"+ПКО1.НомерДок+". Пропускаем..."); Продолжить; Иначе РабочаяДата(ПКО1.ДатаДок); ПКО.Новый(); ПКО.НомерДок=ПКО1.НомерДок; //ПКО.ДатаДок=ПКО1.ДатаДок; ПКО.Сумма=ПКО1.Сумма; ПКО.КоррСчет=СчетПоКоду("62.1"); Если Спр.НайтиПоНаименованию(СокрЛП(ПКО1.Контрагент.Наименование),0)=1 Тогда ПКО.Субконто1=Спр.ТекущийЭлемент(); Иначе Сообщить("Контрагент "+ПКО1.Контрагент+" не найден!","!"); КонецЕсли; ПКО.Записать(); КонецЕсли; КонецЦикла; РабочаяДата(РД); КонецПроцедуры --------- Мирный атом в КАЖДЫЙ дом!

Ответ отправил: Elric (статус: Специалист) Ответ отправлен: 11.06.2007, 17:22 Оценка за ответ: 5 Комментарий оценки: Спасибо, при первом вопросе все получилось! А на втором (субконто), обработка ничего не переносит, если находит по наименованию элемент справочника!

Отвечает: Strawberry Здравствуйте, V lad! Поповоду документа попробуйте так см. приложение по поводу субконто код в студию Приложение: роцедура Выполнить() V7=СоздатьОбъект("V77.Application"); Спр=СоздатьОбъект("Справочник.Контрагенты"); Открыта=V7.Initialize(V7.RMTrade,"/d C:per /m /n","NO_SPLASH_SHOW"); Если открыта=0 Тогда Сообщить("Не удалось открыть каталог информационной базы!!!"); возврат; КонецЕсли; ПКО=СоздатьОбъект("Документ.ПриходныйОрдер"); ПКО1=V7.CreateObject("Документ.ПКО"); ПКО1.ВыбратьДокументы(Дата1,Дата2); Пока ПКО1.ПолучитьДокумент()=1 Цикл Если ПКО.НайтиПоНомеру(ПКО1.НомерДок,ПКО1.датадок)=1 Тогда Сообщить("Такой документ уже есть - №"+ПКО1.НомерДок); Продолжить; Иначе ПКО.Новый(); ПКО.НомерДок=ПКО1.НомерДок; ПКО.КоррСчет=СчетПоКоду("62.1"); Если Спр.НайтиПоНаименованию(ПКО1.Контрагент)=1 Тогда ПКО.Субконто1=Спр.ТекущийЭлемент(); Иначе Сообщить("Контрагент - "+ПКО1.Контрагент+", ненайден!"); ПКО.ДатаДок=ПКО1.ДатаДок; ПКО.Сумма=ПКО1.Сумма; ПКО.Записать(); КонецЕсли; КонецЕсли; КонецЦикла; КонецПроцедуры --------- Мальчик-извращенец прочел деду Морозу с табуретки всего Пастернака!

Ответ отправил: Strawberry (статус: 8-ой класс) Ответ отправлен: 11.06.2007, 18:44 Оценка за ответ: 4 Комментарий оценки: Спасибо, сто значит в студию????

Отвечает: DERL.KG Здравствуйте, V lad! 1. в строке поиска документа измените на ПКО.НайтиПоНомеру(ПКО1.НомерДок,Дата(0)) (если периодичность номера документов не "По всем данного вида", то вместо 0 укажите ту дату, которая входит в нужный период номеров, например у вас стоит периодичность в пределах года и вам необходимо найти документы 2006 года, то вместо 0 можете указать любую дату этого года) 2. в строке где вы ищите по наименованию контрагента измените на Спр.НайтиПоНаименованию(ПКО1.Контрагент.Наименование) т.к. в ОЛЕ надо указывать полностью...

Ответ отправил: DERL.KG (статус: 3-ий класс) Ответ отправлен: 12.06.2007, 07:46

Вопрос № 91.033

Здравствуйте!!! никогда не занимался продажами, а тут пришлось :).И сразу же попал: продал свою конфигурацию вместе с базовой версией 1с 7.7. Меня аккуратненько послали, оказалось, что базовая версия идет только со своей родной конфой и все. Посмотрел, какие существуют локальные версии 1с: есть базовая(самая дешевая), далее стандартная(подороже на 50 у.е.) и профессиональная(как я понял самая дорогая из локальных). Так вот, вопрос: чем эти версии еще отличаются друг от друга и можно ли на стандартную версию 1с цеплять неродную конфу, если на базовую нельзя???

Отправлен: 12.06.2007, 09:31 Вопрос задал: BigHard (статус: Студент) Всего ответов: 5 Мини-форум вопроса >>> (сообщений: 4)

Отвечает: IUnknown Здравствуйте, BigHard! Ну все различия можно глянуть тут Ссылка [И. К. Цикалов] --------- я не специалист

Ответ отправил: IUnknown (статус: Студент) Ответ отправлен: 12.06.2007, 09:39 Оценка за ответ: 5

Отвечает: Dmitry Stashenko Здравствуйте, BigHard! Собственно различие между базовой и стандартной как раз и есть только в том, что в базовую нельзя вносить изменения, а в стандартную можно. И все. Но если выбирать между стандартной и профессиональной, то различия огромны. Например, проф. позволяет вести одновременный оперативный и бух. учет, сложные проводки, учет по нескольким фирмам, распределенную базу, и еще что-то по количеству субконто там было, в профе 5, а там 3 по-моему. Кстати, сетевая - эта таже профессиональная. А различие в цене проф-стандарт не так уж и большое, по сравнениб с функционалом

Ответ отправил: Dmitry Stashenko (статус: 4-ый класс) Ответ отправлен: 12.06.2007, 10:15 Оценка за ответ: 5 Комментарий оценки: спасибо, я ставлю свою конфу, стандартная не нужна

Отвечает: Татьяна Ласовская Здравствуйте, BigHard! на стандартную версию цеплять свою конфу можно, но с некоторыми ограничениями: количество субконто в плане счетов (только 3, а не 5, как в профессиональной), один план счетов, уровень вложенности справочников 4, а не 10 как в ПРОФ, нет сложных проводок, разделителя учета, невозможно работать с распределенной базой. Редактировать конфигурацию (т.е. подставлять свою в том числе) не позволяет только базовая версия. И стандартная, и ПРОФ редактировать конфигурации позволяют. В настоящий момент стандартная версия снята с продаж, распродаются остатки.

Ответ отправила: Татьяна Ласовская (статус: 7-ой класс) Ответ отправлен: 12.06.2007, 10:17 Оценка за ответ: 5 Комментарий оценки: Спасибо. У меня есть еще несколько вопросов, я вам напишу по внутренней почте

Отвечает: Pycuk Здравствуйте, BigHard! = = Ответ перенесен в мини-форум вопроса = = [ Климова М. ]

Ответ отправил: Pycuk (статус: 1-ый класс) Ответ отправлен: 12.06.2007, 16:48

Отвечает: Vlad Skorochod Здравствуйте, BigHard! Стандартная версия отличается от проф в сторону урезания функционала по плану счетов. Типовая конфигурация от 1С идет и там и там. Насколько помню отличие заключается в том, что в стандартной нельзя вести более 1 плана счетов и кажется там ограничение на кол-во субконто.

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

Вопрос № 91.049

Добрый день, эксперты! Можно ли как-то в 1с 7.7 сделать, чтобы время проведения документа было реквизитом этого документа (так же как номер и дата) Спасибо

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

Отвечает: DERL.KG Здравствуйте, Avanti! К сожалению нет, поскольку в 1С 7.7 метод УстановитьВремя() для документов можно использовать только для объектов, созданных функцией СоздатьОбъект. Таким образом вы не сможете записать время документа в модуле формы документа.

Ответ отправил: DERL.KG (статус: 3-ий класс) Ответ отправлен: 12.06.2007, 11:30 Оценка за ответ: 5

Отвечает: IUnknown Здравствуйте, Avanti! В принципе нет, так как в 1С нету средств для работы с данными типа "Время". Хотя можно и выкрутиться. Например так. Добавить в документ реквизит типа строка. В процедуру ОбработкаПроведения() данного документа поместить следующий код: чисЧас = 0; чисМинут = 0; чисСекунд = 0; ПолучитьВремя(чисЧас, чисМинут, чисСекунд); стрРеквизит = ?(чисЧас > 9, строка(чисЧас), "0" + чисЧас); стрРеквизит = стрРеквизит + ":" + ?(чисМинут > 9, строка(чисМинут), "0" + чисМинут); стрРеквизит = стрРеквизит + ":" + ?(чисСекунд > 9, строка(чисСекунд), "0" + чисСекунд); --------- я не специалист

Ответ отправил: IUnknown (статус: Студент) Ответ отправлен: 12.06.2007, 11:33 Оценка за ответ: 5 Комментарий оценки: Спасибо

Отвечает: Strawberry Здравствуйте, Avanti! Есть метод см.Приложение он позволяет получить время документа Приложение: ПолучитьВремя(<?>,,) Синтаксис: ПолучитьВремя(<Часы>,<Минуты>,<Секунды>) Назначение: Прочитать время документа. Возвращает время документа в переданные для этого переменные <Часы>, <Минуты>, <Секунды>. Возвращает: Строковое значение времени записи документа в виде 'ЧЧ.ММ.СС'. Параметры: <Часы> - переменная для приема часа записи документа; <Минуты> - переменная для приема минут записи документа; <Секунды> - переменная для приема секунд записи документа. Замечание: Метод можно использовать только для объектов, созданных функцией СоздатьОбъект. --------- Мальчик-извращенец прочел деду Морозу с табуретки всего Пастернака!

Ответ отправил: Strawberry (статус: 8-ой класс) Ответ отправлен: 12.06.2007, 11:34 Оценка за ответ: 5

Отвечает: Ovr1970 Здравствуйте, Avanti! У любого документа есть реквизит время, такой же как и дата. Но так как в 1С не имеет типа время, то работа с этим реквизитом ведется через методы преобразования. Посмотреть этот реквизит можно в общем журнале. А что Вы хотите с ним сделать?

Ответ отправил: Ovr1970 (статус: Практикант) Ответ отправлен: 12.06.2007, 12:14 Оценка за ответ: 5 Комментарий оценки: фин.директор просит сделать.. пока просто разбираюсь, можно ли это сделать и как, чтобы было, что ответить.)

Отвечает: Dmitry Stashenko Здравствуйте, Avanti! Только помни, что ПолучитьВремя() - это время не проведения, а записи документа. И оно по большей части статично. То есть оно формируется тогда, когда документ появился на временной линейке, и при последующем редактировании документа не изменяется. И если тебе надо изменять реквизит ВремяДокумента при проведении, то надо использовать не ПолучитьВремя(), а ТекущееВремя() Кстати, если тебе надо сравнивать, какое время позже или раньше, то удобней реквизит ВремяДокумента сделать числовым и записывать в него количество секунд: Перем Ч,М,С; ТекущееВремя(Ч,М,С); ВремяДокумента = Ч*3600+М*60+С; Соответственно при 00:00:01 ВремяДокумента = 1, а при 23:59:59 - 86399. Секунды обратно тоже можно легко перевести в часы и минуты целочисленным делением. Удачи

Ответ отправил: Dmitry Stashenko (статус: 4-ый класс) Ответ отправлен: 12.06.2007, 20:18 Оценка за ответ: 5 Комментарий оценки: ok, спасибо за ценное замечание

Отвечает: Elric Здравствуйте, Avanti! Воспользуйтесь функцией ТекущееВремя() и методом документа УстановитьВремя(). --------- Мирный атом в КАЖДЫЙ дом!

Ответ отправил: Elric (статус: Специалист) Ответ отправлен: 12.06.2007, 23:58 Оценка за ответ: 5

Вопрос № 91.065

Зравствуйте эксперты. Подскажите пожалуйста такую вещь. Как настроить обмен данными между двумя аналогичными конфигурациями. Можно ли это зделать как то стандартными методами? или нужно писать обработку для переноса данных.

Отправлен: 12.06.2007, 12:57 Вопрос задал: Трифанюк Александр Дмитриевич (статус: Посетитель) Всего ответов: 5 Мини-форум вопроса >>> (сообщений: 5)

Отвечает: DERL.KG Здравствуйте, Трифанюк Александр Дмитриевич! В интернете есть универсальные обработки переноса данных между двумя одинаковыми конфами... Можете поискать здесь http://www.finaldarkworld.infostart.ru/projects/

Ответ отправил: DERL.KG (статус: 3-ий класс) Ответ отправлен: 12.06.2007, 13:14 Оценка за ответ: 5 Комментарий оценки: Полезный сайтик

Отвечает: Андрей Тимофеев Здравствуйте, Трифанюк Александр Дмитриевич! Если они рдинаковы, почему бы Вам не использовать УРБД?

Ответ отправил: Андрей Тимофеев (статус: 4-ый класс) Ответ отправлен: 12.06.2007, 13:44 Оценка за ответ: 5 Комментарий оценки: Согласен. Но почему то не хочет работать

Отвечает: BigHard Здравствуйте, Трифанюк Александр Дмитриевич! Вообще-то желательно конечно написать ообработку (говорю по своему опыту), там вы все сможете сделать именно так как вам надо, к тому же обработка будет стоить дешевле, чем УРБД. А если не надо никаких возможностей, просто пернос данных - УРБД еще никто не отменял..... --------- Чем отличается чайник от программиста: У чайника в одном килобайте 1000 байт, а у программиста в одном километре 1024 метра

Ответ отправил: BigHard (статус: Студент) Ответ отправлен: 12.06.2007, 14:17 Оценка за ответ: 5 Комментарий оценки: Через УРБД почемуто не работает.

Отвечает: Igor_L Здравствуйте, Трифанюк Александр Дмитриевич! = = Ответ перенесен в мини-форум вопроса = = [ Климова М. ]

Ответ отправил: Igor_L (статус: 1-ый класс) Ответ отправлен: 12.06.2007, 14:26

Отвечает: Elric Здравствуйте, Трифанюк Александр Дмитриевич! Используйте МОД (Менеджер Обмена Данными). Это универсальная разработка для обменя данными между любыми конфигурациями 1С 7.7. Лицензионную версию можно купить у любого франчайзи, стоимость порядка $50. --------- Мирный атом в КАЖДЫЙ дом!

Ответ отправил: Elric (статус: Специалист) Ответ отправлен: 12.06.2007, 23:56 Оценка за ответ: 5 Комментарий оценки: Спасибо я лучше сам напишу

© 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