ZUBR @ Сегодня, 0:59 ,

Доброе утро !

Расх =    СоздатьОбъект ("Документ.РасходнаяНакладная");
     Расх.ВыбратьДокументы(НачДата1,КонДата1);
Если     УсловиеПоиска    Тогда

// попробуйте сюда вставить весь код процедуры Выдать

КонецЕсли;

ZUBR @ Сегодня, 3:13 ,

Доброе утро !
Посмотрите в конфигураторе,какия процедуры-обраблотчики висят на кнопках.В нужной копке допишите вызов-обрабочик нужной Вам второй процедуры.
Не видя конфигурации я могу писать только такие советы.

andrew76 @ Сегодня, 16:45 ,

Вдогонку : На вкладке Формула указывайте имя процедуры со скобками.Например: ПроверкаКонтрагентов()

ZUBR @ Сегодня, 15:52 ,


НайтиПоРеквизиту(<?>,,);
Синтаксис:
НайтиПоРеквизиту(<ИмяРеквизита>,<Значение>,<ФлагГлобальногоПоиска>)
Назначение:
Найти элемент справочника по значению реквизита.
Возвращает: 1 - если действие выполнено;
0 - если действие не выполнено (элемент не найден).
Параметры:
<ИмяРеквизита> - строка с наименованием реквизита;
<Значение> - значение реквизита для поиска;
<ФлагГлобальногоПоиска> - флаг поиска:
0 - поиск выполняется в пределах подчинения справочника,
1 - поиск выполняется по всему справочнику.
Замечание:
Метод можно использовать только для реквизитов с установленным признаком ''Сортировка''.
Метод можно использовать только для объектов, созданных функцией СоздатьОбъект.

Клиент=СоздатьОбъект("Спрвочник.Контрагенты");
Поиск=Клиент.НайтиПоПоРеквизиту(Телефон,НомерТелефонаИЗАктаПриема,1);

Если Поиск=0 Тогда
       //Добавляется запись в справочник Контрагенты
КонецЕсли;

Можно.На свойствах поля ввода номера телефона (на форме) найдите вкладку Дополнительно.В поле "Формула" пропишите имя процедуры (имя придумайте сами).и в модуле пропишите заготовку процедуры с таким же именем.Подставте в текст процедуры вышеуказанные примеры поиска.

ZUBR @ Сегодня, 5:12 ,


Доброе утро !
Можно.Код такой примерно :

Клиент=СоздатьОбъект("Спрвочник.Контрагенты");
Клиент.Новый();  //создается новая запись в справочнике контрагентов
Клиент.Наименование=Наименование //ф.и.о из документа накладная
Клиент.Телефон=Телефон //№ телефона из документа накладная
Клиент.Записать();   //записываем новую запись в справочник Контрагенты.

Можно еще продумать проверку на поиск уже существующего клиента в справочнике Контрагентов.
Т.е. новую запись добавлять , только если такого клиента нет в справочнике.

Клиент=СоздатьОбъект("Спрвочник.Контрагенты");
Поиск=Клиент.НайтиПоНаименованию(НовыйКлиент,,1);   //поиск на точное соответствие
Если Поиск=0 тогда
       Клиент.Новый();  //создается новая запись в справочнике контрагентов
       Клиент.Наименование=Наименование //ф.и.о из документа накладная
       Клиент.Телефон=Телефон //№ телефона из документа накладная
       Клиент.Записать();   //записываем новую запись в справочник Контрагенты.
КонецЕсли;

andrew76 @ Сегодня, 6:48 ,

или ,чтобы подстраховаться от лишних пробелов :

ТЗ.Сотрудник=СокрЛП(ПолноеИмяПользователя());

ZUBR @ Вчера, 23:40 ,

Доброе утро !

Есть встроенная функции ИмяПользователя(),ПолноеИмяПользователя().Возвращают имя текущего пользователя.
Т.е. Вам надо написать примерно так :

ТЗ.Сотрудник=ПолноеИмяПользователя();

ZUBR @ Сегодня, 0:48 ,

Доброе утро ! Есть файлы , должны быть по крайней мере,расширение вроде ".SPL".Файлы должны быть в каталоге ,где установлена 1с или в каталоге , где записана конфигурация БД.Вот этот файл (spl) отредактируйте ,замените значения на русском языке на украинский язык.

Вот здесь про это дело:

https://www.about1c.ru/v77/language-referen...lling-structure

ZUBR @ Сегодня, 19:53 ,

Так получше,наверное:

СледующаяДата=КонМесяца(ДобавитьМесяц(Дата,1));

Добрый вечер.У этого документа нет подчиненных документов ? Лучше перед этим скопируйте всю базу в архив,чтобы была копия на всякий случай.
Сначала сделайте документ не проведённым. Для этого, щелкните на нем правой кнопкой мыши и выберите соответствующую команду : "Cделать не проведённым" . Значок документа изменится - он будет без пиктограммы "птичка-галочка" слева. Теперь открывайте документ, меняйте дату на нужную и проводите.

1.Настраивается в Конфигураторе - в диалоговом окне Параметры Страницы.
2.Программно:

Процедура Печать()
    Таб = СоздатьОбъект("Таблица");
    Таб.ИсходнаяТаблица("Печать");
    Таб.ПараметрыСтраницы(2);  //альбом
    Таб.ВывестиСекцию("Шапка");
    Таб.Опции(0,0,0,0);
    Таб.ТолькоПросмотр(1);
    Таб.Показать("Печать Акт прийому","");
КонецПроцедуры

Этт точно !.Я с Вами совершенно согласен !

ТЗ = СоздатьОбъект("ТаблицаЗначений"); 
ТЗ.НоваяКолонка ("Инженер");
ТЗ.НоваяКолонка ("КолСис");   // количество систем
    
Расх.ВыбратьДокументы(НачДата,КонДата);
          
Пока Расх.ПолучитьДокумент()=1 Цикл 
    ТЗ.НоваяСтрока();
    ТЗ.Инженер=Расх.Инженер;
    ТЗ.КолСис=1;
КонецЦикла;

ТЗ.Свернуть("Инженер","КолСис");    //Подсчет итогов по каждому из инженеров

Попробуйте такой вариант , можно его еще укоротить...
Это так , для наглядности.

Запрос = СоздатьОбъект("Запрос");
    ТекстЗапроса = 
    "//{{ЗАПРОС(Сформировать)
    |Период с ВыбНачПериода по ВыбКонПериода;
    |Инженер = Документ.РасходнаяНакладная.Инженер;
    |ТекущийДокумент = Документ.РасходнаяНакладная.ТекущийДокумент;
    |Группировка ТекущийДокумент;
    |"//}}ЗАПРОС
;

    Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
        Возврат;
    КонецЕсли;
                  
    ТЗ = СоздатьОбъект("ТаблицаЗначений"); 
     
    ТЗ.НоваяКолонка ("Инженер");
    ТЗ.НоваяКолонка ("КолСис");   // количество систем
    
    Пока Запрос.Группировка(1) = 1 Цикл
        ТЗ.НоваяСтрока();
        ТЗ.Инженер=Запрос.Инженер;
        ТЗ.КолСис=1;
    КонецЦикла;

 ТЗ.Свернуть("Инженер","КолСис");    //Подсчет итогов по каждому из инженеров

Еще раз посмотрел первый пост ветки.Не совсем верный код.

ZUBR @ Сегодня, 1:14 ,

А ВидТовара

Наверное условие должно выглядеть как-то так :

|Товар = Документ.РасходнаяНакладная.Товар.ВидТовара;  //вместо  |ВидТовара = Справочник.Номенклатура.ВидТовара;
|Условие (ВидТовара = ВидТовараУм);";

В Вашем варианте получается,что обрабатываются все накладные,без учета условия.
Получается что СправочникНоменклатура и ДокументРасходнаяНакладная в этом запросе работают не в паре !

Попробуйте вот так :

Процедура Сформировать()   
    НужныйТовар = Константа.НужныйТовар;
    ВидТовараУм = Константа.ВидТовараУм;
    
    ЗапросСуммы = СоздатьОбъект("Запрос");

ТекстЗапроса = 
    "    
    |Период с НачДата по КонДата;
    |ОбрабатыватьДокументы Проведенные;
    |Товар = Документ.РасходнаяНакладная.Товар;
    |ВидТовара = Документ.РасходнаяНакладная.Товар.ВидТовара;
    |СуммаСНДС = Документ.РасходнаяНакладная.СуммаСНДС;
    |Функция Сум = Сумма(СуммаСНДС);
    |Группировка Товар Без Групп;
    |Условие (ВидТовара = ВидТовараУм);"; 
    ЗапросСуммы.Выполнить(ТекстЗапроса);
    
Пока ЗапросСуммы.Группировка() = 1 Цикл
        СуммаУслуг = ЗапросСуммы.Сум; 
КонецЦикла;

Сообщить("Сумма:"+СуммаУслуг);

КонецПроцедуры

Вроде сам и решил с маской : \+\9\9\8 (99) 999-99-99

Я бы выложил фрагмент кода еще 11 июля.Только ведь форум по тех.причинам не работал с 11-07-16 по 14-07-16.В чём проблема то? "палец выставлен"

1С 7.7 вообще плохо с еxcel работает.макросом лучше всего в вашем варианте

текст макроса :

Sub Макрос1()
ActiveWindow.DisplayWorkbookTabs = True
End Sub