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

Выпуск № 473
от 18.04.2007, 13:35

Вопрос № 82.225

Хочу сделать выгрузку справочника Товары с выбор выгрузки только по группе в текстовый файл и соответственно загрузки в справочник Товары в другой полностью эдентичной конфигурации. Надо что бы если по коду нашли группу/элемент мправочника - если такая группа /элемент присутствуют просто перезаписать значения из файла. Если такая группа/элемент во второй базе не найдены, то соответственно создать группу и добавить в нее новые элементы. В приложении даны вырезки обработки выгрузки и загрузки подскажите где что не так. Спасибо. Приложение: Процедура Выгрузить() Текст=СоздатьОбъект("Текст"); Список=СоздатьОбъект("СписокЗначений"); Спр=СоздатьОбъект("Справочник.Товары"); Если ВыбГруппа.Выбран()=1 Тогда // проверяем если что-то в нашем реквизите формы Если ВыбГруппа.ЭтоГруппа()=1 Тогда // проверяем группа ли это... Спр.ИспользоватьРодителя(ВыбГруппа); // в реквизите выбрана группа выбираем товары только из нее Спр.ВключатьПодчиненные(1); //это чтобы обработка заходила в подгруппы если есть КонецЕсли; КонецЕсли; Спр.ВыбратьЭлементы(); Пока Спр.ПолучитьЭлемент()=1 Цикл Список.ДобавитьЗначение(Спр.Код); Список.ДобавитьЗначение(Спр.Наименование); Список.ДобавитьЗначение(Спр.Прих_Цена); Текст.ДобавитьСтроку(Список.ВСтрокуСРазделителями()); Список.УдалитьВсе(); КонецЦикла; Текст.Записать("C:111555.txt"); КонецПроцедуры Процедура Загрузить() Спр=СоздатьОбъект("Справочник.Товары"); Текст=СоздатьОбъект("Текст"); Список=СоздатьОбъект("СписокЗначений"); Текст.Открыть("C:111555.txt"); Для Ном=1 По Текст.КоличествоСтрок() Цикл Стр=Текст.ПолучитьСтроку(Ном); Список.ИзСтрокиСРазделителями(Стр); Если Спр.НайтиПоКоду(Список.ПолучитьЗначение(1))=1 Тогда Если Спр.ЭтоГруппа()=1 Тогда Спр.Наименование=Список.ПолучитьЗначение(2); Сообщить("ЕстьГруппа"); Иначе Спр.Наименование=Список.ПолучитьЗначение(2); Сообщить("ЕстьЭлемент"); КонецЕсли; Иначе Если Спр.ЭтоГруппа()=1 Тогда Спр.НоваяГруппа(); Спр.Наименование=Список.ПолучитьЗначение(2); Сообщить("Новая Группа"); Иначе Спр.Новый(); Спр.Наименование=Список.ПолучитьЗначение(2); Сообщить("Новый Элемент"); КонецЕсли; КонецЕсли; КонецЦикла; Сообщить("Конец"); КонецПроцедуры

Отправлен: 12.04.2007, 13:21 Вопрос задал: Аржаник Антон Николаевич (статус: 2-ой класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Strawberry Здравствуйте, Аржаник Антон Николаевич! Вроде так Приложение: Процедура Выгрузить() Текст=СоздатьОбъект("Текст"); Список=СоздатьОбъект("СписокЗначений"); Спр=СоздатьОбъект("Справочник.Товары"); Если ВыбГруппа.Выбран()=1 Тогда // проверяем если что-то в нашем реквизите формы Если ВыбГруппа.ЭтоГруппа()=1 Тогда // проверяем группа ли это... Спр.ИспользоватьРодителя(ВыбГруппа); // в реквизите выбрана группа выбираем товары только из нее // то что ниже лишнее // Спр.ВключатьПодчиненные(1); //это чтобы обработка заходила в подгруппы если есть КонецЕсли; КонецЕсли; Спр.ВыбратьЭлементы(); Пока Спр.ПолучитьЭлемент()=1 Цикл Список.ДобавитьЗначение(Спр.Код); Список.ДобавитьЗначение(Спр.Наименование); Список.ДобавитьЗначение(Спр.Прих_Цена); Список.ДобавитьЗначение(?(Спр.ЭтоГруппа()=1,"Г","Э"); // группа или элемент Список.ДобавитьЗначение(Спр.Родитель.код); // для востановления подчинености Текст.ДобавитьСтроку(Список.ВСтрокуСРазделителями()); Список.УдалитьВсе(); КонецЦикла; Текст.Записать("C:111555.txt"); КонецПроцедуры Процедура Загрузить() Спр=СоздатьОбъект("Справочник.Товары"); Род=СоздатьОбъект("Справочник.Товары"); Текст=СоздатьОбъект("Текст"); Список=СоздатьОбъект("СписокЗначений"); Текст.Открыть("C:111555.txt"); Для Ном=1 По Текст.КоличествоСтрок() Цикл Стр=Текст.ПолучитьСтроку(Ном); Список.ИзСтрокиСРазделителями(Стр); Спр.ИспользоватьРодителя(0); Род.ИспользоватьРодителя(0); Если Спр.НайтиПоКоду(Список.ПолучитьЗначение(1))=1 Тогда Если Спр.ЭтоГруппа()=1 Тогда Спр.Наименование=Список.ПолучитьЗначение(2); Сообщить("ЕстьГруппа"); Иначе Спр.Наименование=Список.ПолучитьЗначение(2); Сообщить("ЕстьЭлемент"); КонецЕсли; Иначе Если Список.ПолучитьЗначение(4)="Г" Тогда Спр.НоваяГруппа(); Спр.Наименование=Список.ПолучитьЗначение(2); Род.НайтиПокоду(Список.ПолучитьЗначение(5)); Спр.Родитель(Род.ТекущийЭлемент()); Спр.Записать(); Сообщить("Новая Группа"); Иначе Спр.Новый(); Спр.Наименование=Список.ПолучитьЗначение(2); Спр.Прих_Цена=Число(Список.ПолучитьЗначение(3)); Род.НайтиПокоду(Список.ПолучитьЗначение(5)); Спр.Родитель(Род.ТекущийЭлемент()); Спр.Записать(); Сообщить("Новый Элемент"); КонецЕсли; КонецЕсли; КонецЦикла; Сообщить("Конец"); КонецПроцедуры --------- Мальчик-извращенец прочел деду Морозу с табуретки всего Пастернака!

Ответ отправил: Strawberry (статус: 6-ой класс) Ответ отправлен: 12.04.2007, 13:49

Вопрос № 82.226

Доброго Здравия всем экспертам этой рассылки!Вы мне очень помогли с проблемой в вопросе № 81928.Еще раз Спасибо!Снова требуется ваша помощь.Проблема определилась еще в начале марта,при начислении сотруднику больничных в программе "Зарплата и Кадры" версия проф, релиз 273(а после обновления - 274).Если не ошибаюсь программа по какой-то причине не видит отработанных сотрудником дней(а может в чем-то другом)!Ну а если попорядку делаем мы значит так:открываем "документы" - больничный лист - выбираем сотрудника, дату и т.д. - когда дело доходит до "Ввода данных для расчета среднего заработка" - нажимаем "Заполнить" - в результате программа почему то выдает только 1000руб.-премия сотруднику,которая была в ноябре!Остальные месеца и вообще основная рарплата - остаются не заполненные!Если мы щелкнем по незаполненной ячейке за любой месяц то мы увидим,что программа не видит отработанные дни, - скорее всего с этим связано и то что программа не заполнят всю таблицу "ввод данных для расчета среднего заработка". Кстати "Ввод данных для расчета среднего заработка" не заполняется в этой базе автоматом не только у одного сотрудника, но и у всех остальных! Так же могу отметить что у нас есть другие рабочие базы Зарплата и Кадры 273 релиз и что интересно, в них - все нормально! Вспомнил, еще что данному сотруднику сначала начислили больничный с 2 по 5 марта.Все было нормально - программа заполнила таблицу "Ввода данных для расчета среднего заработка", но потом потребовалось документ пометить на удаление и ввести заново и с этого все и началось! Уже сравнивал все настройки с настройками базы где такой проблемы нет - но безуспешно! Задовал я этот же вопрос в соответствующие форумы но толкового ответа так и не получил! Были ответы типа: "(0) Попробую протелепатировать - у сотров стоит система оплаты н-р "Простая повременная по окладу (по дням)" с нулевым окладом, а платят им по "Индивидуальному наряду", не вводя ежемесячно док "Начисление зарплаты", вот отработанным дням и неоткуда взяться..." или "самое простое решение - посмотреть в отладчике" и т.д. Повторяю, что если я и являюсь пока чайником в вопросе работы с ЗиК(я системный администратор)то человек который ведет работу имеет довольный опыт и глупых ошибок не допускает - с другими рабочими базами все ОК. Очень нужно разобраться - где и как можно отследить эту проблему?Как это - "посмотреть в отладчике"? Если можно то поподробнее.Буду очень благодарен! С УВАЖЕНИЕМ АЛЕКСАНДР В.!

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

Отвечает: svsrus Здравствуйте, Alex81! Релиз 273 заполняет средний заработок верно. 274 релиз пока не смотрел, сказать не могу. Вообще на будущее, не стоит обновлять релизы сразу как только они появляются. Делайте это только по необходимости. Т.к. в новых релизах почти всегда и новые ошибки, особенно если внесены существенные изменения в законодательную базу. Да и обновления внесенные в конфигурацию иногда совершенно не нужны для вашего предприятия, а после обновления могут появиться ошибки которых раньше не было. Оно Вам надо? По поводу вопроса. Врядли кто сможет точно вам сказать, в чем дело. Надо смотреть вашу базу. Так, возникают подозрения: 1) Проверьте ваши календари. Они должны быть обязательно заполнены!!! Ну и все что с этим связано: табеля, если используете, другие документы 2) маловероятно, но возможно кто-то пошарил в конфигурации и например из групп расчетов БазаРасчетаОплатыБольничногоЛистаС2007 или других, просто убрал расчеты 3) совсем глупая. Может не расчитаны записи в журнале расчетов. Вообщем причин множество. Точно сказать невозможно. Если остальные базы работаю нормально, попробуйте заменить ошибочную конфигурацию, рабочей конфигурацией. Или просто заново поставьте обновление 273(274). Если не поможет надо искать в базе. Как пользоваться отладчиком долго объяснять, попробуете а там разберетесь. Кратко: 1. Ищем док "БольничныйЛист". Открываем форму и заходим в модуль формы. 2. Находим процедуру ЗаполнитьТабличнуюЧасть() (именно она висит на кнопке "Заполнить"), смотрим что там. Опа то что нам нужно - глобальная процедура глЗаполнитьДанныеСреднегоЗаработкаДляБЛ. Переходим в глобальник на эту процедуру. Нажимаем кнопку открыть в отладчике. В отладчике откроется глобальный модуль. 3. Ставим курсор на первую строчку в процедуре глЗаполнитьДанныеСреднегоЗаработкаДляБЛ. Жмем F9 - установка точки останова. Открываем в ЗиКе больничный и жмем кнопку заполнить. Если все правильно сделаете, программа остановится на точке останова. Дальее по F8 трассируем программу по шагам и смотрим что куда и откуда берется. Вообщем Удачи!

Ответ отправил: svsrus (статус: 5-ый класс) Ответ отправлен: 12.04.2007, 15:24 Оценка за ответ: 5 Комментарий оценки: Спасибо за попытку помочь!На счет обновлений - если не ошибаюсь как раз в 273 релизе было много нововведений(особенно по отчетам 2ндфл и др).Но как вы уже поняли эта ошибка скорее всего возникла не из-за обновлений(в других программах то все нормально)!Особое спрасибо за разъяснения как пользоваться отладчиком!

Вопрос № 82.334

Вопрос по 1с Зарплата и кадры 7.7. Проблема в том что выскакивает задолженость по зарплате у сотрудников, которые давно уволены.Выплата зарплаты произведена полностью. Смотрела код. Откуда-то берется большое текущее сальдо. Может подскажет кто-нибудь в чем дело?

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

Отвечает: BigHard Здравствуйте, Оксана/kasy! может, все проще: отмена проведения документов или удалены либо не активны проводки --------- Чем отличается чайник от программиста: У чайника в одном килобайте 1000 байт, а у программиста в одном километре 1024 метра

Ответ отправил: BigHard (статус: 9-ый класс) Ответ отправлен: 13.04.2007, 10:41 Оценка за ответ: 3 Комментарий оценки: В Зарплате и кадры используются видыРасчета и журнал расчета,а не проводки.

Отвечает: svsrus Здравствуйте, Оксана/kasy! Это особенность ЗиК. Многие выходят из этой ситуации написанием доп. кода. Я, например, в документе выплата зарплаты добавил галочку "Полная выплата". Если галочка стоит, то выплата происходит сотруднику полностью т.е. учитываются сальдо округления и альдо задолженности. Если этого не делать со временем это может доставить неприятности, а начальное сальдо по всем сотрудникам будет непрерывно расти из месяца в месяц. Если будет желание, пиши на мыло. Скину доработанный документ выплата зарплаты. По этой проблеме и по другим, подробно на писано здесь в пункте 5.Выплата зарплаты: http://www.vaicartana.narod.ru/zic.html И вообще, всем кто занимается в ЗиК эта страничка будет ОЧЕНЬ полезной!

Ответ отправил: svsrus (статус: 5-ый класс) Ответ отправлен: 13.04.2007, 11:34

Отвечает: Николай Александрович Здравствуйте, Оксана/kasy! Прошлый ответ не совсем верен, это не особенность ЗиК, а неправильность работы с программой, например сотрудник ушёл в отпуск, и получает зарплату через 2 месяца. Естественно бухгалтерам просто лень учитывать зарплату по всем периодам отдельными документами, потому они в одном документе и ставят полную выплату за, ну допустим, апрель месяц 40000 руб. Заработано за апрель всего 20000, остальные 20000 в марте. Вот эти 20000 и будут висеть до тех пор пока их не выплатят. Т.е. разобьют документ на 2 части 20000 - март, 20000 - апрель. Исправляется элементарно: В конфе, в виде расчёта "НачальноеСальдоОкругления" пишем: Процедура Провестирасчет() Возврат 0; и далее оставляем без изменений.... Но, есть одна проблемка. если сотрудник задолжает предприятию, то такой долг отражается минусов в текущем начальном сальдо. Лично я дописал просто новый документ по расчёту задолженности (что бы избежать неприятностей обновления). А если проще - в конфиге 274 в строке глобального модуля № 55272 вместо операции сравнения Если СуммаВТаблицу>0 Тогда, поставить Есои СуммаВТаблицу<>0 Тогда. Вот и всё Приложение:

Ответ отправил: Николай Александрович (статус: 1-ый класс) Ответ отправлен: 16.04.2007, 02:14 Оценка за ответ: 5 Комментарий оценки: Спасибо за полный ответ. Там правда ситуация была такая: Зарплата перечислялась в 2 этапа и было создано 2 документа выплата зарплаты, по одной начисленной сумме.

© 2001-2007, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Email: support@rusfaq.ru, тел.: +7 (926) 535-23-31 Авторские права | Реклама на портале Версия системы: 4.50 (beta) от 15.04.2007