Форум программистов, компьютерный форум, киберфорум
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 14.04.2013
Сообщений: 6
1C 7.x

Запрет изменения даты

22.04.2013, 18:24. Показов 1214. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте уважаемые Гуру.
Есть обработка реализующая печать чеков за текущую дату. Проблема в том, что заведение закрывается в 3.00, как реализовать печать чеков с 10.00 одного дня и до 03.00 следующего дня?
1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
//*******************************************
Процедура ПриОткрытии()
    Таб = СоздатьОбъект("Таблица");
    Таб.ИсходнаяТаблица("Пречеки");
    Таб.ВывестиСекцию("Шапка");
    
    ТабНомеров  = СоздатьОбъект("ТаблицаЗначений");
    ТабСтолов   = СоздатьОбъект("ТаблицаЗначений");
    ТабПречеков = СоздатьОбъект("ТаблицаЗначений");
    ТабПречеков.НоваяКолонка("Товар");
    ТабПречеков.НоваяКолонка("Колво");
    ТабПречеков.НоваяКолонка("Цена");
    ТабПречеков.НоваяКолонка("Сумма");
    ТабПречеков.НоваяКолонка("Стол");
    ТабПречеков.НоваяКолонка("НомерПречека");
    
    ДокТовЧек = СоздатьОбъект("Документ.ТоварныйЧек");
    
    ДокТовЧек.УстановитьФильтр(1,0);   
    ДокТовЧек.ВыбратьДокументы(ТекущаяДата(),ТекущаяДата());
    Пока ДокТовЧек.ПолучитьДокумент() = 1 Цикл
        Если ДокТовЧек.ПометкаУдаления() = 1 Тогда
            Продолжить;
        КонецЕсли;     
        ДокТовЧек.ВыбратьСтроки();
        Знак = ?(ДокТовЧек.ЧекНаВозврат = 1,-1,1);
        Пока ДокТовЧек.ПолучитьСтроку() = 1 Цикл
            ТабПречеков.НоваяСтрока();
            ТабПречеков.Товар = ДокТовЧек.Товар;
            ТабПречеков.Колво = Знак*ДокТовЧек.Количество;
        
            
            ТабПречеков.Цена  = ?(НазваниеНабораПрав() = "Кассиры",ДокТовЧек.ЦенаРозничная,0);
            ТабПречеков.Сумма = ?(НазваниеНабораПрав() = "Кассиры",Знак*ДокТовЧек.Всего,0);
            
            ТабПречеков.Стол  = ДокТовЧек.Стол;
            ТабПречеков.НомерПречека = ДокТовЧек.НомерДок;
        КонецЦикла;       
    КонецЦикла;
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
22.04.2013, 18:24
Ответы с готовыми решениями:

Автоматический свдиг даты запрета изменения данных УТ 11.1
Добрый день! Может кто сталкивался,как в УТ 11 сделать автоматический сдвиг даты запрета изменения данных. Чтобы каждый день дата...

Планы Обмена. Не учитывать изменения ранее определенной даты
Всем привет. Как программно сделать так, чтобы при обмене не учитывались изменения ИБ, которые произошли ранее определенной даты... до...

Запрет ввода даты рождения и даты выдачи водительского удостоверения, меньше 18 лет
Доброй ночи, программисты! Помогите пожалуйста: с запретом ввода даты рождения и даты выдачи водительского удостоверения, меньше 18 лет. ...

3
 Аватар для sonatto
62 / 60 / 0
Регистрация: 02.10.2012
Сообщений: 448
22.04.2013, 18:33
Цитата Сообщение от miha2004 Посмотреть сообщение
Здравствуйте уважаемые Гуру
Гуру ето ко мне

Цитата Сообщение от miha2004 Посмотреть сообщение
Дата1 = <датаГде_С 10_00>
Дата12=<датагдедо3_00>
20 ДокТовЧек.ВыбратьДокументы(Дата1 ,ТекущаяДата());
Цитата Сообщение от miha2004 Посмотреть сообщение
Пока ДокТовЧек.ПолучитьДокумент() = 1 Цикл
а в цикеле есть примочка ДокТовЧек.ПолучитьПозицию() и соответственно проверить-если позиция док в интервале тогда
иначе
продолжить
1
 Аватар для duk337
2956 / 1768 / 84
Регистрация: 03.11.2011
Сообщений: 8,280
22.04.2013, 18:53
Читаем в СП:
<Дата1> - дата, документ или позиция начала выборки документов...
<Дата2> - дата, документ или позиция конца выборки документов...

Добавлено через 56 секунд
остаётся определить, как определить док, первый после 3
1
858 / 657 / 112
Регистрация: 01.11.2012
Сообщений: 2,411
23.04.2013, 10:33
Есть функция ПолучитьВремя(Часы, Минуты, Секунды) возвращает время документа в эти три переменные.

ПолучитьВремя(<?>,,)
Синтаксис:
ПолучитьВремя(<Часы>,<Минуты>,<Секунды>)
Назначение:
Прочитать время документа. Возвращает время документа в переданные для этого переменные <Часы>, <Минуты>, <Секунды>.
Возвращает:
Строковое значение времени записи документа в виде 'ЧЧ.ММ.СС'.
Параметры:
<Часы> - переменная для приема часа записи документа;
<Минуты> - переменная для приема минут записи документа;
<Секунды> - переменная для приема секунд записи документа.
Замечание:
Метод можно использовать только для объектов, созданных функцией СоздатьОбъект.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
23.04.2013, 10:33
Помогаю со студенческими работами здесь

Как вставить макрос изменения даты и времени изменения поля?
Я не русский, я юрист. В моей базе на МС Акксесс 2016 я делаю базу цитат из литературных источников (более 400 источников). Создал поле...

Сравнение даты даты изменения файлов
Привет. Написал кусок проги для сравнения даты изменения файлов: #include &quot;stdafx.h&quot; #include &quot;cmp_date.h&quot; //FILE...

Учет изменения полей (перенос содержимого полей) с сохранением даты изменения (автомат)
Добрый вечер, Появилась задача, которую я условно делю на несколько: 1. Перенос значения поля в другое при изменении этого или...

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

Запрет изменения окна
Здравствуйте! Подскажите как запретить изменение размера окна(увеличение, уменьшение)


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Очистка реквизитов документа при копировании
Maks 09.04.2026
Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
Горе от ума
kumehtar 07.04.2026
Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
Использование значений реквизитов справочника в документе, с определенными условиями и правами
Maks 07.04.2026
1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru