Имя: Пароль:
1C
1С v8
Узнать значение флажка
0 alexodel
 
17.05.19
11:49
Привет! я не проф и не спец... помогите пожалуйста!!! СРОЧНО...(((
Нужна значение флажка формы т.е. нужно узнать стоит ли галочка на этом документе или нет...
Написал внешку печатную форму, и обращаюсь к другому документу, но почему то ... ответа нет... даже хотел с сообщением узнать что там в этой переменной...

представляю код...

МассивНСОДляЗапрос = Новый Массив;
    МассивНСОДляЗапрос.Добавить(ПараметрОтПервогоЗапросаКакСчетНаОплату);
    
    ЗапросСчетНаОплату = Новый Запрос;
    ЗапросСчетНаОплату.УстановитьПараметр("МассивНСОДляЗапрос", МассивНСОДляЗапрос);
    ЗапросСчетНаОплату.Текст =
    "ВЫБРАТЬ
    |    СчетНаОплату.Номер КАК Номер,
    |    СчетНаОплату.Дата КАК Дата,
    |    СчетНаОплату.Проведен КАК Проведен,
    |    СчетНаОплату.СуммаДокумента КАК СуммаДокумента,
    |    СчетНаОплату.ВалютаДокумента КАК ВалютаДокумента,
    |    СчетНаОплату.ДополнительныеРеквизиты.(
    |        Ссылка КАК Ссылка,
    |        НомерСтроки КАК НомерСтроки,
    |        Свойство КАК Свойство,
    |        Значение КАК Значение,
    |        ТекстоваяСтрока КАК ТекстоваяСтрока
    |    ) КАК ДополнительныеРеквизиты,
    |    СчетНаОплату.Ссылка КАК Ссылка
    |ИЗ
    |    Документ.СчетНаОплату КАК СчетНаОплату
    |ГДЕ
    |    СчетНаОплату.Ссылка В(&МассивНСОДляЗапрос)
    |
    |УПОРЯДОЧИТЬ ПО
    |    СчетНаОплату.Ссылка";
    
    
    РезультатЗапросаСчетНаОплату = ЗапросСчетНаОплату.Выполнить().Выбрать(); //ИзДокументаПоступлениеНаСчет
    
    Пока РезультатЗапросаСчетНаОплату.Следующий() цикл
        
        ЗаказПокупателяНаОснованииСчетНаОплату = РезультатЗапросаСчетНаОплату.Ссылка;
        ДанныеПечати.Вставить("ЗаказПокупателяНаОснованииСчетНаОплату", ЗаказПокупателяНаОснованииСчетНаОплату);
        
        ЗаказПокупателяНаОснованииСчетНаОплатуСуммаДокумента = РезультатЗапросаСчетНаОплату.СуммаДокумента;
        ЗаказПокупателяНаОснованииСчетНаОплатуСуммаВалюта = РезультатЗапросаСчетНаОплату.ВалютаДокумента;
        
        ДанныеПечати.Вставить("СуммаИВалютаДокумента", СтрШаблон(НСтр("ru ='%1  %2'"), ЗаказПокупателяНаОснованииСчетНаОплатуСуммаДокумента, ЗаказПокупателяНаОснованииСчетНаОплатуСуммаВалюта));
        
        
        
        ОригиналСчетаНаОплатувБухгалтерии = ПолучитьЗначенияЛогСчетаНаОплатуВБухгалтерии(РезультатЗапросаСчетНаОплату.Ссылка);//Подразделение
        
        ДанныеПечати.Вставить("ОригиналСчетаНаОплатувБухгалтерии", ОригиналСчетаНаОплатувБухгалтерии);
        
        
        
    КонецЦикла;


Функция ПолучитьЗначенияЛогСчетаНаОплатуВБухгалтерии(СчетНаОпл)
    Для каждого стрДР из СчетНаОпл.ДополнительныеРеквизиты Цикл
             ИИ = "ОригиналДокументаВБухгалтерии_8f6b7451c4104aaf82656a6521318a74";
        Если ИИ Тогда
            Реквизит = 1;
        Иначе
            Реквизит = 0;
        КонецЕсли;
    КонецЦикла;
    
    Возврат Реквизит;
    //Сообщить("Реквизит функции = "+Реквизит);
КонецФункции
1 Галахад
 
гуру
17.05.19
11:52
Это чего?
ИИ = "ОригиналДокументаВБухгалтерии_8f6b7451c4104aaf82656a6521318a74";
2 alexodel
 
17.05.19
12:06
(1) Это пользовательские переменные в управляемой форме
3 catena
 
17.05.19
12:36
(2)А что такое тогда:
   Если ИИ Тогда
4 catena
 
17.05.19
12:37
(2)А вообще, надо пользоваться существующими механизмами, там целые модули отдельные для общения с доп.реквизитами.
5 Жан Пердежон
 
17.05.19
12:53
Это доп.реквизит что ли?
6 НЕА123
 
17.05.19
12:57
эта ветка шутка юмора?
или мой рассудок того...
7 Franchiser
 
гуру
17.05.19
13:00
Запусти отладчик
8 Franchiser
 
гуру
17.05.19
13:02
ИИ = "ОригиналДокументаВБухгалтерии_8f6b7451c4104aaf82656a6521318a74";
        Если ИИ Тогда
            Реквизит = 1;
        Иначе
            Реквизит = 0;
        КонецЕсли;

Тут Реквизит всегда 0
9 seevkik
 
17.05.19
13:21
Есть такой отличный общий модуль - управление свойствами, пошарься там
10 alexodel
 
22.05.19
13:22
СПАСИБО ВСЕМ! ПОМОГЛИ, ТАКЖЕ Я ТОЖЕ СТАРАЛСЯ И НАШЕЛ!
11 seevkik
 
22.05.19
13:24
А ты скор
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс