Имя: Пароль:
1C
1С v8
Как разрешить редактировать (Разблокировать) документ в течение дня?
0 1c_Help
 
22.06.14
12:43
1) При проведений Документ заблокирован!

Есть кнопка Коррекция, при нажатия на неё, Должно разблокировать который был создан в текущий день...

То-есть если мы создали документ сегодня,То до 12.00 (Текущий День) мы его можем его редактировать(Разблокировать) а завтра нет!
==================================================================

Я думаю что, Сначала мы должны получить Дату проведение а потом работать с ней!

Как-то так...





Если ТекущаяДата = ДатаПроведение тогда

ЭтаФорма.ТолькоПросмотр = Ложь;

КонецЕсли;




===================================================================

Еще одно если не трудно скажите как получить текущего Пользователя...

За ранее спасибо
1 PR
 
22.06.14
12:57
Заранее пишется слитно
2 1c_Help
 
22.06.14
12:58
Ну это не самое важное в этой теме :) торопился!(1)
3 PR
 
22.06.14
13:00
(2) Для начала научись не торопиться. Или делать что-то быстро, но при этом без ошибок.
4 1c_Help
 
22.06.14
13:05
СПС буду иметь это ввиду (3)

Так как быть?

Простой пример как сообщить ("Привет");  Только сегодня!?
5 screamhome
 
22.06.14
13:08
(0) что за датаПроведения?

сравнивай текущую дату с датой документа
Если Дата > (НачалоДня(ТекущаяДата()) + 12*60*60) Тогда


как получить текущего пользователя поищи глобальным поиском по своей конфе "ТекущийПользователь" или просто "пользователь"
и найдешь функцию нужную
6 screamhome
 
22.06.14
13:08
(4)
Предупреждение("Привет");
7 1c_Help
 
22.06.14
13:12
СПС сейчас попробую!(6)
8 PR
 
22.06.14
13:12
(0) Добавь реквизит "Дата проведения" и воюй с ним
9 КонецЦикла
 
22.06.14
13:19
>>То до 12.00 (Текущий День)

У вас день начинается не в 00, а в 12.00?

ЗЫ. Русский не родной?
10 1c_Help
 
22.06.14
13:22
ой я перепутал )) у меня формат времени на телефон 1 \ 12 ^_^ (9)
11 PR
 
22.06.14
13:24
(10) рукалицо.jpg

Предлагаю ТС застрелить. Чтобы не мучился.
12 1c_Help
 
22.06.14
13:31
В примере:


Если Дата > (НачалоДня(ТекущаяДата()) + 12*60*60) Тогда


Перемена Дата чем ровно ?






ошибочки!





{Документ.Заказы.Форма.ФормаДокумента.Форма(73,7)}: Переменная не определена (Дата)
    Если <<?>>Дата > (НачалоДня(ТекущаяДата()) + 12*60*60) Тогда (Проверка: Тонкий клиент)
13 PR
 
22.06.14
13:37
Все прав но
Советую жк сп начать
за ранее пожаста ^_^
14 screamhome
 
22.06.14
13:42
(12) ну обычно у документа есть реквизиты "дата" и "номер"
15 1c_Help
 
22.06.14
13:47
а да,да дата это реквизит дата...


Дата = Дата (14)
16 oslokot
 
22.06.14
13:56
^_^    )))
17 Мимохожий Однако
 
22.06.14
14:13
(0)ТекущийПользователь = ПараметрыСеанса. ТекущийПользователь;
18 1c_Help
 
22.06.14
16:13
не получается...:(








&НаКлиенте
Процедура Коррекция(Команда)
    
    
    ПеременнаяДата = ЭтаФорма.Элементы.Дата;    
    
    
    
    Если ПеременнаяДата > (НачалоДня(ТекущаяДата())) Тогда
        
        Сообщить("Все ОК! ^_^");
    Иначе
        Сообщить("Что то пошло не так :(");
        
    ЭтаФорма.ТолькоПросмотр = Ложь;    
    
КонецЕсли;

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

    






ошибочки!





{Документ.Заказы.Форма.ФормаДокумента.Форма(77)}: Операции сравнения на больше-меньше допустимы только для значений совпадающих примитивных типов (Булево, Число, Строка, Дата)
    Если ПеременнаяДата > (НачалоДня(ТекущаяДата())) Тогда
19 Wobland
 
22.06.14
16:17
Если РеквизитПроДату > (НачалоДня(ТекущаяДата())) Тогда
//всё не читал
20 1c_Help
 
22.06.14
16:22
Разве это не реквизит формы дата?   =  ЭтаФорма.Элементы.Дата;


Реквизит стандартный дата как доить до него? (19)
21 Wobland
 
22.06.14
16:27
(20) это элемент управления такой. слово едит-бокс даже называть не буду. Объект.Дата
22 PR
 
22.06.14
16:28
(20) А-ха-ха.
Раньше, до стандартного реквизита дата, я доил руками.
Но все поменялось, когда я узнал про наличие этого реквизита!
...
23 1c_Help
 
22.06.14
16:31
Залить здесь плиз Примеры !

Как сравнить даты.... короче примеры связанные с задачи

Блин это исправитель ошибок не верно исправляет ошибки))))

и еще тороплюсь чуток)

Попозже зайду на форм ^_^
24 Wobland
 
22.06.14
16:32
>Залить здесь плиз Примеры !
какой вежливый командир
25 PR
 
22.06.14
16:34
(24) Он просто думает, что общается с ботами, пытается наговорить команды :))
У меня так ребенок айпаду в ютубе в голосовом поиске говорит "Покажите, пожалуйста, микки мауса по-русски" :))
26 1c_Help
 
22.06.14
16:36
Выкладывайте здесь пример по теме )... Плиз... Великие 1сники...

Сегодня выходной делаете доброе ^_^.....
27 Wobland
 
22.06.14
16:37
28 PR
 
22.06.14
16:38
(26) Мы против безграмотности
29 1c_Help
 
22.06.14
16:38
И исправьте это исправитель ошибок ))) он неправильно исправляет ошибки...
30 PR
 
22.06.14
16:38
(29) А вот это уже к папе с мамой.
31 Wobland
 
22.06.14
16:39
(29) и формулировщика формулировок заодно
32 Wobland
 
22.06.14
16:39
(30) ну человек молдаванин, с кем не бывает
33 Wobland
 
22.06.14
16:41
задача - позволять менять документ только в текущем дне? форма тут вообще сбоку. а ещё часы можно подкрутить
34 PR
 
22.06.14
16:41
(33) ТекущаяДатаСеанса
Крути :))
35 1c_Help
 
22.06.14
16:43
Ладно я когда тороплюсь выгляжу как тролль))

Примерчик, если можете дайте.... попозже зайду)

Ну wild чесы понятно что будут 23:59:59 это конец этого дня и документ уже не разблокировать после 00:00... (33)
36 Wobland
 
22.06.14
16:46
примерчик ему... в v8: Выгрузить данные из Тч в Другой Тч без выгрузке в Массив или ТЗ! у тебя был готовый код прямо в (1). пытал мисту, пока не получил готовую дт
37 PR
 
22.06.14
16:47
(35) Как тролль? Не льсти себе. Ты выглядишь как безграмотный второкласник.
38 1c_Help
 
22.06.14
19:48
Я еще не выучил русский язык на 100% иногда трудновато излагать свой мысли... (37)
39 1c_Help
 
23.06.14
04:40
Все Сработала!






&НаКлиенте
Процедура Коррекция(Команда)
    
    Если Объект.Дата > (НачалоДня(ТекущаяДата())) Тогда
        
        
        
        ЭтаФорма.ТолькоПросмотр = Ложь;
        ЭтаФорма.КоманднаяПанель.ТолькоПросмотр = Ложь;
        ЭтаФорма.Элементы.Ответственный.Доступность = Истина;
        ЭтаФорма.Элементы.Подразделения.Доступность = Истина;
        ЭтаФорма.Элементы.НомерКонтекстноеМеню.ТолькоПросмотр = Ложь;
        ЭтаФорма.Объект.ПометкаУдаления = Ложь;
    КонецЕсли;


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










Всем СПС!
Независимо от того, куда вы едете — это в гору и против ветра!