Задача создать кнопку в документе ведомость взвешивания животных, при помощи которой производилась выборка животных подходящих выбранной возрастной группе в разделе учетная группа.  Вывод в табличную часть животных подходящих к выбранной учетной группе.
Учетные группы делятся на определенный период времени (по возрасту): бычки 0-2, бычки 2-6, бычки 6-12, телки  0-2,телки 2-6, телки 6-12.
В справочнике Интеко КРС группового учета создал реквизиты: пол животного, возраст с, возраст по.
В справочнике КА_скот создал реквизиты: пол животного,  дата рождения.
Опыта  работы в 1с практически нет.
Заранее спасибо.

"возраст с, возраст по" // Судя по диапазонам 0-2, 2-6 и т.д. надо не "по", а "до" (т.е. не включая вторую границу)

Не проще сюда http://www.chernozemie-inteko.ru/products-of-inteco/USHP/ позвонить/написать?

Вот эти диапазоны групп по возрасту будешь в отчете настраивать. В справочнике тебе нужна только одна цифра - возраст.

(3) + ну естессно, не возраст, а дата рождения)

(3) Моя как бы не в курсе предметки с/х и животноводства, но вес и возраст это величины не постоянные ))

Ладно еще возраст можно через дату рождения, но вес это же периодика.

(4) Там особенность что похожих причесывают под одну гребенку и пишут бычки 0-2 - стока то штук.

Отдельно каждого взвешивать/учитывать нафик нуна. По сути групповой учет идет.

Как вариант

// Документ имеет реквизит РазделУчета

Процедура ЗаполнитьСкот()

Запрос = Новый Запрос();
Запрос.УстановитьПараметр("Дата", ТекущаяДата());
Запрос.УстановитьПараметр("ВозрастС", Объект.РазделУчета.ВозрастС);
Запрос.УстановитьПараметр("ВозрастПо", Объект.РазделУчета.ВозрастПо);
ВЫБРАТЬ
КА_Скот.Ссылка КАК Скот
ИЗ
Справочник КА_Скот КАК КА_Скот
ГДЕ
РАЗНОСТЬДАТ(КА_Скот.ДатаРождения, Дата, ГОД) >= &ВозрастС
И РАЗНОСТЬДАТ(КА_Скот.ДатаРождения, Дата, ГОД) <= &ВозрастПо";

ТЗ = Запрос.Выполнить().Выгрузить();
Объект.ТабличнаяЧасть.Загрузить(ТЗ);
Для Каждого Стр Из Объект.ТабличнаяЧасть Цикл
// код заполнения строки табличной части
КонецЦикла;

КонецПроцедуры

Если честно не понимаю практически не чего! Но хочу разобраться. Справочники  Интеко КРС группового учета, КА_Скот несут в себе информацию по определенной корове или бычку. Нужно при выборе учетной группе в документе ведомость взвешивания животных создать отбор.

Запрос.Текст =

Создал кнопку (заполнить по учетной группе). Которая должна работать при выборе определенной учетной группе. При нажатие должна выдавать тех бычков которые подходят по возрасту. Из за этого и создал реквизит дата роздения

Добавил реквизит РазделУчета. Выдает ошибку

{Документ.КА_ВедомостьВзвешиванияЖивотных.Форма.ФормаДокумента.Форма(72,1)}: Неопознанный оператор
<<?>>КА_Скот.Ссылка КАК Скот (Проверка: Толстый клиент (обычное приложение))

запятую забыл поставить

(12) тупо скопипастил, не думая

Ребята подскажите не могу разобраться. Заранее спасибо.

Там же в поставке есть демопример. По нему и смотри

Зачем вообще что-то писать в конфе. Там все написано без тебя. Нужно просто прочитать доку и работать

Не могу понять. Незнаю как сделать.....

засылай денег, часов через 20 получишь готовое

(17) Если опыта нет, зачем полез?

Третий или какой день пилишь какую-то шнягу. Шарил бы в кодинге, давно бы сделал. Прочитай Радченко для начала.

В Интеко писать противопоказано. Тем более, что этот функционал есть в системе

Я сам пытаюсь. Нахожусь далеко от города. Возможности обратиться за помощью к программисту нет. Подумал в вашем форуме помогут, ну ладно сам разберусь. Извинить что занял ваше время.

(25) Уважаемый, причем здесь программист? В твоем случае нужен консультант(внедренец) со знанием конфы и предметной области. Ты бы для начала почитал как учитывают животных в СХ.

Создал вот такой код.  


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

КонецЦикла;
                            
                                
                       КонецПроцедуры

(28) И?

Пишет что синтаксическая ошибка КАК.
это из за того что не в конструкторе собрал?

а что, правда, на каждую скотину свой элемент справочника заводится?

(30) ну собери конструктором

Да. С ее общими данными.

ладно коровы, но есть же лягушки с икрой (реально, видел такую базу). так там ушлые продавщички икру ложками тырили и налево гнали. кто её считать будет?

Интересная задачка

Сделал в конструкторе
Процедура ЗаполнитьПоУчетнойГруппеЗаполнитьПоУчетнойГруппе(Кнопка)
    
    Запрос = Новый Запрос();
Запрос.УстановитьПараметр("ДатаДокумента", ТекущаяДата());
Запрос.УстановитьПараметр("ВозрастС", СтатусКРС.ВозрастС);
Запрос.УстановитьПараметр("ВозрастПо", СтатусКРС.ВозрастПо);
Запрос.Текст = "ВЫБРАТЬ
               |    КА_Скот.Ссылка
               |ИЗ
               |    Справочник.КА_Скот КАК КА_Скот
               |ГДЕ
               |    РАЗНОСТЬДАТ(КА_Скот.ДатаРождения, &ДатаДокумента, МЕСЯЦ) >= &ВозрастС
               |    И РАЗНОСТЬДАТ(КА_Скот.ДатаРождения, &ДатаДокумента, МЕСЯЦ) < &ВозрастПо";


Результат=Запрос.Выполнить();
ТЗ = Результат.Выгрузить();
ТЗ = Запрос.Выполнить().Выгрузить();
ТабличнаяЧасть=ТабличнаяЧасть.Загрузить(ТЗ);
Для Каждого Стр Из ТабличнаяЧасть Цикл
    

КонецЦикла;


Поругался
{Документ.КА_ВедомостьВзвешиванияЖивотных.Форма.ФормаДокумента.Форма(52)}: Значение не является значением объектного типа (Загрузить)
ТабличнаяЧасть=ТабличнаяЧасть.Загрузить(ТЗ);

значит у вас фигня какая-то находится в ТАбличнаяЧасть. отладчиком посмотрите.

и зачем вы в ТабличнаяЧасть записываете ТабличнаяЧасть.Загрузить(ТЗ)  ??

Специально для дятлов поясняю, что в половозрастной группе, например, от 0 до 6 мес. могут быть животные, которым больше 6 мес..
Тук тук

Нет такой группы есть от 0-2 и 2-6

Результат=Запрос.Выполнить();
ТЗ = Результат.Выгрузить();
ТЗ = Запрос.Выполнить().Выгрузить();
Для Каждого Стр Из ТЗ Цикл
ТаблицаВзвешивание = Взвешивание.Выгрузить();    
КонецЦикла;
КонецПроцедуры
правильно сделал что бы выгружались подходящие позиции?

Ты тупишь. Ты хотя бы представления о программировании имеешь?

Для УФ
ИмяТабЧасти = "Скот";
Объект[ИмяТабЧасти].Загрузить(Запрос.Выполнить().Выгрузить());

Для ОФ
ИмяТабЧасти = "Скот";
ЭтотОбъект[ИмяТабЧасти].Загрузить(Запрос.Выполнить().Выгрузить());

(40) Зачем 2 раза запрос выполнять и выгружать?

(42) >>чтобы выгружались подходящие позиции

(43) Блин, а там ещё и в цикле есть Взвешивание.Выгрузить(); :)))

Ребята подскажите вот у меня есть таблица взвешивание в ней поля: скот,масса,массаПред,привес.
как сделать что бы добавлялось новая строка по моему запросу?

Для Каждого Стр Из ТЗ Цикл
     Стр = ТЗ.Добавить();
    
     ??????

     КонецЦикла;

(45) Толсто, очень.

Результат=Запрос.Выполнить();
ТЗ = Результат.Выгрузить();
ТЗ = Запрос.Выполнить().Выгрузить();
Для Каждого Стр Из ТЗ Цикл
     НоваяСтр = Взвешивание.Добавить();
     НоваяСтр.Скот=Справочник.КА_Скот.Ссылка();
    


НЕ ЧЕГО НЕ ДАЕТ ПУСТЫЕ СТРОКИ ТОЛЬКО

(39) Я к примеру, умник. Для КРС такие группы могут быть А у вас свиньи скорее всего.

(47) О ёмана, о ёмана

Результат = Запрос.Выполнить();
ТЗ = Результат.Выгрузить();
Для Каждого Стр Из ТЗ Цикл
     НоваяСтр = Взвешивание.Добавить();
     НоваяСтр.Скот = Стр.Скот;
     //...
КонецЦикла;

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

Вот сделал, все работает.
Процедура ЗаполнитьПоУчетнойГруппеЗаполнитьПоУчетнойГруппе(Кнопка)
    
    Запрос = Новый Запрос();
Запрос.УстановитьПараметр("ДатаДокумента", ТекущаяДата());
Запрос.УстановитьПараметр("ВозрастС", СтатусКРС.ВозрастС);
Запрос.УстановитьПараметр("ВозрастПо", СтатусКРС.ВозрастПо);
Запрос.УстановитьПараметр("ПолЖивотного", СтатусКРС.ПолЖивотного);

Запрос.Текст = "ВЫБРАТЬ
               |    КА_Скот.Ссылка
               |ИЗ
               |    Справочник.КА_Скот КАК КА_Скот
               |ГДЕ
               |    РАЗНОСТЬДАТ(КА_Скот.ДатаРождения, &ДатаДокумента, МЕСЯЦ) >= &ВозрастС
               |    И РАЗНОСТЬДАТ(КА_Скот.ДатаРождения, &ДатаДокумента, МЕСЯЦ) < &ВозрастПо
               |    И КА_Скот.ПолЖивотного = &ПолЖивотного";



Результат=Запрос.Выполнить();
ТЗ = Результат.Выгрузить();
ТЗ = Запрос.Выполнить().Выгрузить();
Для Каждого Стр Из ТЗ Цикл
     НоваяСтр = Взвешивание.Добавить();
     НоваяСтр.Скот=Стр.Ссылка;
    
КонецЦикла;
    ПерезаполнитьПредыдущийВесИПривесы();

КонецПроцедуры


  Подскажите как сделать что бы происходила очистка предыдущего результата при выборе другой учетной группе.

...
Взвешивание.Очистить();
Для Каждого Стр Из ТЗ Цикл
...

не получается,чистит всю таблицу

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

(54) ТабличнаяЧасть.Очистить();

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

Подскажите, если возможно показать пример по работе в ведомости взвешивания животных создал кнопку "ввести привес". которая выполняет действие ввода пользователем определенного числа привеса и он должен разнисти этот привес по всем позициям. Заранее спасибо.

Процедуру создал  ПерезаполнитьПредыдущийВесИПривесы();
она работает

Привес = 0;
    Если ВвестиДату(Привес, "Введите привес", 15, 3) Тогда
        ПривесСтроки = Привес / Объект.ТабличнаяЧасть.Количество();
        Для Каждого Строка Из Объект.ТабличнаяЧасть Цикл        
            Строка.Привес = ПривесСтроки;                
        КонецЦикла;                
    КонецЕсли;

Ой. ВвестиЧисло

Процедура ВвестиПривес(Кнопка)
     ПерезаполнитьПредыдущийВесИПривесы();
      Привес = 0;
    Если ВвестиЧисло(Привес, "Введите привес", 15, 3) Тогда
        ПривесСтр = Привес / Привес.ТЗ.Количество();
        Для Каждого Стр Из Привес.ТЗ Цикл        
            Стр.Привес = ПривесСтр;                
        КонецЦикла;                
    КонецЕсли;
    
     КонецПроцедуры
Ругается
{Документ.КА_ВедомостьВзвешиванияЖивотных.Форма.ФормаДокумента.Форма(73)}: Значение не является значением объектного типа (ТЗ)
        ПривесСтр = Привес / Привес.ТЗ.Количество();

У меня щас рукалицо в кубе будет.
Как ты вот это
ПривесСтроки = Привес / Объект.ТабличнаяЧасть.Количество();
превратил в это
ПривесСтр = Привес / Привес.ТЗ.Количество();
Умный типа?

Хотя бы так писал бы
ПривесСтр = Привес / ТЗ.Количество();

Как у тебя таб. часть наз-ся я хз

Процедура ВвестиПривес(Кнопка)
    
          
        Взвешивание.Очистить();
         ПерезаполнитьПредыдущийВесИПривесы();
      Привес = 0;
    Если ВвестиЧисло(Привес, "Введите привес", 15, 3) Тогда
        ПривесСтр = Привес / Привес.Взвешивание.Количество();
        Для Каждого Стр Из Привес.Взвешивание Цикл        
            Стр.Привес = Взвешивание.ВыгрузитьКолонку(Привес);                
        КонецЦикла;                
    КонецЕсли;
    
      КонецПроцедуры
Ругается
{Документ.КА_ВедомостьВзвешиванияЖивотных.Форма.ФормаДокумента.Форма(76)}: Значение не является значением объектного типа (Взвешивание)
        ПривесСтр = Привес / Привес.Взвешивание.Количество();

Добрый день не могу разобраться, подскажите
Процедура ВвестиПривес(Кнопка)
                      Привес = 0;
    Если ВвестиЧисло(Привес, "Введите привес", 15, 3) Тогда
       ПривесСтроки = Привес / Привес.Взвешивание.Количество();
        Для Каждого Строка Из Привес.Взвешивание Цикл        
            Строка.Привес = ПривесСтроки;                
        КонецЦикла;                
    КонецЕсли;
    ПерезаполнитьПредыдущийВесИПривесы();
      КонецПроцедуры

Ругается не понимаю....
{Документ.КА_ВедомостьВзвешиванияЖивотных.Форма.ФормаДокумента.Форма(72)}: Значение не является значением объектного типа (Взвешивание)
       ПривесСтроки = Привес / Привес.Взвешивание.Количество();

(66) "Привес" это у тебя что?

Будешь молчать как партизан?

Строка в Взвешивание

(69) Строка в Взвешивании это видимо "Привес.Взвешивание" это.
А просто "Привес" что такое?

Вот в этом "Привес = 0;  ....... Привес.Взвешивание.Количество();"
Тебя ничего не смущает?

И отсюда "Строка.Привес = ПривесСтроки;" убери слово "строка".

(72) Равно как и выше тоже.

Процедура ВвестиПривес(Кнопка)
           ПерезаполнитьПредыдущийВесИПривесы();

         Запрос = Новый Запрос();
         Запрос.Текст = "ВЫБРАТЬ
                        |    КА_МассаСкота.Скот
                        |ИЗ
                        |    РегистрСведений.КА_МассаСкота КАК КА_МассаСкота";
        
        
     Привес=Взвешивание.ВыгрузитьКолонки("Привес");
         Запрос.УстановитьПараметр("Привес", Привес);
        ТабВзвешивания = Запрос.Выполнить().Выгрузить();
        Дельта = Null;    
                 Если ВвестиЧисло(Дельта, "Введите привес", 15, 3) Тогда
                Для Каждого Строка Из Взвешивание Цикл        
                
              ПривесСтроки =Дельта + Строка.Привес;  
                                                          //Строка привес, полученное зна                                                                                              
                 Строка.Привес = ПривесСтроки;
                Строка.МассаПред =            ;         // Строка масса пред дает значение из Регистра сведений.КА_МассаСкот = 550. И автаматом ставит в привесе -550. Как прописать что бы был Привес = 0.        

                       Строка.Масса = Строка.МассаПред + ПривесСтроки;
                 КонецЦикла;  
                
               КонецЕсли;
          КонецПроцедуры

Все не нужно у меня получилось
Процедура ВвестиПривес(Кнопка)
           ПерезаполнитьПредыдущийВесИПривесы();

         Запрос = Новый Запрос();
         Запрос.Текст = "ВЫБРАТЬ
                        |    КА_МассаСкота.Скот
                        |ИЗ
                        |    РегистрСведений.КА_МассаСкота КАК КА_МассаСкота";
        
        
     Привес=Взвешивание.ВыгрузитьКолонки("Привес");
         Запрос.УстановитьПараметр("Привес", Привес);
        ТабВзвешивания = Запрос.Выполнить().Выгрузить();
        ПривесСтроки = 0;    
                 Если ВвестиЧисло(ПривесСтроки, "Введите привес", 15, 3) Тогда
                Для Каждого Строка Из Взвешивание Цикл        
                
                
                                                                                                                                                  
                 Строка.Привес = ПривесСтроки;
                
                       Строка.Масса = Строка.МассаПред + ПривесСтроки;
                 КонецЦикла;  
                
               КонецЕсли;
          КонецПроцедуры

кнопка установить привес
вводится число и делится на все строки тз поровну.
Процедура РаспределитьПривес(Кнопка)
        ЗапросПривес = Новый Запрос();    
          ЗапросПривес.Текст = "ВЫБРАТЬ
                               |    КА_МассаСкота.Масса
                               |ИЗ
                               |    РегистрСведений.КА_МассаСкота КАК КА_МассаСкота";
         Привес=Взвешивание.ВыгрузитьКолонки("Привес");                      
          ЗапросПривес.УстановитьПараметр("Привес", Привес);
          ТабВзвешивания = ЗапросПривес.Выполнить().Выгрузить();
            ПривесСтр = 0;
            Если ВвестиЧисло (ПривесСтр, "Введите привес", 15, 2) Тогда
                Для Каждого Строка Из Взвешивание Цикл
                    Строка.Привес = ПривесСтр / Строка.Привес;     //как правильно прописать что бы  число поделилось на равные части и разнеслось по всем стр Привес
                    Строка.Масса = Строка.МассаПред + ПривесСтр;
                КонецЦикла;
            КонецЕсли;
    КонецПроцедуры

Подскажите, заранее спасибо

(77) Не, ну так нельзя тролить...

Вот почему прежде чем начинать писать, не получить хотя бы базовое профильное образование?
И выброси этот бред из (76)

Не понял, поясните.

(79) Какие слова тебе не понятны?

Как нужно сделать что бы делился результат запроса и разносился по всем строкам привес?

(81) Нужно сесть, взять себя в руки и написать, что бы привес разносился.

Он разносится только не делится.Ладно разберусь. Спасибо

Подскажите форму деления числа на количество строк

(84) Что простите?

У меня задача, введенного число произвести деление на общее количество строк.

(86) формула: ВведенноеЧисло/КоличествоСтрок

(87) +100 ))))

(87) _общее_ количество строк. без общего не взлетит

(87) (88) Может там надо распределить введенное число на количество строк со значимыми значениями или выборочно не по всей таблице....

Недавно интересовался этой темой. Несколько интересных публикаций:
v8: Распределение сумм в запросе пропорционально результатам выборки
http://catalog.mista.ru/public/16630/

Можете подсказать как она выглядит? Написать пример

(92) Кто она?

// Функция выполняет пропорциональное распределение суммы в соответствии с заданными коэффициентами распределения
//
// Параметры:
//        ИсхСумма - распределяемая сумма
//        МассивКоэф - массив коэффициентов распределения
//        Точность - точность округления при распределении. Необязателен.
//
//    Возврат:
//        МассивСумм - массив размерностью равный массиву коэффициентов, содержит
//            суммы в соответствии с весом коэффициента (из массива коэффициентов)
//          В случае если распределить не удалось (сумма = 0, кол-во коэф. = 0,
//          или суммарный вес коэф. = 0), тогда возвращается значение Неопределено
//
Функция РаспределитьПропорционально(Знач ИсхСумма, МассивКоэф, Знач Точность = 2) Экспорт
    
    Если МассивКоэф.Количество() = 0 Или ИсхСумма = 0 Или ИсхСумма = Null Тогда
        Возврат Неопределено;
    КонецЕсли;
    
    ИндексМакс = 0;
    МаксЗнач   = 0;
    РаспрСумма = 0;
    СуммаКоэф  = 0;
    
    Для К = 0 По МассивКоэф.Количество() - 1 Цикл
        
        МодульЧисла = ?(МассивКоэф[К] > 0, МассивКоэф[К], - МассивКоэф[К]);
        
        Если МаксЗнач < МодульЧисла Тогда
            МаксЗнач = МодульЧисла;
            ИндексМакс = К;
        КонецЕсли;
        
        СуммаКоэф = СуммаКоэф + МассивКоэф[К];
        
    КонецЦикла;
    
    Если СуммаКоэф = 0 Тогда
        Возврат Неопределено;
    КонецЕсли;
    
    МассивСумм = Новый Массив(МассивКоэф.Количество());
    
    Для К = 0 По МассивКоэф.Количество() - 1 Цикл
        МассивСумм[К] = Окр(ИсхСумма * МассивКоэф[К] / СуммаКоэф, Точность, 1);
        РаспрСумма = РаспрСумма + МассивСумм[К];
    КонецЦикла;
    
    // Погрешности округления отнесем на коэффиецент с максимальным весом
    Если Не РаспрСумма = ИсхСумма Тогда
        МассивСумм[ИндексМакс] = МассивСумм[ИндексМакс] + ИсхСумма - РаспрСумма;
    КонецЕсли;
    
    Возврат МассивСумм;
    
КонецФункции

Процедура РаспределитьПривес(Кнопка)
        ЗапросПривес = Новый Запрос();    
          ЗапросПривес.Текст = "ВЫБРАТЬ
                               |    КА_МассаСкота.Масса
                               |ИЗ
                               |    РегистрСведений.КА_МассаСкота КАК КА_МассаСкота";
         Привес=Взвешивание.ВыгрузитьКолонки("Привес");                      
          ЗапросПривес.УстановитьПараметр("Привес", Привес);
          ТабВзвешивания = ЗапросПривес.Выполнить().Выгрузить();
            ПривесСтр = 0;
            Если ВвестиЧисло (ПривесСтр, "Введите привес", 15, 2) Тогда
                Для Каждого Строка Из Взвешивание Цикл
                    Строка.Привес = ПривесСтр / КоличествоСтрок;    ///? как правильно прописать эту строку
                    Строка.Масса = Строка.МассаПред + Строка.Привес;
                КонецЦикла;
            КонецЕсли;
    КонецПроцедуры

(96) Количество строк это Взвешивание.Количество()
Для распределения используй процедуру (94)

Для Каждого Строка Из Взвешивание Цикл
                    Строка.Привес = ПривесСтр / КоличествоСтрок;    ///? как правильно прописать эту строку

                    Строка.Масса = Строка.МассаПред + Строка.Привес;
                КонецЦикла;
это выброси

В типовых есть функция ОбщегоНазначения.ОкруглитьСУчетомПогрешности
Переменная в третьем параметре как раз и хранит накопленную погрешность.
Пример:

Перем Погрешность;
Цикл
...
    Сумма = ОбщегоНазначения.ОкруглитьСУчетомПогрешности(Сумма, 2, Погрешность);
...
КонецЦикла;

Мне нужно что бы при нажатие кнопки пользователь внес число к примеру 100 и одно поделилось на кол. строк Привес и результат деления разнесся по всем строка привеса
К примеру 500/ 10 строк = 50 в каждую строку

Не пойму не как. В интернете нет не чего.

Да, он издевается над вами... нельзя быть таким ))

Пятничная ветка подошла к своей второй пятнице?

(103) До осени дотянет?

(104) По осени наверное стадо прирежут и проблема решится сама собой :)

Подскажите как в запросе ДатуСмерти сравнить с концом периода?

(106) ДатаСмерти=КонецПериода(...)

|    И РАЗНОСТЬДАТ(КА_Скот.ДатаСмерти, &ДатаДокумента, ГОД) = &ВозрастПо";

Добрый день
Как сделать что бы в колонке "номер бирки" документа "приплод"создался номер, от последнего номера из справочника "скот" название колонки"код".
Что бы не было повтора.

(109) найти максимум, добавить единицу

Как это прописать?

(111) Номер = Максимальныйномер + 1.

Как 1С вычисляет МАКСИМУМ по ссылочному полю?
Нужно брать последнее значение из справочник скот. и добавлять 1 и записывать в документе приплод в номер бирки.

(113) Ты хочешь прибавить 1 к ссылке? И что ты ожидаешь получить в результате?

(113) а что такое последнее значение из справочник скот?

(114) он хочет номер от последнего. а максимум+1 - это уже наша самодеятельность ;)

В справочнике скот есть реквизит КОД в котором записан номер коровы нужно что бы от последнего номера коровы создался новый номер +1 в документе ПРИПЛОД в НОМЕР БИРКИ

(117) Ну так и выбирай максимальный номер, и прибавляй к нему единицу. При чём здесь " МАКСИМУМ по ссылочному полю"?

(117) давай по шагам.
1. от последнего номера коровы - где его брать?
2. создался новый номер +1 - как добавить единичку?
3. документе ПРИПЛОД в НОМЕР БИРКИ - почему в документе?

1 Справочник Скот реквизит Код. в нем хранятся номера коров.
2 Последний номер (Код)  0212. тогда 0212+1 и в документе приплод получить номер бирки = 0213.

отлично. как найти максимум коровы?

0212 - похоже на строку. как потом добавлять единицу?

Нам не нужны сами данные коровы, нужен только номер.
Затея в чем создается кнопка(ДобавитьЭлементыСправочника) в Приплод, которая выполняет действие во всех строках созданых пользователем при нажатие на кнопку она создает номер коровы для каждой строки Номер бирки. Должна происходить проверка на повтор значения с справочником Скот в реквизите Код.

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

Вот пробовал....

номер коровы не является данными коровы?

всё печальней. кстати, чем код элемента справочника не устраивает к качестве номера коровы?

Я неправильно выразился простите. Является каждой корове присвоен свой  личный номер.

(127) предлагаю называть код элемента номером коровы и расходиться

Нужно что бы от последнего номера коровы (Код) из справочник скот  прибавлялся 1 и помещался в номер бирки

предлагаю заменить надпись "код" надписью "номер бирки"

Как это сделать?

https://i.imgur.com/Ujs6hsN.png

Это всё конечно смешно, в некотором роде. Но непонятно, почему такие люди не в дет.саду на кошках тренируются, а автоматизируют предприятия.

(133) думаешь, на кошках проще? кошкам тоже нужен номер бирки

Ситуацию поясню, я сейчас как стажер в отделе программистов. Мне ставят задачи я пытаюсь выполнять в учебной базе. Ребята все умеют в 1с, просто я не спрашиваю. Решил у вас помощи попросить. Сами же такими были! А сейчас прикалываетесь. Конечно неловко перед вами, что спрашиваю такую ерунду. Но выхода не остается... Просто вспомните себя, какие вы были когда в следующий раз решите кого то унизить.

не убедил. чем код не устраивает?

(135) Ну, у тебя же нет желания понять, как всё это работает. Понять цепочку взаимосвязей. Чтобы потом легко справляться самому, ты же спрашиваешь - как это сделать, для того, чтобы просто тупо скопировать и вперед к победе.

Да нет, просто нужен пример. или подсказка направляющая. я не прошу процедуру сделать в отладчике. просто подсказать

(137) по-моему в этой ветке был прикол. человек тупо скопипастил текст запроса без палок (|) себе в код и делал круглые глаза

(138) передаю по буквам: не надо тебе этого

Я думаю что правильно сделать взять последнее значение из код справочника скот и прибавить 1 к нему что бы избежать повтора.

+(140) бери код. платформа - она потом сама, даже если код строковый

(138) почитайте книгу
Радченко М.Г. 1С- Предприятие 8.3. Практическое пособие разработчика. Примеры и типовые приемы.
думаю у вас такое есть в отделе, а уж потом что-то делать пробуйте.

Спасибо.

(141) поздравляю, так и есть. даже без твоего участия

а как-то была у меня необходимость своей нумерации. искал максимум, добавлял единицу...

Получилось?

(147) канеш получилось. но уже никак не вспомню, чем нас код не устроил

(148) что-то связанное со своим форматом новых номеров дисконтных карт. не всегда сплошная нумерация

Понял. Я не могу пока такими вещами хвастаться, тут с мелочью не могу разобраться....

мораль из (148). три половозрелых мужчины перед тем, как искать максимум и делать плюс один, доказывали сами себе, что такой велосипед нужен, и без него никак

;)