Формирование доп проводок в 1с БГУ
X

Привет дорогой друг

Наш сайт существует и развиваетется за счет рекламы. Пожалуйста, отключите блокировку рекламы AdBlock или подобное, для нашего сайта. Спасибо!
Показано с 1 по 9 из 9

Комбинированный просмотр

  1. #1
    Гордость форума PRO +

    Регистрация
    29.11.2013
    Адрес
    Берег Волги
    Сообщений
    2010
    Сказал(а) спасибо
    650
    Поблагодарили 10220 раз(а) в 2691 сообщениях

    По умолчанию

    а куда здесь свои счета подставить?
    Ну как же, а это:

    // Кредит
    Проводка.СчетКт = ДопСчетКредита;
    // Дебет
    Проводка.СчетДт = ДопСчетДебета;

  2. Пользователь сказал cпасибо:

    Александр8989 (08.04.2015)

  3. #2
    Пришел за помощью

    Регистрация
    04.02.2015
    Сообщений
    29
    Сказал(а) спасибо
    6
    Поблагодарили 1 раз в 1 сообщении

    По умолчанию

    я так понимаю вместо ДопСчетДебета цифровые выражения счетов заносить?

    ---------- Post added at 14:15 ---------- Previous post was at 12:19 ----------

    // Кредит
    Проводка.СчетКт = ДопСчетКредита["20111"];

    так должно быть?

  4. #3
    Гордость форума PRO +

    Регистрация
    29.11.2013
    Адрес
    Берег Волги
    Сообщений
    2010
    Сказал(а) спасибо
    650
    Поблагодарили 10220 раз(а) в 2691 сообщениях

    По умолчанию

    Цитата Сообщение от Александр8989 Посмотреть сообщение
    я так понимаю вместо ДопСчетДебета цифровые выражения счетов заносить?
    В качестве переменной ДопСчетДебета Должна быть ссылка на соответствующий элемент плана счетов.
    Ссылка может быть задана явно в качестве реквизита документа.
    Можно сослаться на предопределенное значение плана счетов:
    ДопСчетДебета=ПланыСчетов. ЕПСБ.< ПредопределенноеЗначение >
    Можно получить ссылку с помощью методов "НайтиПоКодУ", "НайтиПоНаименованию" и др. (Смотри Ситакс-помощник)

  5. #4
    Пришел за помощью

    Регистрация
    04.02.2015
    Сообщений
    29
    Сказал(а) спасибо
    6
    Поблагодарили 1 раз в 1 сообщении

    По умолчанию

    добавил вот это

    Проводка.КВД = ТекСтрока["КВД"];

    // Дебет
    Проводка.СчетДт = ДопСчетДебета;
    ДопСчетДебета = ПланыСчетов.ЕПСБУ.НайтиПоК оду("206.00");
    Проводка.КБКДт = ТекСтрока["КБКНазначениеПлатежа"];
    Проводка.СубконтоДт.КОСГУ = ТекСтрока["КОСГУНазначениеПлатежа"];

    Для к = 2 по Проводка.СчетДт.ВидыСубкон то.Количество() Цикл

    Проводка.СубконтоДт[(Проводка.СчетДт.ВидыСубко� �то[к-1].ВидСубконто)] = НайтиЗначениеСубконтоВТек ущейСтроке(ТекСтрока, Проводка.СчетДт.ВидыСубкон то[к-1].ВидСубконто.ТипЗначения);

    КонецЦикла;

    // Кредит
    Проводка.СчетКт = ДопСчетКредита;
    ДопСчетКредита = ПланыСчетов.ЕПСБУ.НайтиПоК оду("201.11");
    Проводка.КБККт = ТекСтрока["КБКНазначениеПлатежа"];
    Проводка.СубконтоКт.КОСГУ = ТекСтрока["КОСГУНазначениеПлатежа"];

    но не работает...

    ---------- Post added at 11:17 ---------- Previous post was at 10:14 ----------

    Если ФормироватьДопПроводки И (ТекСтрока["КВД"] <> Перечисления.КВД.Бюджет)
    И ЗначениеЗаполнено(ДопСчет� �ебета) И ЗначениеЗаполнено(ДопСчет� �редита) Тогда

    Проводка = ПроводкиБУ.Добавить();
    Проводка.Период = СтруктураШапкиДокумента.Д� �та;
    Проводка.Учреждение = СтруктураШапкиДокумента.У� �реждение;
    Проводка.Баланс = СтруктураШапкиДокумента.Б� �ланс;

    Проводка.ВидПервичногоДок� �мента = пВидПервичногоДокумента;
    Проводка.ДатаПервичногоДо� �умента = пДатаПервичногоДокумента;
    Проводка.НомерПервичногоД� �кумента = пНомерПервичногоДокумента ;

    Проводка.КВД = ТекСтрока["КВД"];

    // Дебет
    Проводка.СчетДт = ДопСчетДебета;
    ДопСчетДебета = ПланыСчетов.ЕПСБУ.НайтиПоК оду("206.00");
    Проводка.КБКДт = ТекСтрока["КБКНазначениеПлатежа"];
    Проводка.СубконтоДт.КОСГУ = ТекСтрока["КОСГУНазначениеПлатежа"];

    Для к = 2 по Проводка.СчетДт.ВидыСубкон то.Количество() Цикл

    Проводка.СубконтоДт[(Проводка.СчетДт.ВидыСубко� �то[к-1].ВидСубконто)] = НайтиЗначениеСубконтоВТек ущейСтроке(ТекСтрока, Проводка.СчетДт.ВидыСубкон то[к-1].ВидСубконто.ТипЗначения);

    КонецЦикла;

    // Кредит
    Проводка.СчетКт = ДопСчетКредита;
    ДопСчетКредита = ПланыСчетов.ЕПСБУ.НайтиПоК оду("201.11");
    Проводка.КБККт = ТекСтрока["КБКНазначениеПлатежа"];
    Проводка.СубконтоКт.КОСГУ = ТекСтрока["КОСГУНазначениеПлатежа"];
    и
    Для к = 2 по Проводка.СчетКт.ВидыСубкон то.Количество() Цикл

    Проводка.СубконтоКт[(Проводка.СчетКт.ВидыСубко� �то[к-1].ВидСубконто)] = НайтиЗначениеСубконтоВТек ущейСтроке(ТекСтрока, Проводка.СчетКт.ВидыСубкон то[к-1].ВидСубконто.ТипЗначения);

    КонецЦикла;

    Проводка.Сумма = ТекСтрока["Сумма"] * Коэффициент;

    Если ЗначениеЗаполнено(ТекСтро� �а["СтрокаНазначениеПлатеж� �"]) Тогда
    Проводка.Содержание = ТекСтрока["СтрокаНазначениеПлатеж� �"];
    Иначе
    Проводка.Содержание = СтруктураШапкиДокумента.П� �НазначениеПлатежа;
    КонецЕсли;
    Проводка.НомерЖурнала = БухгалтерскийУчет.НомерЖу� �нала(Проводка.СчетКт,Прово дка.СчетКт);

    КонецЕсли;

    //***********************************

    КонецЦикла;
    КонецЕсли;

    // Сформируем движения по счетам НУ
    НалоговыйУчетСервер.Сформ� �роватьДвиженияОтражениеП� �очихРасходов(ПараметрыПро веденияНУ.ТаблицаПрочиеРа� �ходы, Движения, Отказ);

    // Сформируем движения по регистрам УСН
    СтруктураТаблицУСН = Новый Структура("ТаблицаРасчетов , УчетнаяПолитикаУСН",
    ПараметрыПроведенияНУ.Таб� �ицаРасчетыПриУСН, ПараметрыПроведенияНУ.Уче� �наяПолитикаУСН);
    НалоговыйУчетУСН.Сформиро� �атьДвиженияУСН(ЭтотОбъект , СтруктураТаблицУСН);

    полная форма,что не так делаю?

Похожие темы

  1. Программное изменение проводок в регистре бухгалтерии
    от Natascha1990 в разделе 1С - Предприятие 8.0, 8.1, 8.2, 8.3
    Ответов: 1
    Последнее сообщение: 25.03.2013, 11:57
  2. Вопрос по добавлению доп.лицензий в УТ 8.2.17.143.
    от LittleD в разделе 1С - Предприятие 8.0, 8.1, 8.2, 8.3
    Ответов: 0
    Последнее сообщение: 20.02.2013, 01:35
  3. Вопрос по добавлению доп.лицензий в УТ 8.2.17.143.
    от LittleD в разделе Установка и администрирование 1С - Предприятие
    Ответов: 0
    Последнее сообщение: 20.02.2013, 01:34

Социальные закладки

Социальные закладки

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •