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

Хранилище

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

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



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

>  Фиксация футера в табличном документе
denis84
Отправлено: Вчера, 18:39


Оратор
Иконка группы

Группа: Местный
Сообщений: 339
Регистрация: 12.06.09
Из: Украина
Пользователь №: 700


Talkman @ Сегодня, 16:42 * ,
Добавить поле рисунок передать свою картинку. Аналогія с подптсями и печатями. Можно посмотреть в конфигурациях на управляемых формах
  Форум: Программирование обычных форм 1С 8.2 и не интер... · Просмотр сообщения: #176967 · Ответов: 1 · Просмотров: 13
 

>  Звіти на панелі дій не відображаються
denis84
Отправлено: 23.03.23, 8:17


Оратор
Иконка группы

Группа: Местный
Сообщений: 339
Регистрация: 12.06.09
Из: Украина
Пользователь №: 700


slavikdr @ Вчера, 20:24 * ,
Доброго дня в мене також відображено, як і вас на другому фото
  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #176959 · Ответов: 2 · Просмотров: 83
 

>  Подскажите, как можно организовать хранение фалов в базе.
denis84
Отправлено: 21.03.23, 9:30


Оратор
Иконка группы

Группа: Местный
Сообщений: 339
Регистрация: 12.06.09
Из: Украина
Пользователь №: 700


kostya77 @ Сегодня, 9:16 * ,
Такое реализовано у нас для договоров через обработку прикрепленные файлы. Создан каталог для хранения файлов. Выбераем файл
//1 строка - тип
//2 строка - длина
//3 строка - точность
//4 строка - ИД вида объекта
//5 строка - флаг неотр. (?)
//6 строка - флаг разделения триад (?)
//7 строка - ИД объекта
Функция ПолучитьИДобъекта(Объект)
    Перем Стр;
    Стр=ЗначениеВСтрокуВнутр(Объект);
    СЗ=СоздатьОбъект("СписокЗначений");
    СЗ.ИзСтрокиСРазделителями(Сред(Стр,2,СтрДлина(Стр)-2));
    Для Сч=1 По 7 Цикл
        Если (Сч=4) или (Сч=7) Тогда
            ДесИД=СЗ.ПолучитьЗначение(Сч);
            СЗ.УстановитьЗначение(Сч,_IdToStr(ДесИД));
        КонецЕсли;
    КонецЦикла;
    Возврат СЗ;
КонецФункции


//*******************************************
Процедура СоздатьКаталогОбъекта()
    СЗ=ПолучитьИДобъекта(Объект);
    //Проверим, существует ли каталог для прикрепляемых файлов
    КаталогФайлов=КаталогИБ()+"Files\";
    // "1MZ" - док.Договор
    Если СокрЛП(СЗ.ПолучитьЗначение(4)) = "1MZ" Тогда
        КаталогФайлов=КаталогИБ()+"Files\";
    КонецЕсли;
    Если ФС.СуществуетФайл(КаталогФайлов)=0 Тогда //Если каталога нет,
        ФС.СоздатьКаталог(КаталогФайлов);         //то создадим его.
    КонецЕсли;
    //Проверим, существует ли каталог для записи файлов объектов данного типа
    КаталогТипаОбъекта=КаталогФайлов+СокрЛП(СЗ.ПолучитьЗначение(1))+"\";
    Если ФС.СуществуетФайл(КаталогТипаОбъекта)=0 Тогда //Если каталога нет,
        ФС.СоздатьКаталог(КаталогТипаОбъекта);         //то создадим его.
    КонецЕсли;
    //Проверим, существует ли каталог для записи файлов объектов данного вида
    КаталогВидаОбъекта=КаталогТипаОбъекта+СокрЛП(СЗ.ПолучитьЗначение(4))+"\";
    Если ФС.СуществуетФайл(КаталогВидаОбъекта)=0 Тогда //Если каталога нет,
        ФС.СоздатьКаталог(КаталогВидаОбъекта);         //то создадим его.
    КонецЕсли;
    //Проверим, существует ли каталог для записи файлов этого объекта
    КаталогОбъекта=КаталогВидаОбъекта+СокрЛП(СЗ.ПолучитьЗначение(7))+"\";
    Если ФС.СуществуетФайл(КаталогОбъекта)=0 Тогда //Если каталога нет,
        ФС.СоздатьКаталог(КаталогОбъекта);         //то создадим его.
    КонецЕсли;
КонецПроцедуры

//*********************************************
Процедура ВыбратьФайл()
    ТекКат="";
    ИмяФайла="";
    ИмяФайла1="";
    Если ФС.ВыбратьФайл(0,ИмяФайла,ТекКат,"Выберите файл:",,,120)=1 Тогда
        Если ФС.СуществуетФайл(КаталогОбъекта)=0 Тогда
            СоздатьКаталогОбъекта();
        КонецЕсли;
        //Приведём длину имени файла в соответствие...
        МаксДлИмениФайла=120;
        ПозРасш=НайтиПослВх(ИмяФайла,".");
        РасшФайла=Прав(ИмяФайла,СтрДлина(ИмяФайла)-ПозРасш);
        НазвФайла=Лев(ИмяФайла,Мин(ПозРасш-1,МаксДлИмениФайла-СтрДлина(РасшФайла)-1));
        ИмяФайла1=НазвФайла+"."+РасшФайла;
        //Проверим, есть ли такой файл в папке...
        Если ФС.СуществуетФайл(КаталогОбъекта+ИмяФайла)=1 Тогда //Проверим наличие файла с таким же именем в каталоге приёмнике
            Если Не(Вопрос("Файл с именем "+ИмяФайла+"
            |в каталоге "+КаталогОбъекта+" уже существует!
            |Перезаписать файл "+ИмяФайла+"?","Да+Нет+Отмена",30)="Да") Тогда
                Возврат;
            КонецЕсли;
        КонецЕсли;
        Если ФС.СуществуетФайл(КаталогОбъекта+"files.vtf")=0 Тогда
            СоздатьКаталогОбъекта();
        КонецЕсли;
        //Копируем файл в папку...
        ФС.КопироватьФайл(ТекКат+ИмяФайла,КаталогОбъекта+ИмяФайла1,0);
    Иначе
        Возврат;
    КонецЕсли;
КонецПроцедуры


Есль такой вариант (но я не проверял):
Добавь в док реквизит текстовый и кнопку на форму для выбора файла, при выборе файла в реквизит попадает путь + имя файла , а на кнопку открытия вешай :
 ЗапуститьПриложение(Путь+ИмяФайла);
  Форум: Программирование в 1С Предприятие 7.7 · Просмотр сообщения: #176954 · Ответов: 3 · Просмотров: 106
 

>  Сообщение пользователю без привязки к конкретному окну
denis84
Отправлено: 08.03.23, 9:57


Оратор
Иконка группы

Группа: Местный
Сообщений: 339
Регистрация: 12.06.09
Из: Украина
Пользователь №: 700


AnryMc @ Вчера, 14:13 * ,
// Модуль "закрываемой" формы:
&НаКлиенте
Процедура ПослеЗаписи(ПараметрыЗаписи)
    Если ПараметрыЗаписи.Свойство("Сообщения") Тогда
        ПустойУИД = Новый УникальныйИдентификатор("00000000-0000-0000-0000-000000000000");
        Для Каждого Элемент Из ПараметрыЗаписи.Сообщения Цикл
            Сообщение = Элемент;
            Сообщение.ИдентификаторНазначения = ПустойУИД;
            Сообщение.Сообщить();
        КонецЦикла;
    КонецЕсли;
КонецПроцедуры

&НаСервере
Процедура ПослеЗаписиНаСервере(ТекущийОбъект, ПараметрыЗаписи)
    ПараметрыЗаписи.Вставить("Сообщения", ПолучитьСообщенияПользователю(Истина)); // удаляем после получения
КонецПроцедуры

// Код вывода сообщения (в серверных процедурах)
// ОбщегоНазначенияКлиентСервер.СообщитьПользователю("Сообщение");


вот еще нашел на infostart.ru

//Как показать пользователю некритические информационные сообщения если он нажал "Записать и закрыть" или "Провести и закрыть".
//Бывают ситуации когда необходимо сообщить пользователю информацию, не вызванную исключительной ситуацией, т.е. ошибкой.

//И все бы хорошо, если бы пользователь не нажимал кнопки "Записать и закрыть" или "Провести и закрыть". В этом случае, если сообщение вызвано исключительной ситуацией, то оно отобразится
//и форма не закроется. Но в случае, если сообщение информационное, т.е. запись или проведение завершились удачно, то сообщение на доли секунды выведется в окно сообщений формы
//и закроется вместе с ней. Плохо.

//Искал по форумам решение, но так и не нашел того, что мне бы подошло. Обработчик ожидания не хочу для этого использовать. Решение с перенаправлением
//сообщения в окно приложения путем активации поочередно окон в моей версии платформы работать корректно не захотело.

//В итоге реализовал так (для записи элемента справочника, для документов реализация будет подобной же):

//1. В форме элемента создал реквизит МассивСообщений типа СписокЗначений для хранения перехваченных с сервера сообщений пользователю.

//2. Процедура ПослеЗаписиНаСервере()

&НаСервере
Процедура ПослеЗаписиНаСервере(ТекущийОбъект, ПараметрыЗаписи)
    МассивСообщений.Очистить();

//Получаем сообщения, предназначающиеся пользователю, но пока не показанные ему, и удаляем их из фиксированного массива (системного), где они хранятся

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

    ФиксМассивСообщений = ПолучитьСообщенияПользователю(Истина);

//Записываем сообщения в список значений (реквизит формы МассивСообщений)
    Для Сч = 0 По ФиксМассивСообщений.Количество() - 1 Цикл
        МассивСообщений.Добавить(ФиксМассивСообщений.Получить(Сч));
    КонецЦикла;
КонецПроцедуры


//3. Процедура ПослеЗаписи()

&НаКлиенте
Процедура ПослеЗаписи(ПараметрыЗаписи)

//Если сообщения есть, то инициируем их показ пользователю
    Если МассивСообщений.Количество() > 0 Тогда
        ПоказатьСообщенияПользователю();
        МассивСообщений.Очистить();
    КонецЕсли;
КонецПроцедуры


//4. Создал процедуру ПоказатьСообщенияПользователю()

&НаКлиенте
Процедура ПоказатьСообщенияПользователю()
    Для Каждого Сообщение Из МассивСообщений Цикл

//Сообщения показываем в виде предупреждений, т.к. пока пользователь не нажмет "Ок" форма не закроется. Т.е. только так мы достигаем цели,

//чтобы пользователь увидел сообщения перед закрытием формы
        Предупреждение("" + Сообщение.Значение.Текст);
    КонецЦикла;
КонецПроцедуры


//Все вышеописанные процедуры описаны в модуле формы.
  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #176908 · Ответов: 6 · Просмотров: 223
 

>  Відбір в журналі документів
denis84
Отправлено: 07.03.23, 12:01


Оратор
Иконка группы

Группа: Местный
Сообщений: 339
Регистрация: 12.06.09
Из: Украина
Пользователь №: 700


kostya77 @ Сегодня, 11:28 * ,
ну значит, что-то не так делаете!

kostya77 @ Сегодня, 11:28 * ,
у вас есть какая-то стандартна конфигурация под рукой? посмотрите там как реализовано
  Форум: Программирование в 1С Предприятие 7.7 · Просмотр сообщения: #176902 · Ответов: 5 · Просмотров: 223
 

>  Відбір в журналі документів
denis84
Отправлено: 07.03.23, 11:23


Оратор
Иконка группы

Группа: Местный
Сообщений: 339
Регистрация: 12.06.09
Из: Украина
Пользователь №: 700


kostya77 @ Сегодня, 10:53 * ,
//пример из конфигурации "торговля и склад"  общий (полный) журнал.

//******************************************************************************
Процедура ПриВыбореКонтрагента()  
    
    Если КонтрагентДляОтбора.Выбран()>0 Тогда
        УстановитьОтбор("Контрагент", КонтрагентДляОтбора);
        КонтрагентДляОтбора = КонтрагентДляОтбора.ТекущийЭлемент();
    Иначе
        УстановитьОтбор("");
    КонецЕсли;
    
КонецПроцедуры

//******************************************************************************
Процедура ПриВыбореВидаДокумента()
    
    Если ПустоеЗначение(ВидДокументаДляОтбора) = 1 Тогда
        ВидДокументаДляОтбора=1;
    КонецЕсли;
    УстановитьОтбор(СписокВидовДокументов.ПолучитьЗначение(ВидДокументаДляОтбора), );
    
КонецПроцедуры

//******************************************************************************
Процедура ПриВыбореАвтора()  
    
    Если АвторДляОтбора.Выбран()>0 Тогда
        УстановитьОтбор("Автор", АвторДляОтбора);
        АвторДляОтбора = АвторДляОтбора.ТекущийЭлемент();
    Иначе
        УстановитьОтбор("");
    КонецЕсли;
    
КонецПроцедуры

//******************************************************************************
Процедура ПриВыбореТипа()    
            
    Если ПустоеЗначение(ТипДляОтбора)>0 Тогда
        ТипДляОтбора=1;
    КонецЕсли;    
            
    УстановитьОтбор("ТипУчета", ТипДляОтбора-1);
    
КонецПроцедуры

//******************************************************************************
Процедура ПриВыбореФирмы()  
    
    Если ФирмаДляОтбора.Выбран()>0 Тогда
        УстановитьОтбор("Фирма", ФирмаДляОтбора);
        ФирмаДляОтбора = ФирмаДляОтбора.ТекущийЭлемент();
    Иначе
        УстановитьОтбор("");
    КонецЕсли;
    
КонецПроцедуры

//******************************************************************************
//
Процедура ПриУстановкеБыстрогоОтбора()
    Перем ТекущДок;                          
    
    ТекущДок = ТекущийДокумент;
    
    Если ВидОтбора.ТекущаяСтрока() = 6 Тогда    // нет быстрого отбора
            
        ЗначениеВВидеСтроки = "";
        
        Форма.кнЗначение.Доступность(0);
        УстановитьОтбор("");
        ВидыОтбора("*");

    Иначе        // есть быстрый отбор
        
        Форма.кнЗначение.Доступность(1);
        
        Если ВидОтбора.ТекущаяСтрока() = 1 Тогда
            ПриВыбореКонтрагента();
            ЗначениеВВидеСтроки=Строка(КонтрагентДляОтбора);
            
        ИначеЕсли ВидОтбора.ТекущаяСтрока() = 2 Тогда
            ПриВыбореВидаДокумента();                  
            СписокВидовДокументов.ПолучитьЗначение(ВидДокументаДляОтбора,ЗначениеВВидеСтроки);
            
        ИначеЕсли ВидОтбора.ТекущаяСтрока() = 3 Тогда
            ПриВыбореАвтора();                          
            ЗначениеВВидеСтроки=Строка(АвторДляОтбора);
            
        ИначеЕсли ВидОтбора.ТекущаяСтрока() = 4 Тогда
            ПриВыбореТипа();
            ТипыУчета.ПолучитьЗначение(ТипДляОтбора,ЗначениеВВидеСтроки);
        
        ИначеЕсли ВидОтбора.ТекущаяСтрока() = 5 Тогда
            ПриВыбореФирмы();
            ЗначениеВВидеСтроки=Строка(ФирмаДляОтбора);
            
        КонецЕсли;
        
        ВидыОтбора("");
        
    КонецЕсли;
    
    Попытка
        АктивизироватьОбъект(ТекущДок);
    Исключение    
    КонецПопытки;    
        
КонецПроцедуры // ПриУстановкеБыстрогоОтбора


//******************************************************************************
//
Процедура ВыборЗначения()  
    Перем ЗначениеИзменилось,СтароеЗначение,ВыбЗначение;                    
    
    Если ВидОтбора.ТекущаяСтрока() = 6 Тогда    // нет быстрого отбора
        Возврат;
    КонецЕсли;    
    
    ЗначениеИзменилось=0;    
    
    Если ВидОтбора.ТекущаяСтрока() = 1 Тогда
        СтароеЗначение=КонтрагентДляОтбора;
        ВыбЗначение = СоздатьОбъект("Справочник.Контрагенты");
        Если ВыбЗначение.Выбрать("Выбор контрагента","Форма списка")=1 Тогда
            КонтрагентДляОтбора = ВыбЗначение;
            Если ВыбЗначение<>СтароеЗначение Тогда
                ЗначениеИзменилось=1;    
            КонецЕсли;    
        КонецЕсли;    
        
    ИначеЕсли ВидОтбора.ТекущаяСтрока() = 2 Тогда
        СтароеЗначение=ВидДокументаДляОтбора;
        Если ПустоеЗначение(ВидДокументаДляОтбора)>0 Тогда
            ВыбЗначение = "";
        Иначе    
            ВыбЗначение = СписокВидовДокументов.ПолучитьЗначение(ВидДокументаДляОтбора);
        КонецЕсли;    
        СписокВидовДокументов.ВыбратьЗначение(ВыбЗначение,"Выбор вида документов",,,0);
        ВидДокументаДляОтбора = СписокВидовДокументов.НайтиЗначение(ВыбЗначение);
        Если ВидДокументаДляОтбора<>СтароеЗначение Тогда
            ЗначениеИзменилось=1;    
        КонецЕсли;                  
        
    ИначеЕсли ВидОтбора.ТекущаяСтрока() = 3 Тогда
        СтароеЗначение=АвторДляОтбора;
        ВыбЗначение = СоздатьОбъект("Справочник.Пользователи");
        Если ВыбЗначение.Выбрать("Выбор автора","Форма списка")=1 Тогда
            АвторДляОтбора = ВыбЗначение;
            Если ВыбЗначение<>СтароеЗначение Тогда
                ЗначениеИзменилось=1;    
            КонецЕсли;    
        КонецЕсли;    
        
    ИначеЕсли ВидОтбора.ТекущаяСтрока() = 4 Тогда
        СтароеЗначение=ТипДляОтбора;                        
        Если ПустоеЗначение(ТипДляОтбора)>0 Тогда
            ВыбЗначение = "";
        Иначе    
            ВыбЗначение = ТипыУчета.ПолучитьЗначение(ТипДляОтбора);
        КонецЕсли;    
        ТипыУчета.ВыбратьЗначение(ВыбЗначение,"Выбор типа учета",,,0);
        ТипДляОтбора = ТипыУчета.НайтиЗначение(ВыбЗначение);
        Если ТипДляОтбора<>СтароеЗначение Тогда
            ЗначениеИзменилось=1;    
        КонецЕсли;    
    
    ИначеЕсли ВидОтбора.ТекущаяСтрока() = 5 Тогда
        СтароеЗначение=ФирмаДляОтбора;
        ВыбЗначение = СоздатьОбъект("Справочник.Фирмы");
        Если ВыбЗначение.Выбрать("Выбор фирмы","Форма списка")=1 Тогда
            ФирмаДляОтбора = ВыбЗначение;
            Если ВыбЗначение<>СтароеЗначение Тогда
                ЗначениеИзменилось=1;    
            КонецЕсли;    
        КонецЕсли;    
        
    КонецЕсли;
            
    Если ЗначениеИзменилось=1 Тогда
        ПриУстановкеБыстрогоОтбора();
    КонецЕсли;    

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


kostya77 @ Сегодня, 11:21 * ,
в общем журнале
  Форум: Программирование в 1С Предприятие 7.7 · Просмотр сообщения: #176900 · Ответов: 5 · Просмотров: 223
 

>  Імпорт даних в довідник Номенклатура
denis84
Отправлено: 05.03.23, 19:16


Оратор
Иконка группы

Группа: Местный
Сообщений: 339
Регистрация: 12.06.09
Из: Украина
Пользователь №: 700


KriAn @ Сегодня, 11:41 * ,
Доброго вечора, можливо. треба знати чим ви переносити номенклатуру?
  Форум: 1С Управление небольшой фирмой для Украины · Просмотр сообщения: #176887 · Ответов: 4 · Просмотров: 225
 

>  V7.7 Пиктограммы на форме журнала
denis84
Отправлено: 03.03.23, 9:58


Оратор
Иконка группы

Группа: Местный
Сообщений: 339
Регистрация: 12.06.09
Из: Украина
Пользователь №: 700


lals @ Сегодня, 9:34 * ,
Доброго, мабуть щось не так. а спробуйте не в кольорі, а стандартні картинки, типу "галочка" є і немає галочки.
  Форум: Программирование в 1С Предприятие 7.7 · Просмотр сообщения: #176881 · Ответов: 4 · Просмотров: 192
 

>  V7.7 Пиктограммы на форме журнала
denis84
Отправлено: 01.03.23, 8:25


Оратор
Иконка группы

Группа: Местный
Сообщений: 339
Регистрация: 12.06.09
Из: Украина
Пользователь №: 700


lals @ Сегодня, 8:16 * ,
це текстове поле у формі журналу? чи це таблиця значень?

В мене є таке рішення:
Є документ "Заявка" в ньому три реквізити "замовив", "дозволив", "отримав". в журналі заявок є три текстових полів "замовив", "дозволив", "отримав". встановлено картинку. і в залежності від реквізитів документу виводю піктограму.

в текстовому полі "замовив" ставлю таку формулу ?(ТекущийДокумент.Выбран()=0,"",?(ТекущийДокумент.МеткаЗаказал=1,2,1)) і аналогічно по іншим
  Форум: Программирование в 1С Предприятие 7.7 · Просмотр сообщения: #176865 · Ответов: 4 · Просмотров: 192
 

>  Открыть файл для загрузки Excel
denis84
Отправлено: 28.02.23, 8:42


Оратор
Иконка группы

Группа: Местный
Сообщений: 339
Регистрация: 12.06.09
Из: Украина
Пользователь №: 700


burza @ Вчера, 19:19 * ,
Процедура ВыборФайла()
      КаталогЗагрузки = "";
      ФайлЗагрузки = "";
      Если ФС.ВыбратьФайл(1, ФайлЗагрузки, КаталогЗагрузки, "Выберите файл", "*.xls|*.xls", , ) = 1 Тогда
             ФайлЗагрузки = КаталогЗагрузки + ФайлЗагрузки;
       КонецЕсли;
КонецПроцедуры

Процедура ПриВыбореИмениФайла()
      Поз=Найти(ФайлЗагрузки,".");
      Если (Поз=0) Или (Поз>8) Тогда
            ФайлЗагрузки=СокрП(Лев(СокрЛ(ФайлЗагрузки),10))+". XLS";
      Иначе
            ФайлЗагрузки=СокрЛП(Лев(ФайлЗагрузки,Поз)+"XLS");
       КонецЕсли;
КонецПроцедуры
  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #176858 · Ответов: 6 · Просмотров: 235
 

>  Открыть файл для загрузки Excel
denis84
Отправлено: 27.02.23, 19:50


Оратор
Иконка группы

Группа: Местный
Сообщений: 339
Регистрация: 12.06.09
Из: Украина
Пользователь №: 700


burza @ Сегодня, 19:19 * ,
Создать временный файл копированием, прочитать ,сделать все что надо. Потом удалить временный файл, по аналогии как импорт банковских выписок делают, там файлы тоже имеют разные названия
  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #176856 · Ответов: 6 · Просмотров: 235
 

>  Как получить остаток товара на счете, на заданое время?
denis84
Отправлено: 15.02.23, 9:21


Оратор
Иконка группы

Группа: Местный
Сообщений: 339
Регистрация: 12.06.09
Из: Украина
Пользователь №: 700


kostya77 @ Сегодня, 8:52 * ,
Функция глПолучитьОстатокТМЦ(Конт, ТМЦ, МестоХранения) Экспорт
    // проверка остатка
    Если (ПустоеЗначение(ТМЦ)=1)  Тогда
        Возврат "";
    КонецЕсли;
    
    Фирма    = Конт.Фирма;
    
    Рег     =  СоздатьОбъект("Регистр.Остатки");
    
    Рег.УстановитьЗначениеФильтра("Фирма",Фирма);
    Рег.УстановитьЗначениеФильтра("ТМЦ",ТМЦ);
    Рег.УстановитьЗначениеФильтра("МестоХранения",МестоХранения);
    
    //Установить флаг участия регистра во временном расчете.
    //Рассчитать все регистры с установленным флагом временного расчета на конец события
    Если (Конт.СравнитьТА() = - 1) Тогда                                            //если дата и время документа меньше даты и времени ТА итогов.
        Рег.ВременныйРасчет(1);
        РассчитатьРегистрыПо(Конт.ТекущийДокумент());
        ТекущийОстаток = Рег.Остаток(Фирма,ТМЦ,МестоХранения,"ОстатокТовара");
    ИначеЕсли (Конт.СравнитьТА() = - 2) И (Конт.ДатаДок < ПолучитьДатуТА()) Тогда  //в случае, если новый документ, который сравнивается с ТА,
        Рег.ВременныйРасчет(1);                                                    //еще не записан - то есть он еще не имеет никакой позиции
        РассчитатьРегистрыПо(Конт.ДатаДок);                                        // на оси времени.
        ТекущийОстаток = Рег.Остаток(Фирма,ТМЦ,МестоХранения,"ОстатокТовара");
    ИначеЕсли (Конт.СравнитьТА() = 0) Тогда                                        //если дата и время документа равны дате и времени ТА итогов.
        ТекущийОстаток = Рег.Остаток(Фирма,ТМЦ,МестоХранения,"ОстатокТовара");
    ИначеЕсли (Конт.СравнитьТА() = + 1) Тогда                                      //если дата и время документа больше даты и времени ТА итогов.
        ТекущийОстаток = Рег.Остаток(Фирма,ТМЦ,МестоХранения,"ОстатокТовара");
    КонецЕсли;    
        
    Возврат СокрЛП(Формат(ТекущийОстаток,глФорматКоличестваВформах));
КонецФункции
  Форум: Программирование в 1С Предприятие 7.7 · Просмотр сообщения: #176821 · Ответов: 5 · Просмотров: 301
 

>  Как посчитать количество чеков за месяц с разбивкой по дням?
denis84
Отправлено: 07.02.23, 14:59


Оратор
Иконка группы

Группа: Местный
Сообщений: 339
Регистрация: 12.06.09
Из: Украина
Пользователь №: 700


kostya77 @ Сегодня, 14:40 * ,
Вот здесь можно посмотреть:
https://pro1c.org.ua/index.php?showtopic=14426
  Форум: Программирование обычных форм 1С 8.2 и не интер... · Просмотр сообщения: #176805 · Ответов: 3 · Просмотров: 239
 

>  Слияние группы аналогов
denis84
Отправлено: 30.01.23, 9:27


Оратор
Иконка группы

Группа: Местный
Сообщений: 339
Регистрация: 12.06.09
Из: Украина
Пользователь №: 700


burza @ Вчера, 19:02 * ,
это Ваша ТЗ на картинке?

Свернуть ТЗ по код, производитель, производитель 2
  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #176754 · Ответов: 17 · Просмотров: 571
 

>  Прикрепленные файлы для нового документа
denis84
Отправлено: 17.01.23, 14:39


Оратор
Иконка группы

Группа: Местный
Сообщений: 339
Регистрация: 12.06.09
Из: Украина
Пользователь №: 700


CapitalistOleg @ Сегодня, 11:38 * ,

Ниже описан порядок действий для добавления "скрепки" (присоединение файлов) к новому документу "НашНовыйДокумент" (как пример).

1. Копируем справочник с наименованием содержащим на конце словосочетание "ПрисоединенныеФайлы". Например "АвансовыйОтчетПрисоединенныеФайлы".

2. Меняем наименование так, чтобы префикс точно соответствовал наименованию документа, а окончание содержало "ПрисоединенныеФайлы". В нашем случае: "НашНовыйДокументПрисоединенныеФайлы".

3. Меняем ТИП у реквизита "ВладелецФайла" справочника "НашНовыйДокументПрисоединенныеФайлы" на "НашНовыйДокумент".

4. Включаем в состав определяемых типов "ПрисоединенныйФайл" и "ПрисоединенныйФайлОбъект" наш новый справочник "НашНовыйДокументПрисоединенныеФайлы".

5. Расширим состав определяемого типа "ВладелецПрисоединенныхФайлов" нашим документом (ДокументСсылка) "НашНовыйДокумент".

6. Расширим состав типов свойства "Источник" у подписки "ПереопределитьПолучаемуюФормуПрисоединенногоФайла", включив в него справочник "НашНовыйДокументПрисоединенныеФайлы".

7. Расширим состав типов свойства "Источник" подписки УстановитьПометкуУдаленияПрисоединенныхФайловДокументов, включив в него наш новый документ (ДокументОбъект) "НашНовыйДокументПрисоединенныеФайлы".

8. Расширим состав общей команды "ПрисоединенныеФайлы" и "ПрисоединенныеФайлыБП", включив в него наш новый документ (ДокументСсылка).

на ютубе есть ролик https://www.youtube.com/watch?v=oxD8AyC-anI
  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #176722 · Ответов: 3 · Просмотров: 349
 

>  Обробка "Обмін з банком" для БУ 2.0
denis84
Отправлено: 13.01.23, 13:52


Оратор
Иконка группы

Группа: Местный
Сообщений: 339
Регистрация: 12.06.09
Из: Украина
Пользователь №: 700


Houp @ 11.01.23, 23:35 * ,
У меня в загрузке выписок Укрсиббанка вот так написано:

    
            Опер =   СокрЛП(ФайлВиписки.DK);
            Если Опер = "2" Тогда
                СумаВибуття = "";
                СумаНадходження = ФайлВиписки.S;
            Иначе
                СумаВибуття = ФайлВиписки.S;
                СумаНадходження = "";
            Конецесли;
            
            Если ПустаяСтрока(СумаВибуття) Тогда
                НовСтрока.Напрямок = 0; //* надходження
                НовСтрока.Сума = Число(СумаНадходження);
            Иначе
                НовСтрока.Напрямок = 1; //* вибуття
                НовСтрока.Сума = Число(СумаВибуття);
            КонецЕсли;
  Форум: Отчеты / Обработки · Просмотр сообщения: #176718 · Ответов: 487 · Просмотров: 105724
 

>  Довідник кодів для УКТ ВЄД НН
denis84
Отправлено: 11.01.23, 11:16


Оратор
Иконка группы

Группа: Местный
Сообщений: 339
Регистрация: 12.06.09
Из: Украина
Пользователь №: 700


kostya77 @ Сегодня, 10:38 * ,
А новий класифікатор у Вас є внаявності? В якому форматі?
  Форум: Программирование в 1С Предприятие 7.7 · Просмотр сообщения: #176708 · Ответов: 2 · Просмотров: 436
 

>  AVAST и отладка 1С
denis84
Отправлено: 29.12.22, 13:53


Оратор
Иконка группы

Группа: Местный
Сообщений: 339
Регистрация: 12.06.09
Из: Украина
Пользователь №: 700


RedCat77 @ Сегодня, 11:45 * ,
а как-то в исключения 1С нельзя добавить? Чтоб антивир вообще не реагировал на 1с. Ничего подходящего в инете не нашел, только совет отключить брандмауэр
  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #176685 · Ответов: 3 · Просмотров: 383
 

>  Групповая выгрузка налоговых документов XML
denis84
Отправлено: 28.12.22, 15:53


Оратор
Иконка группы

Группа: Местный
Сообщений: 339
Регистрация: 12.06.09
Из: Украина
Пользователь №: 700


anna282 @ Сегодня, 14:37 * ,
может надо xsd- схемы подлить новые?
  Форум: Отчеты / Обработки · Просмотр сообщения: #176682 · Ответов: 212 · Просмотров: 130852
 

>  Помогите, пожалуйста, скачать с Infostart.ru
denis84
Отправлено: 27.12.22, 8:10


Оратор
Иконка группы

Группа: Местный
Сообщений: 339
Регистрация: 12.06.09
Из: Украина
Пользователь №: 700


AntonS2000 @ Вчера, 18:21 * ,
"Ошибка! Публикация неактивна или находится на модерации." не смог просмотреть даже
  Форум: Корзина · Просмотр сообщения: #176673 · Ответов: 1 · Просмотров: 209
 

>  Максимальное количество элементов в справочнике
denis84
Отправлено: 20.12.22, 9:41


Оратор
Иконка группы

Группа: Местный
Сообщений: 339
Регистрация: 12.06.09
Из: Украина
Пользователь №: 700


AnryMc @ Сегодня, 9:17 * ,
если используется версия DBF, то у нас максимальное ограничение на размер файла в 2 ГБ
  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #176653 · Ответов: 3 · Просмотров: 507
 

>  Как открыт форму объекта если у него не определены формы
denis84
Отправлено: 19.12.22, 15:10


Оратор
Иконка группы

Группа: Местный
Сообщений: 339
Регистрация: 12.06.09
Из: Украина
Пользователь №: 700


AnryMc @ Сегодня, 14:36 * ,
Добрый день! Попробуй так:

 ОткрытьЗначение(СсылкаНаОбъект);


AnryMc @ Сегодня, 14:36 * ,
Ещё такое нашел (может быть не то):

ВыбраннаяСтрока = Константы.ОбработкаДляОтправкиСМС.Получить(); //Константа расположена на ОБЩЕЙ форме НастройкаПараметровУчета    

Выборка = ПолучаемКонтрагентовИзСправочникаРассылкаСМС();
Если Выборка = Неопределено Тогда
    Возврат;
КонецЕсли;

Попытка
    
    ИмяФайла = ПолучитьИмяВременногоФайла(); //Имя временного файла
    ДвоичныеДанные = ВыбраннаяСтрока.ХранилищеВнешнейОбработки.Получить();
    ДвоичныеДанные.Записать(ИмяФайла);
    
    Форма = ВнешниеОбработки.ПолучитьФорму(ИмяФайла);
    
    Если Не Форма = Неопределено Тогда
        Форма.Открыть();
    Иначе
        ВнешняяОбработка = ВнешниеОбработки.Создать(ИмяФайла);
    КонецЕсли;
Исключение
КонецПопытки;
  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #176643 · Ответов: 2 · Просмотров: 339
 

>  О3 на інший субрахунок
denis84
Отправлено: 09.12.22, 15:26


Оратор
Иконка группы

Группа: Местный
Сообщений: 339
Регистрация: 12.06.09
Из: Украина
Пользователь №: 700


Xmdrug @ Сегодня, 15:22 * ,
Ну ручной операцией можно. Но это только по счетам, а вот по регистрам надо другим документом типа корректировка регистров. Другого ничего не нашел в утп. Надо читать литературу.
  Форум: 1С Управление Торговым Предприятием 8 · Просмотр сообщения: #176627 · Ответов: 13 · Просмотров: 628
 

>  Переоценка ОС
denis84
Отправлено: 07.12.22, 10:37


Оратор
Иконка группы

Группа: Местный
Сообщений: 339
Регистрация: 12.06.09
Из: Украина
Пользователь №: 700


Xmdrug @ Сегодня, 8:10 * ,

посмотрите здесь:

Оценка справливой стоимости.

Справдливая стоимость по МСФО

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

>  Как отредактировать форму печати фискального чека
denis84
Отправлено: 30.11.22, 16:25


Оратор
Иконка группы

Группа: Местный
Сообщений: 339
Регистрация: 12.06.09
Из: Украина
Пользователь №: 700


Максон @ Сегодня, 15:48 * ,
Вы имеете ввиду ПРРО для регистрации электронных чеков на сервере налоговой?
  Форум: 1С Торговля и Склад 7.7 для Украины · Просмотр сообщения: #176593 · Ответов: 10 · Просмотров: 630
 

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

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

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