Name: Фізичні суміжники в юридичні
Item: Фізичні суміжники в юридичні
Author: Kochyr

Фізичні суміжники в юридичні

	08.03.2020, 20:18
Скрипт перетворює фізичні суміжники (Іванов Іван Іванович) у юридичні, записуючи у формі землі гр.Іванов І.І. $I=0 $R=0 $CN=@Map.Count @Map.DeselectAll %SLoop ;номер наступного об'єкта $I=$I+1 $LID=@Map.Object[$I].LayerID @if $LID<>70010 then @Goto %SContinue $Param=@Map.Object[$I].Parameter[ID7001003] $F=0 $PPIB=@XML.XPath Proprietor[1]/LegalEntity/Name <root>$Param</root> @if $PPIB<> then @Goto %SContinue %StartPFiz $F=$F+1 $P1PrFiz=@XML.XPath Proprietor[$F]/NaturalPerson/FullName/LastName <root>$Param</root> @if $P1PrFiz= then @Goto %Next $P1ImFiz=@XML.XPath Proprietor[$F]/NaturalPerson/FullName/FirstName <root>$Param</root> $P1PoFiz=@XML.XPath Proprietor[$F]/NaturalPerson/FullName/MiddleName <root>$Param</root> @if $P1PoFiz=- then $P1PoFiz= @if $P1ImFiz<> then $P1ImFiz=@Calc Copy("$P1ImFiz",1,1) $P1ImFiz=@DequoteText $P1ImFiz @if $P1ImFiz<> then $P1ImFiz=$P1ImFiz. @if $P1PoFiz<> then $P1PoFiz=@Calc Copy("$P1PoFiz",1,1) $P1PoFiz=@DequoteText $P1PoFiz @if $P1PoFiz<> then $P1PoFiz=$P1PoFiz. $P1PIB=$P1PrFiz $P1ImFiz $P1PoFiz @if $PPIB<> then $PPIB=$PPIB, землі гр.$P1PIB @if $PPIB= then $PPIB=землі гр.$P1PIB @if $F<6 then @Goto %StartPFiz %Next $Param=@Map.Object[$I].Parameter[ID7001003] <Proprietor><LegalEntity><Name>$PPIB</Name></LegalEntity></Proprietor> $R=$R+1 @Map.SelectObject $I %SContinue @if $I<$CN then @Goto %SLoop @Break Конвертовано $R суміжників
1 2 3 4 5 Категорія: Готові скрипти \| Додав: Микола
Переглядів: 1011 \| Завантажень: 0 \| Коментарі: 9 \| Рейтинг: 0.0/0

Всього коментарів: 9
Порядок виводу коментарів: 0 Спам 4 Kochyr • 16:13, 26.01.2021 А навпаки з юридичних у фізичні. Бо є землі Іванова І.І. (в юридичних) а потрібно Іванов І. І. (в фізичних). 0 5 Микола • 19:57, 26.01.2021 Перед запуском скрипту виділяйте суміжники, в яких треба витягнути ПІБ з юридичних у фізичні. При цьому не виділяйте ті, які мають залишатися юридичними, бо скрипт і їх переведе. Код: $I=0 $R=0 $CN=@Map.SelCount @if $CN=0 then @Break Виділіть суміжники, в яких потрібно витягнути ПІБ з юридичних у фізичні %SLoop $I=@Map.NextSelected $I @if $I=0 then @Goto %Finish $LID=@Map.Object[$I].LayerID @if $LID<>70010 then @Goto %SContinue $Param=@Map.Object[$I].Parameter[ID7001003] $PPIB=@XML.XPath Proprietor[1]/LegalEntity/Name <root>$Param</root> @if $PPIB= then @Goto %SContinue $PPIB=@ReplaceChar "$PPIB $PPIB=@Calc replace("$PPIB","землі ","") $PPIB=@DequoteText $PPIB $PPIB=@ReplaceChar "$PPIB $LastName=@StringPart 1 $PPIB $FirstName=@StringPart 2 $PPIB $MiddleName=@StringPart 2.$FirstName $FirstName=@StringPart 1.$FirstName $result=<Proprietor><NaturalPerson><FullName><LastName>$LastName</LastName><FirstName>$FirstName</FirstName><MiddleName>$MiddleName</MiddleName></FullName></NaturalPerson></Proprietor> @Map.Object[$I].Parameter[ID7001003] $result $R=$R+1 %SContinue @Goto %SLoop %Finish @Break Конвертовано $R суміжників 0 Спам 6 Kochyr • 14:47, 27.01.2021 Не працює як належить. В юридичних стоїть "землі Іванова І.І.". В фізичні записує: Прізвище:землі; Ім'я: Іванов; По батькові: 0 7 Микола • 15:22, 27.01.2021 вишліть ваш обмінник на email чи через якийсь файлообмінник, кинувши сюди ярлик, бо я тестував даний скрипт, заповнивши суміжника як "землі Іванова І.І." і в мене нормально працювало. Може у вас є якісь пробіли між словами ще зайві? Або якісь інші нюанси. Там важливий кожен символ. Може у вас "Землі" з великої букви? 0 Спам 8 Kochyr • 15:27, 27.01.2021 https://fex.net/uk/s/rr3kdsy 0 9 Микола • 16:34, 27.01.2021 У вас у слові "землі" латинська буква "і". Тому це слово скрипт не може у вас знайти. Замініть у скрипті рядок: $PPIB=@Calc replace("$PPIB","землi ","") 0 Спам 3 Санек • 09:34, 11.11.2020 Дякую Вам! 0 2 Микола • 12:31, 10.11.2020 Доброго дня! Так, можливо. Для цього замініть цей код: @if $P1ImFiz<> then $P1ImFiz=@Calc Copy("$P1ImFiz",1,1) $P1ImFiz=@DequoteText $P1ImFiz @if $P1ImFiz<> then $P1ImFiz=$P1ImFiz. @if $P1PoFiz<> then $P1PoFiz=@Calc Copy("$P1PoFiz",1,1) $P1PoFiz=@DequoteText $P1PoFiz @if $P1PoFiz<> then $P1PoFiz=$P1PoFiz. $P1PIB=$P1PrFiz $P1ImFiz $P1PoFiz @if $PPIB<> then $PPIB=$PPIB, землі гр.$P1PIB @if $PPIB= then $PPIB=землі гр.$P1PIB на цей: $P1PIB=$P1PrFiz $P1ImFiz $P1PoFiz @if $PPIB<> then $PPIB=$PPIB, $P1PIB @if $PPIB= then $PPIB=$P1PIB 0 Спам 1 Санек • 07:54, 10.11.2020 Доброго дня, Микола! Чи можливо зробити так, щоб даний скрипт перевотворював фізичні суміжники в юридичні, але не скорочено, а як є та без землі гр.

E-mail:
Пароль: