Формирование тематической карты.

Сообщений 1 страница 5 из 5

Поделиться114.11.2017 15:28:27

Автор: Олег
Зарегистрирован: 13.12.2016
Сообщений: 128
Последний визит:
21.03.2025 11:27:52

Не получается сформировать окраску по вредителям.
В файле *.TPS следующее:

Vrediteli.tps

var
ResultValue : string;

begin
ResultValue := '0';
if (@M3.MAKET = 12) AND (@M3.N4 = 55) then
ResultValue := '1' { Стволовая гниль }
else if (@M3.MAKET = 12) AND (@M3.N4 = 6) then
ResultValue := '2' { Рак серянка }
else if (@M3.MAKET = 12) AND (@M3.N4 = 53) then
ResultValue := '3' { Некроз вершин }
else if (@M3.MAKET = 12) AND (@M3.N4 = 1) then
ResultValue := '4' { Корневая губка }
else if (@M3.MAKET = 12) AND (@M3.N4 = 2) then
ResultValue := '10' { Сосновая губка }
else if (@M3.MAKET = 12) AND (@M3.N4 = 5) then
ResultValue := '11' { Еловая губка }
else if (@M3.MAKET = 12) AND (@M3.N4 = 13) then
ResultValue := '5' { Короед-типограф }
else if (@M3.MAKET = 12) AND (@M3.N4 = 7) then
ResultValue := '6' { ложный трутовик }
else if (@M3.MAKET = 12) AND (@M3.N4 = 8) then
ResultValue := '7' { трутовик настоящий }
else if (@M3.MAKET = 12) AND (@M3.N1 = 1) then
ResultValue := '8' { низовой пожар }
else if (@M3.MAKET = 12) AND (@M3.N1 = 4) then
ResultValue := '9' { Ветровал }
end.

В базе поле @M3.N1, то есть столбец Parametr в таблице TblVydDopParam имеет текстовый формат.
Я предполагаю что из за текстового формата поля условие, например "@M3.N1 = 4" не выполняется.
Подскажите кто, чего решил по окраске вредителей.

Поделиться214.11.2017 15:38:14

Автор: Алексей Курагин
Откуда: Киров
Зарегистрирован: 09.12.2016
Сообщений: 466
Последний визит:
06.06.2025 14:30:31

тогда может так?
@M3.N1 = '4'

Поделиться315.11.2017 10:43:13

Автор: Олег
Зарегистрирован: 13.12.2016
Сообщений: 128
Последний визит:
21.03.2025 11:27:52

Алексей Курагин написал(а):

тогда может так?
@M3.N1 = '4'

Не работает, пишет: "Несоответствие типов операндов"

Поделиться415.11.2017 10:53:57

Автор: Алексей Курагин
Откуда: Киров
Зарегистрирован: 09.12.2016
Сообщений: 466
Последний визит:
06.06.2025 14:30:31

ну или в двойных кавычках, я их путаю )
хотя пробовали наверно уже.

тут наверно дело в том, что макетов у выдела несколько, и не всегда макрос "заглядывает" в 12-й. Запрос надо посложнее писать, с SELECT-ом.
что-то типа этого

IF SELECT(@M3.N4, @M3.MAKET = 12) = 4

сам не проверял, извините

Поделиться515.11.2017 14:21:13

Автор: Олег
Зарегистрирован: 13.12.2016
Сообщений: 128
Последний визит:
21.03.2025 11:27:52

Разобрался.
Если кому надо, забирайте

Вредители.tps

var
ResultValue : string;

begin
ResultValue := '55';
if (@1.4.1.PARAMID = 1201) AND (@1.4.1.PARAMETR = '4') then
ResultValue := '9' { Ветровал }
else if (@1.4.1.PARAMID = 1204) AND (@1.4.1.PARAMETR = '55') then
ResultValue := '1' { Стволовая гниль }
else if (@1.4.1.PARAMID = 1204) AND (@1.4.1.PARAMETR = '6') then
ResultValue := '2' { Рак серянка }
else if (@1.4.1.PARAMID = 1204) AND (@1.4.1.PARAMETR = '53') then
ResultValue := '3' { Некроз вершин }
else if (@1.4.1.PARAMID = 1204) AND (@1.4.1.PARAMETR = '1') then
ResultValue := '4' { Корневая губка }
else if (@1.4.1.PARAMID = 1204) AND (@1.4.1.PARAMETR = '2') then
ResultValue := '10' { Сосновая губка }
else if (@1.4.1.PARAMID = 1204) AND (@1.4.1.PARAMETR = '5') then
ResultValue := '11' { Еловая губка }
else if (@1.4.1.PARAMID = 1204) AND (@1.4.1.PARAMETR = '13') then
ResultValue := '5' { Короед-типограф }
else if (@1.4.1.PARAMID = 1204) AND (@1.4.1.PARAMETR = '7') then
ResultValue := '6' { ложный трутовик }
else if (@1.4.1.PARAMID = 1204) AND (@1.4.1.PARAMETR = '8') then
ResultValue := '7' { трутовик настоящий }
else if (@1.4.1.PARAMID = 1201) AND (@1.4.1.PARAMETR = '1') then
ResultValue := '8' { низовой пожар }

end.

ФОРУМ ТЕХПОДДЕРЖКИ ГИС TOPOL-L

Меню навигации

Пользовательские ссылки

Объявление

Информация о пользователе