RusFAQ.ru: 1С для программиста

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

Выпуск № 124
от 08.02.2006, 09:33

Вопрос № 34.603

Здравствуйте Эксперты! В глобальном модуле для печатной формы РЛ2(расчетные листки для сотрудников) были некоторые изменения в процедуре. Но это подействовало на РЛ1 (расчетные литстки для данных бухгалтерии). Что нужно сделать чтобы эти изменения не действовали на РЛ1 (должен остаться как есть). Если можно с примерами :))) Заранее благодарен! Приложение: Таб=СоздатьОбъект("Таблица"); Если Пар1=1 Тогда Таб.ИсходнаяТаблица("РасчЛ2"); Иначе Таб.ИсходнаяТаблица("РасчЛ1"); КонецЕсли; НС=0; Сдвиг=0;СтарКол=0; Пока ЗапросН.Группировка("Сотр")=1 Цикл Сотр=ЗапросН.Сотр; //Сообщить(""+НС+" > "+СпрПарам.Страница); Если НС>СпрПарам.Страница-СпрПарам.Раздел1Загл-СпрПарам.Раздел1Подв-5 Тогда Таб.НоваяСтраница(); НС=0; КонецЕсли; НС=НС+СпрПарам.Раздел1Загл; Если ЗапросН.Долг<>0 Тогда НСальдоН="Долг за работником"; СуммаНС1=0; СуммаНС2=ЗапросН.Долг; Иначе НСальдоН="Долг за предприятием "; СуммаНС1=ЗапросН.СальдоНач; СуммаНС2=0; КонецЕсли; СпрНЛ.ИспользоватьВладельца(Сотр); СпрНЛ.ВыбратьЭлементы(); Пока СпрНЛ.ПолучитьЭлемент()=1 Цикл Если (СпрНЛ.ДатаНачала < КП) и ((СпрНЛ.ДатаОкончания > НП) или (СпрНЛ.ДатаОкончания = Дата(" . . "))) Тогда Если СпрНл.ТипЛьготы.СпособРасчета=Перечисление.ТипНалоговойЛьготы.МинЗарплатВмесяц Тогда Льгот = "" + СпрНЛ.ТипЛьготы.Величина+" миним.з/п в месяц;"; КонецЕсли; Если СпрНл.ТипЛьготы.СпособРасчета=Перечисление.ТипНалоговойЛьготы.НеБолееОпредПроцента Тогда Льгот = Льгот + ""+"не более "+ СпрНЛ.ТипЛьготы.Величина+" процентов"; КонецЕсли; КонецЕсли; КонецЦикла; Если ПустаяСтрока(Льгот)=1 Тогда Льгот=" нет"; КонецЕсли; НаРукиЗП=0; НаРукиПС=0; ВсегоН=0; ВсегоУ=0; НачНачГода=0; НалогНачГода=0; МпНачГода=0; РКНачГода=0; ВЛНачГода=0; Таб.ВывестиСекцию("Шапка"); НС=НС+СпрПарам.Раздел1Загл; ВсегоН=ЗапросН.Начисл; ВсегоУ=ЗапросН.Удерж; ЖрнЗарплата.ВыбратьПериодПоОбъекту(ЗапросН.Сотр,ДатаАктуальности); Пока ЖрнЗарплата.ПолучитьЗапись()>0 Цикл Если ЖрнЗарплата.Результат=0 Тогда Продолжить; КонецЕсли; Если ((ЖрнЗарплата.ВидРасч.ВходитВГруппу(ГруппаРасчетов.ВсеНачисления)=1) И (ЖрнЗарплата.ВидРасч<>ВидРасчета.НачальноеСальдо)) или ((ЖрнЗарплата.ВидРасч.ВходитВГруппу(ГруппаРасчетов.ВсеУдержания)=1) И ( ЖрнЗарплата.ВидРасч<>ВидРасчета.ВыплатаЗарплаты) И ( ЖрнЗарплата.ВидРасч<>ВидРасчета.ВыплатаПенсии) И (ЖрнЗарплата.ВидРасч<>ВидРасчета.ДолгНачалоМесяца)) Тогда Иначе Продолжить; КонецЕсли; СуммаНач=0; СуммаУд=0; Если ЖрнЗарплата.ВидРасч<>ВидРасчета.ВыплатыПрочие Тогда ВРНач=ЖрнЗарплата.ВидРасч.Наименование; Иначе Если ЖрнЗарплата.Документ.Вид()="ПлатежнаяВедомость1" Тогда ВРНач="Выплата "+ЖрнЗарплата.Документ.Расчет.Наименование; ИначеЕсли ЖрнЗарплата.Документ.Вид()="ПриказПоОтпускуРУз" Тогда ВРНач="Выплата отпускных"; Иначе ВРНач=ЖрнЗарплата.ВидРасч.Наименование; КонецЕсли; КонецЕсли; Если ЖрнЗарплата.ВидРасч=ВидРасчета.ПодоходныйНалог Тогда НалогТекМесяц=НалогТекМесяц+ЖрнЗарплата.Результат; КонецЕсли; Если ЖрнЗарплата.ВидРасч=ВидРасчета.УдержаниеИНПС Тогда НалогТекМесяц=НалогТекМесяц+ЖрнЗарплата.Результат; КонецЕсли; //!!!!!!!!!!!!!!!!!!!!!!! Если ЖрнЗарплата.ВидРасч.ВходитВГруппу(ГруппаРасчетов.ВсеНачисления)=1 Тогда СуммаНач=ЖрнЗарплата.Результат; //ВсегоН=ВсегоН+ЖрнЗарплата.Результат; КонецЕсли; Если ЖрнЗарплата.ВидРасч.ВходитВГруппу(ГруппаРасчетов.ВсеУдержания)=1 Тогда СуммаНач=-ЖрнЗарплата.Результат; ////СуммаУд=ЖрнЗарплата.Результат; //ВсегоУ=ВсегоУ+ЖрнЗарплата.Результат; КонецЕсли; Дни=ЖрнЗарплата.Дни; Часы=ЖрнЗарплата.Часы; НМес=?(ДатаМесяц(ДатаАктуальности)<>ДатаМесяц(ЖрнЗарплата.ДатаОкончания),ДатаМесяц(ЖрнЗарплата.ДатаОкончания),""); Таб.ВывестиСекцию("ВР"); НС=НС+СпрПарам.Раздел1Загл; КонецЦикла; //Пока ЗапросН.Группировка("ВР")=1 Цикл // Если ЗапросН.Суммы=0 Тогда // Продолжить; // КонецЕсли; // СуммаНач=0; СуммаУд=0; // ВРНач=ЗапросН.ВР.Наименование; // Если ЗапросН.Вр.ВходитВГруппу(ГруппаРасчетов.ВсеНачисления)=1 Тогда // СуммаНач=ЗапросН.Суммы; // ВсегоН=ВсегоН+ЗапросН.Суммы; // КонецЕсли; // Если ЗапросН.Вр.ВходитВГруппу(ГруппаРасчетов.ВсеУдержания)=1 Тогда // СуммаУд=ЗапросН.Суммы; // ВсегоУ=ВсегоУ+ЗапросН.Суммы; // КонецЕсли; // Дни=ЗапросН.Дни; // Часы=ЗапросН.Часы; // НМес=""; // Таб.ВывестиСекцию("ВР"); //КонецЦикла; ДатаХ=НачГода(ДатаАктуальности); Пока ДатаХ<КонМесяца(ДатаАктуальности) Цикл ЖрнЗарплата.ВыбратьПериодПоОбъекту(ЗапросН.Сотр,ДатаХ); Пока ЖрнЗарплата.ПолучитьЗапись()>0 Цикл Если ЖрнЗарплата.ВидРасч.ВходитВГруппу(ГруппаРасчетов.ОблагаетсяПН)=1 Тогда НачНачГода=НачНачГода+ЖрнЗарплата.Результат; КонецЕсли; Если ЖрнЗарплата.ВидРасч=ВидРасчета.ПодоходныйНалог Тогда НалогНачГода=НалогНачГода+ЖрнЗарплата.Результат; КонецЕсли; Если ЖрнЗарплата.ВидРасч=ВидРасчета.УдержаниеИНПС Тогда НалогНачГода=НалогНачГода+ЖрнЗарплата.Результат; КонецЕсли; Если ЖрнЗарплата.ВидРасч.ВходитВГруппу(ГруппаРасчетов.МатПомощь)=1 Тогда МПНачГода=МПНачГода+ЖрнЗарплата.Результат; КонецЕсли; Если ЖрнЗарплата.ВидРасч=ВидРасчета.РайонныйКоэффициент Тогда РКНачГода=РКНачГода+ЖрнЗарплата.Результат; КонецЕсли; Если ЖрнЗарплата.ВидРасч=ВидРасчета.ДоплатаЗаВыслугЛет Тогда ВЛНачГода=ВЛНачГода+ЖрнЗарплата.Результат; КонецЕсли; КонецЦикла; ДатаХ=ДобавитьМесяц(ДатаХ,1); НС=НС+СпрПарам.Раздел1Загл; КонецЦикла; НаРукиЗП=ЗапросН.Зарпл; НаРукиПС=ЗапросН.Пенсия; //ИтогоМ=СуммаНС1-СуммаНС2+ ИтогоМ=ВсегоН-ВсегоУ-НаРукиЗП-НаРукиПС; Если ИтогоМ<0 Тогда НСальдоК="Долг за работником"; ////СуммаКС1=0; СуммаКС2=(ИтогоМ*(-1)); СуммаКС1=ИтогоМ; СуммаКС2=0; Иначе НСальдоК="Долг за предприятием "; СуммаКС1=ИтогоМ; СуммаКС2=0; КонецЕсли; Если НаРукиПС<>0 Тогда НаимПенс="пенсия"; Иначе НаимПенс=""; КонецЕсли; Таб.ВывестиСекцию("Низ"); НС=НС+СпрПарам.Раздел1Загл; Если Константа.ИспользоватьРК=Перечисление.ДаНет.Да Тогда Таб.ВывестиСекцию("РК"); НС=НС+СпрПарам.Раздел1Загл; КонецЕсли;

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

Отвечает: BuhCIA Здравствуйте, Laziz M. Ismailov! Вместо строк Если ЖрнЗарплата.ВидРасч.ВходитВГруппу(ГруппаРасчетов.ВсеУдержания)=1 Тогда СуммаУд=ЖрнЗарплата.Результат; //ВсегоУ=ВсегоУ+ЖрнЗарплата.Результат; КонецЕсли; ставится несколько больше строк: Если ЖрнЗарплата.ВидРасч.ВходитВГруппу(ГруппаРасчетов.ВсеУдержания)=1 Тогда Если Пар1=1 Тогда СуммаУд=ЖрнЗарплата.Результат; Иначе СуммаНач=-ЖрнЗарплата.Результат; КонецЕсли; //ВсегоУ=ВсегоУ+ЖрнЗарплата.Результат; КонецЕсли; и аналогично еще ниже: вместо Если ИтогоМ<0 Тогда НСальдоК="Долг за работником"; СуммаКС1=0; СуммаКС2=(ИтогоМ*(-1)); Иначе НСальдоК="Долг за предприятием "; СуммаКС1=ИтогоМ; СуммаКС2=0; КонецЕсли; ставится Если ИтогоМ<0 Тогда Если Пар1=1 Тогда НСальдоК="Долг за работником"; СуммаКС1=0; СуммаКС2=(ИтогоМ*(-1)); Иначе НСальдоК="Долг за работником"; СуммаКС1=ИтогоМ; СуммаКС2=0; КонецЕсли; Иначе НСальдоК="Долг за предприятием "; СуммаКС1=ИтогоМ; СуммаКС2=0; КонецЕсли; Успехов! --------- Скажите, сколько времени? - (устало, показывая часы) Читайте, там же все написано!

Ответ отправил: BuhCIA (статус: Студент) Отправлен: 02.02.2006, 10:10 Оценка за ответ: 5

Вопрос № 34.652

Здравствуйте... У меня два вопроса. Помогите плиз. Они очень простые. Первый: как сделать заставку на 1С ? Второй: как скопирывать справочник или еще что-нибудь вместе с данными с одной конфигурации в другую :). Я знаю, что через Excel и xBase, но только не знаю как. Заранее благодарю :).

Отправлен: 03.02.2006, 08:07 Вопрос задал: Karanskiy Arkadiy (статус: Посетитель) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Сергей Здравствуйте, Karanskiy Arkadiy! есть специальная обработка, надо пишите.... azimplus@mail.ru

Ответ отправил: Сергей (статус: 2-ой класс) Отправлен: 03.02.2006, 08:50 Оценка за ответ: 5

Отвечает: BuhCIA Здравствуйте, Karanskiy Arkadiy! На второй вопрос. Пример прямого взаимодействия двух разных баз (с разными конфигурациями, но, видимо, с одним запускаемым модулем 1С...exe) см. здесь http://www.mista.ru/articles1c/ole.htm Если не получилось, то результаты экспериментов прошу в мини-форум вопроса 34652 (по ссылке в первом письме с уведомлением о получении вопроса) --------- Скажите, сколько времени? - (устало, показывая часы) Читайте, там же все написано!

Ответ отправил: BuhCIA (статус: Студент) Отправлен: 03.02.2006, 09:09 Оценка за ответ: 4 Комментарий оценки: спасибо посмотрю

Отвечает: Шахрайчук Владимир Анатольевич Здравствуйте, Karanskiy Arkadiy! 1я обработка выгружает данные во внешний файл. База=СоздатьОбъект("XBase"); База.ДобавитьПоле("A","C",15,);//Код База.ДобавитьПоле("S1","C",100,);//Наименование База.ДобавитьПоле("S2","N",15,6);//Цена База.СоздатьФайл("P:sravnen.dbf"); База.КодоваяСтраница(1); Спр= СоздатьОбъект("Справочник.Номенклатура"); Спр.ВыбратьЭлементы(); Пока Спр.ПолучитьЭлемент() = 1 Цикл База.Добавить(); База.УстановитьЗначениеПоля("A",Спр.Код); База.УстановитьЗначениеПоля("S1",Спр.Наименование); База.УстановитьЗначениеПоля("S2",Спр.Цена); База.Записать() КонецЦикла; База.ЗакрытьФайл(); Файл сформирован. Теперь в другой базе другой обработкой его прочитать. База=СоздатьОбъект("XBase"); База.КодоваяСтраница(1); База.ОткрытьФайл("P:sravnen.dbf",); Если База.Открыта()=0 Тогда Сообщить("Файл не вiдкрито!"); Возврат; КонецЕсли; База.ПоказыватьУдаленные(0); Спр= СоздатьОбъект("Справочник.Номенклатура"); База.Первая(); Пока База.ВКонце()<>1 Цикл //Здесь вставь проверку, чтобы не засосать дубль элемента. Если Спр.НайтиПоНаименованию(База.S1,0)=0 Тогда Спр.Новый(); Спр.Код=База.A; Спр.Наименование=База.S1; Спр.Цена=База.S2; Попытка//Может и не записаться если код не уникальный Спр.Записать(); Исключение Сообщить("Не могу записать тототото"); КонецПопытки; База.Следующая(); КонецЕсли; КонецЦикла; База.ЗакрытьФайл(); Навешай побольше проверок, сообщений, проверь на тренировочной базе и вперед. С периодическими реквизитами посложнее. Например, Цена в элементе "Сок березовый" имеет 5 значений(разные даты), а остальные элементы более пяти значений не имеют. Тогда создашь поля s21,s21data,s22,s22data, и т.д. Через объект Периодический запишешь их в База, через установить перепишешь в справочник. Да, кстати, можно использовать База.УстановитьЗначениеПоля("S"+Строка(Сч),Спр.ррррр); Ну вот, все тонкости вроде бы, рассказал.

Ответ отправил: Шахрайчук Владимир Анатольевич (статус: 7-ой класс) Отправлен: 03.02.2006, 20:48 Оценка за ответ: 5 Комментарий оценки: Хоть в кратце, ну и за это спасибо

Отвечает: Elric Здравствуйте, Karanskiy Arkadiy! Заставка -- это просто. Открываете Конфигуратор, в нем конфигурацию. На объекте "Задача" (это там где идентификатор конфигурации, например "Бухгалтерский учет для Украины" или "Комплексная конфигурация" и т.п.) щелкаете правой кнопкой мыши и открываете свойства. На закладке "Заставка" нажимаете кнопку "Изменить" и попадаете в форму выбора заставки и логотипа и редактирования копирайтов. Вот там и устанавливаете заставку. Диапазон допустимых форматов довольно широк, посмотрите сами. --------- Мирный атом в каждый дом

Ответ отправил: Elric (статус: 3-ий класс) Отправлен: 04.02.2006, 00:47

© 2001-2006, Портал RusFAQ.ru, Россия, Москва. Идея, дизайн, программирование: Калашников О.А. Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31 Авторские права | Реклама на портале Версия системы: $My_version от $My_date

---

Subscribe.Ru Поддержка подписчиков Другие рассылки этой тематики Другие рассылки этого автора

Подписан адрес: Код этой рассылки: comp.soft.prog.1cprogfaq Архив рассылки

Отписаться Вебом Почтой Вспомнить пароль

---

В избранное