Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Значение субконто
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Программирование в 1С Предприятие 8.3
hitman
Всем привет. Вот код выборки регистра бухгалтерии. Мечтаю получить значения субконто. Но не могу никак добиться этого. Помогите пожалуйста. Платформа 8.3, Конфа: Бухгалтерия Предприятия 3.0.29.7

Выборка = РегистрыБухгалтерии.Хозрасчетный.Выбрать(НачалоМесяца(Объект.ДатаВыгрузки), КонецМесяца(Объект.ДатаВыгрузки));
   Пока Выборка.Следующий() Цикл
        Если Выборка.СчетДт.ВидыСубконто.Количество()=0 тогда
            //СубДб1="";
        иначеЕсли Выборка.СчетДт.ВидыСубконто.Количество()=1 тогда
            СубДб1=СОКРЛП(Выборка.СчетДт.ВидыСубконто[0].ВидСубконто.ПолучитьОбъект().Ссылка.Наименование);
        иначеЕсли Выборка.СчетДт.ВидыСубконто.Количество()=2 тогда
            СубДб1=СОКРЛП(Выборка.СчетДт.ВидыСубконто[0].ВидСубконто.Ссылка);
            СубДб2=СОКРЛП(Выборка.СчетДт.ВидыСубконто[1].ВидСубконто.Ссылка);
        иначеЕсли Выборка.СчетДт.ВидыСубконто.Количество()=3 тогда
            СубДб1=СОКРЛП(Выборка.СчетДт.ВидыСубконто[0].ВидСубконто.Ссылка);//.СокрП(опер.дебет.субконто(1));
            СубДб2=СОКРЛП(Выборка.СчетДт.ВидыСубконто[1].ВидСубконто.Ссылка);
            СубДб3=СОКРЛП(Выборка.СчетДт.ВидыСубконто[2].ВидСубконто.Ссылка);
        КонецЕсли;    
        Если Выборка.СчетКт.ВидыСубконто.Количество()=0 тогда
            //СубДб1="";
        иначеЕсли Выборка.СчетКт.ВидыСубконто.Количество()=1 тогда
            СубКр1=СОКРЛП(Выборка.СчетКт.ВидыСубконто[0].ВидСубконто.Ссылка);
        иначеЕсли Выборка.СчетКт.ВидыСубконто.Количество()=2 тогда
            СубКр1=СОКРЛП(Выборка.СчетКт.ВидыСубконто[0].ВидСубконто.Ссылка);//.СокрП(опер.дебет.субконто(1));
            СубКр2=СОКРЛП(Выборка.СчетКт.ВидыСубконто[1].ВидСубконто.Ссылка);
        иначеЕсли Выборка.СчетДт.ВидыСубконто.Количество()=3 тогда
            СубКр1=СОКРЛП(Выборка.СчетКт.ВидыСубконто[0].ВидСубконто.Ссылка);//.СокрП(опер.дебет.субконто(1));
            СубКр2=СОКРЛП(Выборка.СчетКт.ВидыСубконто[1].ВидСубконто.Ссылка);
            СубКр3=СОКРЛП(Выборка.СчетКт.ВидыСубконто[2].ВидСубконто.Ссылка);
        КонецЕсли;
КонецЦикла;

Vofka
СубконтоДт1 = Выборка.СубконтоДт[0];
СубконтоКт1 = Выборка.СубконтоКт[0];


Это так, навскидку, не проверял.
logist
Не мучайте так котенка wink.gif
"ВЫБРАТЬ
|    ХозрасчетныйДвиженияССубконто.СчетДт.Представление,
|    ХозрасчетныйДвиженияССубконто.ВидСубконтоДт1.Представление,
|    ХозрасчетныйДвиженияССубконто.ВидСубконтоДт2.Представление,
|    ХозрасчетныйДвиженияССубконто.ВидСубконтоДт3.Представление,
|    ХозрасчетныйДвиженияССубконто.СчетКт.Представление,
|    ХозрасчетныйДвиженияССубконто.ВидСубконтоКт1.Представление,
|    ХозрасчетныйДвиженияССубконто.ВидСубконтоКт2.Представление,
|    ХозрасчетныйДвиженияССубконто.ВидСубконтоКт3.Представление,
|    ХозрасчетныйДвиженияССубконто.Регистратор,
|    ХозрасчетныйДвиженияССубконто.НомерСтроки
|ИЗ
|    РегистрБухгалтерии.Хозрасчетный.ДвиженияССубконто(&НачалоПериода, &КонецПериода, , , ) КАК ХозрасчетныйДвиженияССубконто"
hitman
Цитата(Vofka @ 28.02.14, 17:53) необходимо зарегистрироваться для просмотра ссылки
СубконтоДт1 = Выборка.СубконтоДт[0];
СубконтоКт1 = Выборка.СубконтоКт[0];


Это так, навскидку, не проверял.


Пусто((

Цитата(logist @ 28.02.14, 17:57) необходимо зарегистрироваться для просмотра ссылки
Не мучайте так котенка wink.gif
"ВЫБРАТЬ
|    ХозрасчетныйДвиженияССубконто.СчетДт.Представление,
|    ХозрасчетныйДвиженияССубконто.ВидСубконтоДт1.Представление,
|    ХозрасчетныйДвиженияССубконто.ВидСубконтоДт2.Представление,
|    ХозрасчетныйДвиженияССубконто.ВидСубконтоДт3.Представление,
|    ХозрасчетныйДвиженияССубконто.СчетКт.Представление,
|    ХозрасчетныйДвиженияССубконто.ВидСубконтоКт1.Представление,
|    ХозрасчетныйДвиженияССубконто.ВидСубконтоКт2.Представление,
|    ХозрасчетныйДвиженияССубконто.ВидСубконтоКт3.Представление,
|    ХозрасчетныйДвиженияССубконто.Регистратор,
|    ХозрасчетныйДвиженияССубконто.НомерСтроки
|ИЗ
|    РегистрБухгалтерии.Хозрасчетный.ДвиженияССубконто(&НачалоПериода, &КонецПериода, , , ) КАК ХозрасчетныйДвиженияССубконто"


Такой котенок не дает мне к содержанию операции обратиться
logist
Цитата(hitman @ 28.02.14, 18:00) необходимо зарегистрироваться для просмотра ссылки
не дает мне к содержанию операции обратиться

Ну так добавьте нужное поле в запрос, откуда я знаю, что вам нужно получить, в исходном вопросе про содержание ни слова.
hitman
Цитата(logist @ 28.02.14, 18:19) необходимо зарегистрироваться для просмотра ссылки
Ну так добавьте нужное поле в запрос, откуда я знаю, что вам нужно получить, в исходном вопросе про содержание ни слова.

Мне нужно получить все поля из операции. Так как при нажатии на кнопу "ДтКт" в документе. В запросе не увидел ни слова про содержание
logist
Цитата(hitman @ 28.02.14, 18:20) необходимо зарегистрироваться для просмотра ссылки
Мне нужно получить все поля из операции. Так как при нажатии на кнопу "ДтКт" в документе. В запросе не увидел ни слова про содержание

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