Сервисы поддержки / Примеры / Примеры использования стандартных процедур RSL / Пример работы со справочником клиентов с помощью класса TClientList

Пример работы со справочником клиентов с помощью класса TClientList

Автор:R-Style Softlab
Дата:28.02.2005
Просмотров:1791
Скачиваний:1775
Оценка: - , Оценок - 0

Сохранить в файле

Обсудить в форуме

Описание

Пример работы со справочником клиентов в RS-Retail/RS-Loans при использовании "единого клиента" в сборке 5.1.93. В примере использован класс TClientList, смысл примера - обезличивание справочника клиентов. Класс TClientList можно использовать как при работе с "единым клиентом", так и при хранении клиентов в файле depclnt.dbt (для RS-Retail).

Текст примера

 import CommonInter;

var clnts = TClientList;
var stat, i;

if (not clnts.MayUpdate)
        clnts.MayUpdate = true;
end;

clnts.ClearFilterKey();
clnts.SetFilter_CodClient(0,9999999999);
clnts.SetFilter(false);
stat = clnts.first();

i = 0;

while(stat)
 i = i+1;

 clnts.CurRec.rec.Name1 = "F" + clnts.CurRec.rec.CodClient;
 clnts.CurRec.rec.Name2 = "I"+ i;
 clnts.CurRec.rec.Name3 = "O";
 clnts.CurRec.rec.INN = "1111111"+ i;/*Не должен совпадать для разных субъектов*/
 clnts.CurRec.rec.SocialNumber = "22222";
 clnts.CurRec.rec.SocialDate = Date(25,02,2005);
 clnts.CurRec.rec.Address = "Адрес регистрации";
 clnts.CurRec.rec.PostIndex = "111111";
 clnts.CurRec.rec.Place = "place";
 clnts.CurRec.rec.StreetName = "street";
 clnts.CurRec.rec.House = "1";
 clnts.CurRec.rec.NumCorp = "2";
 clnts.CurRec.rec.Flat = "3";
 clnts.CurRec.rec.AddressF = "Адрес фактического проживания";
 clnts.CurRec.rec.PostIndexF = "111111";
 clnts.CurRec.rec.PlaceF = "place";
 clnts.CurRec.rec.StreetNameF = "street";
 clnts.CurRec.rec.HouseF = "1";
 clnts.CurRec.rec.NumCorpF = "2";
 clnts.CurRec.rec.FlatF = "3";
 clnts.CurRec.rec.PhoneNumber = "1234567";
 clnts.CurRec.rec.PaperSeries = "qqq";
 clnts.CurRec.rec.PaperNumber = "333";
 clnts.CurRec.rec.PaperIssuer = "123";
 clnts.CurRec.rec.PaperIssuedDate = Date (01,01,2002);
 clnts.CurRec.rec.PlaceWork = "Место работы и должность";
 clnts.Update();
 stat = clnts.next();
end;