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

Хранилище

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

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



2 страниц V   1 2 >

>  Клиент-банк: поиск по ОКПО поменять на поиск по комментарию
Dima999222
Отправлено: 08.01.13, 15:45


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

Группа: Пользователи
Сообщений: 29
Регистрация: 19.03.12
Из: Киев
Пользователь №: 16177


Цитата(Vofka @ 08.01.13, 15:03) *
Мне сама идея не нравится, но ладно, то такое.

В НайтиПоОКПО вместо

Если Не ПустаяСтрока(ОКПО) Тогда
        
        Запрос.УстановитьПараметр("ОКПО", Формат(Число(ОКПО),"ЧГ=0"));
        Запрос.УстановитьПараметр("ОКПО8", Формат(Число(ОКПО),"ЧЦ=8;ЧВН=;ЧГ=0"));
        Запрос.УстановитьПараметр("ОКПО12", Формат(Число(ОКПО),"ЧЦ=12;ЧВН=;ЧГ=0"));
        
        ТекстЗапросаОКПО = "
        |    КодПоЕДРПОУ = &ОКПО ИЛИ
        |    КодПоЕДРПОУ = &ОКПО8 ИЛИ
        |    КодПоЕДРПОУ = &ОКПО12 ИЛИ";
    КонецЕсли;


Напишите это

Если Не ПустаяСтрока(ОКПО) Тогда
        
        Запрос.УстановитьПараметр("ОКПО", Формат(Число(ОКПО),"ЧГ=0"));
        Запрос.УстановитьПараметр("ОКПО8", Формат(Число(ОКПО),"ЧЦ=8;ЧВН=;ЧГ=0"));
        Запрос.УстановитьПараметр("ОКПО12", Формат(Число(ОКПО),"ЧЦ=12;ЧВН=;ЧГ=0"));

        Запрос.УстановитьПараметр("ОКПО_ХЗ", "%"+Формат(Число(ОКПО),"ЧГ=0")+"%");
        Запрос.УстановитьПараметр("ОКПО8_ХЗ", "%"+Формат(Число(ОКПО),"ЧЦ=8;ЧВН=;ЧГ=0")+"%");
        Запрос.УстановитьПараметр("ОКПО12_ХЗ", "%"+Формат(Число(ОКПО),"ЧЦ=12;ЧВН=;ЧГ=0")+"%");
        
        ТекстЗапросаОКПО = "
        |    КодПоЕДРПОУ = &ОКПО ИЛИ Комментарий ПОДОБНО &ОКПО_ХЗ ИЛИ
        |    КодПоЕДРПОУ = &ОКПО8 ИЛИ Комментарий ПОДОБНО &ОКПО8_ХЗ ИЛИ
        |    КодПоЕДРПОУ = &ОКПО12 ИЛИ Комментарий ПОДОБНО &ОКПО12_ХЗ ИЛИ";
    КонецЕсли;


* малёхо подправил


Огромная Вам благодарность!!!! Все работает!
  Форум: Программирование обычных форм 1С 8.2 и не интер... · Просмотр сообщения: #62859 · Ответов: 10 · Просмотров: 5856
 

>  Клиент-банк: поиск по ОКПО поменять на поиск по комментарию
Dima999222
Отправлено: 08.01.13, 15:04


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

Группа: Пользователи
Сообщений: 29
Регистрация: 19.03.12
Из: Киев
Пользователь №: 16177


Вот так?
конт = Справочники.Контрагенты.НайтиПоКоду(Строка.УникальныйИД);
            
        Если Конт.Пустая() тогда
  Форум: Программирование обычных форм 1С 8.2 и не интер... · Просмотр сообщения: #62853 · Ответов: 10 · Просмотров: 5856
 

>  Клиент-банк: поиск по ОКПО поменять на поиск по комментарию
Dima999222
Отправлено: 08.01.13, 14:20


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

Группа: Пользователи
Сообщений: 29
Регистрация: 19.03.12
Из: Киев
Пользователь №: 16177


Цитата(Vofka @ 08.01.13, 13:46) *
В чем конкретно трудность?


Некоторая компания хочет раздать своим клиентам ID и что бы они их обязательно указывали во время оплаты за те или иные услуги.
Этот ID буде попадать в назначение платежа. От куда будет считываться в реквизит "УникальныйИД". Во время чтения выписки Клиент-банком он (Клиент банк) ищет контрагента согласно ОКПО (ЕГРПОУ) а необходимо что бы искал по ID Который записан в комментарий контрагента. Ежели комментарий пуст то по ОКПО.

Проблема в том как искать по комментарию???
Поиск по ОКПО в форме:
ВыборкаПоОКПО = НайтиПоОКПО(Строка.УникальныйИД, Строка.Контрагент);
        НайденКонтрагент = Ложь;
        Если ВыборкаПоОКПО.Следующий() Тогда //есть хоть один
            
            Контрагент     = ВыборкаПоОКПО.Ссылка;
            НайденКонтрагент = Истина;


И в модуле объекта:
Функция НайтиПоОКПО(ОКПО, Наименование) Экспорт
        
    Запрос = Новый Запрос;
    ТекстЗапросаОКПО = "";
    
    // Если ОКПО пусто, не ищем по нему, только по Наименованию юр лица.
    
    Если Не ПустаяСтрока(ОКПО) Тогда
        
        Запрос.УстановитьПараметр("ОКПО", Формат(Число(ОКПО),"ЧГ=0"));
        Запрос.УстановитьПараметр("ОКПО8", Формат(Число(ОКПО),"ЧЦ=8;ЧВН=;ЧГ=0"));
        Запрос.УстановитьПараметр("ОКПО12", Формат(Число(ОКПО),"ЧЦ=12;ЧВН=;ЧГ=0"));
        
        ТекстЗапросаОКПО = "
        |    КодПоЕДРПОУ = &ОКПО ИЛИ
        |    КодПоЕДРПОУ = &ОКПО8 ИЛИ
        |    КодПоЕДРПОУ = &ОКПО12 ИЛИ";
    КонецЕсли;

    
    
    Запрос.УстановитьПараметр("Имя", Наименование);
    
    ТекстЗапроса = "ВЫБРАТЬ
    |    Ссылка
    |ИЗ
    |    Справочник." + ПолучитьИмяОбъектаКонфигурации("ТипСправочникаКонтрагенты") + "
    |
    |ГДЕ" + ТекстЗапросаОКПО + "
    |    Наименование = &Имя ИЛИ
    |    НаименованиеПолное ПОДОБНО &Имя";
    
        
    
    //// объединяем с физическими лицами
    //ТекстЗапросаДРФО = "";
    //
    //Если Не ПустаяСтрока(ОКПО) Тогда
    //    Запрос.УстановитьПараметр("ДРФО", Формат(Число(ОКПО),"ЧГ=0"));
    //    Запрос.УстановитьПараметр("ДРФО10", Формат(Число(ОКПО),"ЧЦ=10;ЧВН=;ЧГ=0"));
    //    Запрос.УстановитьПараметр("ДРФО12", Формат(Число(ОКПО),"ЧЦ=12;ЧВН=;ЧГ=0"));
    //    ТекстЗапросаДРФО = "
    //    |    КодПоДРФО = &ДРФО ИЛИ
    //    |    КодПоДРФО = &ДРФО10 ИЛИ
    //    |    КодПоДРФО = &ДРФО12 ИЛИ";
    //КонецЕсли;
    
    Запрос.Текст = ТекстЗапроса;
    РезультатЗапроса = Запрос.Выполнить();
    Выборка = РезультатЗапроса.Выбрать();
    
    Возврат Выборка;
    
КонецФункции // НайтиПоОКПО()
  Форум: Программирование обычных форм 1С 8.2 и не интер... · Просмотр сообщения: #62846 · Ответов: 10 · Просмотров: 5856
 

>  Клиент-банк: поиск по ОКПО поменять на поиск по комментарию
Dima999222
Отправлено: 08.01.13, 13:38


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

Группа: Пользователи
Сообщений: 29
Регистрация: 19.03.12
Из: Киев
Пользователь №: 16177


Доброго Всем времени суток!

Если Вам не сложно, помогите пожалуйста в решении одной маленькой проблемы.

Есть Клиент-Банк, в нем в процедуре "ИмпортВыписки" присутствует поиск по ОКПО контрагента.
Как сделать что бы искало в первую очередь по комментарию контрагента, а ежели он пуст обращалось к поиску по ОКПО????

Конфигурация: УТП Релиз: 1.2.12.3 Платформа: 8.2.16.363

Заранее благодарен за Вашу помощь!!!


 ! 

Правила, 4
 
  Форум: Программирование обычных форм 1С 8.2 и не интер... · Просмотр сообщения: #62841 · Ответов: 10 · Просмотров: 5856
 

>  Обмен между базами
Dima999222
Отправлено: 18.12.12, 22:53


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

Группа: Пользователи
Сообщений: 29
Регистрация: 19.03.12
Из: Киев
Пользователь №: 16177


Добрый день ребята, срочно нужна Ваша помощь.

Есть база УТП (релиз 1.2.11.1 Платформа 8.2.16.363) Киев в нее нужно загружать движение по счетам (311 301 372 635 685 661 209 22 104 135 132 133) из других идентичных баз в разных городах с привязкой по подразделениям (подразделение это город источник данных)
Как это можно реализовать и что для этого необходимо.

Заранее очень признателен и благодарен всем Вам!!!
  Форум: Программирование обычных форм 1С 8.2 и не интер... · Просмотр сообщения: #62116 · Ответов: 1 · Просмотров: 2059
 

>  Добавление проводки!
Dima999222
Отправлено: 19.08.12, 15:56


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

Группа: Пользователи
Сообщений: 29
Регистрация: 19.03.12
Из: Киев
Пользователь №: 16177



 ! 

Правила, п.6. Закрыто.
 
  Форум: Программирование обычных форм 1С 8.2 и не интер... · Просмотр сообщения: #54943 · Ответов: 3 · Просмотров: 3331
 

>  Добавление проводки!
Dima999222
Отправлено: 14.08.12, 22:16


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

Группа: Пользователи
Сообщений: 29
Регистрация: 19.03.12
Из: Киев
Пользователь №: 16177


Цитата(logist @ 14.08.12, 23:10) *
Вот на так поставленный вопрос можно дать только один ответ - руками берете и добавляете.
Но, прежде чем это делать скажу вот что - в таком случае у вас может не корректно закрываться 23 счет в конце месяца (был у меня в практике такой случай), если документ предполагает продажу только услуг, то правильнее использовать документ "Акт оказания производственных услуг" (или как он там...). Если все же будете допиливать РТУ, то процесс можно подсмотреть в том же Акте. И не забудьте кроме проводок делать еще движения регистрах, иначе таки будут проблемы с закрытием месяца.


Просто есть желание совместить эти два документа воедино и переделать печ.форму.
  Форум: Программирование обычных форм 1С 8.2 и не интер... · Просмотр сообщения: #54648 · Ответов: 3 · Просмотров: 3331
 

>  Добавление проводки!
Dima999222
Отправлено: 14.08.12, 22:00


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

Группа: Пользователи
Сообщений: 29
Регистрация: 19.03.12
Из: Киев
Пользователь №: 16177


Доброго времени суток.

Конфигурация "Управление торговым предприятием для Украины" (1.2.8.7 Не типовая) Платформа 8.2.15.310

Каким образом можно добавить в документ "Реализация товаров и услуг" кусочек кода что бы при проведении формировалась проводка
Дебет 903 кредит 231 по сумме услуг.

Заранее Вам благодарен
  Форум: Программирование обычных форм 1С 8.2 и не интер... · Просмотр сообщения: #54646 · Ответов: 3 · Просмотров: 3331
 

>  Ошибка формата потока при получении формы отчета
Dima999222
Отправлено: 06.08.12, 22:08


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

Группа: Пользователи
Сообщений: 29
Регистрация: 19.03.12
Из: Киев
Пользователь №: 16177


Цитата(vbi @ 19.07.12, 11:13) *
Жила-была файловая база УТП под 13 релизом. Конвертировали ее под 14. И тут в предприятии при выгрузке налоговой в XML (а именно на строке кода, где получается форма регламентированного отчета налоговой накладной) 1С вылетает с ошибкой формата потока.
Перепробовали все: чистить кеш 1С, тестирование и исправление, checkbd, выгрузка в DT и загрузка, перемещение в другой каталог, копирование. Не пробовали запускать на другом компютере (для этого придется ехать к клиенту).
Что еще посоветуете?


Добрый день.
Поможет Вам следующая операция.

Заходите в конфигуратор и снимаешь с поддержки документы "Налоговая накладная" и "Приложение 1 к налоговой" "Приложение 2 к налоговой",
когда будите снимать с поддержки необходимо установить галочку "Установить для подчиненных объектов"

Затем НЕ ОБНОВЛЯЯ конфигурации берете *.cf и делаете сравнить и объединить. После того как пройдет сравнение объектов, снимаете все галочки оставив только на тех 3-х документах которых не хватает в базе ("Налоговая накладная" и "Приложение 1 к налоговой" "Приложение 2 к налоговой")

Выполняете объединение и снова ставите на поддержку эти объекты, после чего обновляем конфигурацию и успешно работаем дальше!

Удачи.

  Форум: Программирование обычных форм 1С 8.2 и не интер... · Просмотр сообщения: #54204 · Ответов: 9 · Просмотров: 8658
 

>  Ввод на основании
Dima999222
Отправлено: 07.07.12, 14:26


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

Группа: Пользователи
Сообщений: 29
Регистрация: 19.03.12
Из: Киев
Пользователь №: 16177


Цитата(Vofka @ 07.07.12, 13:36) *
Dima999222, а чем отличается вариант выше от варианта в первом посте?

Первой строкой в коде, а именно
Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)

заменил ее на
Процедура ОбработкаЗаполнения(ДанныеЗаполнения)

и все стало хорошо работать.

Еще раз благодарю всех за оперативную помощь.
  Форум: Программирование обычных форм 1С 8.2 и не интер... · Просмотр сообщения: #52878 · Ответов: 10 · Просмотров: 9400
 

>  Ввод на основании
Dima999222
Отправлено: 07.07.12, 12:30


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

Группа: Пользователи
Сообщений: 29
Регистрация: 19.03.12
Из: Киев
Пользователь №: 16177


Цитата(sava1 @ 07.07.12, 12:31) *
в Процедура ОбработкаЗаполнения(Основание)
вместо Основание - ДанныеЗаполнения


Огромное Вам всем спасибо!!!
Вот конечный рабочий вариант:
// Процедура - обработчик события "ОбработкаЗаполнения".
//
Процедура ОбработкаЗаполнения(ДанныеЗаполнения)
        //{{__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ
    // Данный фрагмент построен конструктором.
    // При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
    Если ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.ВнутреннийЗаказ") Тогда
        // Заполнение шапки
    ИначеЕсли ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.ПоступлениеТоваровУслуг") Тогда
        // Заполнение шапки
    ИначеЕсли ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.ЗаказПокупателя") Тогда
        // Заполнение шапки
        Комментарий = ДанныеЗаполнения.Комментарий;
        Организация = ДанныеЗаполнения.Организация;
        Ответственный = ДанныеЗаполнения.Ответственный;
        Подразделение = ДанныеЗаполнения.Подразделение;
        Для Каждого ТекСтрокаВозвратнаяТара Из ДанныеЗаполнения.ВозвратнаяТара Цикл
            НоваяСтрока = ВозвратнаяТара.Добавить();
            НоваяСтрока.Количество = ТекСтрокаВозвратнаяТара.Количество;
            НоваяСтрока.Номенклатура = ТекСтрокаВозвратнаяТара.Номенклатура;
        КонецЦикла;
        Для Каждого ТекСтрокаТовары Из ДанныеЗаполнения.Товары Цикл
            НоваяСтрока = Товары.Добавить();
            НоваяСтрока.ЕдиницаИзмерения = ТекСтрокаТовары.ЕдиницаИзмерения;
            НоваяСтрока.ЕдиницаИзмеренияМест = ТекСтрокаТовары.ЕдиницаИзмеренияМест;
            НоваяСтрока.Количество = ТекСтрокаТовары.Количество;
            НоваяСтрока.КоличествоМест = ТекСтрокаТовары.КоличествоМест;
            НоваяСтрока.Коэффициент = ТекСтрокаТовары.Коэффициент;
            НоваяСтрока.Номенклатура = ТекСтрокаТовары.Номенклатура;
            НоваяСтрока.СерияНоменклатуры = ТекСтрокаТовары.СерияНоменклатуры;
            НоваяСтрока.ХарактеристикаНоменклатуры = ТекСтрокаТовары.ХарактеристикаНоменклатуры;
            НоваяСтрока.Цена = ТекСтрокаТовары.Цена;
        КонецЦикла;
    КонецЕсли;
КонецПроцедуры
  Форум: Программирование обычных форм 1С 8.2 и не интер... · Просмотр сообщения: #52858 · Ответов: 10 · Просмотров: 9400
 

>  Ввод на основании
Dima999222
Отправлено: 07.07.12, 11:06


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

Группа: Пользователи
Сообщений: 29
Регистрация: 19.03.12
Из: Киев
Пользователь №: 16177


Цитата(pablo @ 07.07.12, 8:45) *
На какую строку ссылается ошибка?



Огромное Вам спасибо что откликнулись на помощь. Вот скриншот ошибки:
  Форум: Программирование обычных форм 1С 8.2 и не интер... · Просмотр сообщения: #52846 · Ответов: 10 · Просмотров: 9400
 

>  Ввод на основании
Dima999222
Отправлено: 06.07.12, 19:20


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

Группа: Пользователи
Сообщений: 29
Регистрация: 19.03.12
Из: Киев
Пользователь №: 16177


Цитата(logist @ 06.07.12, 17:41) *
Встречный вопрос - а где вы размещаете эту процедуру? И как вызываете создание на основании

Вот пошаговые действия в скриншотах.



  Форум: Программирование обычных форм 1С 8.2 и не интер... · Просмотр сообщения: #52812 · Ответов: 10 · Просмотров: 9400
 

>  Ввод на основании
Dima999222
Отправлено: 06.07.12, 16:29


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

Группа: Пользователи
Сообщений: 29
Регистрация: 19.03.12
Из: Киев
Пользователь №: 16177


Доброго времени суток.

Снова обращаюсь в Вам за помощью. Необходимо доработать документы ЗаказПокупателя и ПеремещениеТоваров так что бы на основании ЗаказаПокупателя заполнялась табличная часть ПеремешенияТоваров.

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


Выпадает ошибка что переменная "ДанныеЗаполнения" не задана. Вопрос что присвоить этой переменной что бы все работало???

Конфигурация: УТП 1.2.7.4 (не типовая) Платформа: 8.2.14.540
  Форум: Программирование обычных форм 1С 8.2 и не интер... · Просмотр сообщения: #52793 · Ответов: 10 · Просмотров: 9400
 

>  Цвета в номенклатуре
Dima999222
Отправлено: 03.07.12, 8:38


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

Группа: Пользователи
Сообщений: 29
Регистрация: 19.03.12
Из: Киев
Пользователь №: 16177


Цитата(Vofka @ 03.07.12, 8:58) *
Причем здесь обработка? Форму списка надо дорабатывать.


И на сколько это сложная операция. Если Вы можете помогите начать, наталкивание на мысль


 i 

Правила, п. 3, 6.
Тема закрыта
 
  Форум: 1С Управление Торговым Предприятием 8 · Просмотр сообщения: #52478 · Ответов: 2 · Просмотров: 2702
 

>  Цвета в номенклатуре
Dima999222
Отправлено: 02.07.12, 23:34


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

Группа: Пользователи
Сообщений: 29
Регистрация: 19.03.12
Из: Киев
Пользователь №: 16177


Доброго времени суток!

Помогите найти обработку которая окрашивает номенклатуру в справочнике номенклатуры. Видел что у ребят такое есть а вот сам такое реализовать не могу.

Буду Вам очень признателен за любую помощь в этом деле.

Конфигурация: УТП(1.2.7.4 не типовая) Платформа: 8.2.14.540

  Форум: 1С Управление Торговым Предприятием 8 · Просмотр сообщения: #52454 · Ответов: 2 · Просмотров: 2702
 

>  Клиент-Банк ЕРСТ (.csv)
Dima999222
Отправлено: 01.06.12, 16:50


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

Группа: Пользователи
Сообщений: 29
Регистрация: 19.03.12
Из: Киев
Пользователь №: 16177


Доброго времени суток.

Помогите найти обработку КБ для Банка ЕРСТ (МФО 380009) импорт выписок.

Конфигурация "Управление торговым предприятием"
Платформа 8.2.14.540

У меня есть КБ для банка Аваль (.csv) может Вы мне поможете переделать под ЕРСТ???

За ранее очень благодарен.
  Форум: 1С Управление Торговым Предприятием 8 · Просмотр сообщения: #51253 · Ответов: 3 · Просмотров: 5527
 

>  Курс EUR в счете на оплату
Dima999222
Отправлено: 16.05.12, 23:09


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

Группа: Пользователи
Сообщений: 29
Регистрация: 19.03.12
Из: Киев
Пользователь №: 16177


Цитата(Ardi @ 16.05.12, 23:43) *
А какой длины и толщины у владельца бензобак?

20x30 см соответственно

  Форум: Программирование обычных форм 1С 8.2 и не интер... · Просмотр сообщения: #50281 · Ответов: 8 · Просмотров: 3899
 

>  Курс EUR в счете на оплату
Dima999222
Отправлено: 16.05.12, 22:15


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

Группа: Пользователи
Сообщений: 29
Регистрация: 19.03.12
Из: Киев
Пользователь №: 16177


Цитата(Vofka @ 16.05.12, 22:20) *
Я не пойму: здесь скучно чтоли стало или что?

Мне необходимо что бы тащило именно курс евро на дату формирования.
Ну помогите я Вас прошу, я понимаю что я туповат но это мне очень необходимо
  Форум: Программирование обычных форм 1С 8.2 и не интер... · Просмотр сообщения: #50278 · Ответов: 8 · Просмотров: 3899
 

>  Курс EUR в счете на оплату
Dima999222
Отправлено: 16.05.12, 20:44


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

Группа: Пользователи
Сообщений: 29
Регистрация: 19.03.12
Из: Киев
Пользователь №: 16177


Цитата(Vofka @ 16.05.12, 14:45) *
А воспользоваться поиском по форуму религия запрещает?

Искал. не нашел есть только через запрос.
  Форум: Программирование обычных форм 1С 8.2 и не интер... · Просмотр сообщения: #50271 · Ответов: 8 · Просмотров: 3899
 

>  Курс EUR в счете на оплату
Dima999222
Отправлено: 16.05.12, 11:52


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

Группа: Пользователи
Сообщений: 29
Регистрация: 19.03.12
Из: Киев
Пользователь №: 16177


Добрый день.

И снова мне необходима Ваша помощь.

Конфигурация "Управление торговым предприятием для Украины" 1.2.7.4
Платформа 8.2.14.540

Во внешнюю форму счета на оплату покупателю необходимо вывести курс EUR на дату формирования этого счета?

ОбластьМакета.Параметры.КурсEUR = ??? (как сослаться на курс EUR)



 ! 

Правила, п.3. В следующий раз будет удалено.
 
  Форум: Программирование обычных форм 1С 8.2 и не интер... · Просмотр сообщения: #50235 · Ответов: 8 · Просмотров: 3899
 

>  Счет на оплату покупателю (внешний)
Dima999222
Отправлено: 16.05.12, 9:38


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

Группа: Пользователи
Сообщений: 29
Регистрация: 19.03.12
Из: Киев
Пользователь №: 16177


Цитата(Ardi @ 16.05.12, 1:03) *
Вот этого быть не должно.
Перем мВалютаРегламентированногоУчета Экспорт;

Перем мМинимальныеЦены Экспорт;

Перем мРассчитыватьАвтоматическиеСкидки;

Перем мСписокФильтров Экспорт;

Перем мУчетнаяПолитика;

Тем не менее этим переменным нужно присвоить значение.


Благодарен. все получилось, просто присвоил переменной мВалютаРегламентировнногоУчета значение
мВалютаРегламентированногоУчета = Константы.ВалютаРегламентированногоУчета.Получить();
  Форум: Программирование обычных форм 1С 8.2 и не интер... · Просмотр сообщения: #50222 · Ответов: 2 · Просмотров: 5712
 

>  Счет на оплату покупателю (внешний)
Dima999222
Отправлено: 15.05.12, 23:51


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

Группа: Пользователи
Сообщений: 29
Регистрация: 19.03.12
Из: Киев
Пользователь №: 16177


Добрый день.

Обращаюсь к Вам с такой проблемой:

Конфигурация "Управление торговым предприятием для Украины" 1.2.7.4 типовой
Платформа 1С: Предприятие 8.2.14.540


При создании внешней печатной формы был использован код
Перем мВалютаРегламентированногоУчета Экспорт;

Перем мМинимальныеЦены Экспорт;

Перем мРассчитыватьАвтоматическиеСкидки;

Перем мСписокФильтров Экспорт;

Перем мУчетнаяПолитика;

// Функция формирует табличный документ с печатной формой заказа или счета,
// разработанного методистами
//
// Возвращаемое значение:
//  Табличный документ - сформированная печатная форма
//
Функция Печать(Тип = "Счет")

    
    ДопКолонка = Константы.ДополнительнаяКолонкаПечатныхФормДокументов.Получить();
    Если ДопКолонка = Перечисления.ДополнительнаяКолонкаПечатныхФормДокументов.Артикул Тогда
        ВыводитьКоды    = Истина;
        Колонка         = "Артикул";
        ТекстКодАртикул = "Артикул";
    ИначеЕсли ДопКолонка = Перечисления.ДополнительнаяКолонкаПечатныхФормДокументов.Код Тогда
        ВыводитьКоды    = Истина;
        Колонка         = "Код";
        ТекстКодАртикул = "Код";
    Иначе
        ВыводитьКоды    = Ложь;
        Колонка         = "";
        ТекстКодАртикул = "Код";
    КонецЕсли;

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

    СтруктурнаяЕдиница = СсылкаНаОбъект.СтруктурнаяЕдиница;
    Шапка = Запрос.Выполнить().Выбрать();
    Шапка.Следующий();
    
    Запрос = Новый Запрос;
    Запрос.УстановитьПараметр("ТекущийДокумент", СсылкаНаОбъект);
    Запрос.Текст = "
    |ВЫБРАТЬ
    |    НомерТЧ,
    |    НомерСтрокиТЧ,
    |    Номенклатура,
    |    ВЫРАЗИТЬ(Номенклатура.НаименованиеПолное КАК СТРОКА(1000)) КАК Товар,
    |    Номенклатура.Код                КАК Код,
    |    Номенклатура."+ ТекстКодАртикул + " КАК КодАртикул,
    |    Количество,
    |    КоличествоМест,
    |    ЕдиницаЦены.Представление КАК ЕдиницаЦены,
    |    ЕдиницаМест.Представление КАК ЕдиницаМест,
    |    ПроцентСкидкиНаценки КАК Скидка,
    |    ПроцентАвтоматическихСкидок КАК АвтоматическаяСкидка,
    |    Цена,
    |    Сумма,
    |    СуммаНДС,
    |    Характеристика,
    |    NULL                             КАК Серия
    |ИЗ
    |    (
    |    ВЫБРАТЬ
    |        1 КАК НомерТЧ,
    |        МИНИМУМ(НомерСтроки)         КАК НомерСтрокиТЧ,
    |        Номенклатура,
    |        ЕдиницаИзмерения              КАК ЕдиницаЦены,
    |        ЕдиницаИзмеренияМест         КАК ЕдиницаМест,
    |        ПроцентСкидкиНаценки        КАК ПроцентСкидкиНаценки,
    |        ПроцентАвтоматическихСкидок КАК ПроцентАвтоматическихСкидок,
    |        Цена                        КАК Цена,
    |        СУММА(Количество)           КАК Количество,
    |        СУММА(КоличествоМест)       КАК КоличествоМест,
    |        СУММА(Сумма     )           КАК Сумма,
    |        СУММА(СуммаНДС  )           КАК СуммаНДС,
    |        ХарактеристикаНоменклатуры  КАК Характеристика
    |    ИЗ
    |        Документ.СчетНаОплатуПокупателю.Товары КАК СчетНаОплатуПокупателю
    |
    |    ГДЕ
    |        СчетНаОплатуПокупателю.Ссылка = &ТекущийДокумент
    |
    |    СГРУППИРОВАТЬ ПО
    |        Номенклатура,
    |        ЕдиницаИзмерения,
    |        ЕдиницаИзмеренияМест,
    |        ПроцентСкидкиНаценки,
    |        ПроцентАвтоматическихСкидок,
    |        Цена,
    |        ХарактеристикаНоменклатуры
    |    ) КАК ВложенныйЗапрос
    |
    |ОБЪЕДИНИТЬ ВСЕ
    |
    |ВЫБРАТЬ
    |   2,
    |   НомерСтроки,
    |   ВЫРАЗИТЬ(Содержание КАК СТРОКА(1000)),
    |   ВЫРАЗИТЬ(Содержание КАК СТРОКА(1000)),
    |    Номенклатура.Код     КАК Код,
    |    Номенклатура."+ ТекстКодАртикул + " КАК КодАртикул,
    |    Количество,
    |    NULL,
    |    Номенклатура.ЕдиницаХраненияОстатков,
    |    NULL,
    |    ПроцентСкидкиНаценки,
    |    0,
    |    Цена,
    |    Сумма,
    |    СуммаНДС,
    |    NULL,
    |    NULL
    |    
    |ИЗ
    |    Документ.СчетНаОплатуПокупателю.Услуги КАК СчетНаОплатуПокупателю
    |
    |ГДЕ
    |    СчетНаОплатуПокупателю.Ссылка = &ТекущийДокумент
    |
    |УПОРЯДОЧИТЬ ПО
    |    НомерТЧ, НомерСтрокиТЧ
    |";

    ЗапросТовары = Запрос.Выполнить().Выгрузить();

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

    // Выводим шапку накладной
    СведенияОПоставщике = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Поставщик, Шапка.Дата,,,КодЯзыкаПечать);
    СведенияОПокупателе = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Покупатель, Шапка.Дата,,,КодЯзыкаПечать);
    
    Если Тип = "Счет" Тогда        
        Если ТипЗнч(СтруктурнаяЕдиница) = Тип("СправочникСсылка.БанковскиеСчета") Тогда
            Банк        = СтруктурнаяЕдиница.Банк;
            МФО             = Банк.Код;
            НомерСчета     = СтруктурнаяЕдиница.НомерСчета;
        Иначе
            // покажем банковские реквизиты основного счета организации
            Банк        = СведенияОПоставщике.Банк;
            МФО             = СведенияОПоставщике.МФО;
            НомерСчета     = СведенияОПоставщике.НомерСчета;
        КонецЕсли;
        ОбластьМакета                               = Макет.ПолучитьОбласть("ЗаголовокСчета");
        ОбластьМакета.Параметры.НазваниеОрганизации = СведенияОПоставщике.ПолноеНаименование;
        ОбластьМакета.Параметры.ЕДРПОУОрганизации    = ?(ЗначениеЗаполнено(СведенияОПоставщике.КодПоЕДРПОУ), СведенияОПоставщике.КодПоЕДРПОУ, СведенияОПоставщике.КодПоДРФО);
        Если ТипЗнч(СтруктурнаяЕдиница) = Тип("СправочникСсылка.БанковскиеСчета")
            И НЕ Шапка.ВидДоговораКонтрагента = Перечисления.ВидыДоговоровКонтрагентов.СКомиссионером  
            И НЕ Шапка.ВалютаДокумента <> мВалютаРегламентированногоУчета Тогда
            ОбластьМакета.Параметры.БанкОрганизации                    = Банк;
            ОбластьМакета.Параметры.МФОБанкаОрганизации                = МФО;
            ОбластьМакета.Параметры.НомерРасчетногоСчетаОрганизации = НомерСчета;
            ТабДокумент.Вывести(ОбластьМакета);
        КонецЕсли;
    КонецЕсли; 

    ОбластьМакета = Макет.ПолучитьОбласть("Заголовок");
    Если Тип = "Счет" Тогда
        Если Шапка.ВидДоговораКонтрагента = Перечисления.ВидыДоговоровКонтрагентов.СКомиссионером  Тогда
            ОбластьМакета.Параметры.ТекстЗаголовка = ОбщегоНазначения.СформироватьЗаголовокДокумента(Шапка, НСтр("ru='Список товаров на комиссию';uk='Список товарів на комісію'",КодЯзыкаПечать),КодЯзыкаПечать);
        Иначе    
            ОбластьМакета.Параметры.ТекстЗаголовка = ОбщегоНазначения.СформироватьЗаголовокДокумента(Шапка, НСтр("ru='Счет на оплату';uk='Рахунок на оплату'",КодЯзыкаПечать),КодЯзыкаПечать);
        КонецЕсли; 
    Иначе
        ОбластьМакета.Параметры.ТекстЗаголовка = ОбщегоНазначения.СформироватьЗаголовокДокумента(Шапка, НСтр("ru='Заказ покупателя';uk='Замовлення покупця'",КодЯзыкаПечать),КодЯзыкаПечать);
    КонецЕсли;
    ТабДокумент.Вывести(ОбластьМакета);

    ОбластьМакета = Макет.ПолучитьОбласть("Поставщик");
    ОбластьМакета.Параметры.Заполнить(Шапка);
    ОбластьМакета.Параметры.ПредставлениеПоставщика = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПоставщике, "ПолноеНаименование,",,КодЯзыкаПечать);    
    
    Если Тип = "Счет" Тогда
        ОбластьМакета.Параметры.РеквизитыПоставщика =  НСтр("ru='Р/с ';uk='Р/р '",КодЯзыкаПечать) + НомерСчета + ", Банк " + Банк + ", МФО " + МФО + Символы.ПС 
                                                     + ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПоставщике, "ЮридическийАдрес,Телефоны,/,КодПоЕДРПОУ,ИНН,НомерСвидетельства,/,ПлательщикНалогаНаПрибыль,",,КодЯзыкаПечать);
    Иначе
        ОбластьМакета.Параметры.РеквизитыПоставщика = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПоставщике, "НомерСчета,Банк,МФО,/,ЮридическийАдрес,Телефоны,/,КодПоЕДРПОУ,ИНН,НомерСвидетельства,/,ПлательщикНалогаНаПрибыль,",,КодЯзыкаПечать);                                             
    КонецЕсли;
    ТабДокумент.Вывести(ОбластьМакета);

    ОбластьМакета = Макет.ПолучитьОбласть("Покупатель");
    ОбластьМакета.Параметры.Заполнить(Шапка);
     ОбластьМакета.Параметры.ПредставлениеПокупателя = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПокупателе, "ПолноеНаименование,",,КодЯзыкаПечать);
    ОбластьМакета.Параметры.РеквизитыПокупателя        = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПокупателе,"Телефоны,",,КодЯзыкаПечать);
    ТабДокумент.Вывести(ОбластьМакета);

    Если Тип = "Счет" Тогда
        // Выводим дополнительно информацию о договоре
        СписокДополнительныхПараметров = "ДоговорНаименованиеДляПечати,";
        МассивСтруктурСтрок = ФормированиеПечатныхФорм.ДополнительнаяИнформация(Шапка,СписокДополнительныхПараметров,КодЯзыкаПечать);
        
        ОбластьМакета = Макет.ПолучитьОбласть("ДопИнформация");        
        Для каждого СтруктураСтроки Из МассивСтруктурСтрок Цикл
            ОбластьМакета.Параметры.Заполнить(СтруктураСтроки);
            ТабДокумент.Вывести(ОбластьМакета);
        КонецЦикла;        
    КонецЕсли;
    
    ЕстьСкидки = ЗапросТовары.Итог("Скидка") + ЗапросТовары.Итог("АвтоматическаяСкидка") <> 0;

    Если ВыводитьКоды Тогда
        ОбластьШапки  = "ШапкаСКодом";
        ОбластьСтроки = "СтрокаСКодом";
    Иначе
        ОбластьШапки  = "ШапкаТаблицы";
        ОбластьСтроки = "Строка";
    Конецесли;

    Если СсылкаНаОбъект.Товары.Итог("КоличествоМест") > 0 Тогда
        ОбластьШапки  = ОбластьШапки  + "Мест";
        ОбластьСтроки = ОбластьСтроки + "Мест";
    Конецесли;
    
    Если ЕстьСкидки Тогда
        ОбластьШапки  = ОбластьШапки  + "Скидка";
        ОбластьСтроки = ОбластьСтроки + "Скидка";
    КонецЕсли; 
    
    // Вывести табличную часть (товары и услуги)
    ОбластьМакета = Макет.ПолучитьОбласть(ОбластьШапки);
    Если ВыводитьКоды Тогда
        ОбластьМакета.Параметры.Колонка = Колонка;
    КонецЕсли;
    
    Суффикс = "";
    Если Шапка.УчитыватьНДС Тогда
        Если Шапка.СуммаВключаетНДС Тогда
            Суффикс  = Суффикс  + НСтр("ru=' с ';uk=' з '",КодЯзыкаПечать);
        Иначе    
            Суффикс  = Суффикс  + НСтр("ru=' без ';uk=' без '",КодЯзыкаПечать);
        КонецЕсли;
        Суффикс = Суффикс  + НСтр("ru='НДС';uk='ПДВ'",КодЯзыкаПечать);
    КонецЕсли;
    ОбластьМакета.Параметры.Цена  = НСтр("ru='Цена';uk='Ціна'",КодЯзыкаПечать) + Суффикс;
    ОбластьМакета.Параметры.Сумма = НСтр("ru='Сумма';uk='Сума'",КодЯзыкаПечать)+ Суффикс;
    
    ТабДокумент.Вывести(ОбластьМакета);

    ОбластьМакета = Макет.ПолучитьОбласть(ОбластьСтроки);
    
    Сумма    = 0;
    СуммаНДС = 0;
    ВсегоСкидок    = 0;
    ВсегоБезСкидок = 0;

    Для каждого ВыборкаСтрокТовары из ЗапросТовары Цикл 

        Если НЕ ЗначениеЗаполнено(ВыборкаСтрокТовары.Номенклатура) Тогда
            Сообщить("В одной из строк не заполнено значение номенклатуры - строка при печати пропущена.", СтатусСообщения.Важное);
            Продолжить;
        КонецЕсли;

        ОбластьМакета.Параметры.Заполнить(ВыборкаСтрокТовары);
        ОбластьМакета.Параметры.НомерСтроки = ЗапросТовары.Индекс(ВыборкаСтрокТовары) + 1;
        ОбластьМакета.Параметры.Товар       = СокрЛП(ВыборкаСтрокТовары.Товар) + ФормированиеПечатныхФорм.ПредставлениеСерий(ВыборкаСтрокТовары);

        Если ВыводитьКоды Тогда
            ОбластьМакета.Параметры.КодАртикул = ВыборкаСтрокТовары.КодАртикул;
        КонецЕсли;

        // Скидка может быть NULL
        ПроцентСкидки = ?(НЕ ЗначениеЗаполнено(ВыборкаСтрокТовары.Скидка),0,ВыборкаСтрокТовары.Скидка) 
                      + ?(НЕ ЗначениеЗаполнено(ВыборкаСтрокТовары.АвтоматическаяСкидка),0,ВыборкаСтрокТовары.АвтоматическаяСкидка);

        Скидка = ?(ПроцентСкидки < 100, ВыборкаСтрокТовары.Сумма  / (100 - ПроцентСкидки)* ПроцентСкидки, ВыборкаСтрокТовары.Цена * ВыборкаСтрокТовары.Количество);

        Если ЕстьСкидки Тогда
            ОбластьМакета.Параметры.Скидка         = Скидка;
            ОбластьМакета.Параметры.СуммаБезСкидки = ВыборкаСтрокТовары.Сумма + Скидка;
        КонецЕсли;
        
        ТабДокумент.Вывести(ОбластьМакета);

        Сумма    = Сумма    + ВыборкаСтрокТовары.Сумма;
        СуммаНДС = СуммаНДС + ВыборкаСтрокТовары.СуммаНДС;
        ВсегоСкидок    = ВсегоСкидок     + Скидка;
        ВсегоБезСкидок = Сумма + ВсегоСкидок;

    КонецЦикла;

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

    // Вывести ИтогоНДС
    Если Шапка.УчитыватьНДС Тогда
        // НДС
        ОбластьМакета = Макет.ПолучитьОбласть("ИтогоНДС");
        ОбластьМакета.Параметры.ВсегоНДС = ОбщегоНазначения.ФорматСумм(СуммаНДС);
        ОбластьМакета.Параметры.НДС      = ?(Шапка.СуммаВключаетНДС, НСтр("ru='В том числе НДС:';uk='У тому числі ПДВ:'",КодЯзыкаПечать), НСтр("ru='Сумма НДС:';uk='Сума ПДВ:'",КодЯзыкаПечать));
        ТабДокумент.Вывести(ОбластьМакета);

        // всего с НДС (если сумма не включает НДС)
        Если НЕ Шапка.СуммаВключаетНДС Тогда
            ОбластьМакета = Макет.ПолучитьОбласть("ИтогоНДС");
            ОбластьМакета.Параметры.ВсегоНДС = ОбщегоНазначения.ФорматСумм(Сумма + СуммаНДС);
            ОбластьМакета.Параметры.НДС      = НСтр("ru='Всего с НДС:';uk='Усього з ПДВ:'",КодЯзыкаПечать);
            ТабДокумент.Вывести(ОбластьМакета);
        КонецЕсли;
    КонецЕсли;
    
    // Вывести таблицу с возвратной тарой
    ОбластьШапки  = СтрЗаменить(ОбластьШапки,"Мест","");
    ОбластьСтроки = СтрЗаменить(ОбластьСтроки,"Мест","");
    ОбластьШапки  = СтрЗаменить(ОбластьШапки,"Скидка","")+"Тара";
    ОбластьСтроки = СтрЗаменить(ОбластьСтроки,"Скидка","")+"Тара";
    
    Если ЗапросТара.Количество() > 0 Тогда
        
        // сделаем отступ от основной таблицы
        ОбластьПробел = Макет.ПолучитьОбласть("Пробел");
        ТабДокумент.Вывести(ОбластьПробел);
        
        ОбластьМакета = Макет.ПолучитьОбласть(ОбластьШапки);
        Если ВыводитьКоды Тогда
            ОбластьМакета.Параметры.Колонка = Колонка;
        КонецЕсли;

        ТабДокумент.Вывести(ОбластьМакета);

        ОбластьМакета = Макет.ПолучитьОбласть(ОбластьСтроки);
        
        СуммаТара    = 0;
        
        Для каждого ВыборкаСтрокТара Из ЗапросТара Цикл 
        
            ОбластьМакета.Параметры.Заполнить(ВыборкаСтрокТара);
            ОбластьМакета.Параметры.НомерСтроки = ЗапросТара.Индекс(ВыборкаСтрокТара) + 1;
            ОбластьМакета.Параметры.Товар       = СокрЛП(ВыборкаСтрокТара.Номенклатура);

            Если ВыводитьКоды Тогда
                ОбластьМакета.Параметры.КодАртикул = ВыборкаСтрокТара.КодАртикул;
            КонецЕсли;

            ТабДокумент.Вывести(ОбластьМакета);

            СуммаТара = СуммаТара + ВыборкаСтрокТара.Сумма;
        
        КонецЦикла; 
        
        ОбластьИтого = "ИтогоТара";
        
        // Вывести Итого
        ОбластьМакета                 = Макет.ПолучитьОбласть(ОбластьИтого);
        ОбластьМакета.Параметры.Всего = ОбщегоНазначения.ФорматСумм(СуммаТара);
        ТабДокумент.Вывести(ОбластьМакета);
        
        // сделаем отступ
        ТабДокумент.Вывести(ОбластьПробел);
    
    КонецЕсли;

    // Вывести Сумму прописью
    ОбластьМакета = Макет.ПолучитьОбласть("СуммаПрописью");
    СуммаКПрописи = Сумма + ?(Шапка.СуммаВключаетНДС, 0, СуммаНДС);
    ОбластьМакета.Параметры.ИтоговаяСтрока = НСтр("ru='Всего наименований ';uk='Всього найменувань '",КодЯзыкаПечать) + ЗапросТовары.Количество() + "," +
                                             НСтр("ru=' на сумму ';uk=' на суму '",КодЯзыкаПечать)  + ОбщегоНазначения.ФорматСумм(СуммаКПрописи, Шапка.ВалютаДокумента)
                                             + ?(ЗапросТара.Количество() = 0, "",  НСтр("ru='; возвратная тара ';uk='; зворотна тара '",КодЯзыкаПечать) + ЗапросТара.Количество() + НСтр("ru=', на сумму ';uk=', на суму '",КодЯзыкаПечать) + ОбщегоНазначения.ФорматСумм(СуммаТара, Шапка.ВалютаДокумента)) + ".";
                                             
    ОбластьМакета.Параметры.СуммаПрописью  = ОбщегоНазначения.СформироватьСуммуПрописью(СуммаКПрописи, Шапка.ВалютаДокумента,КодЯзыкаПечать)
                                              + ?(НЕ Шапка.УчитыватьНДС, "", Символы.ПС + НСтр("ru='В т.ч. НДС: ';uk='У т.ч. ПДВ: '",КодЯзыкаПечать) + ОбщегоНазначения.СформироватьСуммуПрописью(СуммаНДС, Шапка.ВалютаДокумента, КодЯзыкаПечать));
    ТабДокумент.Вывести(ОбластьМакета);

    // Вывести подписи
    Если Тип = "Счет" Тогда
        ОбластьМакета = Макет.ПолучитьОбласть("ПодвалСчета");
        ОбластьМакета.Параметры.Заполнить(Шапка);
    Иначе
        ОбластьМакета = Макет.ПолучитьОбласть("ПодвалЗаказа");
    КонецЕсли; 
    ОбластьМакета.Параметры.Заполнить(Шапка);
    ТабДокумент.Вывести(ОбластьМакета);

    Возврат ТабДокумент;

КонецФункции


Но в самой печатной форме не выводится ЗаголовокСчета. Хотя сама процедура его формирования присутствует в коде.

Очень благодарен всем откликнувшимся на мою проблему!!!
  Форум: Программирование обычных форм 1С 8.2 и не интер... · Просмотр сообщения: #50210 · Ответов: 2 · Просмотров: 5712
 

>  Перенос номенклатуры из ТиС 7.7 в Бух 8.2
Dima999222
Отправлено: 08.05.12, 10:50


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

Группа: Пользователи
Сообщений: 29
Регистрация: 19.03.12
Из: Киев
Пользователь №: 16177


Доброе времени суток!

Возникла проблема в который не могу разобраться, и за помощью обращаюсь к Вам.

Суть проблемы в следующем:

Есть 1С Предприятие 7.7 (7.70.027) конфигурация "Торговля и Склад для Украины" 7.70.020
необходимо перенести всю номенклатуру в конфигурацию "Бухгалтерия для Украины" 1.2.6.5 работающей на платформе 1С Предприятие 8.2 (8.2.14.540)

Я воспользовался конфигурацией "Конвертация данных 2.1" (2.1.4.1) и создал правила (в автоматическом режиме).
И тут сама проблема, перенеслось только наименование и ВСЕ

Очень надеюсь на Вашу помощь. Заранее очень благодарен всем откликнувшимся.
  Форум: Корзина · Просмотр сообщения: #49767 · Ответов: 1 · Просмотров: 2610
 

>  Перенос номенклатуры из ТиС 7.7 в Бух 8.2
Dima999222
Отправлено: 07.05.12, 18:50


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

Группа: Пользователи
Сообщений: 29
Регистрация: 19.03.12
Из: Киев
Пользователь №: 16177


Доброе времени суток!

Возникла проблема в который не могу разобраться, и за помощью обращаюсь к Вам.

Суть проблемы в следующем:

Есть 1С Предприятие 7.7 (7.70.027) конфигурация "Торговля и Склад для Украины" 7.70.020
необходимо перенести всю номенклатуру в конфигурацию "Бухгалтерия для Украины" 1.2.6.5 работающей на платформе 1С Предприятие 8.2 (8.2.14.540)

Я воспользовался конфигурацией "Конвертация данных 2.1" (2.1.4.1) и создал правила (в автоматическом режиме).
И тут сама проблема, перенеслось только наименование и ВСЕ faceoff.gif

Очень надеюсь на Вашу помощь. Заранее очень благодарен всем откликнувшимся.
  Форум: Конфигурация "1С:Конвертация данных" · Просмотр сообщения: #49741 · Ответов: 0 · Просмотров: 3363
 

2 страниц V   1 2 >

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

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