Не выводит значение реквизита

Вид для печати

03.06.2013, 13:26
HbIXA

Не выводит значение реквизита

Код:

Процедура ОбработкаПроведения() Спр=СоздатьОбъект("Справочник.КнигиНаРуках"); Спр.ИспользоватьВладельца(Читатель); ВыбратьСтроки(); Пока ПолучитьСтроку()=1 Цикл Если ПустоеЗначение(ИнвНомер)=0 Тогда Если Спр.НайтиПоРеквизиту("ИнвНомер",ИнвНомер,0)=0 Тогда Спр.Новый(); Спр.Книга=Книга; Спр.ИнвНомер=ИнвНомер; Спр.ДатаВыдачи=ДатаДок; Спр.Записать(); КонецЕсли; Если Константа.УчетПоместамХранения=Перечисление.Булево.Да Тогда МХ=СоздатьОбъект("Справочник.МестаХранения"); Если МХ.НайтиПоКоду(0)=0 Тогда МХ.Новый(); МХ.Код=0; МХ.Наименование="Книга находится на руках"; МХ.Записать(); КонецЕсли; УстановитьРеквизитСправочника(ИнвНомер,"МестоХраненияКниги",МХ.ТекущийЭлемент(),ДатаДок,,,); КонецЕсли; Иначе Если Спр.НайтиПоРеквизиту("Книга",Книга,0)=0 Тогда Спр.Новый(); Спр.Книга=Книга; Спр.ДатаВыдачи=ДатаДок; Спр.Записать(); КонецЕсли; КонецЕсли; ЗапросВБазу(Спр.Книга.ПолноеНаименование); КонецЦикла; КонецПроцедуры

Выдает пустое значение - Спр.Книга.ПолноеНаименование

Что не так делаю?
03.06.2013, 13:48
АнонимХ

из приведенного кода вовсе не очевидно что не так делаешь
может у тя пусто в полном наименовании
03.06.2013, 14:11
HbIXA

Вложений: 1

Нет не пусто

Вложение 51617
03.06.2013, 14:35
Аноним64

Отладчиком умеешь пользоваться?

Цитата:

Сообщение от HbIXA

Нет не пусто

Вложение 51617

+
03.06.2013, 14:42
HbIXA

к сожалению нет, почему то ф5 не работает в нем
03.06.2013, 14:46
Аноним64

Цитата:

Сообщение от HbIXA

к сожалению нет, почему то ф5 не работает в нем

ф5 - это продолжить далее, точка ставится ф9. Когда до нее доберешься, то ф8 (продолжить/следующая строка) Ну и шифт+ф9 - это просмотр выражения
03.06.2013, 14:50
HbIXA

у меня вся панель, продолжить, точки все закрыто
03.06.2013, 14:56
Аноним64

Скрин в студию!

Цитата:

Сообщение от HbIXA

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

-
03.06.2013, 14:59
HbIXA

разобрался, "КонецПроцедуры = Ошибка в выражении!"
03.06.2013, 15:11
HbIXA

после прогона он все норм выдал книга 22, а потом опять пусто
03.06.2013, 15:12
Аноним64

битый индекс?

Цитата:

Сообщение от HbIXA

после прогона он все норм выдал книга 22, а потом опять пусто

Прогони ТиИ, вдруг поможет (((
03.06.2013, 15:19
HbIXA

Заблочена утилитка(
03.06.2013, 15:20
Аноним64

в Конфигураторе имел ввиду

Цитата:

Сообщение от HbIXA

Заблочена утилитка(

Администрирование-Тестирование и исправление
03.06.2013, 15:22
HbIXA

сделал в конце просто Сообщить(КнигаД); и выдало, почему тогда не передает в процедуру

Код:

Процедура ЗапросВБазу(Книга) Connection = СоздатьОбъект("ADODB.Connection"); //Необходимые параметры для подключения АдресСервера = "localhost"; НомерПорта = "3306"; ИмяБД = "test"; Пользователь = "root"; Пароль = ""; //Подключаемся Попытка Connection.Open("Driver={MySQL ODBC 3.51 Driver};Server="+СокрЛП(АдресСервера)+";Port=" + НомерПорта + ";Database=" + СокрЛП(ИмяБД) + ";User=" + СокрЛП(Пользователь) + ";Password=" + Пароль + ";Option=3;STMT=SET CHARACTER SET cp1251"); Сообщить("Подключение прошло успешно"); Исключение Сообщить("Ошибка подключения - " + ОписаниеОшибки()); Возврат; КонецПопытки; Сообщить(Книга); Command=СоздатьОбъект("ADODB.Command"); Command.CommandText = "set names cp1251"; Command.ActiveConnection = Connection; Command.CommandType = 1; Command.Execute(); Command=СоздатьОбъект("ADODB.Command"); Запрос1 = "update dbname set book='тест' where id='1'"; //Запрос1 = "insert into dbname (book) values ()"; Command.CommandText = Запрос1; Command.ActiveConnection = Connection; Command.CommandType = 1; Command.Execute(); //Закрываем соединение. Connection.Close(); КонецПроцедуры
03.06.2013, 15:29
Аноним64

"Ну вы блин даете!"

Цитата:

Сообщение от HbIXA

сделал в конце просто Сообщить(КнигаД); и выдало, почему тогда не передает в процедуру

Код:

Процедура ЗапросВБазу(Книга) Connection = СоздатьОбъект("ADODB.Connection"); //Необходимые параметры для подключения АдресСервера = "localhost"; НомерПорта = "3306"; ИмяБД = "test"; Пользователь = "root"; Пароль = ""; //Подключаемся Попытка Connection.Open("Driver={MySQL ODBC 3.51 Driver};Server="+СокрЛП(АдресСервера)+";Port=" + НомерПорта + ";Database=" + СокрЛП(ИмяБД) + ";User=" + СокрЛП(Пользователь) + ";Password=" + Пароль + ";Option=3;STMT=SET CHARACTER SET cp1251"); Сообщить("Подключение прошло успешно"); Исключение Сообщить("Ошибка подключения - " + ОписаниеОшибки()); Возврат; КонецПопытки; Сообщить(Книга); Command=СоздатьОбъект("ADODB.Command"); Command.CommandText = "set names cp1251"; Command.ActiveConnection = Connection; Command.CommandType = 1; Command.Execute(); Command=СоздатьОбъект("ADODB.Command"); Запрос1 = "update dbname set book='тест' where id='1'"; //Запрос1 = "insert into dbname (book) values ()"; Command.CommandText = Запрос1; Command.ActiveConnection = Connection; Command.CommandType = 1; Command.Execute(); //Закрываем соединение. Connection.Close(); КонецПроцедуры

Подключение через адо не отлаживается! Точка
03.06.2013, 15:35
HbIXA

мне и не нужно его отлаживать, почему переменная КнигаД не передается в процедуру?
03.06.2013, 15:44
Аноним64

Цитата:

Сообщение от HbIXA

мне и не нужно его отлаживать, почему переменная КнигаД не передается в процедуру?

А вот это и не сказать без Отладчика.
03.06.2013, 15:45
Аноним64

могу только намекнуть

в сторону адо проходят только примитивные (простые) типы - строка, число, дата... копай дальше сам
03.06.2013, 15:52
HbIXA

дык итак приходит строка. сделал проще

Процедура ЗапросВБазу(КнигаД)
Сообщить(КнигаД);
КонецПроцедуры

В итоге в отладичке выводит, без него нет
03.06.2013, 15:54
Аноним64

Цитата:

Сообщение от HbIXA

дык итак приходит строка. сделал проще

Процедура ЗапросВБазу(КнигаД)
Сообщить(КнигаД);
КонецПроцедуры

В итоге в отладичке выводит, без него нет

еще раз повторяю - пересылать нужно строку - Строка(КнигаД), получить, потом НайтиПоНаименованию - как-то так