CftClub.ru
Клуб специалистов ЦФТ-Банк

присвоение параметров
На страницу 1, 2  След.
 
Ответить на тему    Клуб специалистов ЦФТ-Банк (IBSO) -> Разработка в PL/PLUS. Оптимизация запросов Oracle
Предыдущая тема :: Следующая тема  
Автор Сообщение
Псевдоним123
Участник - экстремал


Вступление в Клуб: 05.06.2018
СообщениеПт Июл 27, 2018 12:55   присвоение параметров Ответить с цитатой
Полезность: Нет оценки
добрый день.

есть 2 параметра: "руководитель" (p_user) и "наименование должности руководителя"(p_name_pos).

из параметра руководитель можно достать "наименование должности" (P_USER.[CASTA].[VALUE]).

как сделать присвоение на форме p_name_pos значение P_USER.[CASTA].[VALUE]
(необходимо для возможности редактирования поля).

т.е. при выборе руководителя в поле p_name_pos подставлялось значение P_USER.[CASTA].[VALUE].

пробовал p_name_pos:= P_USER.[CASTA].[VALUE] не помогло...
Volod
Эксперт


Вступление в Клуб: 19.09.2007
СообщениеПт Июл 27, 2018 14:28    Ответить с цитатой
Полезность: Нет оценки
Цитата:
пробовал p_name_pos:= P_USER.[CASTA].[VALUE] не помогло...

Где пробовал?
В разделе Проверка
If P_MESSAGE = 'VALIDATE' then
If P_INFO = ' P_USER' then
p_name_pos:= P_USER.[CASTA].[VALUE];
...

P_USER - валидируемое
Псевдоним123
Участник - экстремал


Вступление в Клуб: 05.06.2018
СообщениеПт Июл 27, 2018 14:33    Ответить с цитатой
Полезность: Нет оценки
Volod пишет:
Цитата:
пробовал p_name_pos:= P_USER.[CASTA].[VALUE] не помогло...

Где пробовал?
В разделе Проверка
If P_MESSAGE = 'VALIDATE' then
If P_INFO = ' P_USER' then
p_name_pos:= P_USER.[CASTA].[VALUE];
...

P_USER - валидируемое


пробовал в разделе проверке
Псевдоним123
Участник - экстремал


Вступление в Клуб: 05.06.2018
СообщениеПт Июл 27, 2018 14:44    Ответить с цитатой
Полезность: Нет оценки
p_user валидируемое
Псевдоним123
Участник - экстремал


Вступление в Клуб: 05.06.2018
СообщениеПт Июл 27, 2018 15:03    Ответить с цитатой
Полезность: Нет оценки
Volod пишет:
Цитата:
пробовал p_name_pos:= P_USER.[CASTA].[VALUE] не помогло...

Где пробовал?
В разделе Проверка
If P_MESSAGE = 'VALIDATE' then
If P_INFO = ' P_USER' then
p_name_pos:= P_USER.[CASTA].[VALUE];
...



не работает...
Матвеев Евгений
Профи


Вступление в Клуб: 31.01.2012
СообщениеПт Июл 27, 2018 15:05    Ответить с цитатой
Полезность: Нет оценки
Псевдоним123 пишет:
Volod пишет:
Цитата:
пробовал p_name_pos:= P_USER.[CASTA].[VALUE] не помогло...

Где пробовал?
В разделе Проверка
If P_MESSAGE = 'VALIDATE' then
If P_INFO = ' P_USER' then
p_name_pos:= P_USER.[CASTA].[VALUE];
...



не работает...



Пришли исходники секции проверка
Volod
Эксперт


Вступление в Клуб: 19.09.2007
СообщениеПт Июл 27, 2018 15:27    Ответить с цитатой
Полезность: Нет оценки
Как вариант P_USER.[CASTA].[VALUE] is null
или Проверки при смене элемента управления = Клиент
Volod
Эксперт


Вступление в Клуб: 19.09.2007
СообщениеПт Июл 27, 2018 15:27    Ответить с цитатой
Полезность: Нет оценки
Вставь debug_pipe(P_INFO, 0);
Псевдоним123
Участник - экстремал


Вступление в Клуб: 05.06.2018
СообщениеПт Июл 27, 2018 15:47    Ответить с цитатой
Полезность: Нет оценки
Код:
begin

   if p_message = 'DEFAULT' then
         --debug_pipe('P_USER '|| P_USER, 0);
      --debug_pipe(P_INFO, 0);   
      If P_INFO = ' P_USER' then
      p_name_pos:= P_USER.[CASTA].[VALUE];
      end if;    
            
      P_PRINT := false;
      P_PARAM.[0] := 1;
      P_USER := vUser;
      l_num_uved := P_NUM_UVED;
      P_DATE := to_date(P_DATE, 'dd.mm.yyyy');
      --P_USER := stdlib.userid;
      --P_USER := null;
      --V_FILE   := ::[SYSTEM_PARAMS].Get('PATH_PRINT_DOC')||'svb_...'; -- устанавливаем путь к шаблону
      
      -- Инициализация переменных пакета для вывода в Word
            
      [RUNTIME].[WORD].Init_Wrd;   
            
                     
      p_info := 'OK';
      
   elsif p_message = 'VALIDATE' then
      If P_INFO = ' P_USER' then
      p_name_pos:= P_USER.[CASTA].[VALUE];
      end if;
      debug_pipe(P_INFO, 0);
      if P_INFO = 'OK' then


debug_pipe(P_INFO, 0) посмотрел через монитор, показано "ОК".

мне необходимо, чтобы при выборе руководителя в параметр наименование должности подставлялась должность руководителя.
Матвеев Евгений
Профи


Вступление в Клуб: 31.01.2012
СообщениеПт Июл 27, 2018 15:48    Ответить с цитатой
Полезность: 1
Псевдоним123 пишет:
Код:
begin

   if p_message = 'DEFAULT' then
         --debug_pipe('P_USER '|| P_USER, 0);
      --debug_pipe(P_INFO, 0);   
      If P_INFO = ' P_USER' then
      p_name_pos:= P_USER.[CASTA].[VALUE];
      end if;    
            
      P_PRINT := false;
      P_PARAM.[0] := 1;
      P_USER := vUser;
      l_num_uved := P_NUM_UVED;
      P_DATE := to_date(P_DATE, 'dd.mm.yyyy');
      --P_USER := stdlib.userid;
      --P_USER := null;
      --V_FILE   := ::[SYSTEM_PARAMS].Get('PATH_PRINT_DOC')||'svb_...'; -- устанавливаем путь к шаблону
      
      -- Инициализация переменных пакета для вывода в Word
            
      [RUNTIME].[WORD].Init_Wrd;   
            
                     
      p_info := 'OK';
      
   elsif p_message = 'VALIDATE' then
      If P_INFO = ' P_USER' then
      p_name_pos:= P_USER.[CASTA].[VALUE];
      end if;
      debug_pipe(P_INFO, 0);
      if P_INFO = 'OK' then


debug_pipe(P_INFO, 0) посмотрел через монитор, показано "ОК".

мне необходимо, чтобы при выборе руководителя в параметр наименование должности подставлялась должность руководителя.




If P_INFO = ' P_USER' then

пробел убери

с пробелом не будет работать)

в двух местах

с большой долей вероятности всё начнет работать)
Псевдоним123
Участник - экстремал


Вступление в Клуб: 05.06.2018
СообщениеПт Июл 27, 2018 16:17    Ответить с цитатой
Полезность: Нет оценки
нет, значение не подставляется... Sad Sad Sad
lexus
Профи


Вступление в Клуб: 28.09.2007
СообщениеПт Июл 27, 2018 16:25    Ответить с цитатой
Полезность: Нет оценки
В секции p_message='DEFAULT' - if убери на p_info, он там пустой.
Volod
Эксперт


Вступление в Клуб: 19.09.2007
СообщениеПт Июл 27, 2018 16:45    Ответить с цитатой
Полезность: 1
Перепиши p_info := 'OK';
на
p_info := 'OK,P_USER';
Volod
Эксперт


Вступление в Клуб: 19.09.2007
СообщениеПт Июл 27, 2018 16:46    Ответить с цитатой
Полезность: Нет оценки
В догонку - ненужно P_DATE := to_date(P_DATE, 'dd.mm.yyyy');
Volod
Эксперт


Вступление в Клуб: 19.09.2007
СообщениеПт Июл 27, 2018 16:49    Ответить с цитатой
Полезность: 1
Псевдоним123 пишет:


debug_pipe(P_INFO, 0) посмотрел через монитор, показано "ОК".



вынеси debug_pipe(P_INFO, 0) перед end; и смотри , что выдает, когда выбираешь P_USER
Показать сообщения:   
Ответить на тему    Клуб специалистов ЦФТ-Банк (IBSO) -> Разработка в PL/PLUS. Оптимизация запросов Oracle Часовой пояс: GMT + 3
На страницу 1, 2  След.
Страница 1 из 2

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах
Рейтинг@Mail.ru