2018-12-07 21:42:57

Краткое описание :

Для заполнения раздела 3 в декларации требуется добавить возможность выбора нужного контрагента из каталога контрагентов

Описание :

Налоговый расчет о суммах выплаченных иностранным организациям доходов и удержанных налогов

Что измененно :

Требуется реализовать заполнение раздела 3.1 с помощью выбора организаций из соответствующего справочника и получать сведения которые необходимы для заполнения раздела, если они присутствуют в каталоге справочника.

Как измененно :

При заполнении раздела 3, в под раздели 3.1, добавлена возможность выбора контрагента из справочника "Организаций"
Автоматически заполняются следующие поля:
1) Полное наименование в русской транскрипции - спр.Организаций поле "Наименование"
2) Полное наименование в латинской транскрипции - спр.Организаций поле "Наим. орган. на латинице"
3) Код страны регистрации (инкорпорации) - спр.Организаций поле "Государство"
4) Адрес иностранной организации - спр.Организаций поле "Адрес" на закладке прочие
5) Код налог. в стране регистрации (инкорпорации) / СВИФТ код - спр.Организаций поле "ИНН (БИН)"

Получения данных из внешних атрибутов будет осуществляться посредством пользовательского алгоритма
Пример алгоритма:
@Script getIter(iter:longint):string;
@begin
Result := '';
if (iter > 0)
Result := '[' + String(iter) + ']';
@end.

@Script OnBefor_ReCalc : boolean;
@begin
var CountI, i : longint;
CountI := XMLMap.GetNodeCountByName('Файл/Документ/ДохИнОрг/РасчВыплДох');
for (i := 0; i < CountI; i++)
{
var XMLAdrI : string;
XMLAdrI := 'Файл/Документ/ДохИнОрг/РасчВыплДох' + getIter(i);

XMLMAP.SetVariantAttrValueByName_Formula(XMLAdrI + '/СвИОПолучДох/ДокПдтвМН/ДатаДок'
,if(InitServTXO(0),dTXOGetExtAttr('KATORG','Дата свидетельства резидента ОЭЗ',comp(trim(XMLMAP.GetAttrValueByName(XMLAdrI + '/nRec')))),to_date(0,0,0000))
,2);
XMLMAP.SetVariantAttrValueByName_Formula(XMLAdrI + '/СвИОПолучДох/ДокПдтвМН/НомДок'
,if(InitServTXO(0),sTXOGetExtAttr('KATORG','Номер свидетельства резидента ОЭЗ',comp(trim(XMLMAP.GetAttrValueByName(XMLAdrI + '/nRec')))),'')
,2);
XMLMAP.SetVariantAttrValueByName_Formula(XMLAdrI + '/СвИОПолучДох/ДокПдтвМН/ОКСМ'
,if(InitServTXO(0),sTXOGetExtAttr('KATORG','Код страны',comp(trim(XMLMAP.GetAttrValueByName(XMLAdrI + '/nRec')))),'')
,2);
}
@end. П