awp @ Сегодня, 17:15
, Виндовс 10 корпоративная + стандартный рдп, жутко тормозила отрисовка в 1с, а при подключении к серверу через тим вивер 1с летает. Как решим проблему - напишу
Всем доброго времени суток, есть 1с 7.7.027 и самописная конфигурация, стояло все это чудо на серваке с вин 10 и рдп, все нормально работало, по определенным причинам пришлось сменить сервер (на более мощный, i7 6700, озу 64гб, и ssd)после переноса платформы и конфигурауии начались жуткие тормоза в работе, особенно в журналах. Кто что подскажет?
eact @ Сегодня, 8:20
, Цыфра не может братся из ни от куда, как говорили выше, сложно понять проблему по фото. В 1с все взаимосвязано, и волшебства не бывает, если Вы внимательно читали статью, которую я Вам скидывал, то даже больничный вводится на основании. Проведя документ, можно отследить его движение по регистрам и понять откуда цыфра. И тогда Вы уже поймете в чем суть и что не так делаете.
Всем доброго времени суток, столкнулся с такой ситуацией: Руководство хочет работать с двумя валютами одновременно (грн. и usd), чтобы документы были в валюте товара. Имея на руках типовую УТ 10.3 и поковыряв её понял что штатными средствами этого не сделать. Штатная УТ может создать, сохранить и распечатать документ в валюте договора контрагента.
Но задача есть задача....
Вот код обработки:
Функция ПолучитьСтрЦЕны(Номенклатура,ТипЦен,Дата)
стрРез = Новый Структура; стрРез.Вставить("Валюта",""); стрРез.Вставить("Цена",0); //стрРез.Вставить("Валюта","");
З = Новый Запрос; Т = "ВЫБРАТЬ | ЦеныНоменклатурыСрезПоследних.Валюта, | ЦеныНоменклатурыСрезПоследних.Цена, | ЦеныНоменклатурыСрезПоследних.Номенклатура, | ЦеныНоменклатурыСрезПоследних.ТипЦен, | ЦеныНоменклатурыСрезПоследних.Период |ИЗ | РегистрСведений.ЦеныНоменклатуры.СрезПоследних( | &Дата, | ТипЦен = &ТипЦен | И Номенклатура = &Номенклатура) КАК ЦеныНоменклатурыСрезПоследних"; З.УстановитьПараметр("Номенклатура",Номенклатура); З.УстановитьПараметр("ТипЦен",ТипЦен); З.УстановитьПараметр("Дата",Дата); З.Текст = Т; выб = З.Выполнить().Выбрать(); Если выб.Следующий() Тогда стрРез.Валюта = выб.Валюта; стрРез.Цена = выб.Цена; КонецЕсли; Возврат стрРез;
КонецФункции
Функция НайтиДоговорКОнтрагента(Контрагент, Валюта)
рез = "";
З = Новый Запрос; Т = "ВЫБРАТЬ | ДоговорыКонтрагентов.Ссылка |ИЗ | Справочник.ДоговорыКонтрагентов КАК ДоговорыКонтрагентов |ГДЕ | ДоговорыКонтрагентов.Владелец = &Владелец | И НЕ ДоговорыКонтрагентов.ПометкаУдаления | И ДоговорыКонтрагентов.ВидДоговора = &ВидДоговора | И ДоговорыКонтрагентов.ВалютаВзаиморасчетов = &ВалютаВзаиморасчетов"; З.Текст = Т; З.УстановитьПараметр("Владелец",Контрагент); З.УстановитьПараметр("ВидДоговора",Перечисления.ВидыДоговоровКонтрагентов.СПокупателем); З.УстановитьПараметр("ВалютаВзаиморасчетов",Валюта);
дО = выбЗаказ.ПолучитьОбъект(); тз = дО.Товары.Выгрузить(); тз.Колонки.Добавить("Валюта"); тз.Колонки.Добавить("ЦенаВал"); тз.Колонки.Добавить("СуммаВал"); тз.Колонки.Добавить("Договор");
Для каждого стр из тз Цикл стрЦены = ПолучитьСтрЦЕны(стр.Номенклатура,дО.ТипЦен,дО.Дата); стр.Валюта = стрЦены.Валюта; стр.ЦенаВал = стрЦены.Цена; стр.СуммаВал = стр.Цена * стр.Количество;
дО_грн = Документы.ЗаказПокупателя.СоздатьДокумент(); ЗаполнитьЗначенияСвойств(дО_грн,дО,,"Номер"); дО_грн.ДоговорКонтрагента = НайтиДоговорКОнтрагента(дО_грн.Контрагент,Справочники.Валюты.НайтиПоКоду("980")); Для каждого стр из тз Цикл Если стр.Валюта.код = "980" Тогда НоваяСтрока = дО_грн.Товары.Добавить(); ЗаполнитьЗначенияСвойств(НоваяСТрока,стр); НоваяСтрока.ЦЕна = стр.ЦЕнаВал; НоваяСтрока.Сумма = стр.СуммаВал; КонецЕсли; КонецЦикла; ф = дО_грн.ПолучитьФорму("ФормаДокумента"); ф.Открыть();
//дО_грн = Документы.ЗаказПокупателя.СоздатьДокумент(); //дО_грн.ДоговорКонтрагента = НайтиДоговорКОнтрагента(дО_грн.Контрагент,Справочники.Валюты.НайтиПоКоду("980")); //ЗаполнитьЗначенияСвойств(дО_грн,дО,,"Номер"); дО.Товары.Очистить(); Для каждого стр из тз Цикл Если стр.Валюта.код = "840" Тогда НоваяСтрока = дО.Товары.Добавить(); ЗаполнитьЗначенияСвойств(НоваяСТрока,стр); НоваяСтрока.ЦЕна = стр.ЦЕнаВал; НоваяСтрока.Сумма = стр.СуммаВал; КонецЕсли; КонецЦикла; ф = дО.ПолучитьФорму("ФормаДокумента"); ф.Открыть();
КонецПроцедуры
тоесть имея у контрагента 2 договора, в данном случае гривна и доллар, при нажатии на кнопку обработка уберет из документа позиции, которые не соответсвуют валюте договора и создаст документ с ними в нужной валюте.
тестировалась на УТ 10.3 (обычное приложение) думаю для УТП и УПП тоже подойдёт. На других - тестите, главное условие : наличие у контрагента двух договоров с разными валютами и коды валют должны братся из класификатора, в противном случае прийдется немного допилить.
а вот собственно и обработка, пароль стандартный: DelenieZakazovPokupatelya.zip ( 7,81 килобайт )
Кол-во скачиваний: 22
Всем доброго времени суток! Скорее всего вопрос на уровне 1-го класса, но уже всю голову сломал. Подскажите начинающему, как вывести реестр документов из "Форма Списка" штатными средствами или может с небольшой доработкой? Смотрел код отчета "Реестр документов" но как его подставить в нужное мне место ума не приложу.
По факту что нужно: при определённой сортировке в списке документов вывести их реестр как это сделать?
Блин, а кто-то слышал об конфигурации "Конверктация данных", даже я, начинающий в 1с и то с помощью нее смог сделать переезд с 7.7 самописной в УТ 10.3 за один день. Выгружаете структуры метаданных, создаете правила обмена и с помощью универсального обмена xml переносите все что Вам нужно. И ни каких сторонних обработок.
sanek6662009@gmail.com @ Сегодня, 12:17
, Если нужны правила обмена, могу помочь, нужны лишь файлы структуры метаданных
Егор Динин @ Сегодня, 9:48
, в большей части так и делаем, но к огромному счастью клиентами фирмы также являются люди в возрасте, не привыкшие к компьютерам)
Petre @ Сегодня, 9:39
, спасибо огромное, как всегда решение на самом видном месте)
Всем привет, помогите, кто чем может... При подборе номенклатуры, став на столбец с наименованием, начать вводить первые буквы и 1с автоматически начнет искать по введенным данным, как тоже самое реализовать в столбце "код"? поиск находящийся вверху очень не удобен, так как некоторые из клиентов привыкли диктовать коды, а в частых заказах количество позицый превышает 400 шт.
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!