Страница 1 из 1

адрес сотрудника в ПФ

Добавлено: 17 ноя 2004, 14:34
lada
Добрый день! Подскажите, может кто-нибудь знает функцию преобразования адреса сотрудника в стандартную строку для предоставления в пенсионный фонд? Нужна та стандартная, которую использует Галактика при выгрузке (с анализом Россия - не Россия, Москва - не Москва и т.д.).

Re: адрес сотрудника в ПФ

Добавлено: 17 ноя 2004, 17:11
Галя
Не совсем поняла, похоже то-то прогрпммистское... В каталоге адресов есть специальные признаки - является страной, городом, улицей... В зависимости от этого формируется адрес в выгрузках разных

Re: адрес сотрудника в ПФ

Добавлено: 17 ноя 2004, 17:22
lada
Вот-вот, мне и хочется заполучить ту функцию, которая формирует адрес в отчетах (есть необходимость свою выгрузку написать). Уж очень не хочется ходить по таблице CATALOGS и анализировать страна-не страна, область-не область и т.д.

Re: адрес сотрудника в ПФ

Добавлено: 19 ноя 2004, 12:28
edward_K
версия?

Re: адрес сотрудника в ПФ

Добавлено: 22 ноя 2004, 13:45
lada
585.02

Re: адрес сотрудника в ПФ

Добавлено: 23 ноя 2004, 11:36
edward_K
var iAdrFunc : AddressFunc; // Переменная типа интерфейс AddressFunc


StateCode:= iAdrFunc.GetCountryCode(cAddrProp) // код страны
AddrProp:= iAdrFunc.MakeAddress_Pas(cAddrProp, 1, RStreet, RObl, Rraion, RCity, RNasPunct, StateCode, RegionCode);
AddrZip:= string(iAdrFunc.GetAddressInd(cAddrProp));
RabStreet := iAdrFunc.GetStreet(cAddrProp);
WStreetDet:= iAdrFunc.GetStreetStr(RabStreet);
WDomDet := iAdrFunc.GetHouseStr(RabStreet); //дом
Korp := iAdrFunc.GetCorpStr(RabStreet); //корпус
Kvart:= iAdrFunc.GetFlatStr(RabStreet); //квартира
RegionCode := iAdrFunc.GetCodeRegion(iAdrFunc.GetATDnrec(cAddrProp)); // код региона
RObl := iAdrFunc.GetNameRegion(iAdrFunc.GetATDnrec(cAddrProp))
Rraion := iAdrFunc.GetNameATD(iAdrFunc.GetATDnrec(cAddrProp),3)
RCity := iAdrFunc.GetNameATD(iAdrFunc.GetATDnrec(cAddrProp),4)
RNasPunct := iAdrFunc.GetNameATD(iAdrFunc.GetATDnrec(cAddrProp),5)

Re: адрес сотрудника в ПФ

Добавлено: 24 ноя 2004, 17:17
lada
СПАСИБО!!!