 |
| Нужно добавить субконто
|
|
|
|
#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 );
КонецЦикла;
КонецПроцедуры // глОборотПоНДСКЗачетуПоТоварам
И Самое страшное, в проводках ОБ и НС тоже надо чтобы в субконто отображался типНДС, у меня не отображается
|
|
|
|
|
 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#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 заработала
|
|
|
|
|
|
|
|
Cайт взаимодействует с файлами cookie. Продолжая работу с сайтом, Вы разрешаете использование cookie-файлов. Вы всегда можете отключить файлы cookie в настройках Вашего браузера.
2006-2026 Balans.kz. Hosting hoster.kz
|
Правила
Вход
Личные письма
RSS
Продаются домена BALANS.KZ, TAX.KZ, VEBINAR.KZ по вопросам приобретения обратитесь пожалуйста на 
