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

Выпуск № 634
от 23.10.2007, 16:05

Вопрос № 105.801

Вопрос по 1С Зарплате и кадры 7.7. Имеется сотрудник, онкологически больной. По закону он имеет льготы по НДФЛ. Тоесть его зарплата не облагается вообще. Как правильно подобрать вычет, чотбы отчетность не сыпалась и НДФЛ сотруднику не начислялся? Налоговики посоветовали использовать вычет с кодом 601, но он не относится ни к стандартным ни к имущественным вычетам и при расчете НДФЛ не учитывается.

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

Отвечает: Vlad® Здравствуйте, Оксана/kasy! Все очень просто, если вы хотите совсем убрать НДФЛ, то если Вы заметили каждому сотруднику соответствует вид начисления (Операции - Справочники - Вид Начисления), соответственно при начислении зарплаты (рекомендуется начислять для данного сотрудника отдельным документом), для данного сотрудника настроить соответствующий вид начислений (т.е. создать новый элемент Вид начисления, и убрать там все галочки), тогда при начислениии з/п, НДФЛ не будет учитываться. Если есть вопросы пишите в личку разберемся, любая проблема имеет решение!

Ответ отправил: Vlad® (статус: 1-ый класс) Ответ отправлен: 17.10.2007, 19:01

Вопрос № 105.803

Добрый день, всем! В 1С:Бухгалтерия 7.7 (УСН) у меня возникли сложности с выводом формы справка о доходах 2-НДФЛ. Почему-то она находится в формах прошлых лет заканчивая 2004 годом. Как мне вывести такую справку сейчас? Там даже год не ставится 2007. Да и форма старая.

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

Отвечает: Сергей Здравствуйте, Alex446! В таких вопросах нужно писать номер версии. Скорее всего вам нужно обновить конфигурацию, на текущий момент последняя версия 154 (может быть 155???). Обновите вашу базу, и форма 2-НДФЛ должна будет печататься правильно.

Ответ отправил: Сергей (статус: Студент) Ответ отправлен: 17.10.2007, 17:08 Оценка за ответ: 3 Комментарий оценки: Обновление 154, регламентные отчеты за 3 квартал 2007 года... И все равно проблема не решается!

Отвечает: Elric Здравствуйте, Alex446! Обратитесь к любому 1С-франчайзи (или напрямую в фирму "1С"), они вышлют новые "регламентированные отчеты" по электронной почте, или сами заберете в офисе. Для лицензионных пользователей это бесплатно. Ну и, разумеется, нужно обновить релиз как платформы 1С, так и конфигурации. Эти релизы также предоставляются бесплатно. --------- В творчестве рождается истина

Ответ отправил: Elric (статус: Профессионал) Украина, Киев Тел.: +380952873210 Организация: "МАКСЕР", продажа и внедрение программ 1С Адрес: г. Киев ---- Ответ отправлен: 17.10.2007, 17:16 Оценка за ответ: 3 Комментарий оценки: Обновления тут не причем, обновляемся каждый месяц... А вопрос актуальный, и я думаю решение простое. Только вот какое? :)

Отвечает: Vlad® Здравствуйте, Alex446! А Вы в первую очередь формировали Налоговая карточка НДФЛ-1, а после НДФЛ-2?

Ответ отправил: Vlad® (статус: 1-ый класс) Ответ отправлен: 17.10.2007, 18:47 Оценка за ответ: 3 Комментарий оценки: разве это имеет значение?

Отвечает: Маргарита Здравствуйте, Alex446! Отчеты - Специализированные - Подготовка сведений для ИФНС - кнопка Печать справок

Ответ отправила: Маргарита (статус: 1-ый класс) Ответ отправлен: 17.10.2007, 19:53 Оценка за ответ: 3 Комментарий оценки: Самое страшное, это то, что у меня такой строчки нету... Зато есть пункт"Справка о доходах 2-ндфл", которая работает по 2005 год

Вопрос № 105.805

Здравствуйте уважаемые эксперты! У меня возникла необходимость заполнить табличную часть документа в "1С:Предприятии v7.7" (индивидуальная конфигурация) некоторыми данными, содержащимися в файле формата XML. Структура XML файла известна и постоянна. Можно ли средствами 1С работать с XML файлом наподобие работы с *.DBF файлами? Если это возможно, то хотелось бы маленький примерчик чтения XML файла и присваивания значений из его полей в таблицу значений. Или хотя бы ссылочку на небольшой и простенький пример.

Отправлен: 17.10.2007, 17:15 Вопрос задал: Сергей М (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Elric Здравствуйте, Сергей М! Для работы с XML-документами используется стандартная компонента V7PLUS.DLL. Участок Синтакс-помощника для работы с ней и сама компонента в приложенном к ответу архиве. Просто положите оба файла в каталог базы данных. Прикреплённый файл: Загрузить >> Срок хранения файла на сервере RusFAQ.ru составляет 30 суток с момента отправки ответа. --------- В творчестве рождается истина

Ответ отправил: Elric (статус: Профессионал) Украина, Киев Тел.: +380952873210 Организация: "МАКСЕР", продажа и внедрение программ 1С Адрес: г. Киев ---- Ответ отправлен: 17.10.2007, 17:25 Оценка за ответ: 5 Комментарий оценки: Файлик для синтаксиса-помошника - самое то! Спасибо огромное!

Отвечает: Шахрайчук Владимир Анатольевич Здравствуйте, Сергей М! Когда мне нужно выгружать данные в .xml то я выгружаю как Текст. Однако высылаю пример обработки, которая данные из Форма.Параметр выгружает в .xml. Это пример, хотя и очень плохой, потому что заумный, ничего не понятно Прикреплённый файл: Загрузить >> Срок хранения файла на сервере RusFAQ.ru составляет 30 суток с момента отправки ответа.

Ответ отправил: Шахрайчук Владимир Анатольевич (статус: Практикант) Ответ отправлен: 17.10.2007, 17:57 Оценка за ответ: 4 Комментарий оценки: Немного не ясно, но совместно с другим высланым примером - респект обоим афторам!

Отвечает: Dmitry Stashenko Здравствуйте, Сергей М! Ну и в дополнение к ответам экспертов приведу пример чтения текстовых файлов в формате XML средствами встроенного языка (без внешних компонент), описанный Romix в книге знаний Mista. В приложении пример загрузки многоуровневого справочника. Если что-то будет не понятно, то тут http://x-romix.narod.ru/XML_doc.rar лежит файл с работающим примером конфигурации. Приложение: //Ограничения на входящие файлы XML: //1) В первой строке обязателен заголовок XML вида <?xml version="1.0" encoding="windows-1251"?> . //2) Каждый тег должен быть записан в отдельной строке. Возможны отступы от начала строки и пустые строки. //3) Значения атрибутов - строго в двойных кавычках. //4) Не поддерживаются текстовые значения (любые значения можно передавать только через атрибуты). //5) Комментарии и "подобные им" элементы XML не поддерживаются. перем xml_fso; перем xml_file; перем xml_ИмяТега; перем xml_СписокАтрибутов; перем xml_сз; /////////////////////////////////////////////////////////////////////// //Открывает XML-файл в режиме "только чтение" Процедура xml_ОткрытьФайл(прм_ИмяФайла) //прм_ИмяФайла - имя файла XML (укажите полный путь и расширение .XML). xml_fso=СоздатьОбъект("Scripting.FileSystemObject"); xml_file=xml_fso.OpenTextFile(прм_ИмяФайла, 1, 0, 0); //Открываем файл в режиме "только чтение" стр=xml_file.ReadLine(); //Читаем заголовок XML вида <?xml version="1.0" encoding="windows-1251"?>. Если Найти(стр,"<?xml")=0 Тогда Сообщить("Неправильный файл XML "+прм_ИмяФайла,"!"); а=10/0; КонецЕсли; Если Найти(стр,"windows-1251")=0 Тогда Сообщить("Требуется кодировка windows-1251 файла XML "+прм_ИмяФайла,"!"); а=10/0; КонецЕсли; xml_СписокАтрибутов=СоздатьОбъект("СписокЗначений"); xml_сз=СоздатьОбъект("СписокЗначений"); КонецПроцедуры // xml_ОткрытьФайл /////////////////////////////////////////////////////////////////////// //Считывает следующий тег XML. //Возвращает 1, если тег прочитан и 0 - если был достигнут конец файла. //Заполняет переменную xml_ИмяТега именем считанного тега в формате "<ИмяТега>". Функция xml_Прочитать(прм_ОжидаемыеТеги="") //Если вы используете параметр прм_ОжидаемыеТеги, то заполните его списком тегов //через запятую, которые могут быть считаны в данный момент (это позволяет проверять //структуру файла XML и сделать более ясным считывающий код). xml_СписокАтрибутов.УдалитьВсе(); стр=""; Пока стр="" Цикл Если xml_file.AtEndOfStream=1 Тогда Возврат 0; //тег не был прочитан, т.к. достигнут конец файла КонецЕсли; стр=СокрЛП(xml_file.ReadLine()); КонецЦикла; //цикл, чтобы пропустить пустые строки Если Найти(стр,"=")=0 Тогда //Случай, когда нет атрибутов xml_ИмяТега=СокрЛП(стр); Иначе //Разбиваем тег на структуру, удобную для ИзСтрокиСРазделителями() стр=СтрЗаменить(стр,"""",""","""); стр=""""+стр+""""; сз=xml_сз; сз.УдалитьВсе(); сз.ИзСтрокиСРазделителями(стр); //В первом элементе списка у нас и имя тега, и имя первого атрибута. Разделим их. зн=сз.ПолучитьЗначение(1); поз=Найти(зн , " "); xml_ИмяТега =СокрЛП(Лев(зн, поз)); //Выделим имя тега xml_ИмяТега =xml_ИмяТега+">"; //Выделим и обновим имя первого атрибута зн =СокрЛП(Сред(зн, поз)); сз.УстановитьЗначение(1,зн); //Удаляем завершающий элемент списка /> или >. сз.УдалитьЗначение(сз.РазмерСписка()); //Переводим наш список значений в более удобный формат i=1; //позиция в списке сз рс=сз.РазмерСписка(); Пока i<=рс Цикл имя=сз.ПолучитьЗначение(i); имя=СокрЛП(СтрЗаменить(имя,"=","")); зн=сз.ПолучитьЗначение(i+1); //Заменяем спецсимволы XML зн=СтрЗаменить(зн,"&"+"quot"+";",""""); зн=СтрЗаменить(зн,"&"+"apos"+";","'"); зн=СтрЗаменить(зн,"&"+"lt"+";","<"); зн=СтрЗаменить(зн,"&"+"gt"+";",">"); зн=СтрЗаменить(зн,"&"+"amp"+";","&"); xml_СписокАтрибутов.ДобавитьЗначение(зн,имя); i=i+2; КонецЦикла; КонецЕсли; Если ПустаяСтрока(прм_ОжидаемыеТеги)=0 Тогда //Проверяем наличие имени тега в списке ожидаемых тегов (если надо контролировать структуру) Если Найти(прм_ОжидаемыеТеги,xml_ИмяТега)=0 Тогда Сообщить("Неожиданный тег "+xml_ИмяТега+" в строке "+xml_file.line); a=10/0; КонецЕсли; КонецЕсли; Возврат 1; //успешное чтение тега КонецФункции // xml_Прочитать /////////////////////////////////////////////////////////////////////// //Получает значение атрибута считанного тега по имени атрибута. //Если надо получить атрибут по его номеру, читайте список значений xml_СписокАтрибутов Функция xml_ПолучитьАтрибут(прм_ИмяАтрибута) Возврат xml_СписокАтрибутов.Получить(прм_ИмяАтрибута); КонецФункции // xml_ПолучитьАтрибут /////////////////////////////////////////////////////////////////////// //Закрывает открытый файл XML. По завершении работы с файлом его необходимо закрыть. Функция xml_Закрыть() xml_file.Close(); КонецФункции // xml_Закрыть //******************************************* //Тестовая процедура, которая считывает XML файл в справочник Товаров. Процедура Выполнить() стрИмяФайла=КаталогИБ()+"XML ovar.xml"; спр=СоздатьОбъект("Справочник.Товары"); НачатьТранзакцию(); //Для ускорения сч=0; //Для ускорения Сообщить("Начало чтения XML: "+ТекущееВремя()); xml_ОткрытьФайл(стрИмяФайла); xml_Прочитать("<Товары>"); спрР=СоздатьОбъект("Справочник.Товары"); Пока xml_Прочитать("<Элемент>,</Товары>")=1 Цикл сч=сч+1; //Для ускорения Если сч%1000=0 Тогда //Для ускорения ЗафиксироватьТранзакцию(); //Для ускорения НачатьТранзакцию();//Для ускорения КонецЕсли;//Для ускорения Если xml_ИмяТега="</Товары>" Тогда Прервать; КонецЕсли; Код=Число(xml_ПолучитьАтрибут("Код")); Наименование=xml_ПолучитьАтрибут("Наименование"); Единица=xml_ПолучитьАтрибут("Единица"); Цена=Число(xml_ПолучитьАтрибут("Цена")); ЭтоГруппа=Число(xml_ПолучитьАтрибут("ЭтоГруппа")); КодГруппы=Число(xml_ПолучитьАтрибут("Группа")); спрР.НайтиПоКоду(КодГруппы,0); Если спр.НайтиПоКоду(Код)=0 Тогда спр.ИспользоватьРодителя(спрР.ТекущийЭлемент()); Если ЭтоГруппа=1 Тогда спр.НоваяГруппа(); Иначе спр.Новый(); КонецЕсли; спр.Код = Код; КонецЕсли; спр.Родитель=спрР.ТекущийЭлемент(); спр.Наименование = Наименование; спр.Цена = Цена; спр.Единица = Единица; спр.Записать(); КонецЦикла; //по элементам XML xml_Закрыть(); Сообщить("Обработка завершена! "+ТекущееВремя(),"i"); ЗафиксироватьТранзакцию(); //Для ускорения КонецПроцедуры

Ответ отправил: Dmitry Stashenko (статус: 10-ый класс) Ответ отправлен: 17.10.2007, 19:43 Оценка за ответ: 4 Комментарий оценки: Немного не ясно, но совместно с другим высланым примером - респект обоим афторам!

Вопрос № 105.823

Здравствуйте, уважаемые Эксперты! Формируем файл для банка из 1С 7.7. Файл экселевский (Excel). Банк требует, чтобы суммы были в ячейках с форматом "Текстовый" либо "Общий" и выглядеть как ХХХХХХХ.ХХ Ну то есть копейки должны обязательно отображаться, даже если их нет. Делала так: Строка(Формат(Сумма,"Ч15.2.")) " "+Строка(Формат(Сумма,"Ч15.2."))+" " и всяко по другому. Но Эксель упорно воспринимает как числовой формат. При этом другую таблицу сохраняю в эксель и он спокойно это восринимает как формат "Общий", хотя там формула в ячейке СокрЛП(Формат(Сумма,"Ч15.2.")). Вопрос: как мне сделать, чтобы ексель воспринимал число как текст, не убирая при этом нули после точки? сейчас бухгалтер вручную меняет в файле эксель формат с "Число" на "Общий" и проставляет точки и нули после точек. Конечно так быть не должно, помогите, пожалуйста!

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

Отвечает: Бабин Андрей Леонидович Здравствуйте, Маргарита! Проверьте, какой стоит разделитель в экселе: меню "Сервис/Параметры/Международные". Если разделитель целой и дробной части числа указана точка (или региональные настройки подразумевают использование точки в качестве разделителя), то значения из 1С будут восприниматься как числа

Ответ отправил: Бабин Андрей Леонидович (статус: 1-ый класс) Ответ отправлен: 17.10.2007, 20:08 Оценка за ответ: 3 Комментарий оценки: Да-да! Я и это делала. А этот *** Эксель ставить запятые вместо точек и все равно воспринимает как число. А мне надо, чтобы воспринимало как строку.

Отвечает: Elric Здравствуйте, Маргарита! Встречный вопрос -- каким образом Вы формируете экселевский файл? Если через OLE (т.е. создаете объект "Excel.Application" и далее в ячейки выводите информацию), то формат ячейке назначается следующим образом: Excel.Cells(i,j).NumberFormat = "0.00" - задается числовой формат с двумя знаками после запятой Excel.Cells(i,j).NumberFormat = "General" - задается формат "Общий" Excel.Cells(i,j).NumberFormat = "@" - задается формат "Текст" В принципе, даже если Вы просто сохраняете таблицу mxl в формате xls, можно написать обработку, которая бы автоматически делала все то что бухгалтер сейчас делает вручную. Но, конечно, это если не найдете более простого варианта. Кроме того, можно просто сразу не выводить для просмотра таблицу, а автоматически сохранять в формате xls в условленном месте и автоматически же заменять формат в нужных яче йках. Выберите вариант, который для Вас проще. --------- В творчестве рождается истина

Ответ отправил: Elric (статус: Профессионал) Украина, Киев Тел.: +380952873210 Организация: "МАКСЕР", продажа и внедрение программ 1С Адрес: г. Киев ---- Ответ отправлен: 17.10.2007, 23:23 Оценка за ответ: 4 Комментарий оценки: спасибо, но все-таки мне не совсем понятно как бы сделать первое и второе :)

Вопрос № 105.879

Доброго времени суток... Не подскажете как сделать так, чтоб во время вывода отчетов (складская, двиижение товаров и т.д.) товары сортировались не по наименованию (алфавитно), а по коду товара? Версия 7.7

Отправлен: 18.10.2007, 05:24 Вопрос задал: Guru (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

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

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

Отвечает: Dubrovin Здравствуйте, Guru! спр=СоздатьОбъект("Справочник.Сотрудники"); спр.ПорядокКодов();

Ответ отправил: Dubrovin (статус: 2-ой класс) Ответ отправлен: 18.10.2007, 09:56

Отвечает: Elric Здравствуйте, Guru! В запросе в группировке использовать опцию упорядочить по. Например, в отчете остатков товаров товар сортируется по коду так: Группировка Товар упорядочить по Товар.Код; --------- В творчестве рождается истина

Ответ отправил: Elric (статус: Профессионал) Украина, Киев Тел.: +380952873210 Организация: "МАКСЕР", продажа и внедрение программ 1С Адрес: г. Киев ---- Ответ отправлен: 18.10.2007, 10:03

Вопрос № 105.890

Доброго времени суток. Проблема следующая, в конце рабочего дня из 1с 7.7 Бухгалтерия для бюджетных учреждений 6 выходят нормально, а сутра пишет программа завершена аварийно и просит монопольный режим, подскажите как это исправить, гдето встречал ответ на подобное но никак не найду. Заранее благодарен.

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

Отвечает: Полозов Олег aka Asher Здравствуйте, Шмачков А. В.! Для полного завершения программы необходимо еще некоторое время, после того как пропадет окно программы. Если сразу после закрытия окна программы начинать заверншение работы компьютера, то появится окно 1С 7.7 бла бла бла, завершить сейчас? Юзвери давят да. вот вам и аварийное завершение программы.

Ответ отправил: Полозов Олег aka Asher (статус: 10-ый класс) Ответ отправлен: 18.10.2007, 09:25

Отвечает: nimoid Здравствуйте, Шмачков А. В.! Чтобы не мучаться по утрам с реиндексацией, поставьте в назначенные задания (пуск - стандартные - служебные - назначенные задания) на сервере (часов эдак в 00:00 или когда никто точно неработает) на каждый день запуск пакетного файла, в котором пропишите запуск 1с в пакетном режиме на реиндексацию нужных Вам баз. Пример см. в приложении. Приложение: c:1cv7in1cv7.exe CONFIG /Dc:1cBasesdb1 /NСидоров /PSuperParol /@C:CMDReindex.cmd Параметры: CONFIG - запуск конфигуратора /D - путь к базе /N - Имя пользователя (с правами на реиндексацию) /P - пароль /@ - путь к пакетному файлу (расширение prm по-умолчанию, если другое, необходимо указать расширение явно) --------- Пишем баги на любые патчи :-]

Ответ отправил: nimoid (статус: 9-ый класс) Ответ отправлен: 18.10.2007, 11:09

Отвечает: Шахрайчук Владимир Анатольевич Здравствуйте, Шмачков А. В.! Сервис-МониторПользователей-ЖурналРегистрации-КатегорияСобытия оставить птички Сеанс Проанализируйте, кто из пользователей зашел, но не вышел. При малейшей сетевой ошибке такое тоже проявляется. Бороться с сетевыми ошибками можно, только перейдя на терминалы (и пошустрее будет)

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

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