helpf.pro
Регистрация

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

kser87
12.02.2010 14:36Прочитано: 6158
Стоит задача перенести данные из таблицы 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;
E_Migachev
15.02.2010 13:51Ответ № 4
Опс...*09, перед
Код 1C v 8.х
 месторождения1="";   
вставь еще
Код 1C v 8.х
 ТекСтрН="";   
kser87
16.02.2010 09:12Ответ № 5
Тот же результат=(
E_Migachev
16.02.2010 09:43Ответ № 6
Да не может быть *08, код четко отрабатывает...
E_Migachev
22.04.2010 23:01Ответ № 7
Вопрос закрыт!
olgerd
30.01.2014 17:57Ответ № 8
Подсказка: Вы можете добавить любую страничку в Избранное щелкнув по значку
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.