Автоматизация налогового учета

              ВидыРасхода.ДобавитьЗначение(Перечисление.ВнереализационныеРасходы.УбытокОтУступкиПраваТребования);

              ВидыРасхода.ДобавитьЗначение(Перечисление.ВнереализационныеРасходы.НДС_ПоСписаннойКредиторскойЗадолженности);

              ВидыРасхода.ДобавитьЗначение(Перечисление.ВнереализационныеРасходы.ОперацииСФинансовымиИнструментами);

              ВидыРасхода.ДобавитьЗначение(Перечисление.ВнереализационныеРасходы.ОтрицательнаяРазницаОтПереоценкиИмущества);

              ВидыРасхода.ДобавитьЗначение(Перечисление.ВнереализационныеРасходы.ПрочиеВнереализационныеРасходы);

КонецПроцедуры //ПриОткрытии()                                                   

Модуль регистра «учет внереализационных доходов».

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

Процедура Сформировать()

              Т=СоздатьОбъект("ТаблицаЗначений");

              Т.НоваяКолонка("Дата");             

              Т.НоваяКолонка("Документ");

              Т.НоваяКолонка("ВидДохода");

              Т.НоваяКолонка("Объект");

              Т.НоваяКолонка("Количество");

              Т.НоваяКолонка("Сумма");

              Т.НоваяКолонка("Прим");      

              Т.НоваяКолонка("Опер");                    

              Док=СоздатьОбъект("Документ");

              БИ=СоздатьОбъект("БухгалтерскиеИтоги");                       

              БИ.Опции(1);             

              Если ВидДохода.Выбран()=1 Тогда

                            БИ.ИспользоватьСубконто(ВидыСубконто.ВнереализационныеДоходы,ВидДохода,2)             

              КонецЕсли;  

              Опер=СоздатьОбъект("Операция");

              БИ.ВыполнитьЗапрос(НачДата,КонДата,"Н08",,,,"Проводка");

              БИ.ВыбратьПериоды();

              Пока БИ.ПолучитьПериод()=1 Цикл

                  Если БИ.КО()<>0  Тогда     

                                          Если БИ.Операция.Кредит.Субконто(1)=Перечисление.ВнереализационныеДоходы.НеПринимаемыеДоходы Тогда

                                              Продолжить;

                                          КонецЕсли;

                      Т.НоваяСтрока();

                                          Т.Дата=БИ.начДата;

                                          Т.ВидДохода=БИ.Операция.Кредит.Субконто(1);

                                          Т.Сумма=БИ.КО();

                                          Док=БИ.Операция.Документ;

                                          Т.Опер=Док;

                                          Если Док.Вид()="ОперацииОказанияУслугКД" Тогда

                                              Док.ПолучитьСтрокуПОНомеру(БИ.Операция.НомерПроводки());

                                                        Т.Документ=Док.Основание;

                                                        Т.Объект=Док.Наименование;

                                                        Попытка

                                                                      Т.Прим=Т.Документ.КОнтрагент;

                                                        Исключение

                                                                      Т.Прим="";

                                                        Конецпопытки;

                                          ИначеЕсли Док.Вид()="ПрочиеДоходыРасходыКД" Тогда

                                              Док.ПолучитьСтрокуПОНомеру(БИ.Операция.НомерПроводки());

                                                        Т.Документ=Док.Основание;

                                                        Т.Объект=Док.Наименование;

                                                        Т.Прим=Док.Содержание;

                                          ИначеЕсли Док.Вид()="ОперацииПриобретенияИмуществаКД" Тогда

                                                        Опер.НайтиОперацию(Док);

                                                        НомПроводки=БИ.Операция.НомерПроводки()-1;

                                                        Опер.ПолучитьПроводкуПоНомеру(НомПроводки);

                                                        Т.Объект=Опер.Дебет.Субконто(1);

                                                        Т.Документ=Опер.СодержаниеПроводки;

                                                        Т.Количество=Опер.Количество;     

                                          Иначе

                                                        Т.Прим=Опер.СодержаниеПроводки;                                                       

                                          КонецЕсли;                                         

                  КонецЕсли;

              КонецЦикла;

              Таб=СоздатьОбъект("Таблица");             

              Т.ВыбратьСТроки();

              Таб.ВывестиСекцию("Шапка");

              Пока Т.ПолучитьСтроку()=1 Цикл                

                            Если Пустоезначение(Т.Документ)=1 Тогда

                                          Док="";

                            Иначе     

                                          Попытка

                                                        Док=СокрЛП(Т.Документ.ПредставлениеВида())+" № "+СокрЛП(Т.Документ.НомерДок);             

                                          Исключение

                                                        Док=СокрЛП(Т.Документ);

                                          КонецПопытки;

                            КонецЕсли;

                            Если ТипЗначенияСтр(Док)="Строка" Тогда

                                Докум=Т.Опер;

                            Иначе

                                          Докум=Док;

                            КонецЕсли;

                            Таб.ВывестиСекцию("Строка");

              КонецЦикла;            

              Таб.ВывестиСекцию("Подвал");

              Таб.Опции(0,0,0,0,"ОП РУОВИРУ");

              Таб.ТолькоПросмотр(1);

              Таб.Показать("Регистр учета внереализационных доходов");

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

Процедура ПриОткрытии() //предопределенная             

              НачДата = НачГода(РабочаяДата());

              КонДата = КонКвартала(РабочаяДата());             

КонецПроцедуры //ПриОткрытии()                                              

Выводы

Заключение

Ведение бухгалтерского учета с применением компьютера в настоящее время стало нормой работы на многих предприятиях. Использование в работе бухгалтерской программы дает широкие возможности для автоматического отражения любых документов и хозяйственных операций в бухгалтерском учете посредством бухгалтерских проводок, а также исключения арифметических ошибок. На компьютере легко формируются все первичные и отчетные документы.

ППП «1С:Бухгалтерия» предназначен для учета наличия и движения средств предприятия. Он может использоваться как автономно, так и совместно с другими компонентами системы «1С:Предприятие». ППП «1С:Бухгалтерия» позволяет автоматизировать выполнение практически полного состава задач бухгалтерского учета. Гибкость и настраиваемость «1С:Бухгалтерия» проявляется в том, что это готовое решение, позволяющее вести учет без дополнительных доработок и настроек. Кроме того, пакет может быть адаптирован к любым особенностям учета на конкретном предприятии.