×
Показано с 1 по 7 из 7
  1. #1
    Клерк
    Регистрация
    11.01.2008
    Сообщений
    22

    Работа с регистрами бухгалтерии

    Помогите, пожалуйста.

    Если ДвиженияБУ.СчетКт = Сч41_01 Тогда
    СуммаОтгрузки = ДвиженияБУ.Сумма + СуммаОтгрузки;
    КонецЕсли;

    Данные выводятся нарастающим итогом, а должны быть по каждому отдельному документу.
    Если делать СуммаОтгрузки = ДвиженияБУ.Сумма ; то выводит только одну сумму, хотя в документе может быть несколько строк по этому счету.
    Поделиться с друзьями

  2. #2
    Умный Клерк!
    Регистрация
    07.01.2004
    Адрес
    Владимир
    Сообщений
    13,623
    Т.е. ответ, что Миста - лучший отладчик вам не подошел?
    1.Открыта новая радиостанция для юзеров под названием RТ FМ. По ней будут транслироваться чтения различных мануалов и ответы на часто задаваемые вопросы.
    2. "Помогая ленивым людям, ты помогаешь им сесть на свою шею" Сян-Цзы

  3. #3
    Клерк
    Регистрация
    11.01.2008
    Сообщений
    22
    Неа

  4. #4
    АнонимХ
    Гость
    Мало букав. Из контекста выдернуто, цель не видна

  5. #5
    Умный Клерк!
    Регистрация
    07.01.2004
    Адрес
    Владимир
    Сообщений
    13,623
    Kate123, ну вам же прозрачно намекнули, что из данной постановки вопроса невозможно дать ответ.
    больше кода из алгоритма и что получить хотите.
    если запрос есть, то и запрос выкладывайте и порядок обхода.
    1.Открыта новая радиостанция для юзеров под названием RТ FМ. По ней будут транслироваться чтения различных мануалов и ответы на часто задаваемые вопросы.
    2. "Помогая ленивым людям, ты помогаешь им сесть на свою шею" Сян-Цзы

  6. #6
    Клерк
    Регистрация
    11.01.2008
    Сообщений
    22
    СуммаВыручки = 0;
    СуммаОтгрузки = 0;
    ПроцентРентабельности = 0;
    Сч41_01 = ПланыСчетов.Хозрасчетный.ТоварыНаСкладах;
    Сч62_01 = ПланыСчетов.Хозрасчетный.РасчетыСПокупателями;
    Регистр = РегистрыБухгалтерии.Хозрасчетный;

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

    ДвиженияБУ = Регистр.ВыбратьПоРегистратору(Стр.Ссылка);

    Пока ДвиженияБУ.Следующий() Цикл
    Если ДвиженияБУ.СчетДт = Сч62_01 Тогда
    СуммаВыручки = ДвиженияБУ.Сумма;
    КонецЕсли;
    Если ДвиженияБУ.СчетКт = Сч41_01 СуммаОтгрузки = ДвиженияБУ.Сумма + СуммаОтгрузки;
    КонецЕсли;
    КонецЦикла;

  7. #7
    Бухгалтер-программист Аватар для azernot
    Регистрация
    16.08.2004
    Адрес
    Москва
    Сообщений
    671
    Для Каждого Стр Из ТаблЗнач Цикл
    Строка.Параметры.ТекНомер = Стр.Номер;
    Строка.Параметры.ТекКонтрагент = Стр.Контрагент;
    Строка.Параметры.ТекДоговор = Стр.ДоговорКонтрагента;

    ДвиженияБУ = Регистр.ВыбратьПоРегистратору(Стр.Ссылка);

    СуммаВыручки = 0;
    СуммаОтгрузки = 0;

    Пока ДвиженияБУ.Следующий() Цикл
    Если ДвиженияБУ.СчетДт = Сч62_01 Тогда
    СуммаВыручки = ДвиженияБУ.Сумма;
    КонецЕсли;
    Если ДвиженияБУ.СчетКт = Сч41_01 СуммаОтгрузки = ДвиженияБУ.Сумма + СуммаОтгрузки;
    КонецЕсли;
    КонецЦикла;
    Сообщить("Сумма выручки по "+Стр.Ссылка+" - "+СуммаВыручки);
    Сообщить("Сумма отгрузки по "+Стр.Ссылка+" - "+СуммаОтгрузки);
    КонецЦикла;

    Вот и подумайте, что дальше делать...
    С уважением
    Зернятко А.В.

Информация о теме

Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)