for flooders
:: Главная :: Решения :: Статьи :: Сайт М. Дроздова :: Файловый архив :: Книга по VFP 9 :: Русский Help Online :: OFF-LINE Форум
   Лисоводы   всех   стран,  объединяйтесь !!!  

Список Форумов  :: Вопросы по 1С
  

Данные по НДФЛ
AlexandrIT
Автор

Сообщений: 11
Дата: 19.05.11 13:38:48
Доброго утра!
Закидываю (все еще) сведения о сотрудниках нашей конторы в БД 1С:Предприятие 8.2 ЗиК
Заполнил справочники Организации, Подразделения Организаций, Подразделения, Физические Лица;
регистры сведений ФИОФизЛиц, ГражданствоФизЛиц, ПаспортныеДанныеФизЛиц, КонтактнаяИнформация.

Сейчас вливаю данные в НДФЛСтандартныеВычетыФизлиц, НДФЛСтандартныеВычетыНаДетей, НДФЛПрименениеВычетов.
И что-то не срастается.
После всех танцев с бубнами в конфе вижу, что правильно заполнены НДФЛСтандартныеВычетыНаДетей и НДФЛПрименениеВычетов.
А правО на личный вычет (как я понял - НДФЛСтандартныеВычетыФизлиц) выглядит криво: Дата указана, в столбце КОД вместо 'применять' и '103' стоит ненужное 'НЕ ПРИМЕНЯТЬ'

Пытался так:
*********
БазаОле.НачатьТранзакцию()
ФизЛица = БазаОле.Справочники.ФизическиеЛица
Вычеты = БазаОле.Справочники.ВычетыНДФЛ

НаборЗаписейВычетыСтандартные = БазаОле.РегистрыСведений.НДФЛСтандартныеВычетыФизлиц.СоздатьНаборЗаписей()
НаборЗаписейВычетыНаДетей = БазаОле.РегистрыСведений.НДФЛСтандартныеВычетыНаДетей.СоздатьНаборЗаписей()
НаборЗаписейПрименениеВычетов = БазаОле.РегистрыСведений.НДФЛПрименениеВычетов.СоздатьНаборЗаписей()

ЭлементФизЛицоСсылка = ФизЛица.НайтиПоКОДУ(КодФизЛица)
IF ЭлементФизЛицоСсылка <> БазаОле.Справочники.ФизическиеЛица.ПустаяСсылка()
GUIDЭлементФизЛица = ФизЛица.ПолучитьСсылку(ЭлементФизЛицоСсылка.УникальныйИдентификатор())
ELSE
* пустой идентификатор - нет такого человека
БазаОле.ОтменитьТранзакцию()
RETURN
ENDIF

ЭлементВычетыСсылка = Вычеты.НайтиПоКОДУ(pcНомерВычета)
IF ЭлементВычетыСсылка <> БазаОле.Справочники.ВычетыНДФЛ.ПустаяСсылка()
GUIDЭлементВычеты = Вычеты.ПолучитьСсылку(ЭлементВычетыСсылка.УникальныйИдентификатор())
ELSE
* пустой идентификатор - нет такого Вычета
БазаОле.ОтменитьТранзакцию()
RETURN
ENDIF

НоваяЗаписьВычетыСтандартные = НаборЗаписейВычетыСтандартные.Добавить()
НоваяЗаписьВычетыСтандартные.КодВычетаЛичный = GUIDЭлементВычеты
НоваяЗаписьВычетыСтандартные.Период=МояТабличка.period_beg
НоваяЗаписьВычетыСтандартные.ФизЛицо = GUIDЭлементФизЛица

НоваяЗаписьПрименениеВычетов = НаборЗаписейПрименениеВычетов.Добавить()
НоваяЗаписьПрименениеВычетов.ФизЛицо = GUIDЭлементФизЛица
НоваяЗаписьПрименениеВычетов.Период = МояТабличка.period_beg
НоваяЗаписьПрименениеВычетов.Организация = GUIDЭлементОрганизация

НоваяЗаписьВычетыНаДетей = НаборЗаписейВычетыНаДетей.Добавить()
НоваяЗаписьВычетыНаДетей.КодВычета = GUIDЭлементВычеты
НоваяЗаписьВычетыНаДетей.КоличествоДетей = МояТабличка.КоличествоДетей
НоваяЗаписьВычетыНаДетей.Период = МояТабличка.period_beg
НоваяЗаписьВычетыНаДетей.ПериодЗавершения = МояТабличка.period_end

НаборЗаписейВычетыСтандартные.Записать()
НаборЗаписейВычетыНаДетей.Записать()
НаборЗаписейПрименениеВычетов.Записать()

БазаОле.ЗафиксироватьТранзакцию

Чего же этой шайтан-машине не хватает ?
Ratings: 0 negative/0 positive

Re: Данные по НДФЛ
AlexandrIT
Автор

Сообщений: 11
Дата: 19.05.11 16:56:35
Ответ слишком тривиален или никто не сталкивался?
Ratings: 0 negative/0 positive



Извините, только зарегистрированные пользователи могут оставлять сообщения в этом форуме.

On-line: 11 (Гостей: 11)

25.06.2019 23:18:26 exec: 0.02
Mem: 1.07 Mb

© 2000-2019 Fox Club 
Яндекс.Метрика