Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Журнал-Ордер по субконто
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Программирование в 1С Предприятие 7.7
SeraArej
Привіт, В мене стоїть 1С предприятие 7,7 конф.-278 під СКЛ сервер, питання стоїть в тому що при створенні ЖО по субконто по горизонталі дебета и кредита викидає занадто силюну розшифровку для субщетів - типу 37рахунок/371/377/і внас є ще група субрахунків для 377 це 377,1. Як мене прописати в модулі форми ЖО, так щоб невисвічувалась хочаб допустим 37 група дуже загромаджує ЖО висвічування всіх цих груп(( Для конкретності нам необхідно щоб ЖО будувався з самих субрахунків розшифровки груп) Наперед дякую, задумку виклав словами як зміг) 31000000.gif
Vofka
необходимо зарегистрироваться для просмотра ссылки
Для потрібного ефекту ставте галку "Не учитывать группы". Підходить?
ПС. Писав для ПУБа, але думаю для Бухгалтерії теж підійде
Alan68
СПС. Малость наодо подправить: выдает сообщение
Если глПроверкаИнтервалаОтчета<<?>>(Дата1,Дата2) = 0 Тогда
{,,,,,,,,,,,,,,,,,,,,,\ЖУРНАЛОРДЕРПОСУБКОНТО.ERT(171)}: Функция не обнаружена (глПроверкаИнтервалаОтчета)
Сейчас поковыряем.
Vofka
// ===============================
// проверка корректности заданного периода
// если БухПроверка = 1, делается проверка на выход за пределы
//    рассчитанного периода бухгалтерских итогов (только для бухгалтерских отчетов),
//    для всех остальных случаев БухПроверка = 0
Функция глПроверкаИнтервалаОтчета(ДатаНачала,ДатаКонец,БухПроверка=1) Экспорт
    Если ПустоеЗначение(ДатаНачала)=1 Тогда
        Предупреждение("Необходимо задать дату начала отчета!");
        Возврат 0;
    КонецЕсли;
    Если ПустоеЗначение(ДатаКонец)=1 Тогда
        Предупреждение("Необходимо задать дату конца отчета!");
        Возврат 0;
    КонецЕсли;
    Если ДатаКонец<ДатаНачала  Тогда
        Предупреждение("Дата начала отчета должна быть не позже даты конца отчета!");
        Возврат 0;
    КонецЕсли;
    Если БухПроверка = 1 Тогда
        Если ДатаКонец > КонецРассчитанногоПериодаБИ() Тогда
            Предупреждение("За выбранный период итоги не рассчитаны!"+РазделительСтрок+
                           "Расчет итогов выполняется в режиме"+РазделительСтрок+
                           """Операции - Управление бухгалтерскими итогами"".");
            Возврат 0;
        КонецЕсли;
    КонецЕсли;
    Возврат 1;
КонецФункции //глПроверкаИнтервалаОтчета
SeraArej
Цитата(Vofka @ 18.06.10, 17:35) необходимо зарегистрироваться для просмотра ссылки
// ===============================
// проверка корректности заданного периода
// если БухПроверка = 1, делается проверка на выход за пределы
//    рассчитанного периода бухгалтерских итогов (только для бухгалтерских отчетов),
//    для всех остальных случаев БухПроверка = 0
Функция глПроверкаИнтервалаОтчета(ДатаНачала,ДатаКонец,БухПроверка=1) Экспорт
    Если ПустоеЗначение(ДатаНачала)=1 Тогда
        Предупреждение("Необходимо задать дату начала отчета!");
        Возврат 0;
    КонецЕсли;
    Если ПустоеЗначение(ДатаКонец)=1 Тогда
        Предупреждение("Необходимо задать дату конца отчета!");
        Возврат 0;
    КонецЕсли;
    Если ДатаКонец<ДатаНачала  Тогда
        Предупреждение("Дата начала отчета должна быть не позже даты конца отчета!");
        Возврат 0;
    КонецЕсли;
    Если БухПроверка = 1 Тогда
        Если ДатаКонец > КонецРассчитанногоПериодаБИ() Тогда
            Предупреждение("За выбранный период итоги не рассчитаны!"+РазделительСтрок+
                           "Расчет итогов выполняется в режиме"+РазделительСтрок+
                           """Операции - Управление бухгалтерскими итогами"".");
            Возврат 0;
        КонецЕсли;
    КонецЕсли;
    Возврат 1;
КонецФункции //глПроверкаИнтервалаОтчета


Дякую за поміч, але також викидає помилку, а при внесені даних коректив їх становиться ще більше, можливо я їх не туди вношу? Якщо дивитись по файлу закидаю в 171 строку)
SeraArej
Всім дякую проблемку рішив сам, правда деревяним і може довшим способом, але працює. Просто зробив виключення рахунків груп з ордера, кому буде необхідно виложив би код но чомусь його закидаэ кирилецею(((
Vofka
Alan68, а ты разобрался, работает?
Alan68
Полностью не (ковырял) вникал, не было времени посидеть.
А с наскоку выдало вот такую ошибку

ИначеЕсли РазделительУчета.Выбран() = 1 Тогда
{,,,,,,,,,,,,,,,,,,,,,ЖУРНАЛОРДЕРПОСУБКОНТО.ERT(224)}: Значение не представляет агрегатный объект (Выбран)
По свободе отредактирую
MATEVI
Цитата(Alan68 @ 22.06.10, 14:07) необходимо зарегистрироваться для просмотра ссылки
Полностью не (ковырял) вникал, не было времени посидеть.
А с наскоку выдало вот такую ошибку

ИначеЕсли РазделительУчета.Выбран() = 1 Тогда
{,,,,,,,,,,,,,,,,,,,,,ЖУРНАЛОРДЕРПОСУБКОНТО.ERT(224)}: Значение не представляет агрегатный объект (Выбран)
По свободе отредактирую



Угадаю. РУ не включен. В бухии.
Надо Если глИспользуетсяРазделительУчета = 1 Тогда
Alan68
Тестил на демке, а там действительно РУ не включен.
Но при Надо Если глИспользуетсяРазделительУчета = 1 Тогда
Ошибка вот такая
Если Метаданные.РазделительУчета.Выбран = 1 Тогда
{,,,,,,,,,,,,,,,\ЖУРНАЛОРДЕРПОСУБКОНТО.ERT(869)}: Поле агрегатного объекта не обнаружено (Выбран)

На рабочей бухии все пляшет. Еще раз спасибо Vofka icon_beer17.gif
Vofka
Цитата
Если Метаданные.РазделительУчета.Выбран = 1 Тогда

Попробуй
Если Метаданные.РазделительУчета.Выбран() = 1 Тогда


Цитата
Еще раз спасибо Vofka

Пожалуйста smile.gif . Рад помочь
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.