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

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

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

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

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

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

    По умолчанию

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

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

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

    // Дебет
    ЕстьКонтрагентПоДебету = Ложь;
    НомерСубконтоДоговор = 0;
    ПараметрыСчета = ПолучениеНСИ.ПолучитьПара� �етрыСчета(ТекСтрока["СчетДебета"]);
    Проводка.СчетДт = ТекСтрока["СчетДебета"];
    Проводка.КБКДт = ТекСтрока["КБКСчетДебета"];
    Проводка.СубконтоДт.КОСГУ = ТекСтрока["КОСГУСчетДебета"];
    Для к = 2 по Проводка.СчетДт.ВидыСубкон то.Количество() Цикл
    Проводка.СубконтоДт[(Проводка.СчетДт.ВидыСубко� �то[к-1].ВидСубконто)] = ТекСтрока["СубконтоСчетДебета"+к];
    Если НЕ ЕстьКонтрагентПоДебету Тогда
    ЕстьКонтрагентПоДебету = Проводка.СчетДт.ВидыСубкон то[к-1].ВидСубконто.ТипЗначения.С� �держитТип(Тип("СправочникС сылка.Контрагенты"));
    КонецЕсли;
    Если НомерСубконтоДоговор = 0 Тогда
    НомерСубконтоДоговор = ?(ТипЗнч(ТекСтрока["СубконтоСчетДебета"+к]) = Тип("СправочникСсылка.Дого� �оры"), к, 0);
    КонецЕсли;
    КонецЦикла;
    Если ПараметрыСчета[0].Валютный Тогда
    Проводка.ВалютаДт = СтруктураШапкиДокумента.В� �лютаДокумента;
    Проводка.ВалютнаяСуммаДт = ТекСтрока["СуммаВал"];
    КонецЕсли;
    Если НЕ ЕстьКонтрагентПоДебету Тогда
    Проводка.ХарактеристикаДв� �женияДт = СтруктураШапкиДокумента.К� �нтрагент;
    КонецЕсли;

    // Кредит
    Проводка.КБККт = ТекСтрока["КБКСчетКредита"];
    Проводка.СубконтоКт.КОСГУ= ТекСтрока["КОСГУСчетКредита"];
    Для к = 2 по Проводка.СчетКт.ВидыСубкон то.Количество() Цикл
    Проводка.СубконтоКт[(Проводка.СчетКт.ВидыСубко� �то[к-1].ВидСубконто)] = ТекСтрока["СубконтоСчетКредита"+к];
    КонецЦикла;
    Если ПараметрыСчетаКт[0].Валютный Тогда
    Проводка.ВалютаКт = СтруктураШапкиДокумента.В� �лютаДокумента;
    Проводка.ВалютнаяСуммаКт = ТекСтрока["СуммаВал"];
    КонецЕсли;

    Если НЕ Проводка.КВД = ОбщегоНазначения.Получить� �начениеПеременной("глКВДБ� �джет") Тогда
    Проводка.ХарактеристикаДв� �женияКт = ТекСтрока["КОСГУНазначениеПлатежа"];
    Иначе
    Если НомерСубконтоДоговор = 0 Тогда
    Проводка.ХарактеристикаДв� �женияКт = СтруктураШапкиДокумента.Д� �говор;
    Иначе
    Проводка.ХарактеристикаДв� �женияКт = ТекСтрока["СубконтоСчетДебета"+Номер� �убконтоДоговор];
    КонецЕсли;
    КонецЕсли;

    Проводка.НомерЖурнала = БухгалтерскийУчет.НомерЖу� �нала(Проводка.СчетДт,Прово дка.СчетКт);

    // Забалансовые счета
    Если СчетаПроводок.Свойство("За� �алансовыйДебет") Тогда
    Если ЗначениеЗаполнено(ТекСтро� �а["ЗабалансовыйДебет"]) Тогда
    ПараметрыСчета = ПолучениеНСИ.ПолучитьПара� �етрыСчета(ТекСтрока["ЗабалансовыйДебет"]);
    Проводка = ПроводкиБУ.Добавить();
    Проводка.Период = СтруктураШапкиДокумента.Д� �та;
    Проводка.Учреждение = СтруктураШапкиДокумента.У� �реждение;

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

    Если НЕ ПараметрыСчета[0].НетУчетаПоИС Тогда
    Проводка.Баланс = СтруктураШапкиДокумента.Б� �ланс;
    КонецЕсли;
    Если НЕ ПараметрыСчета[0].НетУчетаПоКВД Тогда
    Проводка.КВД = ТекСтрока["КВД"];
    КонецЕсли;
    Проводка.СчетДт = ТекСтрока["ЗабалансовыйДебет"];
    Если НЕ ПараметрыСчета[0].НетУчетаПоКБК Тогда
    Проводка.КБКДт = ТекСтрока["КБКЗабалансовыйДебет"];
    КонецЕсли;
    Проводка.СубконтоДт.КОСГУ = ТекСтрока["КОСГУЗабалансовыйДебет"];
    Для к = 2 по Проводка.СчетДт.ВидыСубкон то.Количество() Цикл
    Проводка.СубконтоДт[(Проводка.СчетДт.ВидыСубко� �то[к-1].ВидСубконто)] = ТекСтрока["СубконтоЗабалансовыйДебе� �"+к];
    КонецЦикла;
    Если ПараметрыСчета[0].Валютный Тогда
    Проводка.ВалютаДт = СтруктураШапкиДокумента.В� �лютаДокумента;
    Проводка.ВалютнаяСуммаДт = ТекСтрока["СуммаВал"];
    КонецЕсли;
    Проводка.Сумма = ТекСтрока["Сумма"];
    Если ЗначениеЗаполнено(ТекСтро� �а["СтрокаНазначениеПлатеж� �"]) Тогда
    Проводка.Содержание = ТекСтрока["СтрокаНазначениеПлатеж� �"];
    Иначе
    Проводка.Содержание = СтруктураШапкиДокумента.П� �НазначениеПлатежа;
    КонецЕсли;
    Проводка.НомерЖурнала = БухгалтерскийУчет.НомерЖу� �нала(Проводка.СчетДт,Прово дка.СчетДт);
    Если НомерСубконтоДоговор = 0 Тогда
    Проводка.ХарактеристикаДв� �женияДт = СтруктураШапкиДокумента.Д� �говор;
    Иначе
    Проводка.ХарактеристикаДв� �женияДт = ТекСтрока["СубконтоСчетДебета"+Номер� �убконтоДоговор];
    КонецЕсли;
    КонецЕсли;
    КонецЕсли;

    Если СчетаПроводок.Свойство("За� �алансовыйКредит") Тогда
    //И НЕ ТекСтрока["КВД"] = Перечисления.КВД.Временное Распоряжение Тогда

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

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

    Проводка.СчетКт = ЗабалансовыйКредит;
    Если НЕ ПараметрыСчетаЗабКт[0].НетУчетаПоИС Тогда
    Проводка.Баланс = СтруктураШапкиДокумента.Б� �ланс;
    КонецЕсли;
    Если НЕ ПараметрыСчетаЗабКт[0].НетУчетаПоКВД Тогда
    Проводка.КВД = ТекСтрока["КВД"];
    КонецЕсли;
    Если НЕ ПараметрыСчетаЗабКт[0].НетУчетаПоКБК Тогда
    Проводка.КБККт = ТекСтрока["КБКЗабалансовыйКредит"];
    КонецЕсли;
    Проводка.СубконтоКт.КОСГУ = ТекСтрока["КОСГУЗабалансовыйКреди� �"];
    Для к = 2 по Проводка.СчетКт.ВидыСубкон то.Количество() Цикл
    Проводка.СубконтоКт[(Проводка.СчетКт.ВидыСубко� �то[к-1].ВидСубконто)] = ТекСтрока["СубконтоЗабалансовыйКред� �т"+к];
    КонецЦикла;
    Если ПараметрыСчетаЗабКт[0].Валютный Тогда
    Проводка.ВалютаКт = СтруктураШапкиДокумента.В� �лютаДокумента;
    Проводка.ВалютнаяСуммаКт = ТекСтрока["СуммаВал"];
    КонецЕсли;
    Проводка.Сумма = ТекСтрока["Сумма"];
    Если ЗначениеЗаполнено(ТекСтро� �а["СтрокаНазначениеПлатеж� �"]) Тогда
    Проводка.Содержание = ТекСтрока["СтрокаНазначениеПлатеж� �"];
    Иначе
    Проводка.Содержание = СтруктураШапкиДокумента.П� �НазначениеПлатежа;
    КонецЕсли;
    Проводка.НомерЖурнала = БухгалтерскийУчет.НомерЖу� �нала(Проводка.СчетКт,Прово дка.СчетКт);
    Если НомерСубконтоДоговор = 0 Тогда
    Проводка.ХарактеристикаДв� �женияКт = СтруктураШапкиДокумента.Д� �говор;
    Иначе
    Проводка.ХарактеристикаДв� �женияКт = ТекСтрока["СубконтоСчетДебета"+Номер� �убконтоДоговор];
    КонецЕсли;
    КонецЕсли;

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

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

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

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

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

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

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

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

    КонецЦикла;

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

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

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

    КонецЦикла;

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

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

    КонецЕсли;

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

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

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

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

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





    а куда здесь свои счета подставить?

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

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

    По умолчанию

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

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

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

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

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

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

    По умолчанию

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

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

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

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

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

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

    По умолчанию

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

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

    Регистрация
    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

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

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

Ваши права

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