Как заполнить программно место жительства физического лица?

12.02.2010 14:36

Прочитано: 6311

Стоит задача перенести данные из таблицы Excel в справочник "Физические лица" программно. Не понятно, каким образом заполнить реквизит "Месторождения".

Следующий код не работает корректно:

ГородРожд=теклист.cells(счетчикцикла,39).value;
РайонРожд=теклист.cells(счетчикцикла,38).value;
РегионРожд= теклист.cells(счетчикцикла,37).value;
СтранаРожд= теклист.cells(счетчикцикла,36).value;

если пустаястрока(городрожд)=ложь тогда
городрожд="Населенный пункт: " + городрожд;
месторождения1=городрожд;
конецесли;

если пустаястрока(районрожд)=Ложь тогда
районрожд=", район: " + районрожд;
месторождения1=городрожд+районрожд;

конецесли;
если пустаястрока(регионрожд)=Ложь тогда
РегионРожд=", область: " + РегионРожд;
месторождения1=городрожд+районрожд+РегионРожд;

конецесли;
если пустаястрока(странарожд)=Ложь тогда
СтранаРожд=", страна: " + СтранаРожд;
месторождения1=городрожд+районрожд+РегионРожд+СтранаРожд;
конецесли;

новыйэлемент.МестоРождения= месторождения1;

В итоге в графе "место жительства" появляется следующее:
"Населенный пункт: район: Наро-Фоминский, район: область: Московская обл, область: страна: РОССИЯ"

Yandex

Возможно, вас также заинтересует

E_Migachev

12.02.2010 18:11

Ответ № 1

А в каком виде должны храниться данные в реквизите "Месторождения"?

kser87

15.02.2010 11:09

Ответ № 2

в таком:
"Населенный пункт: наро-фоминск, район: наро-фоминский, область: московская обл, страна: Россия"

E_Migachev

15.02.2010 13:50

Ответ № 3

а, ясно:
попробуй так:

Код 1C v 8.х

 ГородРожд=теклист.cells(счетчикцикла,39).value;

РайонРожд=теклист.cells(счетчикцикла,38).value;

РегионРожд= теклист.cells(счетчикцикла,37).value;

СтранаРожд= теклист.cells(счетчикцикла,36).value;



месторождения1="";

если пустаястрока(городрожд)=ложь тогда

ТекСтрН="Населенный пункт: " + городрожд;

месторождения1=ТекСтрН;

конецесли;



если пустаястрока(районрожд)=Ложь тогда

ТекСтрН=", район: " + районрожд;

месторождения1=месторождения1+ТекСтрН;

конецесли;



если пустаястрока(регионрожд)=Ложь тогда

ТекСтрН=", область: " + РегионРожд;

месторождения1=месторождения1+ТекСтрН;

конецесли;



если пустаястрока(странарожд)=Ложь тогда

ТекСтрН=", страна: " + СтранаРожд;

месторождения1=месторождения1+ТекСтрН;

конецесли;



новыйэлемент.МестоРождения= месторождения1;