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

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

itspec

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

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

18.12.2017 21:38:00

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

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

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

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

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

21.12.2017 07:28:19

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

Код

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

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

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

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

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

Код

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

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

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

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

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

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

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

itspec

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

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

21.12.2017 22:45:33

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

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

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

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

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

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

itspec

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

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

21.12.2017 22:59:13

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

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

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

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

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

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

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

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

22.12.2017 10:35:54

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

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

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

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

itspec

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

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

24.12.2017 13:12:34

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

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

Цитата

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

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

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

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

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

БОНЛИОН - Бонусная система для 1С - Вопросы-ответы по программе "Учет бонусных карт в 1с8"	Андрей 31.05.20 21:25
ЭКСЕЛОН - Загрузка в 1С из EXCEL - Вопросы-ответы по разработке "Загрузка из Excel в 1с"	Администратор 30.05.20 9:49
ЭКСЕЛОН - Загрузка в 1С из EXCEL - Используемая версия 1С не поддерживает работу с интернет протоколом https	Администратор 30.05.20 9:47
ПАРСЕР ЯНДЕКС.МАРКЕТ для 1С - не работает автозагрузка цен	Администратор 29.05.20 9:42
АВОШОП - Когда у товара несколько изображений - загружается только последнее	Александр Носов 28.05.20 7:54
ПАРСЕР ЯНДЕКС.МАРКЕТ для 1С - Ошибка при парсинге поле объекта не обнаружено (name)	Александр Носов 27.05.20 10:50
ЭКСПОТОР - Выгрузка номенклатуры из 1С - Обновления программы	Администратор 15.05.20 7:52
ПАРСЕР ЯНДЕКС.МАРКЕТ для 1С - Не записывает фото в номенклатуру	Администратор 14.05.20 18:05
ПАРСЕР ЯНДЕКС.МАРКЕТ для 1С - Ошибка парсинга	Администратор 13.05.20 19:55
Другие продукты - Чистка базы 1С. Удаление "не удаляемых" объектов	Александр Носов 13.05.20 11:51

Сейчас на форуме (гостей: 223)

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

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

Всего тем: 385

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