» Казахстанский Бухгалтерский форум www.balans.kz

Нужно добавить субконто

  
Показать сообщения:
Начиная со старых .::. Начиная с новых
Автор: ЗаБияка
Добавлено: #1  Вт Мар 27, 2007 09:43:58
Заголовок сообщения: Нужно добавить субконто
Документ поступление фиксированных активов
Если поступление в валюте, то надо выбрать налоговую инспекцию и тип НДС. На вкладке общие добавила 2 реквизита:
1) НалоговаяИнспекция типСправочник Контрагенты
2)ТипНДС тип Справочник- НалогиСборыОтчисления
В модуле формы добавила
Процедура УстановкиПоУмолчанию()
Если Счет.Валютный = 1 Тогда
Если ПустоеЗначение(НалоговаяИнспекция) = 1 Тогда
НалоговаяИнспекция = Организация.НалоговыйКомитет;
КонецЕсли;
Если ПустоеЗначение(ТипНДС) = 1 Тогда
ТипНДС = ГлЗначениеПоУмолчанию("ОсновнойВидНДСПоИмпорту", глОрганизация());
КонецЕсли;
КонецЕсли;
КонецПроцедуры

В модуле документа теперь мне нужно чтобы если счет валютный, чтобы в субктонто отображалось ТипНДС и налоговая Инспекция

// проводки по НДС
ТзДокумента.Свернуть("СтавкаНДС", "СуммаНДС, СуммаБезНалогов");
ТзДокумента.ВыбратьСтроки();

Пока ТзДокумента.ПолучитьСтроку() = 1 Цикл
Если Счет.Валютный = 1 тогда
// рассчитиваем суммы НДС в валюте учета в случает валютной поставки
СуммаТг = ТзДокумента.СуммаНДС * Курс/?(Кратность=0,1,Кратность);
ВалСумма = ТзДокумента.СуммаНДС;
Иначе
СуммаТг = ТзДокумента.СуммаНДС;
ВалСумма = 0;
КонецЕсли;
Если НалоговаяИнспекция.Выбраг()=0 Тогда

глПроводка( Операция, СчетПоКоду("331"), глСубконто(глПолучитьНалогНДС(ТзДокумента.СтавкаНДС), ВидНДС,),
Счет, глСубконто(Контрагент, Основание, ),
, СуммаТг, ВалСумма, Валюта,
"Выделен НДС", "ФА", Организация, 1);
Иначе

глПроводка( Операция, СчетПоКоду("331"), глСубконто(ТипНДС,ВидНДС,),
Счет, глСубконто(Контрагент, Основание, ),
, СуммаТг, ВалСумма, Валюта,
"Выделен НДС", "ФА", Организация, 1);



КонецЦикла;

Субконто ТИПНДС отображается а налоговая инспеция нет.


Это сделано в документе проступление товаров, я попробывала тоже самое с ФА сделать у меня не получается.
в глобальном модуле нашла процедуру
Процедура глОборотПоНДСКЗачетуПоТоварам(Конт) Экспорт
НомерЖурнала = "";
Если Конт.Вид() <> "ПоступлениеТоваров" Тогда
Возврат;
КонецЕсли;
тзДокумента = СоздатьОбъект("ТаблицаЗначений");
Конт.ВыгрузитьТабличнуюЧасть(тзДокумента);
тзДокумента.НоваяКолонка("ВидОборота");
тзДокумента.ВыбратьСтроки();
Пока тзДокумента.ПолучитьСтроку() = 1 Цикл
Если (ТзДокумента.ТМЦ.СтавкаНДС.Получить(Конт.ДатаДок).Освобожденная = 1) Тогда // Освобожденный
ТзДокумента.ВидОборота = Перечисление.ТипыОборотов.Освобожденный;
ИначеЕсли ТзДокумента.ТМЦ.НДСЦелевой = 0 Тогда // Облагаемый
ТзДокумента.ВидОборота = Перечисление.ТипыОборотов.Облагаемый;
Иначе // Общий
ТзДокумента.ВидОборота = Перечисление.ТипыОборотов.Общий;
КонецЕсли;
КонецЦикла;
тзДокумента.Свернуть("СтавкаНДС, ВидОборота", "Сумма, СуммаНДС");
Если (глЕстьРеквизитШапки("Валюта", Конт.Вид()) <> 0) и
(глЕстьРеквизитШапки("Курс", Конт.Вид()) <> 0) и
(глЕстьРеквизитШапки("Счет", Конт.Вид()) <> 0) Тогда

Если (ПустоеЗначение(Конт.Валюта) + ПустоеЗначение(Конт.Курс) = 0) и
(Конт.Счет.Валютный = 1) Тогда
Валюта = Конт.Валюта;
Курс = Конт.Курс;
Кратность = Валюта.Кратность.Получить(Конт.ДатаДок);
Если (Валюта <> Конт.Организация.ВалютаУчета) и (Кратность > 0) Тогда
тзДокумента.ВыбратьСтроки();
Пока тзДокумента.ПолучитьСтроку() = 1 Цикл
тзДокумента.Сумма = тзДокумента.Сумма * Курс/Кратность;
тзДокумента.СуммаНДС = тзДокумента.СуммаНДС * Курс/Кратность;
КонецЦикла;
КонецЕсли;
КонецЕсли;
КонецЕсли;
тзДокумента.ВыбратьСтроки();
Пока тзДокумента.ПолучитьСтроку() = 1 Цикл
глПроводка( Конт.Операция,
СчетПоКоду("ОБ"), глСубконто(глПолучитьНалогНДС(тзДокумента.СтавкаНДС, 1), Конт.ВидНДС, тзДокумента.ВидОборота),
,,
, тзДокумента.Сумма,,,
"Оборот по приобретению", НомерЖурнала, Конт.Организация );
глПроводка( Конт.Операция,
СчетПоКоду("НС"), глСубконто(глПолучитьНалогНДС(тзДокумента.СтавкаНДС, 1), Конт.ВидНДС, тзДокумента.ВидОборота),
,,
, тзДокумента.СуммаНДС,,
"Оборот по приобретению", НомерЖурнала, Конт.Организация,1 );
КонецЦикла;

КонецПроцедуры // глОборотПоНДСКЗачетуПоТоварам

И Самое страшное, в проводках ОБ и НС тоже надо чтобы в субконто отображался типНДС, у меня не отображается
Автор: Технический
Добавлено: #2  Вт Мар 27, 2007 10:00:59
Заголовок сообщения:
ЗаБияка говорит:
Если Счет.Валютный = 1 тогда

Этот реквизит в табличной части?
Автор: ЗаБияка
Добавлено: #3  Вт Мар 27, 2007 10:02:54
Заголовок сообщения:
нет в шапке
Автор: Технический
Добавлено: #4  Вт Мар 27, 2007 10:47:58
Заголовок сообщения:
ЗаБияка говорит:
Если НалоговаяИнспекция.Выбраг()=0 Тогда

глПроводка( Операция, СчетПоКоду("331"), глСубконто(глПолучитьНалогНДС(ТзДокумента.СтавкаНДС), ВидНДС,),
Счет, глСубконто(Контрагент, Основание, ),
, СуммаТг, ВалСумма, Валюта,
"Выделен НДС", "ФА", Организация, 1);

Косяк здесь, если пустое значение в форме НалоговаяИнспекция то и проводке пусто?
Автор: ЗаБияка
Добавлено: #5  Вт Мар 27, 2007 10:58:36
Заголовок сообщения:
Нет, это условия, Налоговая инспекция выбирается когда поступление ФА в валюте, если Налоговая инспеция не выбрана тогда формируется проводка по тенге.
Если НалоговаяИнспекция.Выбраг()=0 Тогда вместо этого наверное надо было Если сЧет.Валютный=1 Тогда ...
Автор: Технический
Добавлено: #6  Вт Мар 27, 2007 11:59:48
Заголовок сообщения:
ЗаБияка говорит:
Нет, это условия, Налоговая инспекция выбирается когда поступление ФА в валюте, если Налоговая инспеция не выбрана тогда формируется проводка по тенге.

Разобрались? Сами ответили.
ЗаБияка говорит:
Если сЧет.Валютный=1 Тогда ...


ЗаБияка говорит:
И Самое страшное, в проводках ОБ и НС тоже надо чтобы в субконто отображался типНДС, у меня не отображается

Не понял проблемы, что пугает?
Автор: ЗаБияка
Добавлено: #7  Вт Мар 27, 2007 12:09:18
Заголовок сообщения:
в модуле документа я эт онапишу, должно пойти

Пока ТзДокумента.ПолучитьСтроку() = 1 Цикл
СуммаТг = ТзДокумента.СуммаНДС;
Если (ТзДокумента.ПризнакМетодаЗачета = 1) и (Счет.Валютный = 1) Тогда
глПроводка( Операция, СчетПоКоду("331"), глСубконто(ТипНДС, ВидНДС,),
СчетПоКоду("633"), глСубконто(ТипНДС, Перечисление.ВидыПлатежей.НалогВзнос, ),
, СуммаТг, ,,
"Выделен НДС", "ФА", Организация,1);
глПроводка( Операция, СчетПоКоду("633"), глСубконто(ТипНДС, Перечисление.ВидыПлатежей.НалогВзнос, ),
СчетПоКоду("331"), глСубконто(ТипНДС, ВидНДС,),
, СуммаТг, , ,
"Выделен НДС", "ФА", Организация,1);


Иначе
Если НалоговаяИнспекция.Выбран() = 0 Тогда
Если Счет.Валютный = 1 Тогда
//и ((СуммаТг <> 0 ) или (ВалСумма <> 0)) Тогда

глПроводка( Операция, СчетПоКоду("331"), глСубконто(ТипНДС, ВидНДС,),
Счет, глСубконто(Контрагент, Основание, ),
, СуммаТг, ВалСумма, Валюта,
"Выделен НДС", "ФА", Организация,1);
Иначе
глПроводка( Операция, СчетПоКоду("331"), глСубконто(глПолучитьНалогНДС(ТзДокумента.СтавкаНДС), ТзДокумента.ВидНДС,),
Счет, глСубконто(Контрагент, Основание, ),
, СуммаТг, ВалСумма, Валюта,
"Выделен НДС", "ФА", Организация,1);
КонецЕсли;

ИначеЕсли (СуммаТг <> 0) Тогда
глПроводка( Операция, СчетПоКоду("331"), глСубконто(ТипНДС, ВидНДС,),
СчетПоКоду("639"), глСубконто(ТипНДС,ТипНДС,Перечисление.ВидыПлатежей.НалогВзнос,НалоговаяИнспекция, ),
, СуммаТг, , ,
"Выделен НДС", "ФА", Организация,1);

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

а вот проводки по ОД и НС, они же в глобальном прописываются, при поступлении ФА в валюте у меня в ОД и НС в субконто не пишется типНДС, покаместь не нашла почему.
Автор: Технический
Добавлено: #8  Вт Мар 27, 2007 13:15:51
Заголовок сообщения:
Цитата:
а вот проводки по ОД и НС, они же в глобальном прописываются, при поступлении ФА в валюте у меня в ОД и НС в субконто не пишется типНДС, покаместь не нашла почему.
Субконто какие у них?
Автор: ЗаБияка
Добавлено: #9  Вт Мар 27, 2007 15:15:15
Заголовок сообщения:
ТипНДС
Вид НДС к Зачету
Вид Оборота
Вот если у меня поставка в тенге ТИПНДС напишет - налог на добавленную стоимост, а если в валюте - НДС, кроме РФ.
P.S. слава богу проводка 331-639 заработала

  

Служба поддержки WWW.BALANS.KZ