Друзья, подскажите по такому вопросу... Как бы объяснить по-понятней...
Когда вношу в форму данные вручную, то при нажатии кнопки "энтер" на ячейке "организация", в ячейки "ведомство" и "ведомство1" подставляются соответствующие данные из карточки организации. Когда же я проставляю организации программно, то те ячейки не заполняются.
Есть ли способ программно нажимать "энтер" или тут надо код доделывать? Спасибо.
Код: //*******************************************
Процедура Сформировать()
ТЗ = СоздатьОбъект("ТаблицаЗначений");
НУ = СоздатьОбъект("Документ.НачислениеУслуг");
СпрК = СоздатьОбъект("Справочник.Контрагенты");
Сообщить("Обработка документов...");
ДокументНайден = 0;
//***ищем документ на дату
Если НУ.ВыбратьДокументы(НачДата, КонДата)=1 Тогда
Пока НУ.ПолучитьДокумент() = 1 Цикл
Если НУ.ПометкаУдаления() = 1 Тогда
ДокументНайден = 0;
Продолжить;
Иначе
ДокументНайден = 1;
Сообщить("Найдено начисление на: "+КонДата + " " +НУ);
Сообщить("Файл будет обновлён.");
НУ.УдалитьСтроки();
Сообщить("Старые данные на: "+КонДата + " очищены!");
Прервать
КонецЕсли;
КонецЦикла;
КонецЕсли;
//***Если документ не найден, создаём новый
Если ДокументНайден = 0 Тогда
НУ.Новый();
НУ.ДатаДок=КонДата;
НУ.Записать();
Сообщить("Документ за " + КонДата +" " +НУ+" сформирован.");
КонецЕсли;
//***прокрутка ДБФ
ДБФ=СоздатьОбъект("XBase");
//ИмяИсходногоФайла = "nach.dbf";
//ДБФ.ОткрытьФайл(ИмяИсходногоФайла);
ДБФ.ОткрытьФайл("d:\WORK\1cbazaPUVKX\nach.dbf");
Если ДБФ.Открыта()=0 Тогда
Сообщить("Не удалось открыть файл!");
КонецЕсли;
ДБФ.Первая();
//ТЗ = 0;
Пока (ДБФ.ВКонце()=0) Цикл
ЛицСчет = (ДБФ.N_DOG);
НачВода = Число(ДБФ.K_OPL_V);
НачСток = Число(ДБФ.K_OPL_S);
НазвАбон = (ДБФ.ZAK);
Если СпрК.НайтиПоКоду(Строка(ЛицСчет),0)=1 Тогда
НУ.НоваяСтрока();
//НУ.НазначитьТип("Организация","Справочник.Контрагенты");
// НУ.Организация = СпрК.ТекущийЭлемент();
// Сообщить("Найден л/сч: " + ЛицСчет + " "+СпрК.ТекущийЭлемент() );
Иначе
НУ.НоваяСтрока();
Сообщить(Строка(ЛицСчет)+" "+НазвАбон);
НУ.Организация = "";
КонецЕсли;
НУ.СуммаВода = НачВода;
НУ.СуммаСтоки = НачСток;
НУ.Организация = СпрК.ТекущийЭлемент();
ДБФ.Следующая();
КонецЦикла;
НУ.Записать();
ОткрытьФорму(НУ.ТекущийДокумент());
КонецПроцедуры
Процедура ПриОткрытии()
ОчиститьОкноСообщений();
КонецПроцедуры ;
