1С (BAS): Украина - [82] :: Программы :: Компьютерный форум Ru.Board

Друзья, подскажите по такому вопросу... Как бы объяснить по-понятней...

Когда вношу в форму данные вручную, то при нажатии кнопки "энтер" на ячейке "организация", в ячейки "ведомство" и "ведомство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 Тогда
     НУ.НоваяСтрока();
     //НУ.НазначитьТип("Организация","Справочник.Контрагенты");
//    НУ.Организация = СпрК.ТекущийЭлемент();
// Сообщить("Найден л/сч: " + ЛицСчет + " "+СпрК.ТекущийЭлемент() );
Иначе
    НУ.НоваяСтрока();
    Сообщить(Строка(ЛицСчет)+" "+НазвАбон);
    НУ.Организация = "";

КонецЕсли;


НУ.СуммаВода = НачВода;
НУ.СуммаСтоки = НачСток;
НУ.Организация = СпрК.ТекущийЭлемент();

ДБФ.Следующая();

КонецЦикла;

НУ.Записать();

ОткрытьФорму(НУ.ТекущийДокумент());
КонецПроцедуры

Процедура ПриОткрытии()
ОчиститьОкноСообщений();
КонецПроцедуры ;

Модерирует : gyra, Maz
Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123