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

Хранилище

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

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



История благодарностей участнику Fabri ::: Спасибо сказали: 55 раз
Дата поста: В теме: За сообщение: Спасибо сказали:
22.07.14, 16:18 Ошбика базы 1С на Postgresql
alex040269 - Есть, пробовал уже все что можно. И Reindex, и Vacuum(это и есть утилита для проверки/лечения базы) с параметрами - FULL, FREEZE, ANALYZE - ничего не помогает.

DartRomanius, попробую, спасибо.

DartRomanius - это все уже смотрел, пробовал - ничего не помогает.
Единое к чему дошел что получаю sql запросом строки с таблицы pg_toast, действительно идут записи с номером - 58, 59 и потом сразу 61, 62.
Пробую INSERT INTO - добавить пустую запись с номером 60 - ошибка, типа не разрешено.
UPDATE - сменить номер записи 61 на 60 - аналогично.
Хотя в PgAdmin под админом и все права на базу имею.

Нашел на форуме решение (на русском smile.gif) здесь
Текст решения:
Цитата
1) При помощи анализатора из EMS SQL Manager for PostgreSQL определили поля, где содержатся битые данные. Заходили в каждую схему и на каждой таблице делали "Анализ и сборка мусора", выбирали VERBOSE, галочку на очистке не ставили, а дальше смотрели на какое поле ругается.
2) Удалили все ссылки на данные поля
3) Сменили тип поля на char
4 )Сменили назад на text
5) Вернули все ссылки

vacum проходит на этой базе.


Сегодня вечером ПОПРОБУЮ! Если и мне поможет, отпишусь.
Petre,
19.05.14, 10:57 Улыбнуло
xxx: Хотя вот если смотреть по уровню ЗП, то неясно за что 1Сникам платят такие деньги? Ява, С++ и пр. программисты получают в 1,5 раза меньше.

yyy: За вредность. Ява, С++ погромисты как правило меньше работают с людьми. Сам когда-то писал драйвера, софт для управления оборудованием на С++. Дак там если 2+2 то ясно дело должно быть 4 и все. А при работе с бухгалтерами Х.З. поймешь что хотят, нужно еще и за них думать что они хотят. Примерный диалог буха (Б) и программиста (П):
Б - Неправильно считает, тут должно быть 10, а показывает 11.
П - Эта сумма из нескольких сумм складываются, посчитанных ранее, 2+3+6. Какая неправильная: 2, 3 или 6?
Б - 2, 3 и 6 - правильные, неправильная - 11, должно быть 10.
(с) Бор
Kutuzov,
28.03.14, 16:30 Подскажите внешнюю компоненту для работы с изображениями
Если кому-то интересно, расскажу как решил данную задачу.
Для изменения размера изображения использовал ActiveX-библиотеку GflAx.
Получается немного через ж.., но все ж работает.
Код:
        Картинка = Новый Картинка;
        Картинка = ТекущаяСтрока.Номенклатура.ОсновноеИзображение.Хранилище.Получить();
        ИмяВременногоФайла = Строка("c:\temp\" + ТекущаяСтрока.Номенклатура.УникальныйИдентификатор() + ".jpg");
        Картинка.Записать(ИмяВременногоФайла);
        Объект = Новый COMОбъект("GFLAX.GFLAX");
        Объект.LoadBitmap(ИмяВременногоФайла);
        Объект.Resize(200,200);
        Объект.SaveBitmap(ИмяВременногоФайла);
        Картинка = Новый Картинка(ИмяВременногоФайла);
        УдалитьФайлы(ИмяВременногоФайла);

        ОбластьКаталога.Рисунки.Рисунок.Картинка = Картинка;
andreykyiv@bigmir.net, Vofka,
18.03.14, 11:38 Отражение допрсходов
Думаю никак. Торговля для ЧП это базовая конфигурация с существенно урезанным функционалом.
При установке продажней цены учитывайте и доставку, ставьте больше процент наценики и порядок smile.gif

Если это очень нужно, конечно можно написать обработку, которая будет делить сумму доставки на количество товаров и плюсовать результат к каждому товару, тогда в себестоимость товара добавится и затраты на доставку. Но за написание обработки прийдется заплатить...
gokostik,
18.03.14, 11:02 Отражение допрсходов
Цитата(zds @ 17.03.14, 13:08) *
Добрый день.
Начал юзать 1С для ЧП Украина. Есть несколько вопросов на которые не могу найти ответы - надеюсь на вашу помощь)))
1. при доставке товара купленного идет заправка бензином машины по чеку заправки. как проводить и куда списывать правильно? так же и при реализации товара покупателю
2. услуги доставки перевозчиком, Новой почтой и т.д. - аналогичный вопрос.
3. расходы на аренду офиса, воду, коммуналку, электроэнергию и прочие хозрасходы - куда и как списывать?
4. надо ли закрывать месяц как в 1с Бухгалтерия и где посмотреть экон показатели, в т.ч. чистую прибыль за период?
Заранее всем благодарен!!!


1,2,3 - Для этого в поступлении товаров и услуг есть - Услуга.
4 - Нет. Смотреть в отчетах - Продажи, Ведомость по взаиморасчетам, Валовая прибыль.
gokostik,
28.02.14, 11:02 Подключение весов DIGI SM-100
Драйвер и загрузчик здесь
А здесь есть пример обработки для 1с 7.7 ТИС 9.2.

И вообще, пользуйтесь гуглом
bandrah, foton73, igmig65, varas,
03.02.14, 15:04 Нам сегодня 5 лет!
То-то я не зря пива вчера вечером захотел....купил, выпил, отметил... icon_beer17.gif
Ardi, Batchir,
31.01.14, 16:16 Подключить Motorola CS 1504 awp,
31.01.14, 15:34 Подключить Motorola CS 1504
Отправил ссылку в личку.
awp,
31.01.14, 14:50 Провести дубляж Цены номенклатуры
111: у меня комп глючит, что делать?? ?

ответы:
222: у меня машина не заводится, в чем причина?
333: хочу похудеть, но не получается, что делать?
444: я поссорился с женой, не понимаю, почему?
555: сварил пельмени, получилось невкусно, почему так?
666: я заболел, как мне вылечиться?

111: вы что дибилы штоль? это форум про кампы а не для тупых домахозяек как вы!!!! мне нужен конкретный ответ на конкретный вопрос!!
Источник: бор
asd34, logist,
13.01.14, 9:06 Учет оплаченных накладных вразрезе товара.
Цитата
Как выяснилось, на предприятии давно сложившиеся правила начисления з/п торговых представителей. З/п начисляется в % от оплаченного товара и во видам товара разные % для начисления з/п, за оплаченные конфеты торг. предст. получает 1%, а за минералку 1.5% и т.п. Частично оплаченные накладные не учитываются.


Для этого в УТ есть работа с коммисионерами и комиссионное вознаграждение. Правда если для каждого товра разный процент вознаграждения, то прийдется допиливать конфу.
Хотя если нужен такого вида отчет все равно прийдется допиливать конфу.
vl185,
25.11.13, 16:46 Обработка для загрузки изображений номенклатуры
Дописал импорт по артикулу (уже давно дописал, но забыл что тут не выложил, сори).
[attachment=747:pic_upload_art.zip]
1Snik, AdminS, Alexz17, anis2000, Dmitryn, n.burma.09, nick12, olegovich93, sanek6662009@gmail.com, silz, Vofka,
24.11.13, 9:49 Вывод изображения в поле картинки
Решил вопрос таким спобосом:
&НаКлиенте
Процедура СписокИзмененийПриАктивизацииСтроки(Элемент)
    Если Объект.СписокИзменений.Количество()>0 Тогда
        ТекДанные=Элементы.СписокИзменений.ТекущиеДанные;
        ЭтаФорма.Изображение = ПолучитьКартинку(ТекДанные.Номенклатура);
    КонецЕсли;         
КонецПроцедуры

&НаСервере
Функция ПолучитьКартинку(Номенклатура)

    Запрос = Новый Запрос;
    Запрос.Текст =
        "ВЫБРАТЬ
        |    Номенклатура.ФайлКартинки КАК Картинка
        |ИЗ
        |    Справочник.Номенклатура КАК Номенклатура
        |ГДЕ
        |    Номенклатура.Ссылка = &Ссылка";

    Запрос.УстановитьПараметр("Ссылка", Номенклатура);

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

    ВыборкаДетальныеЗаписи = Результат.Выбрать();

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


Т.е. Использовал стандартную функцию общего модуля ПрисоединенныеФайлы.ПолучитьДанныеФайла которая используется при выводе изображения в форме элемента справочника Номенклатура
P.S. Существует данная функция и модуль только в кофигурации УТ 11.1, в УТ11.0 - её нет.
Vofka,
13.11.13, 12:09 HTTPСоединение.Получить() возвращает XML с кракозябрами
Не факт что поможет, но стоит попробовать. Если сервер на Windows, перейдите - Панель управления - Язык и региональные стандарты - вкладка Дополнительно - Кодовые страницы таблиц преобразования - проверьте установлены ли флажки возле нужных кодировок.
vbi,
30.10.13, 15:19 Vofka, с Днем Рождения
Присоединяюсь ко всем вышесказанным словам.
Vofka, с Днем Рождения!

Сообщить("Вы всю ночь безбожно хлещешь кофе,
Символами изрисован лист,
Высокооплачиваемый профи,
С днем рожденья программист.");

Vofka,
25.10.13, 15:14 Удаление файла с FTP сервера
Скопируйте Ваш код:
Соединение.Удалить(<ПутьКФайлу>,<МаскаПоиска>)

Возможно вы указываете файл в строке вот так:
Соединение.Удалить("/www/path/file.txt")

А по логике правильно использовать так:
Соединение.Удалить("/www/path/","file.txt")
Bernet,
14.10.13, 15:54 РЛС по Складам, док-т "Перемещение Товаров" (1С 8.2)
Цитата(sava1 @ 14.10.13, 16:18) *
Через неделю ШЕФ скажут - А давай-ка добавим такие-же ограничения еще для 5 групп пользователей, а у этих отберем.... (ну и т.д.)
И кул хацкер 1С опять лезет в конфу, что-бы прописать разрешения для новых ролей.... (или добавлять новую роль?)


Ну почему же, что мешает создать регистр сведений с измерением "Пользователь" (Справочник.Пользователи) и ресурсом "СкрыватьДругиеСклады" (Булево) и в процедуре осуществлять операции только для тех пользователей у кого установленно значение СкрыватьДругиеСклады=Истина.
Bernet,
14.10.13, 14:38 РЛС по Складам, док-т "Перемещение Товаров" (1С 8.2)
По моему РЛС тут вообще лишний и эти стопиццот строк кода выше - трата времени и нервов smile.gif
В модуле ФормыСписка документа ПеремещениеТоваров находите/создаете процедуру - ПриОткрытии
Вставляете код:
Если РольДоступна("НашаРоль") Тогда   
ФормаСписка.Отбор.Склад.ВидСравнения = ВидСравнения.ВСписке;
ДостСклады = ПолучитьДоступныеСклады(ТекущийПользователь.Настройки.ГруппаДоступностиСкладов); //Вызываем функцию для получения списка складов
   Если НЕ ДостСклады=Неопределено Тогда
      ФормаСписка.Отбор.Склад.Значение = ДостСклады;
   КонецЕсли;
ФормаСписка.Отбор.Склад.Использование = Истина;
//Можем запретить пользователю менять установленными нами склады
ФормаСписка.Отбор.Склад.Доступность = Ложь;
КонецЕсли;

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

    Запрос.УстановитьПараметр("ГруппаДоступности", ГруппаДоступности Складов);

    Результат = Запрос.Выполнить().Выгрузить();
        Возврат Результат;
КонецФункции


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

Точней так:
Если РольДоступна("НашаРоль") Тогда   
ДостСклады = ПолучитьДоступныеСклады(ТекущийПользователь.Настройки.ГруппаДоступностиСкладов); //Вызываем функцию для получения списка складов
   Если НЕ ДостСклады=Неопределено Тогда
      ФормаСписка.Отбор.Склад.ВидСравнения = ВидСравнения.ВСписке;      
      ФормаСписка.Отбор.Склад.Значение = ДостСклады;
      ФормаСписка.Отбор.Склад.Использование = Истина;
      //Можем запретить пользователю менять установленными нами склады
      ФормаСписка.Отбор.Склад.Доступность = Ложь;
КонецЕсли;
КонецЕсли;
avel1976,
14.10.13, 12:05 Сетевая работа с 1С
Если можно и я свои 5 копеек вставлю, так как имею на данный момент налаженную и работающую аналогичную систему.
Oughtem я советую такой порядок действий:
1. Ставим сервак для 1С. Желательно рейд и 4 гб озу как минимум.
2. На сервак серверную винду (2000, 2003, 2008) по желанию и бьюджету.
3. Сервер RDP поднимать и работать через него советую обязательно, почему:
а) Скорость работы 1С как на локальном ПК, ведь вся обработка происходит на серваке, клиенту только передается картинка;
б) RPD клиенты кроссплатформенны, т.е. имеются и для Windows Mobile и для Андроид и т.д.
Нужно ли VPN использовать, решать Вам. Я использую его чисто для шифрования передаваемой информации по RDP каналу (личная безопасность).
Если его использовать для создания VPN тоннеля, т.е. создания виртуальной частной сети и без использования RDP, то прийдется на каждый покет или планшет ставить мобильную платформу, и соответственно скорость работы будет значительно ниже чем через RDP.
4. Использовать ли на покетах или планшетах менеджеров готовые прилож- ения типа Агент+ или найти программиста 1С который напишет обработку для менеджеров, тоже решайте сами, потому что как писал ARDI -
Цитата
С планшета пальцем неудобно пользоваться интерфейсом предназначенным для клваиатуры и мыши.
- это истина.
Oughtem,
27.03.13, 7:21 Обработка для загрузки изображений номенклатуры
Цитата(passtools @ 25.03.13, 23:48) *
А провери на УТ 10.3 он даже рисунки не видит когда путь выбираю какой там рисунки. Далее рещил методом лома и указал все файлы, что в итоге тоже не добавил. Пробовал разнве форматы рисунка. ИТОГ => Файл не является изображением.... НЕ рабочий.


Мы уже выяснили на другом сайте Вашу проблему. Возможность добавления изображений и по артикулу - добавлю в ближайшее время.
rfl, tagirkin,
08.02.13, 18:21 Обработка для загрузки изображений номенклатуры
Обработка УстановкаИзображенийНоменклатуры.epf - для автоматической загрузки изображений номенклатуры в конфигурациях УТ и УТ для Украины.
Загрузка изображений производится группой (из папки), поэтому не приходится открывать каждую номенклатуру отдельно
и загружать для нее изображение, что очень упрощает работу.

Поддерживаются следующие разширения изображений - jpg, jpеg, bmp, gif, png.
Все остальные разширения игнорируются и переносятся в форму отчета об ошибках, которую можно вывести после загрузки всех изображений, нажав кнопку Вывод отчета.

Для того чтобы загрузить фото номенклатуры необходимо всего лиш переименовать имя файла изображения в номер кода номенклатуры.
Пример: У нас есть номенклатура с кодом 10005, переименовываем изображение к примеру с dsc00512.jpg в 10005.jpg.

Как это выглядит можете увидеть на рис. №1.



Следующий этап - загрузка изображений.
Открываем обработку, выбираем папку с изображениями.

Если необходимо перезаписывать уже имеющиеся изображения устанавливаем флажек Перезаписывать, при этом старые изображения остаются в базе, а новые загружаются и добавляются к номенклатуре как основное изображение.
Чтобы старые изображения не оставались в базе, а удалялись - необходимо установить флажек Удалять старые изображения.

Внимание! При установленом флажке Удалять старые изображения, старые изображения физически удаляются из базы, и восстановить их будет уже невозможно. Поэтому прежде чем устанавливать обработку, необходимо протестировать её работу на тестовой базе.

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



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



При выборе элемента из списка, в левом углу можно увидеть только-что загруженное изображение номенклатуры. Нажав на него открывается стандартная форма изображений конфигурации УТ (в которой можно изменить описание изображения, присвоить другой номенлатуре, сохранить изображение на диск и т.п.).

Обработка писалась на скорую руку, поэтому не оптиммизировалась, но используется постоянно и ошибок в работе не обнаруживалось.
Если Вас заинтересовала обработка и небходимо сделать кое-какие правки (к примеру при установке флажка Удалять старые изображения не удалять их физически, а ставить пометку на удаление) пишите ЛС, по возможности допишу.

Обработка тестировалась только на конфигурации "Управление торговлей для Украины", редакция 2.3. (2.3.18.1).
Буду очень благодарен есть кто-то протестирует на УТ и сообщит результат.
beermoscow, cos12, denis84, dethmon, dm68, Gmp, ignsv, nick12, olegovich93, rfl, serge_focus, viktor_prog, Vofka,
07.02.13, 11:56 Добавление нового штрихкода номенклатуры с помощью сканера штрихкодов без "лишних движений"
Итак: Для того чтоб добавлять новый штрихкод для номенклатуры, просто открыв форму элемента номенклатуры, открываем в конфигураторе -Справочники - Номенклатура - ФормаЭлемента, находим функцию СШКНеизвестныйКод и заменяем её код на следующий:

Функция СШКНеизвестныйКод(Штрихкод, ТипКода, СШК) Экспорт

    Если ЭтоНовый() И РаботаСДиалогами.ЗаписатьНовыйОбъектВФорме(ЭтаФорма) Тогда
        ЭлементыФормы.Штрихкоды.ДобавитьСтроку();
    КонецЕсли;

    ТекущиеДанные = ЭлементыФормы.Штрихкоды.ТекущиеДанные;

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

            Попытка
                ТекЗапись.Записать();
            Исключение
            КонецПопытки;
        
        КонецЕсли;
        
        Возврат Истина;
    КонецЕсли;

    ТекЗапись = РегистрыСведений.Штрихкоды.СоздатьМенеджерЗаписи();
    ЗаполнитьЗначенияСвойств(ТекЗапись, ТекущиеДанные);
    ТекЗапись.Прочитать();
    
    //Если активная строка уже имеет штрихкод - спросим заменять или добавить новый
    Если ЗначениеЗаполнено(ТекЗапись.Штрихкод)=Истина Тогда
        //Спросим заменить штрихкод или добавить новый
        Ответ=Вопрос("Выбранное поле уже содержит штрих код." + Символы.ПС + "ДА: Заменить штрихкод новым" + Символы.ПС + "НЕТ: Добавить новый штрихкод"+ Символы.ПС + "ОТМЕНА: Отменить все действия",РежимДиалогаВопрос.ДаНетОтмена,,,"Хотите заменить штрих код?");
        
        //Если ответ Да - заменяем текущую строку
        Если Ответ=КодВозвратаДиалога.Да Тогда
            ТекЗапись.ТипШтрихкода = ТипКода;
            ТекЗапись.Штрихкод     = ШтрихКод;
            
        //Если ответ Нет - добавляем новую строку    
        ИначеЕсли Ответ=КодВозвратаДиалога.Нет Тогда
            ТекЗапись = РегистрыСведений.Штрихкоды.СоздатьМенеджерЗаписи();
        
            ТекЗапись.Владелец         = Ссылка;
            ТекЗапись.ЕдиницаИзмерения = ЕдиницаХраненияОстатков;
            ТекЗапись.ТипШтрихкода     = ТипКода;
            ТекЗапись.Качество         = Справочники.Качество.Новый;
            ТекЗапись.Штрихкод         = Штрихкод;

            Попытка
                ТекЗапись.Записать();
            Исключение
            КонецПопытки;
            Возврат Истина;
            
        //Если Отмена - ничего не делаем
        Иначе
            Возврат Истина;
        КонецЕсли;
    //Если текущая строка пустая, добавляем новый штрихкод    
    Иначе
        ТекЗапись.ТипШтрихкода = ТипКода;
        ТекЗапись.Штрихкод     = ШтрихКод;
    КонецЕсли;
    
    Попытка
        ТекЗапись.Записать();
    Исключение
    КонецПопытки;

    Возврат Истина;

КонецФункции // СШКНеизвестныйКод()


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


P.S. Расписал так подробно только потому, чтоб было понятно и начинающим программистам, вроде меня smile.gif
ignsv, Meest, niklain-k, Vofka, ТЫМ,

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