Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
22 ноя 2024, 12:42

Переменная не определена

Автор Snakey, 07 дек 2012, 15:59

0 Пользователей и 1 гость просматривают эту тему.

Snakey

Голова едет кругом... Помогите плз. Ошибка:
{Справочник.Гаражи.МодульОбъекта(84,27)}: Переменная не определена (Организация)
      ТабДокумент = ПечатьПД4(<<?>>Организация); (Проверка: Толстый клиент (обычное приложение))



Функция ПечатьПД4(Организация) Экспорт
      
      Если Константы.СуммаКвитанции=0 Тогда
         Предупреждение("Не заполнена константа 'Сумма для квитанции'!");
         //Возврат
      КонецЕсли;
      ТекстЗаЧто=Открытие();
      ТабДокумент = Новый ТабличныйДокумент();
      ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_Гаражи_ПД4";
      Макет       = ПолучитьМакет("ПД4");
      Шапка         = Макет.ПолучитьОбласть("Квит");
      //ШапкаТаблицы  = Макет.ПолучитьОбласть("ШапкаТаблицы");
      Запрос = Новый Запрос();
      Запрос.УстановитьПараметр("Организация",   Организация);
      НовыйОбъект = Справочники.Гаражи;
      ОписаниеОрганизации = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Организация);
      //ВыбЭлемент=ЭтотОбъект.ВыбратьЭлемент;
      //Пока ВыбЭлемент <> Неопределено Цикл
         ОбластьМакета = Макет.ПолучитьОбласть("ЛицеваяСторона");
         ОбластьМакета.Параметры.НомерСчета=ОписаниеОрганизации.НомерСчета;
         ОбластьМакета.Параметры.БанковскиеРеквизиты=СокрЛП(ОписаниеОрганизации.БанкОрганизации)+" г. Москва Сбербанка России";
         ОбластьМакета.Параметры.КоррСчет=ОписаниеОрганизации.КоррСчет;
         ОбластьМакета.Параметры.Бик=ОписаниеОрганизации.БИК;
         ОбластьМакета.Параметры.НаименованиеПлатежа=СокрЛП(ЭтотОбъект.ВладелецГаража)+ТекстЗаЧто+" Бокс № "+СокрЛП(ЭтотОбъект.Код);
         ОбластьМакета.Параметры.ДатаОпл="        ";
         ОбластьМакета.Параметры.СуммаПлатежа=СокрЛП(Цел(Константы.СуммаКвитанции))+" руб. ";
         KKKw=СокрЛП((Константы.СуммаКвитанции-Цел(Константы.СуммаКвитанции))*100);
         ОбластьМакета.Параметры.ККК=KKKw;
         Если СтрДлина(KKKw)<2 Тогда
            Пока СтрДлина(KKKw)<2 Цикл
               KKKw="0"+KKKw;
            КонецЦикла;
         КонецЕсли;
         СуммаПлатежа=СуммаПлатежа+KKKw+" коп.";
         Перв=Перв+1;
         ТабДокумент.ВывестиСекцию("Квит");
         Если Перв=2 Тогда
            ТабДокумент.НоваяСтраница();
            Перв=0;
            //Прервать;
         КонецЕсли;
      //КонецЦикла;
      //ТабДокумент.ТолькоПросмотр(1);
      //ТабДокумент.Опции(0,0,0,0);
      //ТабДокумент.Показать("");
      Возврат ТабДокумент;
   КонецФункции
   
Процедура Печать(ИмяМакета, КоличествоЭкземпляров = 1, НаПринтер = Ложь, НепосредственнаяПечать = Ложь, ФормаЭлемента = Неопределено) Экспорт
      // Получить экземпляр документа на печать
   Если ИмяМакета = "ПД4" Тогда
      ТабДокумент = ПечатьПД4(Организация);
   Иначе
      Сообщить("Ошибка получения дополнительной печатной формы объекта. Возможно форма была удалена", СтатусСообщения.Важное);
   КонецЕсли;
   УниверсальныеМеханизмы.НапечататьДокумент(ТабДокумент, КоличествоЭкземпляров, НаПринтер, "Форма ПД4", НепосредственнаяПечать);
КонецПроцедуры

Dethmontt

переменная не определена "ОРГАНИЗАЦИЯ"

Где тут объявление переменной ОРГАНИЗАЦИЯ?
Процедура Печать(ИмяМакета, КоличествоЭкземпляров = 1, НаПринтер = Ложь, НепосредственнаяПечать = Ложь, ФормаЭлемента = Неопределено) Экспорт
      // Получить экземпляр документа на печать
   Если ИмяМакета = "ПД4" Тогда
      ТабДокумент = ПечатьПД4(Организация);
   Иначе
      Сообщить("Ошибка получения дополнительной печатной формы объекта. Возможно форма была удалена", СтатусСообщения.Важное);
   КонецЕсли;
   УниверсальныеМеханизмы.НапечататьДокумент(ТабДокумент, КоличествоЭкземпляров, НаПринтер, "Форма ПД4", НепосредственнаяПечать);
КонецПроцедуры
Если долго всматриваться в учебник...то в голову может прийти мысль его открыть!

Dethmontt

а еще должен ругаться тут
ОписаниеОрганизации = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Организация);

и тут
ОбластьМакета.Параметры.СуммаПлатежа=СокрЛП(Цел(Константы.СуммаКвитанции))+" руб. ";

и тут
KKKw=СокрЛП((Константы.СуммаКвитанции-Цел(Константы.СуммаКвитанции))*100);
Если долго всматриваться в учебник...то в голову может прийти мысль его открыть!

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск