Регламентований звіт "Розрахунок доходів та єдиного внеску фізосіб" для ЗУП 2.1 , До типового додано функціонал вивантаження в xml.
3 страниц
< 1 2 3
24.10.23, 17:02
Живет на форуме
Группа: Местный
Сообщений: 2919
Из: Київ, Україна
Спасибо сказали: 1229 раз
Рейтинг: 1333.9
Тираэль @ Today, 16:35
,
Читайте найперше повідомлення теми...
Допрацьовую: - "Бухгалтерія для України 2.1"; - "Альфа-Авто: Автосалон+Автосервіс+Автозапчастини, українська версія".
09.02.24, 20:22
Общительный
Группа: Пользователи
Сообщений: 10
Спасибо сказали: 0 раз
Рейтинг: 0
Тираэль @ 24.10.23, 17:35
,
В зависимости от C_DOC_STAN (1-отчётный, 2 - новый отчётный, ...)
в Таблицах 11,12,13 для соответствующей ячейки "ознаки" установить тип значения "Строка".
В коде найти подстроку "T1RG25" и соответственно установить значения в "" и ОписаниеТиповСтрока.
Думал, что поможет. Нет. В схему надо лезть.
10.02.24, 21:24
Общительный
Группа: Пользователи
Сообщений: 10
Спасибо сказали: 0 раз
Рейтинг: 0
jdcodorg @ Вчера, 21:22
,
Так как МеДок не использую, то написал код для корректировки прямо в выходных файлах (ЗУП 2.1).
Функция ПризнакОтчетногоПериода(ПутККаталогу) рет = Ложь; СписокФайлов = НайтиФайлы(ПутККаталогу,"*J0500109*.xml"); Если СписокФайлов.Количество() = 1 Тогда Док = Новый ТекстовыйДокумент; Док.Прочитать(СписокФайлов[0].ПолноеИмя, КодировкаТекста.ANSI); Текст = Док.ПолучитьТекст(); СтрПоиска = "C_DOC_STAN"; поз = Найти(Текст, СтрПоиска); Если поз <> 0 Тогда знч = Сред(Текст, поз + СтрДлина(СтрПоиска)+1, 1); Если знч = "1" Тогда рет = Истина; КонецЕсли; КонецЕсли; КонецЕсли; Возврат рет; КонецФункции // Из уже сформированных (выгруженных) файлов отчёта убирает значение 0 в колонке // "ознака "0", якщо рядок потрібно ввести, чи ознака "1", якщо рядок потрібно виключити". // Это можно делать только для файлов отчёта с меткой "Звітний". // Процедура КорректироватьОзнаку(Кнопка) Перем RegExp; Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.ВыборКаталога); Диалог.Заголовок = НСтр("ru='Выберите каталог выгрузки xml файлов';uk='Виберіть каталог вивантаження xml файлів'"); Если НЕ Диалог.Выбрать() Тогда Возврат; КонецЕсли; Если НЕ ПризнакОтчетногоПериода(Диалог.Каталог) Тогда Сообщить("Это отчёт не ""Отчётного периода"". Корректировать нечего.",СтатусСообщения.Внимание); Возврат; КонецЕсли; СписокФайлов = НайтиФайлы(Диалог.Каталог,"*J0510?09*.xml"); Если СписокФайлов.Количество() <> 0 Тогда RegExp = Новый COMОбъект("VBScript.RegExp"); RegExp.MultiLine = Истина; RegExp.Global = Истина; RegExp.Pattern = ">0<\/T1RXXXXG25>"; Для каждого ф Из СписокФайлов Цикл Если Найти(ф.ПолноеИмя, "J0510109") <> 0 ИЛИ Найти(ф.ПолноеИмя, "J0510509") <> 0 Тогда Док = Новый ТекстовыйДокумент; Док.Прочитать(ф.ПолноеИмя, КодировкаТекста.ANSI); Текст = Док.ПолучитьТекст(); ТекстНовый = RegExp.Replace(Текст, " xsi:nil=""true""/>"); Док.УстановитьТекст(ТекстНовый); Док.Записать(ф.ПолноеИмя, КодировкаТекста.ANSI); КонецЕсли; КонецЦикла; RegExp = Неопределено; Иначе Сообщить("В выбранном каталоге нет xml файлов"); КонецЕсли; КонецПроцедуры
11.02.25, 13:27
Молчаливый
Группа: Пользователи
Сообщений: 5
Спасибо сказали: 1 раз
Рейтинг: 1.3
Petre @ 17.10.23, 13:28
,
Доброго дня, чи є вже регламентований звіт (місячний) Розрахунок доходів та єдиного внеску фізосіб" від 05.02.25 р.?
11.02.25, 14:16
Молчаливый
Группа: Пользователи
Сообщений: 4
Спасибо сказали: 1 раз
Рейтинг: 1.3
sergionidi @ Сегодня, 1:27
,
на ІТС вже віклали сьогодні зовнішні звіти и для БАС і для УТП и УПП
[необходимо зарегистрироваться для просмотра ссылки]
може хтось поділисться зовнішнім звітом для УТП або УПП,
11.02.25, 14:35
Молчаливый
Группа: Пользователи
Сообщений: 4
Спасибо сказали: 1 раз
Рейтинг: 1.3
xlmel @ Сегодня, 2:22
,
Дякую велике Вам !
12.02.25, 14:11
Молчаливый
Группа: Пользователи
Сообщений: 1
Спасибо сказали: 0 раз
Рейтинг: 0
Цитата(xlmel @ 11.02.25, 13:22)
для УТП
Дякую, допоможіть з паролем до архіву?
12.02.25, 14:58
Молчаливый
Группа: Пользователи
Сообщений: 1
Спасибо сказали: 0 раз
Рейтинг: 0
Sam_2702 @ Сегодня, 14:11
,
так згідно правил форуму ж...
П.С. Всім привіт! А цей звіт для BAS Бухгалтерії хтось може підкинути?
12.02.25, 20:50
Молчаливый
Группа: Пользователи
Сообщений: 8
Спасибо сказали: 4 раз
Рейтинг: 5.2
Знайдено на теренах інтернету Місячна Об'єднана звiтнiсть ПДФО та ЄСВ BAS
Не нашли ответа на свой вопрос?
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!