Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
22 ноя 2024, 18:19

Программирование в конфигураторе

Автор drugprosto, 25 апр 2018, 16:51

0 Пользователей и 1 гость просматривают эту тему.

drugprosto

Процедура ПоказатьВДвоичномКодеНажатие(Команда)
          Для Каждого Строка из ТабПоле Цикл
         Если Строка.КОП=("ИсхЧисло")
            Тогда Выполнить ("Функция ДесятичноеВДвоичное");
         КонецЕсли;
         Если Строка.А1=("ИсхЧисло")
            Тогда Выполнить ("Функция ДесятичноеВДвоичное");
            КонецЕсли;
         Если Строка.А2=("ИсхЧисло")
            Тогда Выполнить ("Функция ДесятичноеВДвоичное");
            КонецЕсли;
         Если Строка.А3=("ИсхЧисло")
            Тогда Выполнить ("Функция ДесятичноеВДвоичное");
            КонецЕсли;

      КонецЦикла;
       Запрос = Новый ТабличныйДокумент;
       Макет = Обработки.Работа.ПолучитьМакет("ПоказатьВДвоичномКодеНажатие");
       Область = Макет.ПолучитьОбласть("ОбластьЗаголовка");
       Область.Вывести(Область);
       Область2 = Макет.ПолучитьОбласть("ОбластьПараметра");
       Область2.Параметры.Заполнить(ЭтотОбъект);
       Область2.Вывести(Область2);
КонецПроцедуры


Функция ДесятичноеВДвоичное(Знач ИсхЧисло) Экспорт
   
    ДвоичныйКод = "";
    Пока ИсхЧисло <> 0 Цикл
        ДвоичныйКод = "" + ИсхЧисло%2 + ДвоичныйКод ;
        ИсхЧисло = Цел(ИсхЧисло/2);
   КонецЦикла;
   
    Возврат ДвоичныйКод;
   
КонецФункции
Подскажите правильна ли функция, чтобы в макет выводило

AntS

Мне кажется это вообще не будет работать. А по поводу заполнения Табличного документа:
Запрос = Новый ТабличныйДокумент;
       Макет = Обработки.Работа.ПолучитьМакет("ПоказатьВДвоичномКодеНажатие");
       Область = Макет.ПолучитьОбласть("ОбластьЗаголовка");
       Запрос.Вывести(Область);
       Область2 = Макет.ПолучитьОбласть("ОбластьПараметра");
       Область2.Параметры.Заполнить(ЭтотОбъект);
       Запрос.Вывести(Область2);

AIFrame

Цитата: drugprosto от 25 апр 2018, 16:51Тогда Выполнить ("Функция ДесятичноеВДвоичное");
Чо?
Цитата: drugprosto от 25 апр 2018, 16:51("ИсхЧисло")
Чо?
Цитата: drugprosto от 25 апр 2018, 16:51Область2.Параметры.Заполнить(ЭтотОбъект);
Чо?

Цитата: drugprosto от 25 апр 2018, 16:51Функция ДесятичноеВДвоичное(Знач ИсхЧисло) Экспорт
   
    ДвоичныйКод = "";
    Пока ИсхЧисло <> 0 Цикл
        ДвоичныйКод = "" + ИсхЧисло%2 + ДвоичныйКод ;
        ИсхЧисло = Цел(ИсхЧисло/2);
   КонецЦикла;
   
    Возврат ДвоичныйКод;
   
КонецФункции
Чо?
Автор, бросай эту шмаль.
http://katalog.forum-baza.ru/public/70053/
drugprosto,
drugprosto,
Наркотики - это плохо.

KOI8-R

Цитата: AIFrame от 26 апр 2018, 17:51
Автор, бросай эту шмаль.
http://katalog.forum-baza.ru/public/70053/
drugprosto,
drugprosto,
Наркотики - это плохо.
Ну так может он имел ввиду "друг", просто друг. :D
Знаете как к примеру Семён пишет в иноязычном чате "Semen", а потом удивляется чего все ржут.

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск