Печать фактического адреса в Трудовой договор ТД-1

[maikl]

Версия (8.1) Есть приказ о приеме на работу. При печати формы договора ТД-1 не печатается адрес фактического проживания. Обновления установлены все. Вытягивать самостоятельно все поля морочно. Может кто уже исправлял ? Поделитесь пожалуйста.

[Polimer]

Самое интересное, что у меня в форме на базе этого прототипа поле adr2_1 выводится, а в форме td_1_25 _1 нет.

[maikl]

adr2_1 это адрес по прописке, а нужен adr2_2 фактический

[Polimer]

В ТД-1 вроде не требуется фактический адрес, что такое adr2_2 не знаю.

[maikl]

В форме ТД-1 есть и фактический адрес и адрес по прописке, раз они есть, значит должны заполняться.

[Polimer]

В упор не вижу фактического адреса.

[maikl]

Вот 2 вырезки из исх. текста линкформы :
.fields
...
adr2_1
tel_1
adr2_2 <--------------- факт адрес (поле из прототипа)
...
.endfields
...

^ ^ <--------- печать адреса по прописке
юридический адрес адрес по прописке (регистрации)
^ ^ <-------- печать адреса факт проживания
номер телефона
^ ^
реквизиты организации (Работодателя) номер телефона
...

[maikl]

Неужели никто не сталкивался с такой проблемой? У всех одинаковые адреса по прописке и по проживанию?

[m0p3e]

В чем проблема взять адрес самому? Если расстраиваться по каждому полю, которое коряво выдает данные из прототипа... Чего только стоят поля выдающие данные по надбавкам в приказах. Сказка!

Код: Выделить всё

Interface PersonEx;
var iAdrEx   : AddressFunc;
Create view 
var cPers : comp;
as select * from Persons
Where (( cPers == Persons.nrec ));

Public Function GetLiveAddr ( cPerson : comp ) : string;
{
 GetLiveAddr := '';
 cPers  := cPerson;
 If GetFirst Persons = tsOk
  {
    GetLiveAddr := iAdrEx.GetFullAddress(Person.LiveAddr);
    If trim(iAdrEx.GetAddressInd(Person.LiveAddr))<>''
     GetLiveAddr := iAdrEx.GetAddressInd(Person.LiveAddr) + ', ' + GetLiveAddr;
  };
};
end.

В форме в .var iPers : PersonEx; .endvar
в
.fields
iPers.GetLiveAddr(comp(NRecPsn))
.endfields