Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Неназначенных незавершенных заказов: 2
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Войти | Зарегистрироваться )




>  Автоматически добавлять строки табл части
афродита
Отправлено: 21.06.14, 15:17


Общительный
**

Группа: Пользователи
Сообщений: 17
Регистрация: 04.02.14
Пользователь №: 33205


все равно ниче не происходит
  Форум: Программирование управляемых форм 1С 8.2 · Просмотр сообщения: #88062 · Ответов: 4 · Просмотров: 2362
 

>  Автоматически добавлять строки табл части
афродита
Отправлено: 20.06.14, 15:12


Общительный
**

Группа: Пользователи
Сообщений: 17
Регистрация: 04.02.14
Пользователь №: 33205


Здравствуйте, у меня возникла проблемка. Мне надо чтобы при выборе из реквизитов шапки Грузоотправитель(тип - Справочник.Грузоотправитель) заполнялись данные табл части. из его справочника, при этом строка табл части автоматически добавлялась.
Сделала так:
&НаКлиенте
Процедура ГрузоотправительПриИзменении(Элемент)


    Для Каждого Строка Из Объект.Погрузка Цикл
        Строка = Объект.Погрузка.Добавить();
        //Объект.Погрузка.ДобавитьСтроку();
         Строка=Элементы.Погрузка.ТекущиеДанные;
                Строка.Грузоотправитель=ПолучитьРеквизитСпр(Объект.Грузоотправитель,"Название_фирмы");
        Строка.Контактное_лицо=ПолучитьРеквизитСпр(Объект.Грузоотправитель,"контактное_лицо");
        Строка.Адрес_погрузки=ПолучитьРеквизитСпр(Объект.Грузоотправитель,"адрес");
// Вставить содержимое обработчика.
КонецЦикла
КонецПроцедуры

И при выборе грузоотправителя ничего не происходит.
  Форум: Программирование управляемых форм 1С 8.2 · Просмотр сообщения: #88047 · Ответов: 4 · Просмотров: 2362
 

>  Добавления макета типа Active Document.
афродита
Отправлено: 23.05.14, 16:49


Общительный
**

Группа: Пользователи
Сообщений: 17
Регистрация: 04.02.14
Пользователь №: 33205


Попыталась написать как вы сказали ЭтотОбъект или просто экспедитор, все равно пишет что переменная не определена. попробывала тк
Договор = Документы.Договор.ПолучитьМакет("Макет");
   MSWord = Договор.Получить();
  
Попытка
   Документ = MSWord.Application.Documents(1);
   Документ.Activate();
   Документ.Variables("Экспедитор").Value =  Экспедитор;
    MSWord.Application.Visible = Истина;
   MSWord.Activate();
Исключение
   Сообщить(ОписаниеОшибки());
   MSWord.Application.Quit();
КонецПопытки;

все равно Экспедитор, переменная не определена
  Форум: Программирование управляемых форм 1С 8.2 · Просмотр сообщения: #87108 · Ответов: 3 · Просмотров: 6419
 

>  Добавления макета типа Active Document.
афродита
Отправлено: 22.05.14, 21:43


Общительный
**

Группа: Пользователи
Сообщений: 17
Регистрация: 04.02.14
Пользователь №: 33205


В документе договор, создала макет Active document, поместив в него договор экспедитора. Нужно чтобы значение поля экспедитор(из шапки документа) и значение поля клиент из табл части Клиент были переданы вот в этот макет. Написала код
Процедура Печать(ТабДок, Ссылка) Экспорт
    //{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
Договор = Документы.Договор.ПолучитьМакет("Макет");
   MSWord = Договор.Получить();
  
Попытка
   Документ = MSWord.Application.Documents(1);
   Документ.Activate();
  мЭкспедитор = Документы.Договор.Объект.Экспедитор.Значение;
   Замена = Документ.Content.Find;
   Замена.Execute("{Экспедитор}", Ложь, Истина, Ложь, , , Истина, , Ложь, мЭкспедитор);
   MSWord.Application.Visible = Истина;
   MSWord.Activate();
Исключение
   Сообщить(ОписаниеОшибки());
   MSWord.Application.Quit();
КонецПопытки;
    //}}
КонецПроцедуры

Он ругается что не может найти переменную мЭкспедитор = Документы.Договор.Объект.Экспедитор.Значение; Правильно ли я это все пишу, помогите
  Форум: Программирование управляемых форм 1С 8.2 · Просмотр сообщения: #87051 · Ответов: 3 · Просмотров: 6419
 

>  автоматическое создание документа на основании другого документа
афродита
Отправлено: 20.05.14, 19:34


Общительный
**

Группа: Пользователи
Сообщений: 17
Регистрация: 04.02.14
Пользователь №: 33205


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

Я ее вставила в код, 1с даже не поругалась, но при этом ничего не происходит. Когда я создаю/обновляю Заявки Документ Счет_фактура не создается. И как сделать так чтобы на когда я создаю,обновляю Заявку создавалось несколько документов, например счет-фактура и товарная накладная?
  Форум: Программирование управляемых форм 1С 8.2 · Просмотр сообщения: #86960 · Ответов: 12 · Просмотров: 18714
 

>  автоматическое создание документа на основании другого документа
афродита
Отправлено: 20.05.14, 10:56


Общительный
**

Группа: Пользователи
Сообщений: 17
Регистрация: 04.02.14
Пользователь №: 33205


Я сделала через конструктор, чтобы Заявка была Основанием для Документа Счет_фактура. В модуле объекта получилось вот что:
Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)
    //{{__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ
    // Данный фрагмент построен конструктором.
    // При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
    Если ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.Заявка") Тогда
        // Заполнение шапки
        Перевозчик = ДанныеЗаполнения.Грузоотправитель;
        Для Каждого ТекСтрокатовар Из ДанныеЗаполнения.товар Цикл
            НоваяСтрока = товар.Добавить();
            НоваяСтрока.количество = ТекСтрокатовар.Количество;
            НоваяСтрока.наименование = ТекСтрокатовар.наименование_груза;
            НоваяСтрока.ндс = ТекСтрокатовар.ндс;
            НоваяСтрока.заявка = ТекСтрокатовар.ссылка;
            НоваяСтрока.ставка_ндс = ТекСтрокатовар.ставка_ндс;
            НоваяСтрока.сумма = ТекСтрокатовар.Сумма;
            НоваяСтрока.сумма_с_ндс = ТекСтрокатовар.сумма_с_ндс;
            НоваяСтрока.цена = ТекСтрокатовар.Цена;
        КонецЦикла;
    КонецЕсли;
    //}}__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ
КонецПроцедуры

В инете нашла вот такой код
&НаСервере
            Процедура ПриЗаписиДокументаПеремещенияПриЗаписи(Источник, Отказ) Экспорт
        // Находим подчиненный документ "Расходный ордер на товары"
    Запрос = Новый Запрос;
    Запрос.Текст =     "ВЫБРАТЬ
    |Счет_фактура.Дата,
    |    Счет_фактура.Заказчик,
    |    Счет_фактура.Номер,
    |    Счет_фактура.товар.(
    |        НомерСтроки,
    |        наименование,
    |        количество,
    |        сумма,
    |       ставка_ндс,
    |        ндс,
    |    сумма_с_ндс)
    |ИЗ
    |    Документ.Заявка КАК Заявка
    |ГДЕ
    |    Заявка.ДокументПередачи = &ДокументПередачи
    |    И Счет_фактура.ВидОперации =
    |        ЗНАЧЕНИЕ(Перечисление.ВидыОперацийСчет_фактура.Перемещение)";                 
    Запрос.УстановитьПараметр("ДокументПередачи", Источник.Ссылка);              
    Выборка = Запрос.Выполнить().Выбрать();
    
    Если Источник.ВидОперации
        = Перечисления.ВидыОперацийЗаявка.ТоварПоНаименованию Тогда    
        Если Выборка.Следующий() Тогда         
            СвязанныйДокумент = Выборка.Ссылка.ПолучитьОбъект();          
        Иначе             
            СвязанныйДокумент      = Документы.Счет_фактура.СоздатьДокумент();
            СвязанныйДокумент.Дата = Источник.Дата+1;
            ОбновитьНумерациюОбъектов(Метаданные.Документы.Счет_фактура);
            СвязанныйДокумент.УстановитьНовыйНомер();                 
        КонецЕсли;       
        
        // должны автоматически создаваться другие документы
        // СвязанныйДокумент - объект документа, создаваемого автоматически
        //
        // Перед выполнением дальнейшего алгоритма выполняется поиск связанного
        // документа. Если документ не найден, то создается новый
        //
        Если Источник.Проведен Тогда  
            // Если источник проведен, то зависимый документ перезаполняется
            // на основании источника и проводится
            СвязанныйДокумент.ПометкаУдаления = Ложь;                
            ОбновитьСчет_фактура(СвязанныйДокумент, Источник);
            СвязанныйДокумент.Записать(РежимЗаписиДокумента.Проведение);       
        ИначеЕсли Источник.ПометкаУдаления Тогда     
            // Если источник помечен на удаление, то связанный документ также
            // помечается на удаление. Если он был проведен, то процедура
            // "УстановитьПометкуУдаления" инициирует отмену проведения документа
            Если НЕ СвязанныйДокумент.ЭтоНовый() Тогда
                // Если связанный документ еще не записан в базу, то
                // никакие действия не выполняются
                СвязанныйДокумент.УстановитьПометкуУдаления(Истина);    
            КонецЕсли;
        Иначе // Выполняется запись документа без проведения или установки
            // пометки удаления
            Если СвязанныйДокумент.ЭтоНовый() Тогда
                // Если связанный документ не записан в базу, то заполняем его и
                // выполняем запись документа без проведения
                ОбновитьСчет_фактура(СвязанныйДокумент, Источник);
                СвязанныйДокумент.Записать(РежимЗаписиДокумента.Запись);    
            ИначеЕсли СвязанныйДокумент.Проведен Тогда
                // Если связанный документ был проведен, то выполняем отмену проведения
                СвязанныйДокумент.Записать(РежимЗаписиДокумента.ОтменаПроведения);    
            Иначе
                // В остальных случаях просто записываем зависимый документ
                // Если была установлена пометка удаления - снимаем ее
                СвязанныйДокумент.УстановитьПометкуУдаления(Ложь);    
            КонецЕсли;
        КонецЕсли
    Иначе
        // При смене вида операции "ТоварыПродукцияПоОрдерам" помечаем на удаление
        // зависимый документ расходного ордера
        Если Выборка.Следующий() Тогда         
            СвязанныйДокумент = Выборка.Ссылка.ПолучитьОбъект();
            СвязанныйДокумент.УстановитьПометкуУдаления(Ложь);
        КонецЕсли;
    КонецЕсли;
    
КонецПроцедуры

попыталась реализовать, это все я написала в ПриЗаписи, он у меня ругается что в Процедура с указаным именем не определена: ОбновитьСчет_фактура(СвязанныйДокумент, Источник);
И дальше я в тупике, незнаю че и делать
  Форум: Программирование управляемых форм 1С 8.2 · Просмотр сообщения: #86940 · Ответов: 12 · Просмотров: 18714
 

>  автозаполнение из шапки в табличную часть
афродита
Отправлено: 19.05.14, 22:34


Общительный
**

Группа: Пользователи
Сообщений: 17
Регистрация: 04.02.14
Пользователь №: 33205


Ругается что переменная не определена Объект.Дата1
  Форум: Программирование управляемых форм 1С 8.2 · Просмотр сообщения: #86908 · Ответов: 3 · Просмотров: 2975
 

>  автоматическое создание документа на основании другого документа
афродита
Отправлено: 19.05.14, 21:46


Общительный
**

Группа: Пользователи
Сообщений: 17
Регистрация: 04.02.14
Пользователь №: 33205


Проблема в том что я даже представлений не имею как эту задачу программно написать
  Форум: Программирование управляемых форм 1С 8.2 · Просмотр сообщения: #86907 · Ответов: 12 · Просмотров: 18714
 

>  автоматическое создание документа на основании другого документа
афродита
Отправлено: 18.05.14, 22:19


Общительный
**

Группа: Пользователи
Сообщений: 17
Регистрация: 04.02.14
Пользователь №: 33205


Здравствуйте, у меня возникла вот такая проблема. Мне надо чтобы при создании документа Заявка автоматически создавался документ Счет-фактура с такими же полями что и Заявка. Ввод на основании я уже сделала а что дальше делать незнаю, помогите.
  Форум: Программирование управляемых форм 1С 8.2 · Просмотр сообщения: #86865 · Ответов: 12 · Просмотров: 18714
 

>  автозаполнение из шапки в табличную часть
афродита
Отправлено: 12.05.14, 21:01


Общительный
**

Группа: Пользователи
Сообщений: 17
Регистрация: 04.02.14
Пользователь №: 33205


Здравствуйте, я столкнулась с такой проблемой.. у меня в реквизитах шапки есть поле Дата1 и создана табличная часть "Погрузка" и в ней есть поле Дата2. Как сделать так чтобы при заполнении поля Дата1 в шапке документа, эти данные переносились в табл часть в поле Дата2?
  Форум: Программирование управляемых форм 1С 8.2 · Просмотр сообщения: #86667 · Ответов: 3 · Просмотров: 2975
 

>  Проверка выполнения сроков документа
афродита
Отправлено: 05.05.14, 20:32


Общительный
**

Группа: Пользователи
Сообщений: 17
Регистрация: 04.02.14
Пользователь №: 33205


Здравствуйте, я пишу программу на 1с 8.2. У меня есть документ в нем есть поле Дата_рагрузки (тип этого поля "Дата и время") и Статус. Как сделать, если Время разгрузки уже прошло а в статусе документа все еще стоит "в процессе" чтобы строка выделялась красным цветом, ну типа документ просрочен?
  Форум: Программирование управляемых форм 1С 8.2 · Просмотр сообщения: #86371 · Ответов: 1 · Просмотров: 1619
 

>  автоматическое заполнение даты
афродита
Отправлено: 24.04.14, 12:29


Общительный
**

Группа: Пользователи
Сообщений: 17
Регистрация: 04.02.14
Пользователь №: 33205


Здравствуйте,при написании программы на 1с 8.2 у меня возникла проблема. У меня есть в реквизитах документа поле Дата_разгрузки, тип этого поля Дата-время. При нажатии на него высвечивается календарь а время автоматически само заполняется( он либо пишет время которое стоит на компе если дата сегодняшняя, либо пишет 00.00.00). Как сделать так чтобы я сама могла писать время в этом поле?
  Форум: Программирование управляемых форм 1С 8.2 · Просмотр сообщения: #86111 · Ответов: 4 · Просмотров: 3332
 

>  Обработка конструктора печати
афродита
Отправлено: 16.02.14, 18:57


Общительный
**

Группа: Пользователи
Сообщений: 17
Регистрация: 04.02.14
Пользователь №: 33205


Пыталась так, пишет что Переменная не определена (Товар) в строке
ОбластьСумма.Параметры.Сумма = <<?>>Товар.Итог("Сумма");
  Форум: Программирование управляемых форм 1С 8.2 · Просмотр сообщения: #81912 · Ответов: 7 · Просмотров: 4390
 

>  Обработка конструктора печати
афродита
Отправлено: 16.02.14, 18:26


Общительный
**

Группа: Пользователи
Сообщений: 17
Регистрация: 04.02.14
Пользователь №: 33205


Я в макете создала новую область назначила имя, и одной ячейки назначила имя этого параметра. В модуле менеджера прописала:
Сумма  = Макет.ПолучитьОбласть("Сумма");
Сумма.Параметры.Заполнить(Сумма);
ТабДок.Вывести(Сумма);

И он выводит тока текст который прописан в этой области, а как сделать чтобы в этой ячейки выводилась сумма незнаю


 ! 

Выделяйте код!
 
  Форум: Программирование управляемых форм 1С 8.2 · Просмотр сообщения: #81908 · Ответов: 7 · Просмотров: 4390
 

>  Обработка конструктора печати
афродита
Отправлено: 16.02.14, 17:54


Общительный
**

Группа: Пользователи
Сообщений: 17
Регистрация: 04.02.14
Пользователь №: 33205


Здравствуйте, я создала документ Счет-фактура в нем есть табл.часть "Товар", в ней есть столбцы наименование, цена. кол-во, сумма. В подвале считается Итог поля Сумма. У меня возникла проблема при добавлении конструктора Печати. когда я хочу распечатать этот документ вот этот Подвал не высвечивается на макете Печати. Что нужно сделать чтобы у меня высвечивалось вот этот итог Суммы, можно в отдельной ячейки?
  Форум: Программирование управляемых форм 1С 8.2 · Просмотр сообщения: #81905 · Ответов: 7 · Просмотров: 4390
 

>  расчет суммы табличной строки
афродита
Отправлено: 05.02.14, 9:54


Общительный
**

Группа: Пользователи
Сообщений: 17
Регистрация: 04.02.14
Пользователь №: 33205


Спасибо большое, я поняла свою ошибку и все исправила, все работает
  Форум: Программирование управляемых форм 1С 8.2 · Просмотр сообщения: #81328 · Ответов: 3 · Просмотров: 3943
 

>  расчет суммы табличной строки
афродита
Отправлено: 04.02.14, 21:53


Общительный
**

Группа: Пользователи
Сообщений: 17
Регистрация: 04.02.14
Пользователь №: 33205


Здравствуйте, у меня возникла проблемка. У меня есть документ в нем присутствует табличная часть и мне надо чтобы в табл. части при вводе цены и количества считалась сумма по каждой строке. Я попыталась сделать так
Процедура РасчетСуммы()
    
      Количество = Элементы.УслугаКоличество.ПутьКДанным;
      Цена = Элементы.УслугаЦена.ПутьКДанным;
      
      Сумма = Элементы.УслугаСумма.ПутьКДанным;
      Сумма =Элементы.УслугаЦена.ПутьКДанным * Элементы.УслугаКоличество.ПутьКДанным;      
      КонецПроцедуры

&НаКлиенте
    Процедура ПередЗаписью(Отказ, ПараметрыЗаписи)
        РасчетСуммы()// Вставить содержимое обработчика.
    КонецПроцедуры


Но он выдает ошибку: Преобразрвание значение к типу Число не может быть выполненно.
Все эти поля числовые у меня.Я уже по всякому пробывала, никак не получается. Помогите!!!
  Форум: Программирование управляемых форм 1С 8.2 · Просмотр сообщения: #81299 · Ответов: 3 · Просмотров: 3943
 


Новые сообщения  Открытая тема (есть новые ответы)
Опрос  Опрос (есть новые голоса)
Нет новых сообщений  Открытая тема (нет новых ответов)
Нет новых голосов  Опрос (нет новых голосов)
Популярная тема  Горячая тема (есть новые ответы)
Закрыта  Закрытая тема
Нет новых  Горячая тема (нет новых ответов) Перемещена  Тема перемещена
 

RSS Текстовая версия Сейчас: 24.04.24, 16:51
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!