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

Хранилище

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

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



14 страниц V   1 2 3 > » 

>  Выборка в запросе док-ов с макс-й датой
bereznoy
Отправлено: 01.11.13, 21:02


Оратор
*****

Группа: Пользователи
Сообщений: 329
Регистрация: 01.09.11
Из: Simferopol
Пользователь №: 11397


Цитата(sava1 @ 01.11.13, 7:57) *
*****

для номенклатуры - аналогично




Запрос = Новый Запрос;   
Запрос.Текст = "ВЫБРАТЬ
               |    ПоступлениеТоваровУслугТовары.Ссылка КАК Регистратор,
               |    ДатыПоследнихДокументовКонтрагентов.Товар КАК Товар
               |ИЗ
               |    Документ.ПоступлениеТоваровУслуг.Товары КАК ПоступлениеТоваровУслугТовары
               |        ВНУТРЕННЕЕ СОЕДИНЕНИЕ (ВЫБРАТЬ
               |            МАКСИМУМ(ПоступлениеТоваровУслугТовары.Ссылка.Дата) КАК Дата,
               |            ПоступлениеТоваровУслугТовары.Номенклатура КАК Товар
               |        ИЗ
               |            Документ.ПоступлениеТоваровУслуг.Товары КАК ПоступлениеТоваровУслугТовары
               |        
               |        СГРУППИРОВАТЬ ПО
               |            ПоступлениеТоваровУслугТовары.Номенклатура) КАК ДатыПоследнихДокументовКонтрагентов
               |        ПО ПоступлениеТоваровУслугТовары.Номенклатура = ДатыПоследнихДокументовКонтрагентов.Товар
               |            И ПоступлениеТоваровУслугТовары.Ссылка.Дата = ДатыПоследнихДокументовКонтрагентов.Дата
               |ГДЕ
               |    ПоступлениеТоваровУслугТовары.Ссылка.Проведен = ИСТИНА" + Условие + "
               |ИТОГИ ПО
               |    Товар ТОЛЬКО ИЕРАРХИЯ";
  Форум: Программирование обычных форм 1С 8.2 и не интер... · Просмотр сообщения: #77218 · Ответов: 4 · Просмотров: 5548
 

>  Выборка в запросе док-ов с макс-й датой
bereznoy
Отправлено: 31.10.13, 22:53


Оратор
*****

Группа: Пользователи
Сообщений: 329
Регистрация: 01.09.11
Из: Simferopol
Пользователь №: 11397


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

Запрос = Новый Запрос;
    Запрос.Текст = "ВЫБРАТЬ
                   |    ПартииТоваровНаСкладах.Номенклатура КАК Товар,
                   |    ПартииТоваровНаСкладах.Номенклатура.Наименование КАК НоменклатураНаименование,
                   |    МАКСИМУМ(ПартииТоваровНаСкладах.ДокументОприходования) КАК Регистратор
                   |ИЗ
                   |    РегистрНакопления.ПартииТоваровНаСкладах КАК ПартииТоваровНаСкладах
                   |ГДЕ
                   |    ПартииТоваровНаСкладах.Регистратор ССЫЛКА Документ.ПоступлениеТоваровУслуг
                   |
                   |СГРУППИРОВАТЬ ПО
                   |    ПартииТоваровНаСкладах.Номенклатура,
                   |    ПартииТоваровНаСкладах.Номенклатура.Наименование
                   |
                   |УПОРЯДОЧИТЬ ПО
                   |    НоменклатураНаименование
                   |ИТОГИ ПО
                   |    Товар ТОЛЬКО ИЕРАРХИЯ
                   |АВТОУПОРЯДОЧИВАНИЕ";
                  
                  
    Запрос.УстановитьПараметр("ТекДата",КонецДня(ТекущаяДата()));
    Запрос.УстановитьПараметр("Склад",Справочники.Склады.НайтиПоКоду("000000001"));    
    Запрос.УстановитьПараметр("Контрагент",Поставщик);
    Запрос.УстановитьПараметр("Номенклатура",Номенклатура);
  Форум: Программирование обычных форм 1С 8.2 и не интер... · Просмотр сообщения: #77185 · Ответов: 4 · Просмотров: 5548
 

>  Неверный вывод автогруппировок
bereznoy
Отправлено: 12.10.13, 21:34


Оратор
*****

Группа: Пользователи
Сообщений: 329
Регистрация: 01.09.11
Из: Simferopol
Пользователь №: 11397


Спасибо огромное, невнимательный я!!!
  Форум: Программирование обычных форм 1С 8.2 и не интер... · Просмотр сообщения: #76170 · Ответов: 2 · Просмотров: 2990
 

>  Неверный вывод автогруппировок
bereznoy
Отправлено: 12.10.13, 14:30


Оратор
*****

Группа: Пользователи
Сообщений: 329
Регистрация: 01.09.11
Из: Simferopol
Пользователь №: 11397


Хочу сделать отчет по номенклатуре,которые будет отображать все группировки, все получается но последнюю группу показывает отдельно, вот
код и после него скрин что в итоге получается

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

        Пока Выборка.Следующий() Цикл

            ТекГруппировка = Выборка.Товар;
            ТекУровень =  ТекГруппировка.Уровень();
            ОбластьСтрокаТаблицы = Макет.ПолучитьОбласть("Наименование");
            ОбластьСтрокаТаблицы.Параметры.Заполнить(Выборка.Товар);
            ТабДок.Вывести(ОбластьСтрокаТаблицы,ТекУровень);
            
        КонецЦикла;
        
        
    
    ТабДок.ЗакончитьАвтогруппировкуКолонок();
        ТабДок.ПоказатьУровеньГруппировокСтрок(0);
    Возврат ТабДок





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

>  Умный поиск номенклатуры
bereznoy
Отправлено: 03.06.13, 17:11


Оратор
*****

Группа: Пользователи
Сообщений: 329
Регистрация: 01.09.11
Из: Simferopol
Пользователь №: 11397


Цитата(Vofka @ 03.06.13, 18:01) *
Это так, на будущее, что б было понятно.

Кто то там про тон что то говорил? Начните уважать сначала людей, а потом учите что б понятно или не понятно было, был бы модератором,я уже давно клизму бы поставил, на большинстве форумов где начинается флуд или диалог не касающийся темы модератор наказывает, но для этого форума .... все в порядке вещей, любая тема это место поболтать о чем либо. 32541510.gif

  Форум: Корзина · Просмотр сообщения: #69997 · Ответов: 7 · Просмотров: 4425
 

>  Умный поиск номенклатуры
bereznoy
Отправлено: 03.06.13, 16:52


Оратор
*****

Группа: Пользователи
Сообщений: 329
Регистрация: 01.09.11
Из: Simferopol
Пользователь №: 11397


Цитата(Vofka @ 03.06.13, 17:36) *
На этом форуме приветствуется давать конкретные ответы на конкретные вопросы. Вы часто не можете сформулировать нормально вопрос, после чего отвечающим делаете замечания про бесполезность ответа, причем таким тоном, как будто вам кто-то что-то должен. Я после пары таких ваших вопросов теперь просто прохожу мимо ваших тем. 47046430.gif

По-моему это форум а не допрос у следователя, где конкретные вопросы и ответы(время, место, ...), в данной теме вопрос сформулирован достаточно понятно и доступно думаю даже не для 1с-ка, от Вас лично ответа никогда не жду после нескольких диалогов, когда как раз создавалось впечатления что я Вам что то должен и тон тоже был недружелюбный, поэтому не пойму зачем Вы нажали кнопочку "Ответить", бесполезность вашего ответа оценить кнопочкой "спасибо" не могу, убедительная просьба, тем кому кажется что он/она "Бог 1с" - отвечайте только тогда когда Ваш ответ как то связан с заголовком темы faceoff.gif
  Форум: Корзина · Просмотр сообщения: #69995 · Ответов: 7 · Просмотров: 4425
 

>  Умный поиск номенклатуры
bereznoy
Отправлено: 03.06.13, 16:03


Оратор
*****

Группа: Пользователи
Сообщений: 329
Регистрация: 01.09.11
Из: Simferopol
Пользователь №: 11397


Цитата(pablo @ 03.06.13, 15:09) *
Вся соль скрыта в . То, что вы указали до этого - тривиально реализуется путем подсчета соответствующих совпадений.

Ответ не понятен, не содержателен = нет ответа! Вообщем из серии - "Знаю, но не скажу!", вижу на этом форуме это приветствуется (((
Быть может Вы не поняли суть вопроса, но тогда зачем отвечать, а если поняли и знаете ответ и нет желания подсказать - зачем жать на кнопку "ответить" 05040.gif
  Форум: Корзина · Просмотр сообщения: #69993 · Ответов: 7 · Просмотров: 4425
 

>  Умный поиск номенклатуры
bereznoy
Отправлено: 03.06.13, 13:59


Оратор
*****

Группа: Пользователи
Сообщений: 329
Регистрация: 01.09.11
Из: Simferopol
Пользователь №: 11397


Делаю обработку загрузки приходных накладных из экселя, столкнулся с проблемой поиска номенклатуры, хочу организовать умный поиск номенклатуры, слева взять три знака искать по первым трем буквам,так же по последним,по средним, без кавычек и т.д. и там где больше совпадений выбирать эту номенклатуру, если нет, то создавать новую, кто то делал аналогично или быть даст совет правильный
  Форум: Корзина · Просмотр сообщения: #69985 · Ответов: 7 · Просмотров: 4425
 

>  Водяной знак на изображениях в номенклатуре
bereznoy
Отправлено: 28.05.13, 23:19


Оратор
*****

Группа: Пользователи
Сообщений: 329
Регистрация: 01.09.11
Из: Simferopol
Пользователь №: 11397


Спасибо никто получить не хотел = не подсказал, вообщем то вот так сделал, теперь все ок, теперь осталось допилить (цену,артикул нанести), но это уже мелочи ))), вот код, может кому пригодиться
 КВФ = Лев(КаталогВременныхФайлов(), 3)  + "SlideShowTemp\";
    СоздатьКаталог(КВФ);
    КаталогКонвертатора = КаталогВременныхФайлов() + "SlideShow\ImageMagick\";
    WScript = Новый COMОбъект("WScript.Shell");

    ИмяФайлаТекста = КВФ + "txt.txt";
    Текст = Новый ТекстовыйДокумент;
    Текст.УстановитьТекст(Изображение1.Номенклатура.Наименование);
    Текст.Записать(ИмяФайлаТекста, "windows-1251", Символы.ВК);

    Темп_ИмяФайлаШрифта = "C:\Users\Администратор\Desktop\AGBENGR.TTF";
    ИмяФайлаШрифта = КВФ + "font.TTF";
    КопироватьФайл(Темп_ИмяФайлаШрифта, ИмяФайлаШрифта);

   ИмяФайлаСлайда =КВФ +  "text.png";
   ИмяФайлаКартинки = КВФ +  "img.jpg";
   ИмяФайлаНовойКартинки = КВФ +  "img." + Файл.Формат();
   Файл.Записать(ИмяФайлаКартинки);
   КопироватьФайл(КаталогИзображений+"\"+СокрЛП(Папки1.Папка.Родитель)+"\"+СокрЛП(Папки1.Папка.Наименование)+"\"+ИмяФайла,ИмяФайлаСлайда);
  
  
   ИмяФайлаПодложки = КВФ +  "source.png";
   КопироватьФайл(ИмяФайлаКартинки, ИмяФайлаПодложки);

    
    КомандаКонвертацииКартинки = """" + КаталогКонвертатора + "convert.exe"" -background transparent -font """ + ИмяФайлаШрифта + """ -pointsize 18 -page A2 -fill #00000fff text:""" + ИмяФайлаТекста + """ -trim -bordercolor transparent -border 24 """ + ИмяФайлаСлайда + """";
      WScript.Run(КомандаКонвертацииКартинки, 0, Истина);

    
    

    КомандаКонвертацииКартинки = """" + КаталогКонвертатора + "convert.exe"" """ + ИмяФайлаПодложки + """ -compose over -gravity South """ + ИмяФайлаСлайда + """ -composite -alpha off """ + ИмяФайлаКартинки + """";
    WScript.Run(КомандаКонвертацииКартинки, 0, Истина);
    
     КопироватьФайл(ИмяФайлаКартинки, КаталогИзображений+"\"+СокрЛП(Папки1.Папка.Родитель)+"\"+СокрЛП(Папки1.Папка.Наименование)+"\"+ИмяФайла);
  Форум: Программирование обычных форм 1С 8.2 и не интер... · Просмотр сообщения: #69724 · Ответов: 6 · Просмотров: 6359
 

>  Водяной знак на изображениях в номенклатуре
bereznoy
Отправлено: 27.05.13, 22:17


Оратор
*****

Группа: Пользователи
Сообщений: 329
Регистрация: 01.09.11
Из: Simferopol
Пользователь №: 11397


Нашел вот такой код
КВФ = Лев(КаталогВременныхФайлов(), 3)  + "SlideShowTemp\";
    СоздатьКаталог(КВФ);
    КаталогКонвертатора = КаталогВременныхФайлов() + "SlideShow\ImageMagick\";
    WScript = Новый COMОбъект("WScript.Shell");

    ИмяФайлаТекста = КВФ + "txt.txt";
    Текст = Новый ТекстовыйДокумент;
    Текст.УстановитьТекст(Надпись);
    Текст.Записать(ИмяФайлаТекста, "windows-1251", Символы.ВК);

    Темп_ИмяФайлаШрифта = КаталогВременныхФайлов() + "SlideShow\Fonts\AGCROWO.TTF";
    ИмяФайлаШрифта = КВФ + "font.TTF";
    КопироватьФайл(Темп_ИмяФайлаШрифта, ИмяФайлаШрифта);

    ИмяФайлаСлайда =КВФ +  "text." + Строка(БиблиотекаКартинок[ИмяКартинки].Формат());
    ИмяФайлаКартинки = КВФ +  "img.bmp";
    ИмяФайлаНовойКартинки = КВФ +  "img." + Строка(БиблиотекаКартинок[ИмяКартинки].Формат());
    БиблиотекаКартинок[ИмяКартинки].Записать(ИмяФайлаКартинки);

    КомандаКонвертацииКартинки = """" + КаталогКонвертатора + "convert.exe"" -background transparent -font """ + ИмяФайлаШрифта + """ -pointsize 18 -page A2 -fill #000000ff text:""" + ИмяФайлаТекста + """ -trim -bordercolor transparent -border 24 """ + ИмяФайлаСлайда + """";
    WScript.Run(КомандаКонвертацииКартинки, 0, Истина);

    ИмяФайлаПодложки = КВФ +  "source.png";
    КопироватьФайл(ИмяФайлаКартинки, ИмяФайлаПодложки);

    КомандаКонвертацииКартинки = """" + КаталогКонвертатора + "convert.exe"" """ + ИмяФайлаПодложки + """ -compose over -gravity South """ + ИмяФайлаСлайда + """ -composite -alpha off """ + ИмяФайлаКартинки + """";
    WScript.Run(КомандаКонвертацииКартинки, 0, Истина);

    Возврат ПоместитьВоВременноеХранилище(Новый ДвоичныеДанные(ИмяФайлаКартинки), УникальныйИдентификатор);


У меня есть в цикле при выгрузке картинок из номенклатуры путь к картинкам, название и т.д., как мне просто наложить названия на картинки в цикле,
WScript = Новый COMОбъект("WScript.Shell");
Затем как я понимаю convert.exe уже обрабатывает изображение, вообщем нужна помощь
  Форум: Программирование обычных форм 1С 8.2 и не интер... · Просмотр сообщения: #69644 · Ответов: 6 · Просмотров: 6359
 

>  Водяной знак на изображениях в номенклатуре
bereznoy
Отправлено: 24.05.13, 10:02


Оратор
*****

Группа: Пользователи
Сообщений: 329
Регистрация: 01.09.11
Из: Simferopol
Пользователь №: 11397


Цитата(logist @ 23.05.13, 23:53) *
Так если знаете, что есть, в чем тогда проблема? Я лично не знаю ни одного стандартного метода 1с который позволял бы наносить водяные знаки на изображения, поделитесь информацией.

Извиняюсь, это вопросительно, уже переискал везде, наносить при выгрузке можно только через внешние компоненты, причем надо именно при выгрузке реализовать, как у меня все получить или если получить, то обязательно сюда выложу
  Форум: Программирование обычных форм 1С 8.2 и не интер... · Просмотр сообщения: #69573 · Ответов: 6 · Просмотров: 6359
 

>  Водяной знак на изображениях в номенклатуре
bereznoy
Отправлено: 23.05.13, 22:30


Оратор
*****

Группа: Пользователи
Сообщений: 329
Регистрация: 01.09.11
Из: Simferopol
Пользователь №: 11397


Цитата(logist @ 23.05.13, 23:20) *
Пользоваться поиском конечно не для вас? http://pro1c.org.ua/index.php?showtopic=4290

Спасибо огромное, но мне надо нанести водяной знак = цене, конечно можно в одной обработке выгружать, потом наносить все что надо,потом загружать обратно к номенклатуре,но мне кажется это секс в гамаке, есть возможность выгрузить уже с водяным знаком
  Форум: Программирование обычных форм 1С 8.2 и не интер... · Просмотр сообщения: #69558 · Ответов: 6 · Просмотров: 6359
 

>  Водяной знак на изображениях в номенклатуре
bereznoy
Отправлено: 23.05.13, 21:51


Оратор
*****

Группа: Пользователи
Сообщений: 329
Регистрация: 01.09.11
Из: Simferopol
Пользователь №: 11397


Есть ли возможность в 1с на картинках в номенклатуре нанести массово название фирмы ну и цену например, может кто то делал, или при сохранении на локальный диск как то обрабатывать
  Форум: Программирование обычных форм 1С 8.2 и не интер... · Просмотр сообщения: #69556 · Ответов: 6 · Просмотров: 6359
 

>  Выгрузка изображений с иерархией групп
bereznoy
Отправлено: 23.05.13, 21:42


Оратор
*****

Группа: Пользователи
Сообщений: 329
Регистрация: 01.09.11
Из: Simferopol
Пользователь №: 11397


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

    Каталоги = З.Выполнить();
    Папки = Каталоги.Выбрать();
    Пока Папки.Следующий() Цикл
        Если ЗначениеЗаполнено(Папки.Папка.Родитель)=0 Тогда
            //Корень
            КаталогНаДиске0 = Новый Файл(КаталогИзображений+"\"+СокрЛП(Папки.Папка.Наименование));
            Если НЕ КаталогНаДиске0.Существует() Тогда
                СоздатьКаталог(КаталогИзображений+"\"+СокрЛП(Папки.Папка.Наименование));
                //Загружаем картинки
                СчДопИзображений=0;
                ПоследняяНоменклатура=Неопределено;

                Изображение = Карт.Выбрать();
                Пока Изображение.Следующий() Цикл
                    Если Изображение.Тов.Родитель = Папки.Папка Тогда
                                                             
                                Если ТолькоОсновныеИзображения И НЕ Изображение.ЭтоОсновное Тогда
                                    Продолжить;
                                КонецЕсли;
                                Если НЕ Изображение.ЭтоОсновное Тогда
                                    Если ПоследняяНоменклатура<>Изображение.Номенклатура Тогда
                                        СчДопИзображений=1;
                                    Иначе
                                        СчДопИзображений=СчДопИзображений+1;
                                    КонецЕсли;
                                    ПоследняяНоменклатура=Изображение.Номенклатура;
                                КонецЕсли;
                                ИмяФайла=СокрЛП(Изображение.Код)+?(Изображение.ЭтоОсновное,"","("+СчДопИзображений+")")+РасширениеФайлов;
                                Файл=Изображение.Хранилище.Получить();
                                Если Файл<>Неопределено Тогда
                                    Файл.Записать(КаталогИзображений+"\"+СокрЛП(Папки.Папка.Наименование)+"\"+ИмяФайла);
                                Иначе
                                    Сообщить("Изображение отсутствует в хранилище! "+Изображение.Номенклатура,СтатусСообщения.Внимание);
                                КонецЕсли;
                            
                    КонецЕсли;
                КонецЦикла;
            КонецЕсли;
        КонецЕсли;
    КонецЦикла;
    
    Папки1 = Каталоги.Выбрать();
    Пока Папки1.Следующий() Цикл
        Если ЗначениеЗаполнено(Папки1.Папка.Родитель)=1 И ЗначениеЗаполнено(Папки1.Папка.Родитель.Родитель)=0 Тогда
            //Первый уровень
            КаталогНаДиске1 = Новый Файл(КаталогИзображений+"\"+СокрЛП(Папки1.Папка.Родитель)+"\"+СокрЛП(Папки1.Папка.Наименование));
            Если НЕ КаталогНаДиске1.Существует() Тогда
                СоздатьКаталог(КаталогИзображений+"\"+СокрЛП(Папки1.Папка.Родитель)+"\"+СокрЛП(Папки1.Папка.Наименование));
                //Загружаем картинки
                СчДопИзображений=0;
                ПоследняяНоменклатура=Неопределено;

                Изображение1 = Карт.Выбрать();
                Пока Изображение1.Следующий() Цикл
                    Если Изображение1.Тов.Родитель = Папки1.Папка Тогда
                                                             
                                Если ТолькоОсновныеИзображения И НЕ Изображение1.ЭтоОсновное Тогда
                                    Продолжить;
                                КонецЕсли;
                                Если НЕ Изображение1.ЭтоОсновное Тогда
                                    Если ПоследняяНоменклатура<>Изображение1.Номенклатура Тогда
                                        СчДопИзображений=1;
                                    Иначе
                                        СчДопИзображений=СчДопИзображений+1;
                                    КонецЕсли;
                                    ПоследняяНоменклатура=Изображение1.Номенклатура;
                                КонецЕсли;
                                ИмяФайла=СокрЛП(Изображение1.Код)+?(Изображение1.ЭтоОсновное,"","("+СчДопИзображений+")")+РасширениеФайлов;
                                Файл=Изображение1.Хранилище.Получить();
                                Если Файл<>Неопределено Тогда
                                    Файл.Записать(КаталогИзображений+"\"+СокрЛП(Папки1.Папка.Родитель)+"\"+СокрЛП(Папки1.Папка.Наименование)+"\"+ИмяФайла);
                                Иначе
                                    Сообщить("Изображение отсутствует в хранилище! "+Изображение1.Номенклатура,СтатусСообщения.Внимание);
                                КонецЕсли;
                            
                    КонецЕсли;
                КонецЦикла;

            КонецЕсли;
        КонецЕсли;
    КонецЦикла;
    
    Папки2 = Каталоги.Выбрать();
    Пока Папки2.Следующий() Цикл
        Если ЗначениеЗаполнено(Папки2.Папка.Родитель.Родитель)=1  Тогда
            //Второй уровень
            КаталогНаДиске2 = Новый Файл(КаталогИзображений+"\"+СокрЛП(Папки2.Папка.Родитель.Родитель.Наименование)+"\"+СокрЛП(Папки2.Папка.Родитель.Наименование)+"\"+СокрЛП(Папки2.Папка.Наименование));
            Если НЕ КаталогНаДиске2.Существует() Тогда
                СоздатьКаталог(КаталогИзображений+"\"+СокрЛП(Папки2.Папка.Родитель.Родитель.Наименование)+"\"+СокрЛП(Папки2.Папка.Родитель.Наименование)+"\"+СокрЛП(Папки2.Папка.Наименование));
                //Загружаем картинки
                СчДопИзображений=0;
                ПоследняяНоменклатура=Неопределено;

                Изображение2 = Карт.Выбрать();
                Пока Изображение2.Следующий() Цикл
                    Если Изображение2.Тов.Родитель = Папки2.Папка Тогда
                                                             
                                Если ТолькоОсновныеИзображения И НЕ Изображение2.ЭтоОсновное Тогда
                                    Продолжить;
                                КонецЕсли;
                                Если НЕ Изображение2.ЭтоОсновное Тогда
                                    Если ПоследняяНоменклатура<>Изображение2.Номенклатура Тогда
                                        СчДопИзображений=1;
                                    Иначе
                                        СчДопИзображений=СчДопИзображений+1;
                                    КонецЕсли;
                                    ПоследняяНоменклатура=Изображение2.Номенклатура;
                                КонецЕсли;
                                ИмяФайла=СокрЛП(Изображение2.Код)+?(Изображение2.ЭтоОсновное,"","("+СчДопИзображений+")")+РасширениеФайлов;
                                Файл=Изображение2.Хранилище.Получить();
                                Если Файл<>Неопределено Тогда
                                    Файл.Записать(КаталогИзображений+"\"+СокрЛП(Папки2.Папка.Родитель.Родитель.Наименование)+"\"+СокрЛП(Папки2.Папка.Родитель.Наименование)+"\"+СокрЛП(Папки2.Папка.Наименование)+"\"+ИмяФайла);
                                Иначе
                                    Сообщить("Изображение отсутствует в хранилище! "+Изображение2.Номенклатура,СтатусСообщения.Внимание);
                                КонецЕсли;
                            
                    КонецЕсли;
                КонецЦикла;

            КонецЕсли;
        КонецЕсли;
    КонецЦикла;
  Форум: Программирование обычных форм 1С 8.2 и не интер... · Просмотр сообщения: #69555 · Ответов: 8 · Просмотров: 5568
 

>  Выгрузка изображений с иерархией групп
bereznoy
Отправлено: 23.05.13, 8:58


Оратор
*****

Группа: Пользователи
Сообщений: 329
Регистрация: 01.09.11
Из: Simferopol
Пользователь №: 11397


Цитата(bereznoy @ 22.05.13, 20:47) *
Есть выгрузка изображений из номенклатуры, выгружается общим списком, подскажите как можно сделать что б выгрузка была с папками, т.е. иерархию сохранить
Вот выгрузка сплошняком


Спасибо за ап, форумчане, те кто умеет читать, подскажите плиз, может кто уже так делал или идея есть
  Форум: Программирование обычных форм 1С 8.2 и не интер... · Просмотр сообщения: #69473 · Ответов: 8 · Просмотров: 5568
 

>  Выгрузка изображений с иерархией групп
bereznoy
Отправлено: 22.05.13, 22:43


Оратор
*****

Группа: Пользователи
Сообщений: 329
Регистрация: 01.09.11
Из: Simferopol
Пользователь №: 11397


Вот так выгружает все папки общим списком, как сделать что б выгружалось как в иерархии (в папке подпака и т.д.)
    З = Новый Запрос;
    З.Текст =
        "ВЫБРАТЬ
        |    Номенклатура.Наименование КАК Наименование
        |ИЗ
        |    Справочник.Номенклатура КАК Номенклатура
        |ГДЕ
        |    Номенклатура.ЭтоГруппа = ИСТИНА";

    Каталоги = З.Выполнить();
    Папки = Каталоги.Выбрать();
    Пока Папки.Следующий() Цикл
        Если Папки.Группа = Истина Тогда
            
                    КаталогНаДиске = Новый Файл(Папки.Наименование);
                    Если НЕ КаталогНаДиске.Существует() Тогда
                                                                     СоздатьКаталог(Папки.Наименование);
                    КонецЕсли;

        КонецЕсли;
    КонецЦикла;
  Форум: Программирование обычных форм 1С 8.2 и не интер... · Просмотр сообщения: #69461 · Ответов: 8 · Просмотров: 5568
 

>  Выгрузка изображений с иерархией групп
bereznoy
Отправлено: 22.05.13, 21:43


Оратор
*****

Группа: Пользователи
Сообщений: 329
Регистрация: 01.09.11
Из: Simferopol
Пользователь №: 11397


Цитата(Vofka @ 22.05.13, 22:25) *
bereznoy, я сейчас отвечу на новый вопрос, вы напишете "ну ладно, это сделаю, а дальше вот мне ещё надо..."?

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

>  Выгрузка изображений с иерархией групп
bereznoy
Отправлено: 22.05.13, 21:06


Оратор
*****

Группа: Пользователи
Сообщений: 329
Регистрация: 01.09.11
Из: Simferopol
Пользователь №: 11397


Цитата(Vofka @ 22.05.13, 21:58) *
Возможности проверить нет, так что инфа не 100%. В запрос вставьте строку
|ИТОГИ ПО
|   Номенклатура ИЕРАРХИЯ

В запросе ладно получу я группу, а дальше как создать именно по иерархии каталоги на локальном диске, подозреваю что "СоздатьКаталог()", но как что именно что б было папка в нудной папке и потом по ним раскидать фотографии, ну тут тоже думаю вот так надо "КопироватьФайл(<Имя файла источника>, <Имя файла приемника>) ", но прошу помощи
  Форум: Программирование обычных форм 1С 8.2 и не интер... · Просмотр сообщения: #69458 · Ответов: 8 · Просмотров: 5568
 

>  Выгрузка изображений с иерархией групп
bereznoy
Отправлено: 22.05.13, 20:47


Оратор
*****

Группа: Пользователи
Сообщений: 329
Регистрация: 01.09.11
Из: Simferopol
Пользователь №: 11397


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

Если СокрЛП(КаталогИзображений)="" Тогда
        Предупреждение("Выберите каталог для сохранения файлов.");
        Возврат;
    КонецЕсли;
    СоздатьКаталог(КаталогИзображений);
    Запрос=Новый Запрос("
    |ВЫБРАТЬ
    |    Объект КАК Номенклатура,
    |    Объект.Код КАК Код,
    |    Хранилище,
    |    ВЫБОР КОГДА Объект.ОсновноеИзображение=Ссылка ТОГДА ИСТИНА ИНАЧЕ ЛОЖЬ КОНЕЦ КАК ЭтоОсновное
    |ИЗ
    |    Справочник.ХранилищеДополнительнойИнформации
    |ГДЕ
    |    Объект ССЫЛКА Справочник.Номенклатура
    |УПОРЯДОЧИТЬ ПО Объект");
    Выборка=Запрос.Выполнить().Выбрать();
    ФормаПроцесса=ПолучитьФорму("ФормаПроцесса");
    ФормаПроцесса.Заголовок="Выполняется выгрузка...";
    Всего=Выборка.Количество();
    ФормаПроцесса.ЭлементыФормы.ИндикаторПроцесса.МаксимальноеЗначение=Всего;
    н=0;
    СчДопИзображений=0;
    ПоследняяНоменклатура=Неопределено;
    ФормаПроцесса.Открыть();
    Пока Выборка.Следующий() Цикл
        
        ОбработкаПрерыванияПользователя();
        н=н+1;
        Если н=1 ИЛИ Цел(н/10)=н/10 ИЛИ н=Всего Тогда
            ФормаПроцесса.ЭлементыФормы.ИндикаторПроцесса.Значение=н;
            ФормаПроцесса.ЭлементыФормы.ТекущийЭлемент.Заголовок=Выборка.Номенклатура;
        КонецЕсли;
        
        Если ТолькоОсновныеИзображения И НЕ Выборка.ЭтоОсновное Тогда
            Продолжить;
        КонецЕсли;
        Если НЕ Выборка.ЭтоОсновное Тогда
            Если ПоследняяНоменклатура<>Выборка.Номенклатура Тогда
                СчДопИзображений=1;
            Иначе
                СчДопИзображений=СчДопИзображений+1;
            КонецЕсли;
            ПоследняяНоменклатура=Выборка.Номенклатура;
        КонецЕсли;
        ИмяФайла=СокрЛП(Выборка.Код)+?(Выборка.ЭтоОсновное,"","("+СчДопИзображений+")")+РасширениеФайлов;
        Файл=Выборка.Хранилище.Получить();
        Если Файл<>Неопределено Тогда
            Файл.Записать(КаталогИзображений+"\"+ИмяФайла);
            Сообщить("Записан файл: "+ИмяФайла,СтатусСообщения.Информация);
        Иначе
            Сообщить("Изображение отсутствует в хранилище! "+Выборка.Номенклатура,СтатусСообщения.Внимание);
        КонецЕсли;
        
    КонецЦикла;
    ФормаПроцесса.Закрыть();
  Форум: Программирование обычных форм 1С 8.2 и не интер... · Просмотр сообщения: #69456 · Ответов: 8 · Просмотров: 5568
 

>  Подключение сканера
bereznoy
Отправлено: 09.03.13, 21:55


Оратор
*****

Группа: Пользователи
Сообщений: 329
Регистрация: 01.09.11
Из: Simferopol
Пользователь №: 11397


У меня аналогичная проблемка, сканер тоже ls2208 usb, конфиг УТ, для начала мне надо переключить в эмуляцию ком порта, считываю штрихкод rs-232 и в оборудовании ничего не появляется нового, уже сбрасывал настройки и заново сканировал штрих код, вообщем мож я как то не так перевожу сканер в эмуляуию com ? Кстати, винда сервер 2003
  Форум: Работа с торговым оборудованием · Просмотр сообщения: #66153 · Ответов: 4 · Просмотров: 5217
 

>  Сортировка при выводе на печать
bereznoy
Отправлено: 20.01.13, 20:46


Оратор
*****

Группа: Пользователи
Сообщений: 329
Регистрация: 01.09.11
Из: Simferopol
Пользователь №: 11397


Цитата(ignsv @ 20.01.13, 20:04) *
и все-таки: Вы говорите:

так зачем вы к ценам соединяете остатки, а не наоборот?

Например такой запрос:
ВЫБРАТЬ
    ТоварыНаСкладахОстатки.Склад,
    ТоварыНаСкладахОстатки.Номенклатура КАК Номенклатура,
    ТоварыНаСкладахОстатки.ХарактеристикаНоменклатуры,
    ТоварыНаСкладахОстатки.КоличествоОстаток,
    ЦеныНоменклатурыСрезПоследних.ЕдиницаИзмерения,
    ЕСТЬNULL(ЦеныНоменклатурыСрезПоследних.Цена, 0) КАК цена,
    ТоварыНаСкладахОстатки.Номенклатура.ОсновноеИзображение.Хранилище
ИЗ
    РегистрНакопления.ТоварыНаСкладах.Остатки(&НаДату, Склад <> &Склад) КАК ТоварыНаСкладахОстатки
        ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЦеныНоменклатуры.СрезПоследних(&НаДату, ТипЦен = &ТЦ) КАК ЦеныНоменклатурыСрезПоследних
        ПО ТоварыНаСкладахОстатки.Номенклатура = ЦеныНоменклатурыСрезПоследних.Номенклатура
            И ТоварыНаСкладахОстатки.ХарактеристикаНоменклатуры = ЦеныНоменклатурыСрезПоследних.ХарактеристикаНоменклатуры
ИТОГИ ПО
    Номенклатура ИЕРАРХИЯ


в моем случае дал группировку по иерархии, все остатки и цены к ним (если они попадали по отборам)


При обходе результата, в выборке уже нет цены (((
  Форум: Программирование обычных форм 1С 8.2 и не интер... · Просмотр сообщения: #63489 · Ответов: 8 · Просмотров: 4749
 

>  Сортировка при выводе на печать
bereznoy
Отправлено: 20.01.13, 18:45


Оратор
*****

Группа: Пользователи
Сообщений: 329
Регистрация: 01.09.11
Из: Simferopol
Пользователь №: 11397


HELP , помогите Цену получить в выборке 05071.gif
  Форум: Программирование обычных форм 1С 8.2 и не интер... · Просмотр сообщения: #63485 · Ответов: 8 · Просмотров: 4749
 

>  Сортировка при выводе на печать
bereznoy
Отправлено: 18.01.13, 23:40


Оратор
*****

Группа: Пользователи
Сообщений: 329
Регистрация: 01.09.11
Из: Simferopol
Пользователь №: 11397


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

    

    ПостроительОтчетаПрайс.ЗаполнитьНастройки();
    //ПостроительОтчетаПрайс.ЗаполнениеРасшифровки = ВидЗаполненияРасшифровкиПостроителяОтчета.ЗначенияГруппировок;
    ПостроительОтчетаПрайс.ТекстЗаголовка = "Прайс";
    ПолеОтбора = ПостроительОтчетаПрайс.Отбор.Добавить("Номенклатура");
    ПолеОтбора.ВидСравнения  = ВидСравнения.ВИерархии;
    
    ПолеОтбора = ПостроительОтчетаПрайс.Отбор.Добавить("КоличествоОстаток");
    ПолеОтбора.ВидСравнения  = ВидСравнения.Больше;
    ПолеОтбора.Значение  = 0;
    ПолеОтбора.Использование  = Истина

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

Процедура ПрайсВывести(ПечататьЦенники = Ложь)
    

    Если НаДату = '00010101' Тогда
        Предупреждение("Не указана дата !!!");
        Возврат;
    КонецЕсли;
    
    Если ТипЦен.Пустая() Тогда
        Предупреждение("Не указан тип цен");
        Возврат;
    КонецЕсли;
    
    Если ВключатьТолькоОстатки И Склады.Количество() = 0 Тогда
        
        Предупреждение("Не указаны склады для поиска остатков");
        Возврат;
        
    КонецЕсли;
    
    
    ПостроительОтчетаПрайс.Параметры.Вставить("НаДату", КонецДня(НаДату));
    ПостроительОтчетаПрайс.Параметры.Вставить("ТипЦен", ТипЦен);
    ПостроительОтчетаПрайс.Параметры.Вставить("Склады", Склады.Выгрузить().ВыгрузитьКолонку("Склад"));

    ИмяПоляОстаток = "КоличествоОстаток";
    ПолеОтбораОстаток = ПостроительОтчетаПрайс.Отбор.Найти(ИмяПоляОстаток);
    Если ВключатьТолькоОстатки Тогда
        Если ПолеОтбораОстаток = Неопределено Тогда
            ПолеОтбораОстаток = ПостроительОтчетаПрайс.Отбор.Добавить(ИмяПоляОстаток);
        Конецесли;
        ПолеОтбораОстаток.ВидСравнения = ВидСравнения.Больше;
        ПолеОтбораОстаток.Использование = Истина;
    Иначе
        Если ПолеОтбораОстаток <> Неопределено Тогда
            ОтборКоличество = ПостроительОтчетаПрайс.Отбор.Количество();
            Для Н = 1 По ОтборКоличество Цикл
                Если ПостроительОтчетаПрайс.Отбор[ОтборКоличество - Н].Имя = ИмяПоляОстаток Тогда                    
                    ПостроительОтчетаПрайс.Отбор.Удалить(ОтборКоличество - Н);
                КонецЕсли    
            КонецЦикла;    
        КонецЕсли;
    КонецЕсли;    
        
        
    
    ПостроительОтчетаПрайс.Выполнить();
    
            
        Макет = ПолучитьМакет("Прайс");
        
        ЭлементыФормы.ПолеТабличногоДокумента.Очистить();
        
        ТабДок = ЭлементыФормы.ПолеТабличногоДокумента;
        ТабДок1 =  Новый ТабличныйДокумент;
        ТабДок2 = Новый ТабличныйДокумент;
        
        
        
        Выборка = ПостроительОтчетаПрайс.Результат.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
        КоличествоСтраниц = 0;
        Номер = 0;
        НомерЗаписи = 0;
        ЛевыйСтолбец = Истина;
        КоличествоСтрокНаСтранице = 4;
        
        
        
                                

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

            КонецЕсли;
        
                    
ОбластьНоменклатура = Макет.ПолучитьОбласть("Номенклатура");
    ЕСЛИ Выборка.Номенклатура.ЭтоГруппа = Истина Тогда
                    Изображение = Неопределено;
                    Иначе

Изображение = Выборка.Номенклатура.ОсновноеИзображение.Хранилище.Получить();
КонецЕсли;
// Изображение = Неопределено;
Если НЕ Изображение = Неопределено Тогда
////////////////////////////////////////////////////////////////////////////////
Рисунок = ОбластьНоменклатура.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Текст);
Рисунок.Верх = 6;
Рисунок.Лево = 1;
Рисунок.Ширина = 17;
Рисунок.Высота = 79;
Рисунок.ОриентацияТекста = -0;
Рисунок.ГоризонтальноеПоложение = ГоризонтальноеПоложение.Центр;
Рисунок.ВертикальноеПоложение = ВертикальноеПоложение.Центр;
Рисунок.Шрифт = Новый Шрифт("Verdana", 13.5,Истина);
Рисунок.ЦветТекста = Новый Цвет(0,0,0);
Рисунок.Текст = Выборка.Номенклатура.Артикул;    

//////////////////////////////////////////////////////////////////////////    
Рисунок = ОбластьНоменклатура.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
Рисунок.Верх = 6;
Рисунок.Высота =79;
Рисунок.Ширина = 90;
Рисунок.Лево = 18;
Рисунок.РазмерКартинки = РазмерКартинки.Растянуть;
Рисунок.Картинка = Изображение;
///////////////////////////////////////

/////////////////////////////////////////////////////
Рисунок = ОбластьНоменклатура.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Текст);
Рисунок.Верх = 6;
Рисунок.Лево = 108;
Рисунок.Ширина = 17;
Рисунок.Высота = 79;
Рисунок.ОриентацияТекста = -0;
Рисунок.ГоризонтальноеПоложение = ГоризонтальноеПоложение.Центр;
Рисунок.ВертикальноеПоложение = ВертикальноеПоложение.Центр;
Рисунок.Шрифт = Новый Шрифт("Verdana", 10,Истина);
Рисунок.ЦветТекста = Новый Цвет(0,0,0);
Рисунок.Текст =Выборка.Цена;




/////////////////////////////////////////////////////
Рисунок = ОбластьНоменклатура.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Текст);
Рисунок.Верх = 85;//76;
Рисунок.Лево = 1;
Рисунок.Ширина = 124;
Рисунок.Высота = 9;
Рисунок.ОриентацияТекста = -0;
Рисунок.ГоризонтальноеПоложение = ГоризонтальноеПоложение.Центр;
Рисунок.ВертикальноеПоложение = ВертикальноеПоложение.Центр;
Рисунок.Шрифт = Новый Шрифт (,,Истина);
Рисунок.ЦветТекста = Новый Цвет(0,0,0);
Рисунок.Текст = Выборка.Наименование;
Если ЛевыйСтолбец Тогда
    ТабДок1.Вывести(ОбластьНоменклатура);
    Иначе
    ТабДок2.Вывести(ОбластьНоменклатура);
КонецЕсли;

НомерЗаписи = НомерЗаписи + 1;

КонецЕсли;
        КонецЦикла;
        
        
        ТабДок.Присоединить(ТабДок1);
        ТабДок.Присоединить(ТабДок2);
        
        ТабДок.ПолеСлева = 0;
        ТабДок.ПолеСправа = 0;
        ТабДок.ПолеСверху = 0;
        ТабДок.ПолеСнизу = 0;
        ТабДок.АвтоМасштаб = Истина;
        


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

>  Сортировка при выводе на печать
bereznoy
Отправлено: 17.01.13, 9:05


Оратор
*****

Группа: Пользователи
Сообщений: 329
Регистрация: 01.09.11
Из: Simferopol
Пользователь №: 11397


Цитата(pablo @ 17.01.13, 8:16) *
Во-первых, Вы уверены, что в запросе должно быть именно левое соединение?
Во-вторых, раз уж не видит цену, в регистре цен есть незаполненная (нулевая) цена?

1.Нет
2.Нет
Если не делать обход в выборке то все хорошо работает.

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

>  Сортировка при выводе на печать
bereznoy
Отправлено: 17.01.13, 0:57


Оратор
*****

Группа: Пользователи
Сообщений: 329
Регистрация: 01.09.11
Из: Simferopol
Пользователь №: 11397


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

    //ПостроительОтчетаПрайс.Параметры("НулевойОстаток", 0);

    ПостроительОтчетаПрайс.ЗаполнитьНастройки();
    //ПостроительОтчетаПрайс.ЗаполнениеРасшифровки = ВидЗаполненияРасшифровкиПостроителяОтчета.ЗначенияГруппировок;
    ПостроительОтчетаПрайс.ТекстЗаголовка = "Прайс";
    ПолеОтбора = ПостроительОтчетаПрайс.Отбор.Добавить("Номенклатура");
    ПолеОтбора.ВидСравнения  = ВидСравнения.ВИерархии;
    
    ПолеОтбора = ПостроительОтчетаПрайс.Отбор.Добавить("КоличествоОстаток");
    ПолеОтбора.ВидСравнения  = ВидСравнения.Больше;
    ПолеОтбора.Значение  = 0;
    ПолеОтбора.Использование  = Истина



.........
Выборка = ПостроительОтчетаПрайс.Результат.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);



Цену уже не видит, в чем проблемка?
Пока Выборка.Следующий() Цикл
....
Рисунок.Текст =Выборка.Цена;
  Форум: Программирование обычных форм 1С 8.2 и не интер... · Просмотр сообщения: #63316 · Ответов: 8 · Просмотров: 4749
 

14 страниц V   1 2 3 > » 

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

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