Имя: Пароль:
1C
1С v8
Помогите исправить ошибки в кодах 1C
0 Emiliya_Emili
 
10.05.15
12:16
Подскажите как сделать так чтобы поле сотрудник заполнялось само текущим пользователем(Для этого установлен параметр сеанса текущий пользователь)

Вот код

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


//////////////////////////////
Возможно ли добавлять товар в документ в из табличной части справочника
В справочники "ВИДЫ СКИДОК" в табличной части содержатся товары на которые распространяется скидка


////////////////////
в документе запись на занятия необходимо при выборе услуги указывать (помещать в реквизит Объект.КоличествоЕдиниц) ее стоимость

код
&НаКлиенте
Процедура УслугаПриИзменении(Элемент) Объект.КоличествоЕдиниц=ЦеныТоваровИУслуг.РозничнаяЦенаЕдиницы(Объект.Дата,Объект.Услуга);
КонецПроцедуры



Общий модуль
Функция РозничнаяЦенаЕдиницы(АктуальнаяДата, ЭлементТовары) Экспорт
Отбор = Новый Структура("ТоварИУслуга", ЭлементТовары);
ЗначенияРесурсов=РегистрыСведений.ЦеныТоваровИУслуг.ПолучитьПоследнее(АктуальнаяДата, Отбор);
Возврат ЗначенияРесурсов.КоличествоЕдиниц;    
КонецФункции



/////////////////
необходимо в справочник клиенты в поле сумма покупки поместить сумму всех покупок клиента

&НаСервере
Функция ПолучитьСуммуПокупок ()    Экспорт    
    Запрос = Новый Запрос;
    Запрос.Текст =
        "ВЫБРАТЬ
        |    ЕСТЬNULL(ПродажиКлиентам.Сумма, 0) КАК Сумма
        |ИЗ
        |    РегистрНакопления.ПродажиКлиентам КАК ПродажиКлиентам
        |ГДЕ
        |    ПродажиКлиентам.Клиент = &Клиент";
    
    Запрос.УстановитьПараметр("Клиент", Объект.Наименование);
    РезультатЗапроса = Запрос.Выполнить();
    ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
    
    СуммаП=0;
    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
        СуммаП=СуммаП+ВыборкаДетальныеЗаписи.Сумма;
        Сообщить(""+ СуммаП +"");
    КонецЦикла;
    Возврат СуммаП;    
КонецФункции


и при каждой новой покупке ее перерасчитывать автоматически

&НаКлиенте
Процедура ОбработкаЗаписиНового(НовыйОбъект, Источник, СтандартнаяОбработка)
СуммаПокупок=ПолучитьСуммуПокупок ();
    Если СуммаПокупок < 10000 Тогда
        Объект.СкидкаКлиента=0;
    ИначеЕсли СуммаПокупок<10000 Тогда
        Объект.СкидкаКлиента=5;
    КонецЕсли;
КонецПроцедуры
1 vicof
 
10.05.15
12:42
1. Определяйся с типами
2. Возможно
3. И чо?
4. Дурацкий подход, лучше сделать отчет
2 Emiliya_Emili
 
10.05.15
13:06
если во втором вопросе возможно, то как?
по поводу третьего вопроса я выбираю услугу а цена не подставляется
и 4 мне нужен не отчет мне нужно хранить это все в справочнике
3 GROOVY
 
10.05.15
13:11
Я не ради флуда, но "позовите специалиста".
4 H A D G E H O G s
 
10.05.15
13:13
(2) Вам правда 70 лет?
5 GROOVY
 
10.05.15
13:13
(4)  Стесняешься фотку выпрашивать?
6 H A D G E H O G s
 
10.05.15
13:14
(5) Нет, интересуюсь, правда ли встречаются такие программисты.
7 GROOVY
 
10.05.15
13:16
(6) Могу тебе точно сказать, я учил восьмерке женщину 72 лет. До этого она кодила на 7.7. И надо сказать была самым активным участником группы. Устроилась работать потом в строительный холдинг.
8 Emiliya_Emili
 
10.05.15
13:26
при чем тут моя опечатка при вводе даты и мой вопрос по коду?
9 Lama12
 
10.05.15
13:59
(8) Традиции форума... :). По сути вопроса (3)+1
10 Emiliya_Emili
 
10.05.15
14:21
и что это значит позвать специалиста?
11 GROOVY
 
10.05.15
14:27
(10)  Это значит, что надо найти в итернете компанию франчайзи с хорошими отзывами, позвонить им, описать проблему, заключить договор, оплатить предоплату, и позвать специалиста.
12 Emiliya_Emili
 
10.05.15
14:31
увы но это невозможно, так как ни одна компания не станет за меня писать диплом
13 GROOVY
 
10.05.15
14:36
Облом с дипломом вышел.
14 GROOVY
 
10.05.15
14:37
15 Torquader
 
10.05.15
15:44
(12) Есть люди, которые за деньги пишут любой диплом на любую тему.
16 EugeniaK
 
10.05.15
16:28
(12) Думаю, любая компания франчайзи с удовольствием в этом помогут.
Разумеется,придется оплатить услуги консультанта за постановку и программиста за реализацию.
17 ice777
 
10.05.15
16:30
(6) мне больше.)
18 PePaRiTB
 
11.05.15
06:12
(0) Вам лучше книжки почитать или курсы посмотреть, а уж если все горит, то позвонить специалисту/франчайзи

P.S. Особо приглянулась шедевральная экспортная (!) функция формы ПолучитьСуммуПокупок (). А если это УТ, где все это реализовано ... занавес
19 FireAlex
 
11.05.15
11:10
код порадовал:
------------------
   Если СуммаПокупок < 10000 Тогда
        Объект.СкидкаКлиента=0;
    ИначеЕсли СуммаПокупок<10000 Тогда
        Объект.СкидкаКлиента=5;
    КонецЕсли;
------------------
второе условие типа 1=2  :)
20 ildary
 
11.05.15
11:24
(19) растет новая смена "атстатыщ".
21 PePaRiTB
 
11.05.15
11:25
(19) и это все делается в процедуре ОбработкаЗаписиНового

Конечно знатный какашко-код в принципе
22 marvak
 
11.05.15
12:38
(0)
Думаю помогать писать диплом вам тут не станут.
Найдите хорошего и отзывчивого парня-ровесника, который знает 1С, и хорошо известными женскими приемами заставьте его помочь вам.
23 Torquader
 
11.05.15
13:43
(22) Есть подозрение, что это мальчик, замаскированный под девочку, так как девочки обычно не на форуме такие вопросы задают.
24 Garykom
 
гуру
11.05.15
14:09
(23) это про "лучший способ выучить язык"?
25 ChMikle
 
11.05.15
14:11
(20) атстатыщщ -это наше , те уже начинают шевелиться от 200 :)