Страница 1 из 1
Печать фактического адреса в Трудовой договор ТД-1
Добавлено: 27 май 2009, 12:21
maikl
Версия (8.1) Есть приказ о приеме на работу. При печати формы договора ТД-1 не печатается адрес фактического проживания. Обновления установлены все. Вытягивать самостоятельно все поля морочно. Может кто уже исправлял ? Поделитесь пожалуйста.
Добавлено: 27 май 2009, 13:00
Polimer
Самое интересное, что у меня в форме на базе этого прототипа поле adr2_1 выводится, а в форме td_1_25 _1 нет.
Добавлено: 27 май 2009, 13:03
maikl
adr2_1 это адрес по прописке, а нужен adr2_2 фактический
Добавлено: 27 май 2009, 13:46
Polimer
В ТД-1 вроде не требуется фактический адрес, что такое adr2_2 не знаю.
Добавлено: 27 май 2009, 14:01
maikl
В форме ТД-1 есть и фактический адрес и адрес по прописке, раз они есть, значит должны заполняться.
Добавлено: 27 май 2009, 14:08
Polimer
В упор не вижу фактического адреса.
Добавлено: 27 май 2009, 14:57
maikl
Вот 2 вырезки из исх. текста линкформы :
.fields
...
adr2_1
tel_1
adr2_2 <--------------- факт адрес (поле из прототипа)
...
.endfields
...
^ ^ <--------- печать адреса по прописке
юридический адрес адрес по прописке (регистрации)
^ ^ <-------- печать адреса факт проживания
номер телефона
^ ^
реквизиты организации (Работодателя) номер телефона
...
Добавлено: 29 май 2009, 08:04
maikl
Неужели никто не сталкивался с такой проблемой? У всех одинаковые адреса по прописке и по проживанию?
Добавлено: 29 май 2009, 10:56
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