Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Неназначенных незавершенных заказов: 2
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Войти | Зарегистрироваться )



История благодарностей участнику Markiz ::: Спасибо сказали: 18 раз
Дата поста: В теме: За сообщение: Спасибо сказали:
31.01.19, 9:28 Групповая выгрузка налоговых накладных в XML
Talkman @ 11.11.18, 16:58 * ,
Прошу прощения за ооочень запоздавший ответ.
Обработка не требует обновлений -- обновления требует обработка XMLEXPRT.ERT из новой группы регламентированных отчетов. Что и как делать указано в описании выше (абзацы Реализация и Инструкция).
Oks78,
24.02.15, 11:31 Групповая выгрузка налоговых накладных в XML
Картинка к описанию программы:
Andromed, Oks78,
20.02.15, 11:12 Групповая выгрузка налоговых накладных в XML
История: в свое время были скачаны из тырнета и опробованы моей Бухгалтерией несколько обработок аналогичного назначения. Но ни одна из них не передавала в М.Е.док данные настолько корректно, как это делает стандартная обработка «Экспорт налоговой накладной». Попытки вникнуть в чужие творения и как-то исправить их не принесли желаемого результата, только потратил зря время.
Идея: если обработка правильно выгружает один документ, то почему нельзя с её помощью выгрузить много документов?
Реализация: обработка «Выгрузка налоговых накладных…» по сути является программой для выбора экспортируемых документов и многократного запуска стандартных обработок. Чтобы это работало, добавлены несколько программных строк в обработки «ЭкспортНалоговойНакладной» из конфигурации (в ветке «Отчеты») и в «xmlExprt.ert» из последнего релиза регламентированных отчетов. Таким образом, при выходе нового релиза конфигурации и/или регламентированных отчетов эти строки нужно перенести в новый релиз. В доработанных мною стандартных обработках (прилагаются) внесенные изменения помечены комментариями «//МЗ+» и «//МЗ-».
Инструкция: из прилагаемой обработки «ЭкспортНалоговойНакладной.ert» перенести отмеченные моими комментариями строки программы в вашу конфигурацию; прилагаемую обработку «xmlExprt.ert» поместить в группу регламентированных отчетов Rp15q1.grp. Должно работать. ;-).
Andromed, anten, bobby_bob, hamster12, iamalex, mister-x, Oks78, RomkoZ, saol, sti2008, VladimirCHK, Vofka, Дмитрий Дмитриевич Костен, Читатель,
21.09.09, 15:35 1С77 и Excel
Вот немножко, что у меня работает:

// ===============================
// Заполнение ячейки в эксель-таблице:
//   параметры:
//    1    xl - объект Эксель = СоздатьОбъект("Excel.Application");;
//    2    Стр - строка, в к-рую помещаем данные
//    3    Кол - колонка, в к-рую помещаем данные
//    4    Значение - данные, к-рые помещаем в выбранную ячейку
//  5    шрифтРазм - размер шрифта в ячейке
//    6    шрифтЖирн - шрифт жирный / не жирный
//    7    гориз - выравнивание по горизогтали
//      1 - по значению, 2 - по левому краю, 3 - по центру
//    8    вертик -     -"-        -"- вертикали    
//      1 - верх, 2 - центр, 3 - низ)
//    9    перенос - есть ли перенос по словам
//        1 - переносить, 0 - не переносить)
//    10    линия - стиль линии обрамления ячейки
//        1 - обычная непрерывная линия
//        2 - пунктир плотный
//        3 - пунктир более разреженный
//        4 - пунктир (типа осевой) --.--.--.--
//        5 -   -"-    -"-          --..--..--..--
//        6 -   -"-    -"-          --.--.--.-- более жирный
//        7 - тонкая сплошная
//        8 - пунктир из коротких пунктиров
//        9 - двойная тонкая сплошная
//
Процедура ПоместитьЗначение(xl,Стр,Кол,Значение, шрифтРазм = 9, шрифтЖирн = 0, гориз = 2, вертик = 1, перенос = 1, линия = 0);

    Ячейка = xl.Cells(Стр,Кол);
    Ячейка.Value = Значение;
    Ячейка.Font.Size = шрифтРазм;
    Ячейка.Font.Bold = шрифтЖирн;
    Ячейка.HorizontalAlignment = гориз;
    Ячейка.VerticalAlignment = вертик;
    Ячейка.WrapText = перенос;
    Ячейка.Borders.Linestyle = линия;

КонецПроцедуры

// делаем Эксель невидимым:
    Эксель.ScreenUpdating = 0;
    Эксель.EnableEvents = 0;
    Эксель.Visible = 0;

// как выделить область:
    область = лист.Range(лист.Cells(текСтрока, 1), лист.Cells(текСтрока, 16));
    
// Borders():   1 - лево, 2 - право, 3 - верх, 4 - низ
// Weight:        1 - линия из точек, 2 - тонкая сплошная, 3 - чуть толще тонкого

   область.Borders(3).Weight = 3;

// выбор нужного листа:
    Если СоздаватьНовыйФайл = 1 Тогда    
        лист = книга.WorkSheets.Add();
        лист = книга.WorkSheets(1);
        лист.Name = "Шаблон";
    Иначе
        лист = книга.WorkSheets("Шаблон");
    КонецЕсли;    

// задание высоты сроки:
    лист.Rows(текСтрока).RowHeight = 60;
// задание ширины колонки    
    лист.Columns(1).ColumnWidth  = 13.57;


вот вроде и всё.
mister-x,

RSS Текстовая версия Сейчас: 27.04.24, 21:36
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!