Скрипт для вывода кодов ЕГРПОУ и ИНН в украинских конфигурациях на неуправляемых формах.

Скрипт для вывода кодов ЕГРПОУ и ИНН в украинских конфигурациях на неуправляемых формах., В нашем случае это 1С:Управление торговым предприятием

itspec

Пользователь

Сообщений: 10 Регистрация: 06.05.2015

18.12.2017 21:38:00

Столкнулись с проблемой, что в Украинской конфигурации нельзя без скрипта вывести Код ЕГРПОУ и ИНН.

Потому что данные по Кодам находятся в РС "Коды организаций".

Подскажите, пожалуйста, как правильно написать скрипт, чтобы вывести эти реквизиты в договор?

Администратор

Сообщений: 1067 Регистрация: 28.08.2013

21.12.2017 07:28:19

Скрипт получения кода ЕДРПОУ

Код

Результат = "";

Запрос = Новый Запрос(
"ВЫБРАТЬ
|   КодыОрганизацииСрезПоследних.КодПоЕДРПОУ
|ИЗ
|   РегистрСведений.КодыОрганизации.СрезПоследних(&ДатаДокумента, Организация = &ПараметрОрганизация) КАК КодыОрганизацииСрезПоследних");

Запрос.УстановитьПараметр("ДатаДокумента", Параметры.Документ_Дата);
Запрос.УстановитьПараметр("ПараметрОрганизация", Параметры.Документ_Организация);

Выборка = Запрос.Выполнить().Выбрать();
Если Выборка.Следующий() Тогда
   Результат = Выборка.КодПоЕДРПОУ;
КонецЕсли;

Скрипт получения ИНН

Код

Результат = "";

Запрос = Новый Запрос(
"ВЫБРАТЬ
|   КодыОрганизацииСрезПоследних.ИНН
|ИЗ
|   РегистрСведений.КодыОрганизации.СрезПоследних(&ДатаДокумента, Организация = &ПараметрОрганизация) КАК КодыОрганизацииСрезПоследних");

Запрос.УстановитьПараметр("ДатаДокумента", Параметры.Документ_Дата);
Запрос.УстановитьПараметр("ПараметрОрганизация", Параметры.Документ_Организация);

Выборка = Запрос.Выполнить().Выбрать();
Если Выборка.Следующий() Тогда
   Результат = Выборка.ИНН;
КонецЕсли;

Позже будет видео по добавлению скриптов

Прикрепленные файлы

Администратор Администратор Сообщений: 1067 Регистрация: 28.08.2013	#3 0 21.12.2017 09:00:54 Видео по добавлению этих скриптов

itspec

Пользователь

Сообщений: 10 Регистрация: 06.05.2015

21.12.2017 22:45:33

Спасибо за видео. Теперь не зная программирования можно делать базовые скрипты.

Есть вопрос. Вывожу один из кодов, который имеет формат "Дата".

Делаю форматировать поле, чтобы убрать время, но дополнительный параметр так и не появляется.

Скриншот: https://i.imgur.com/RGySZHp.png

Или подскажите, как можно сразу вытягивать эту дату без времени.

Изменено: itspec - 21.12.2017 22:50:53

itspec

Пользователь

Сообщений: 10 Регистрация: 06.05.2015

21.12.2017 22:59:13

Делал еще один скрипт,

Результат = "";

Если СокрЛП(Параметры.Организация_ЮрФизЛицо) = "Юр. лицо" Тогда
Результат = "Статуту";
ИначеЕсли СокрЛП(Параметры.Организация_ЮрФизЛицо) = "Физ. лицо" Тогда
Результат = "Свідоцтва про державну реєстрацію фізичної особи-підприємця, номер запису в Єдиному державному реєстрі юридичних та фізичних осіб-підприємців " + Параметры.Документ_Организация_СВ_Номер_Держреєстраціїї +" від " + Параметры.Документ_Организация_СВ_Дата_ДержреєстраціїБезВремени;
Иначе
Результат = "???????????????";
КонецЕсли;

В чем проблема, параметр "Параметры.Документ_Организация_СВ_Дата_ДержреєстраціїБезВремени" - создан мною с форматом без времени, но в скрипте он выводится с временем почему-то.

Администратор Администратор Сообщений: 1067 Регистрация: 28.08.2013	#6 0 22.12.2017 09:07:34 По скриптам вообще не делается дополнительная настройка. Все нужно сделать в самом скрипте. Вам нужно прописать форматирование прямо в коде скрипта

itspec Пользователь Сообщений: 10 Регистрация: 06.05.2015	#7 0 22.12.2017 10:14:24 Спасибо, я вас понял. Подскажите тогда, пожалуйста, как это сделать на примере параметра: Параметры.Документ_Организация_СВ_Дата_ДержреєстраціїБезВремени; Изменено: itspec - 22.12.2017 10:19:00

Администратор

Сообщений: 1067 Регистрация: 28.08.2013

22.12.2017 10:35:54

в скрипте должно быть обращение к исходному параметру примерно так

Формат(Параметры.ДокументДата, "ДФ=dd.MM.yyyy")

где,
Параметры.ДокументДата - вместо этого ваш параметр
"ДФ=dd.MM.yyyy" - это форматная строка (она может быть любая)

подробное описание работы функции ФОРМАТ можете посмотреть в справке 1с

itspec

Пользователь

Сообщений: 10 Регистрация: 06.05.2015

24.12.2017 13:12:34

Спасибо большое.

Вот так выглядит такой скрипт в готовом виде, получение реквизита "Дата регистрации" с форматом без времени из РС Коды Оргнанизаций.

Цитата

Результат = "";

Запрос = Новый Запрос(
"ВЫБРАТЬ
| КодыОрганизацииСрезПоследних.ДатаРегистрации
|ИЗ
| РегистрСведений.КодыОрганизации.СрезПоследних(&ДатаДокумента, Организация = &ПараметрОрганизация) КАК КодыОрганизацииСрезПоследних");

Запрос.УстановитьПараметр("ДатаДокумента", Параметры.Документ_Дата);
Запрос.УстановитьПараметр("ПараметрОрганизация", Параметры.Документ_Организация);

Выборка = Запрос.Выполнить().Выбрать();
Если Выборка.Следующий() Тогда
Результат = Формат(Выборка.ДатаРегистрации, "ДФ=dd.MM.yyyy");
КонецЕсли;

ПОСЛЕДНИЕ СООБЩЕНИЯ

ПАРСЕР ЯНДЕКС.МАРКЕТ для 1С - Не удается настроить Парсер Яндекс.Макрет	Александр Адамов 22.10.19 18:28
ЭКСЕЛОН - Загрузка в 1С из EXCEL - Вопросы-ответы по разработке "Загрузка из Excel в 1с"	Фидан Шарпиов 22.10.19 15:48
ЭКСПОТОР - Выгрузка номенклатуры из 1С - Соответствия категорий номенклатуры	Александр Носов 22.10.19 13:53
АВОШОП - Авошоп-Выгрузка из 1с	Администратор 22.10.19 13:47
СМС и EMAIL РАССЫЛКА из 1С - Обновления подситемы "Рассылки смс уведомлений"	Администратор 21.10.19 14:17
ЭКСЕЛОН - Загрузка в 1С из EXCEL - Нечеткое распознавание номенклатуры	Александр Носов 21.10.19 13:41
ПАРСЕР ЯНДЕКС.МАРКЕТ для 1С - Программа пишет что IP адрес заблокирован	Александр Носов 21.10.19 6:10
ЭКСПОТОР - Выгрузка номенклатуры из 1С - Выгружает таблицу без артикулов	Администратор 18.10.19 16:42
БОНЛИОН - Бонусная система для 1С - Вопросы-ответы по программе "Учет бонусных карт в 1с8"	Администратор 18.10.19 16:41
ЭКСПОТОР - Выгрузка номенклатуры из 1С - Формат выгрузки YML. Ошибка: Не установлена цена на товар.	Администратор 17.10.19 12:26

Сейчас на форуме

Всего зарегистрированных пользователей: 1141

Приняло участие в обсуждении: 163

Всего тем: 261

Всего сообщений: 2506